' Program JuliaX2.bas

BackColor 30

ForeColor 33

CLS

R% = 10: Mx% = 430: My% = 430

INPUT "numero cilcli (255)", numits%

INPUT "a = (-1.7), b = (-1.7), c= (1.7), d = (1.7) ", a, b, c, d

INPUT "x = (.74543) , y = (.11301) ", x0, y0

INPUT "Numero file", file%

CLS

OPEN "O",#1,"Julia."+STR$(file%)

PRINT #1,STR$(Mx%)+" "+STR$(My%)

PRINT#1,STR$(numits%)+" 0"

FOR K%=1 TO Mx%

PRINT#1, STR$(K%)+" ";

IF K%=Mx% THEN PRINT #1,""

NEXT K%

FOR K%=1 TO My%

PRINT#1, STR$(K%)+" ";

IF K%=My% THEN PRINT #1,""

NEXT K%

FOR p% = 1 TO Mx%

FOR q% = 1 TO My%

K=a+(c-a)*q%/Mx%: L=b+(d-b)*p%/My%

x =K: y=L: w%=200

FOR n%=1 TO numits%

xx=x^2-y^2-x0

yy=2*x*y-y0

x=xx: y=yy

IF x^2+y^2 > R% THEN

w%=n%:n%=numits%

END IF

NEXT n%

PRINT #1, STR$(w%)

NEXT q%,p%

CLOSE#1

LOCATE 1,1: INPUT Z

esc:

END