Rechercher
Résultats par :
Recherche avancée
Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Voir toute la liste


Partagez
Voir le sujet précédentAller en basVoir le sujet suivant
Posting Freak
Messages : 1188
Date d'inscription : 2004-12-09
Voir le profil de l'utilisateurhttp://langagelinotte.free.fr/

Fractale de Mandelbrot en Linotte !!

le Tue 19 Oct - 20:29
En hommage à Benoît Mandelbrot, un mathématicien qui a marqué notre époque, voici la fractale de Mandelbrot en Linotte !

La version 1.2.4 de l'Atelier est nécessaire pour faire fonctionner ce livre !

Code:
Fractale Mandelbrot :

Grands rôles :

zonex est un nombre valant -2
zoney est un nombre valant -2
zonew est un nombre valant 4
zoneh est un nombre valant 4
fond est une toile, hauteur vaut 500, largeur vaut 500
ligne est une ligne, transparence vaut 50, taille vaut 1, couleur vaut "sable", y1 vaut 0, y2 vaut 500
crayon est un crayon, couleur vaut "rouge",pointe vaut "non"

Dessine :

Rôles :

§verre est un cercle, transparence vaut 50, taille vaut 10, couleur vaut "gris acier", rayon vaut 25, plein vaut "non"
§tige est une ligne, transparence vaut 50, taille vaut 10, couleur vaut "queue-de-vache clair", x1 vaut -60, x2 vaut -25, y1 vaut -60, y2 vaut -25
§loupe est un mégalithe, transparence vaut 50
Actions :

fusionne verre & tige dans loupe
tant que 1 est différent de 2, lis
efface la toile
efface crayon
projette fond & crayon & ligne
parcours fractale
projette loupe
tant que touche est différent de "clique", lis
déplace loupe vers sourisx + 25 et sourisy + 25
temporise
ferme
efface loupe
("effet zoom !")
taille@verre vaut 1
déplace verre vers sourisx + 25 et sourisy + 25
projette verre
pour chaque 30, lis
taille@verre vaut joker
rayon@verre vaut joker * 10
attends 0.
01 secondes
ferme
efface verre
parcours zoom avec sourisx, sourisy
ferme

Fractale :

Rôles :

x & y & a & b est un nombre vide
c1 & c2 & c3 est un nombre
Actions :

Pour x de 0 à largeur@fond, lis
x1@ligne vaut x
x2@ligne vaut x
pour y de 0 à hauteur@fond, lis
a vaut zonex + x * zonew / (largeur@fond)
b vaut zoney + y * zoneh / (hauteur@fond)
si converge(a,b) est vrai alors lis
c1 vaut abs(entier(a * 55))
c3 vaut 255 - abs(entier(a * 55))
c2 vaut entier(abs(b * 255))
couleur@crayon vaut "" + c1 + " " + c2 + " " + c3
pique crayon à x et y
ferme
ferme
ferme
reviens

Converge :

Rôles :

*a est un nombre
*b est un nombre
§x est un nombre
§y est un nombre
§ynew est un nombre
§xnew est un nombre
Actions :

pour chaque 30, lis
xnew = x * x - y * y + a
ynew = 2 * x * y + b
si ((abs xnew) sup 2) ou ((abs ynew) sup 2) est vrai alors retourne faux
x vaut xnew
y vaut ynew
ferme
retourne vrai

Zoom :

Rôles :

*newx est un nombre
*newy est un nombre
§scale est un nombre
Actions :

scale vaut zonew / (largeur@fond)
zonex vaut zonex + newx * scale
zoney vaut zoney + newy * scale
zonew vaut 50 * scale
zoneh vaut 50 * scale
reviens
Member
Messages : 121
Date d'inscription : 2010-05-15
Voir le profil de l'utilisateur

Fractale de Mandelbrot en Linotte !!

le Tue 19 Oct - 23:14
C'est un peu long à s'exécuter mais c'est vraiment très bien fait !!!

Merci pour cet hommage à un homme qui aurais du mourir après d'autres...
Senior Member
Messages : 340
Date d'inscription : 2010-08-31
Voir le profil de l'utilisateurhttp://zamirhlinotte.monsite-orange.fr/

Fractale de Mandelbrot en Linotte !!

le Wed 20 Oct - 1:26
"Merci pour cet hommage à un homme qui aurais du mourir après d'autres..."

+1
Posting Freak
Messages : 1188
Date d'inscription : 2004-12-09
Voir le profil de l'utilisateurhttp://langagelinotte.free.fr/

Fractale de Mandelbrot en Linotte !!

le Wed 20 Oct - 20:30
J'ai modifié le livre, on peut maintenant zoomer !
Member
Messages : 121
Date d'inscription : 2010-05-15
Voir le profil de l'utilisateur

Fractale de Mandelbrot en Linotte !!

le Wed 20 Oct - 21:24
Superbe le dégradé <img src=" title="Smile" />.

Mais ?! Je ne vois pas de bord droit :p !
Senior Member
Messages : 340
Date d'inscription : 2010-08-31
Voir le profil de l'utilisateurhttp://zamirhlinotte.monsite-orange.fr/

Fractale de Mandelbrot en Linotte !!

le Fri 22 Oct - 3:06
j'arrive pas à zoomer T.T
Posting Freak
Messages : 1188
Date d'inscription : 2004-12-09
Voir le profil de l'utilisateurhttp://langagelinotte.free.fr/

Fractale de Mandelbrot en Linotte !!

le Fri 22 Oct - 21:46
Il faut attendre la fin de l'affichage de la fractale ! et une loupe s'affiche.....
Contenu sponsorisé

Re: Fractale de Mandelbrot en Linotte !!

Voir le sujet précédentRevenir en hautVoir le sujet suivant
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum