Uso de un programa para crear el triángulo de Sierpinski
Cómo configurar un programa para estimar coeficientes
Este programa crea un dibujo de un famoso fractal, el triángulo de Sierpinski, y lo almacena en
una imagen. Para empezar, pulse ~ ~
Í. Se mostrará el editor de programas.
: Después de ejecutar este programa, pulse y . † † † Í para activar los ejes en
Nota
la pantalla del gráfico.
Programa
PROGRAM:SIERPINS
:FnOff :ClrDraw
:PlotsOff
:AxesOff
:0!Xmin:1!Xmax
:0!Ymin:1!Ymax
:rand!X:rand!Y
:For(K,1,3000)
:rand!N
:If N1 à3
:Then
:.5X!X
:.5Y!Y
:End
:If 1 à3 <N and N2 à3
:Then
:.5(.5+X)!X
:.5(1+Y)!Y
:End
:If 2 à3 <N
:Then
:.5(1+X)!X
:.5Y!Y
:End
:Pt-On(X,Y)
:End
:StorePic 6
Después de ejecutar este programa, puede recuperar y visualizar la imagen mediante la
instrucción
RecallPic 6
Activities.fm
Define la ventana de visualización.
Inicio del grupo For.
Grupo If/Then.
Grupo If/Then.
Grupo If/Then.
Dibuja un punto.
Fin del grupo For.
Almacena la imagen.
.
. Asigne al programa el nombre
1
12/7/10
y pulse
SIERPINS
page 319