Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 4134
Réponses : 9
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Fractale: le triangle de Sierpinski

Persalteas le 31/01/2012 à 14:02
Vous connaissez surement cette fractale:



Eh bien voilà un algorithme en TI Basic qui permet de le tracer:

Code

:FnOff
:ClrDraw
:PlotsOff
:AxesOff
:0->Xmin
:1->Xmax
:0->Ymin
:1->Ymax
:rand->X
:rand->Y
:For(K,1,3E3    // 3E3=3000
:rand->N
:If N =< 3^-1   // utilisez direct la touche [x-1]
:Then
:.5X->X
:.5Y->Y
:End
:If 3^-1<N and N=< 2/3
:Then
:.5(X+.5->X
:.5(Y+1->Y
:End
:If N>2/3
:Then
:.5(X+1->X
:.5Y->Y
:End
:Pt-On(X,Y
:End


Vous attendez 5 minutes environ, laissez mijoter, puis vous obtenez le la fractale de plus en plus précise, limitée a la fin par la taille des pixels.
linkakro le 31/01/2012 à 18:48
Ca c'est une fractale pour moi ! godgrace.gif Mais c'est plus une triforce.
Une fractale SANS récursivité ! C'est cool !
sandro le 31/01/2012 à 21:44
c'est vrai qu'elle est jolie, par contre, coté vitesse, je crois qu'on peut gagner un tout petit peu:
Code
:FnOff
:ClrDraw
:PlotsOff
:AxesOff
:0->Xmin
:1->Xmax
:0->Ymin
:1->Ymax
:rand->X
:rand->Y
:For(K,1,3E3    // 3E3=3000
:rand->N
:If N =< 3^-1   // utilisez direct la touche [x-1]
:Then
:.5X->X
:.5Y->Y
:End
:If 3^-1<N and N=< 2/3
:Then
:.5(X+.5->X
:.5Y+.5->Y           // au lieux de .5(Y+1->Y
:End
:If N>3[^-1]2        //au lieux de If N>2/3
:Then
:.5X+.5->X           //aux lieux de .5(X+1->X
:.5Y->Y
:End
:Pt-On(X,Y
:End
Persalteas le 31/01/2012 à 22:41
Pour une fois que tu privilégies la vitesse par rapport aux octets, je ne vais pas te contredire happy.gif

Soit ! on gagne surement un chouia de vitesse, mais je ne le remarque pas...
sandro le 01/02/2012 à 19:14
De toute façon, en terme d'octés, ça ne change rien.
Sangohan38 le 03/02/2012 à 19:06
Persi tu pourrais quand même dire que ce programme est issu du manuel de la 82.

L'un de mes premiers programme recopié ... souvenirs cry.gif .

Sangohan38
Persalteas le 03/02/2012 à 23:41
en fait, je pensais que ce programme ferait un gros vent et que personne s'en occuperait.

Donc je ne l'ai pas précisé.

Il vient du manuel de la TI 82.
kindermoumoute le 05/02/2012 à 01:54
:o
Il en montre des trucs intéressant dans le manuel de la 82. Je viens de comprendre que les fractales ce font avec les automates cellulaire grâce. cupsmiley.gif
Programaddict le 20/03/2013 à 17:26
En parlant de Triforce (celle avec un corps d'oiseau), quelqu'un aurait pas une idée pour faire en faire une comme intro d'un programme ?
linkakro le 20/03/2013 à 19:52
Copie mon avatar. clown.gif

Mon tutoriel sur la plupart des choses à savoir pour gérer les images.
Utilise un logiciel pour convertir une image ordinateur en Pic pour calculatrice ou un programme assembleur.
Puis tu pourras afficher l'image avec la Pic et les fonctions de la TI ou le programme assembleur.

Je peux héberger les programmes que j'ai déjà utilisé pour convertir mon avatar. Les deux versions histoire de. Note que les noms une fois sur ti sont les suivants malgré que ce soit naze.
http://www.mediafire.com/file/[...]ce_alexvire.83p NEW83 (créé avec le logiciel d'alexvire et assez léger)
http://www.mediafire.com/file/[...]rce_grabber.83p ZPICTURE (bmpgrabber , très lourd)

EDIT : dossier de données hébergées : http://www.mediafire.com/?6vz2mrxgfhtv2

Pose des questions si besoin, mais de préférence dans un nouveau sujet ou après le tutoriel.

EDIT : Sujet lié à cause de Programaddict : https://tout82.pages-perso.fre[...].php?sujet=3720
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.