PRINT
PRINT "＜ 微分の近似値＞"
PRINT
PRINT "赤線は、黒線のグラフの、同じχ座標値における傾きを表しています。"
PRINT "        黒線のグラフを表す式： y = (1/3)*x^3 - (1/2)*x^2 + 1"
PRINT "        赤線のグラフを表す式： y = x^2 - x + 1"
PRINT
DEF f(x)=(1/3)*x^3-(1/2)*x^2+1
DEF g(x)=(f(x+h)-f(x))/h
LET h=1E-8
SET WINDOW -3,3,-3,3
DRAW GRID
FOR x=-3 TO 3 STEP 0.001
   PLOT LINES: x,f(x)
NEXT x
PLOT LINES
SET LINE COLOR 4
FOR x=-3 TO 3 STEP 0.001
   PLOT LINES: x,g(x)
NEXT x
FOR x=-3 TO 3 STEP 0.001
   IF ROUND(g(x),5)=0 THEN
      PRINT "黒線グラフの頂点： (";x;",";ROUND(f(x),5);")"
   END IF
NEXT x
PRINT
FOR x=-2 TO 2 STEP 0.5
   PRINT "黒線グラフの χ ＝";x;"における傾き：";ROUND(g(x),5)
NEXT x
PRINT
END