DEF f(x)=x^3+x^2-2*x      !左の関数のグラフを描く
SET WINDOW -3,3,-3,3
DRAW GRID
FOR x=-3 TO 3 STEP 0.001
   PLOT LINES: x,f(x)
NEXT x
END



DEF f(x)=x^3+x^2-2*x      ! 左の関数の x = -1, 0, 1 のときの微分
FOR a=-1 TO 1 STEP 1
   PRINT a 
   FOR s=1 TO 5 STEP 1
      LET h=10^(-s)
      LET L=(f(a+h)-f(a))/h
      PRINT "　";h
      PRINT "　　";L
   NEXT s
   PRINT
NEXT a
PRINT "それぞれ、 ある値に近づいています。"
PRINT "このプログラムは終了しました。"
END



DEF f(x)=x^3+x^2-2*x       ! 左の関数を x = -2 〜 1 の範囲で積分
FOR s=1 TO 5 STEP 1
   LET L=0
   LET h=10^(-s)
   FOR x=-2 to 1 step h
      LET dL= h*f(x)
      LET L=dL+L
   NEXT x
   PRINT "　";h
   PRINT "　　";L
   PRINT
NEXT s
PRINT "2.25 に近づいていますね。" 
PRINT "このプログラムは終了しました。"
END