Procedimiento de control por clases
El método de las áreas coloreadas es más general y más sencillo, pero sólo se hace posible porque las computadoras son muy rápidas y pueden determinar el color de muchos puntos en poco tiempo. En estos ejemplos hemos estado calculando el color de 201x201 = 40401 puntos. La computadora lo hace en pocos segundos.
[ arriba ]
2. Dos Ecuaciones
El procedimiento que hemos estado usando para determinar de qué color pintar cada punto es el siguiente. Recibe dos entradas: las expresiones del lado izquierdo y del lado derecho de la ecuación. Devuelve -1 si el lado izquierdo es mayor, 1 si el lado derecho es mayor, y 0 si ambos lados son iguales. Por ejemplo:
para iguales :a :b [:ea ejecuta :a] [:eb ejecuta :b] devuelve signo :ea - :eb fin escribe aplica [[x y] iguales [:y - 0.2 * :x * :x] [-10]] [7 1]
1
escribe aplica [[x y] iguales [:y - 0.2 * :x * :x] [-10]] [8 1]
-1
escribe aplica [[x y] iguales [:y - 0.2 * :x * :x] [-10]] [8 2.8]
0
Si una ves escogido el par (x,y) el procedimiento iguales nos devuelve 1, el color escogido será rojo claro (código 12), si devuelve 0 será gris (código 15), si devuelve -1 será azúl claro (código 13). Esto se puede hacer fácilmento definiendo un arreglo colores así:
haz "colores {1 13 15 12 4}@-2
escribe elemento 1 :colores
12
escribe elemento 0 :colores
15
escribe elemento -1 :colores
13
Los colores de los extremos del arreglo: rojo