----------------------------------
rem 例7(人口)
OPTION BASE 0
DIM p(1000)
SET WINDOW -5,55,-5,130
DRAW axes (10,10)
DRAW grid (10,10)
LET a=1.17
LET n=50
LET p(0)=66
FOR k=0 TO n-1
   LET p(k+1)=(1+a/100)*p(k)
   PRINT k+1;p(k+1)
   PLOT LINES:k,p(k);k+1,p(k+1)
NEXT k
END
----------------------------------
rem 例10(メダカ)
OPTION BASE 0
DIM p(1000)
SET WINDOW -20,220,-2000,15000
DRAW axes (20,2000)
DRAW grid (20,2000)
INPUT a
LET C=10000
LET n=200
LET p(0)=1000
FOR k=0 TO n-1
   LET p(k+1)=p(k)+a*(1-p(k)/C)*p(k)
   IF p(k+1)<0 THEN LET p(k+1)=0
   PRINT k+1;p(k+1)
   PLOT LINES:k,p(k);k+1,p(k+1)
NEXT k
END
----------------------------------
rem 例12(ウサギとキツネ)
OPTION BASE 0
DIM r(1000),f(1000)
SET WINDOW -5,55,-200,2500
DRAW axes (10,500)
DRAW grid (10,500)
LET n=50
LET a=0.2
LET b=3
LET c=30
LET d=2
LET r(0)=1000
LET f(0)=20
FOR k=0 TO n-1
   LET r(k+1)=r(k)-b*f(k)+a*r(k)
   LET f(k+1)=f(k)-c/100*f(k)+d/100*r(k)
   PRINT k+1;r(k+1);f(k+1)
   SET LINE COLOR 10
   PLOT LINES:k,r(k);k+1,r(k+1)
   SET LINE COLOR 4
   PLOT LINES:k,f(k);k+1,f(k+1)
NEXT k
END
----------------------------------
rem 例13(ウサギとキツネ-2) 未完成

LET n=200
LET a=0.5
LET c=3000
LET d=0.0025
LET q=0.3
LET r(0)=2000
LET f(0)=100