Section courante

A propos

Section administrative du site

Le programme suivant, écrit en BASICA/GWBASIC, permet le traçage à répétition d'un triangle de «Sierpinski» utilisé dans les fractales. Je me suis permit de mettre à jour un programme inspiré d'une procédure de «Reiner Scholles» écrite à l'origine en Pascal.

  1. 10 SCREEN 1
  2. 20 Hauteur=25
  3. 30 ValeurFinale=30000
  4. 40 DIM X(3),Y(3)
  5. 50 X(0)=INT(320/2)
  6. 60 Y(0)=Hauteur
  7. 70 X(1)=X(0)-(INT(320)-1) / 3
  8. 80 Y(1)=(INT(200)-1)-Hauteur-1
  9. 90 X(2)=X(0)+(320-1) / 3
  10. 100 Y(2)=(200-1)-Hauteur-1
  11. 110 XP=X(0)
  12. 120 YP=Y(0)
  13. 130 RANDOMIZE TIMER
  14. 140 FOR I=1 TO ValeurFinale
  15. 150 P=INT(RND*3)
  16. 160 XP=INT((XP+X(P)) / 2)
  17. 170 YP=INT((YP+Y(P)) / 2)
  18. 180 PSET(XP,YP)
  19. 190 NEXT

Voici en terminant un exemple du résultat de se petit programme:


Dernière mise à jour : Samedi, le 24 janvier 2015