PRINT "input Sierpinski number 3 to 12" INPUT m SET MODE "color" SET WINDOW 0,1920,0,1024 FOR i=0 to 15 LET j=i/15 SET COLOR MIX (i) j,1-j, 1-j NEXT i SET BACKGROUND COLOR "white" LET x=1 LET y=1 LET c=0 LET s1=500 LET s2 =s1*1024/1920 DIM a(25),b(25) FOR i=1 to m LET a(2*i-1)=cos(2*pi*i/m) LET b(2*i-1)=sin(2*pi*i/m) NEXT i FOR i=1 to m LET a(2*i)=(cos(2*pi*i/m)+cos(2*pi*(i-1)/m))/2 LET b(2*i)=(sin(2*pi*i/m)+sin(2*pi*(i-1)/m))/2 NEXT i PRINT "GENERAL SIERPINSKI I.F.S. of second kind ( Sierpinski carpet class)" PRINT "BY R.L.BAGULA NOV 1994 copy rights reserved" RANDOMIZE PRINT " M=";m;" S=";" ";LOG(2*m)/LOG(3) FOR n= 1 TO 2560000 LET c =RND LET l=1+Int(2*c*m) LET x1=x/3+a(l) LET y1=y/3+b(l) LET x=x1 LET y=y1 SET COLOR 128- mod(int(2*m*c), 255) IF n>10 THEN PLOT 1920/2+s1*x,1024/2+s2*y NEXT n END