REM fractal(sida)
SET WINDOW -5,5,0,10
SET POINT STYLE 1
RANDOMIZE
LET x0=0
LET y0=0
PLOT POINTS:x0,y0
FOR k=1 TO 300000
   LET c=RND
   IF c<0.01 THEN
      SET POINT COLOR 1
      LET x1=0
      LET y1=0.16*y0
   ELSEIF c<0.08 THEN
      SET POINT COLOR 2
      LET x1=0.2*x0-0.26*y0
      LET y1=0.23*x0+0.22*y0+1.6
   ELSEIF c<0.15 THEN
      SET POINT COLOR 3
      LET x1=-0.15*x0+0.28*y0
      LET y1=0.26*x0+0.24*y0+0.44
   ELSE
      SET POINT COLOR 4
      LET x1=0.85*x0+0.04*y0
      LET y1=-0.04*x0+0.85*y0+1.6
   END IF
   PLOT POINTS:x1,y1
   LET x0=x1
   LET y0=y1
NEXT k
END
-------------------------------------------
REM ロジスティック増殖
SET WINDOW 135,315,-100,1000
SET POINT style 1
DRAW axes (100,100)
! DRAW grid (100,100)
LET C=700
FOR a=150 TO 300 STEP 0.1
   LET n0=100
   FOR t=1 TO 1000
      LET n1=(1+a*(1-n0/C)/100)*n0
      IF n1<0 THEN LET n1=0
      IF t>900 THEN PLOT POINTS:a,n1
      LET n0=n1
   NEXT t
NEXT a
END
--------------------------------------------
REM fractal(マンデルブロー集合)
SET WINDOW -2.5,1,-1.2,1.5
DRAW axes
SET POINT STYLE 1
FOR a=-3 TO 1 STEP 0.005
   FOR b=-2 TO 2 STEP 0.005
      LET x0=0
      LET y0=0
      FOR k=1 TO 200
         LET x1=x0^2-y0^2+a
         LET y1=2*x0*y0+b
         LET x0=x1
         LET y0=y1
         IF x1^2+y^2>4 THEN GOTO 100
      NEXT k
      PLOT POINTS: a,b
100    NEXT b
    NEXT a
 END
-----------------------------------------------