Fougère de Barnsley
Script par actualisation du curseur n:
ActualiserConstruction()
Si(a<0.01,SoitValeur(X,0))
Si(a<0.01,SoitValeur(Y,bb*y(A)))
Si(a>=0.01∧ a<0.86,SoitValeur(X,c*x(A)+d*y(A)))
Si(a>=0.01 ∧ a<0.86,SoitValeur(Y,-d*x(A)+c*y(A)+b))
Si(a>=0.86∧ a<0.93,SoitValeur(X,e*x(A)+f*y(A)))
Si(a>=0.86 ∧ a<0.93,SoitValeur(Y,g*x(A)+h*y(A)+b))
Si(a>=0.93,SoitValeur(X,i*x(A)+j*y(A)))
Si(a>=0.93,SoitValeur(Y,k*x(A)+l*y(A)+m))
SoitValeur(A,(X,Y))
SoitValeur(lp,Ajouter(lp,A))
avec:
Valeurs initiales: A=(0,0) et lp={(0,0)}
a=AléaUniforme(0, 1)
Image obtenue avec 23620 points (Et de la patience :)
En savoir plus:
La fougère de Barnsley:
https://fr.wikipedia.org/wiki/Foug%C3%A8re_de_Barnsley
https://mathcurve.com/fractals/fougere/fougere.shtml
http://michel.caron.pagesperso-orange.fr/algorithme/fougere.html (Un programme en python)
Plusieurs programmes dans différents langages sur la version anglaise de wikipedia:
https://en.wikipedia.org/wiki/Barnsley_fern
Remarque
En ligne cela peut très lent. Il est préférable de télécharger le fichier ggb pour l’exécuter sur son ordinateur.