Curva de Henón
Cada curva de Henón se genera a partir de dos ecuaciones cuadráticas, una proporciona el valor de X y la otra el de la Y. Los siguientes valores de X e Y se calculan a partir de estos dos, y se van representando uno a uno los puntos obtenidos.
para empezar # Inicializamos la pantalla, el lapiz, la tortuga reponetodo pontamañopantalla [400 400] poncolorpapel negro poncolorlapiz verde subelapiz ocultatortuga # # Estas 3 líneas determinan qué # curvas de Henón se dibujan # haz "x 0 haz "y cambiasigno 0.2 haz "xescala 128 haz "yescala 440 haz "alpha 1.4 haz "beta 0.3 # # cambiándolas se obtienen otras curvas # ponformalapiz 1 # lapiz redondo repite 40000 [henon] fin para henon haz "xnuevo 1 - :alpha*(potencia :x 2) + :y haz "ynuevo :beta * :x punto lista (:xnuevo*:xescala) (:ynuevo*:yescala) haz "x :xnuevo haz "y :ynuevo fin |
# haz "X 0 haz "Y 0 haz "Xescala 40 haz "Yescala 40 haz "Alpha 0.2 haz "Beta 0.9991 # |