SET MODE "color"
SET WINDOW 0,1920,0,1024
SET BACKGROUND COLOR "white"
LET x=.5
LET y=.75
LET a=0
LET b =0
LET s1=900/2
LET s2 =s1*1024/1920
RANDOMIZE
PRINT"  Triangle Angle i*Z CONJUGATE I.F.S. "
print"  angle iteration:  w=angle(x-a,y-b): z=i*exp(-i*w)/r+a+i*b"
PRINT"  BY R.L.BAGULA 7 SEPT. 2002 ©"
LET r=2
FOR n= 1  TO  3000000
    LET a =RND
    LET r0=sqr(x*x+y*y)
    IF a <= 1/4 THEN
       LET w=angle(x-1,y)
       LET Y1=-r0*cos(w)/r +1
       LET X1=-r0*sin(w)/r
       SET COLOR "blue"
    END IF
    IF  a<=2/4 AND a>1/4 THEN
       LET w=angle(x+1/2,y-sqr(3)/2)
       LET Y1=-r0*cos(w)/r -1/2
       LET X1=-r0*sin(w)/r +SQR(3)/2
       SET COLOR "red"
    END IF
    IF  a<=3/4 AND a>2/4 THEN
       LET w=angle(x+1/2,y+sqr(3)/2)
       LET Y1=-r0*cos(w)/r -1/2
       LET X1=-r0*sin(w)/r -SQR(3)/2
       SET COLOR "black"
    END IF
    IF  a<=1 AND a>3/4 THEN
       LET w=angle(x,y)
       LET Y1=-r0*cos(w)/r
       LET X1=-r0*sin(w)/r
       SET COLOR "green"
    END IF

    LET x=x1
    LET y=y1
    IF n>10 THEN PLOT 1920/2+s1*x,1024/2+s2*y
NEXT n
END