Publicidad
290
Capítulo 19: Aplicaciones
Programa: triángulo de Sierpinski
Este programa crea un dibujo de un fractal muy conocido, el triángulo de Sierpinski, y lo
almacena en la variable de imagen
Seleccione
en el menú PRGM, introduzca
EDIT
programa.
PROGRAM:SIERP
:FnOff :ClDrw
:PlOff
:AxesOff
Ajusta la
:0¶xMin:1¶xMax
:0¶yMin:1¶yMax
ventana de
visualización
:rand¶X:rand¶Y
Inicia el grupo
:For(K,1,3000)
:rand¶N
For
:If N(1 à 3 )
:Then
Grupo
If
/
Then
:.5X¶X
:.5Y¶Y
:End
En la pantalla principal, seleccione
NAMES y pulse b para ejecutar el programa, que puede tardar
unos minutos en completarse.
Después de ejecutar el programa, puede recuperar y mostrar en
pantalla la imagen ejecutando RcPic TRI.
.
TRI
en el indicador
SIERP
Grupo
If
/
Then
Grupo
If
Then
/
Dibuja punto
For
Termina
Almacena
imagen
en el menú PRGM
SIERP
y, después, introduzca este
Name=
:If N>(1 à 3 ) and N(2 à 3 )
:Then
:.5(.5+X)¶X
:.5(1+Y)¶Y
:End
:If N>(2 à 3 )
:Then
:.5(1+X)¶X
:.5Y¶Y
:End
:PtOn(X,Y)
:End
:StPic TRI
Publicidad
Capítulos
