SET MODE "color"
SET WINDOW 0,1922,0,1066
SET BACKGROUND COLOR "white"
LET s1=600
LET s2 =s1*1066/1922
RANDOMIZE
PRINT"REVERSE-Julia I.F.S.WITH ADJUSTED PROBABILITY"
PRINT"BY R.L.BAGULA 18 SEPT 2002 B)"
LET x=0
LET y=0
LET a =-0.74543
LET b =0.11301
LET P1=.90
LET P2=.99
FOR n= 1  TO  8000000
    LET x2=x-a
    LET y2=y-b
    LET R2=SQR(X2^2+Y2^2)
    LET w2=angle(x2,y2)
    REM GRADUATED ADJUSTED PROBABILITY
    IF N<1000000 THEN
       IF rnd>P1 then LET s=1 else LET s=-1
    ELSE
       IF rnd>P2 then LET s=1 else LET s=-1
    END IF
    LET x1=s*r2^.5*cos(.5*w2)
    LET y1=s*r2^.5*sin(.5*w2)
    LET x=x1
    LET y=y1
    SET COLOR 255
    IF n>10 THEN
       PLOT 1922/2+s1*x,1066/2+s2*y
       PLOT 1922/2-s1*x,1066/2-s2*y
    END IF
NEXT n
END