PRINT "input number 3 to 12: try three" REM put in nolet in command window INPUT m SET MODE "color" SET WINDOW 0,785,0,565 SET COLOR MIX (1) 0,0, 0 SET BACKGROUND COLOR "white" LET x=1 LET y=1 LET c=0 LET s1=150*1.5 LET s2 =(s1)*565/785 DIM a(25),b(25) FOR i=1 to m LET a(i)=cos(2*pi*i/m) LET b(i)=sin(2*pi*i/m) NEXT i PRINT " Measure function example" PRINT " BY R.L.BAGULA 6 July 1998© copy rights reserved" RANDOMIZE PRINT " M=";m FOR n= 1 TO 1000000 LET c =RND LET s=abs(abs(cos(angle(x,y)))-.1) LET l=1+int(c*m) LET x1=x/(abs(x)^s+abs(y)^(2*(s-1)))^(1/s)+a(l) LET y1=y/(abs(x)^s+abs(y)^(2*(s-1)))^(1/s)+b(l) LET x=x1 LET y=y1 SET COLOR 256 IF n>10 THEN PLOT 785/2+s1*x,565/2+s2*y NEXT n END