PRINT
PRINT "ニュートン法による　X^2-4 = 0 の解の近似値"
PRINT
PRINT "    Y = X^2-4 上の点 ( a, a^2-4 ) における接線の方程式は"
PRINT "        Y - (a^2-4) = 2a * (X-a)"
PRINT "    Y = 2a*(X-a) + (a^2-4) = 0 を解くと"
PRINT "        X = (a+4/a)/2"
PRINT
PRINT " 0 :　5　→　21"
LET a=5
LET MAX=7
FOR I=1 TO MAX
   LET X = (a+4/a)/2
   PRINT I;": ";X;" → ";X^2-4
   LET a = X
NEXT I
END