PRINT
PRINT "勾配降下法による　Y = X^2-4 の最低値の近似値"
PRINT
LET X=5
LET R=0.01
LET MAX=1000
FOR I=1 TO MAX
   LET Y=2*X
   LET X=X-R*Y
   IF MOD(I,100)=0 THEN
      PRINT I;": ";X;" → ";X^2-4
   END IF
NEXT I
END