| Fractale: le triangle de Sierpinski |
| Auteur |
Message |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mar 31 Jan 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
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mar 31 Jan 2012, 18:48
|
|
|
Ca c'est une fractale pour moi !  Mais c'est plus une triforce.
Une fractale SANS récursivité ! C'est cool !
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mar 31 Jan 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
|
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Mar 31 Jan 2012, 22:41
|
|
|
Pour une fois que tu privilégies la vitesse par rapport aux octets, je ne vais pas te contredire 
Soit ! on gagne surement un chouia de vitesse, mais je ne le remarque pas...
|
| |
|
| |
sandro
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
|
Posté le : Mer 01 Fév 2012, 19:14
|
|
|
De toute façon, en terme d'octés, ça ne change rien.
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Ven 03 Fév 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  .
Sangohan38
|
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Ven 03 Fév 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
Invité
|
Posté le : Dim 05 Fév 2012, 1: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. 
|
| |
|
| |
Programaddict
Invité
|
Posté le : Mer 20 Mar 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 ?
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 20 Mar 2013, 19:52
|
|
|
Copie mon avatar. 
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/m2xfvaagm3z6av0/triforce_alexvire.83p NEW83 (créé avec le logiciel d'alexvire et assez léger)
http://www.mediafire.com/file/kv1up38vwb0ni95/triforce_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.free.fr/forum/sujet.php?sujet=3720
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
