PRINT
PRINT " ＜ 放物線  y = x^2  の道のり ＞"
PRINT "      横軸 ： ｘ座標値"
PRINT "      縦軸 ： 放物線 の y座標値 （青色）  と  原点からの道のり（黒色）"
PRINT
SET WINDOW -0.1,2.1,-0.2,5.2
DRAW GRID
PRINT "   x    x^2   道のり"
FOR x=0 TO 2.1 STEP 0.001
   LET MITI=(1/4)*(2*x*SQR(1+4*x^2)+LOG(2*x+SQR(1+4*x^2)))
   PLOT LINES: x,MITI
   IF INT(10*x)=10*x THEN
      PRINT USING "##.#":x;
      PRINT USING "####.##":ROUND(x^2,2);
      PRINT USING "####.##":ROUND(MITI,2)
   END IF
NEXT x
PLOT LINES
SET LINE COLOR 2
FOR x=0 TO 2.1 STEP 0.001
   PLOT LINES: x,x^2
NEXT x
END