Biomorfos - III Funcion Z^3+C






50 SCREEN 12: KEY OFF: CLS

60 XI = -1.4: XA = 1.4: YI = -1.4: YA = 1.4: REM Plano Complejo

70 P = .7: Q = .01: REM Constantes de C

80 DX = (XA - XI) / 400: DY = (YA - YI) / 400


100 FOR NX = 1 TO 400

    110 FOR NY = 1 TO 400

        120 X = XI + NX * DX: Y = YI + NY * DY

        130 FOR K = 1 TO 16

            140 XN = X * X * X - 3 * X * Y * Y + P

            150 Y = 3 * X * X * Y - Y * Y * Y + Q

            160 X = XN

            170 IF X * X + Y * Y > 100 THEN GOTO 405

            180 IF INSTAT THEN END: REM Detiene la ejecucion pulsando una tecla

        190 NEXT K

    200 NEXT NY

210 NEXT NX: END

405 IF ABS(X) < 50 OR ABS(Y) < 50 THEN PSET (NX, NY), K: K = 16: GOTO 190

410 K = 16: GOTO 190








No hay comentarios:

Publicar un comentario

Nota: solo los miembros de este blog pueden publicar comentarios.