積分した結果の関数の描画

y = f(x) に対して,
       x
f(x) = S  f(t) dt
       t=0
を描画する。


   10   screen 1
   20   cls 3
   30   print "式を入力してください"
   40   strinput F$
   50   F$=encode(F$)
   60   MaxOfX=15
   70   cls 3
   80   MaxOfY=MaxOfX*480/640
   90   Dp=MaxOfX/640/2
  100   window (-MaxOfX/10,MaxOfY)-(MaxOfX*19/10,-MaxOfY)
  110   line (-MaxOfX,0)-(2*MaxOfX,0),7
  120   for I=-int(MaxOfX) to int(2*MaxOfX)
  130    line (I,10*Dp)-(I,-10*Dp),7
  140   next
  150   line (0,-MaxOfY)-(0,MaxOfY),7
  160   for I=-int(MaxOfY) to int(MaxOfY)
  170     line (10*Dp,I)-(-10*Dp,I),7
  180   next
  181   Sum=0
  190   for X1=0 to int(2*MaxOfX/Dp)
  200   X=X1*Dp
  210   X2=X+Dp
  220         '***************************************
  230         Y=val(F$)
  240         X=X2:Y2=val(F$)
  250         Sum=Sum+Y*Dp
  260         '***************************************
  270         if abs(Y) end)";MaxOfX
  310   if MaxOfX<=0 then end else goto 70