陽関数の描画

   10   dim F$(10)
   20   screen 1
   30   cls 3
   40   FuncNum=1
   41   Dwidth=1
   42   PI=atan(1)*4
   50   print "式を入力してください"
   60   strinput F$(FuncNum)
   70   F$(FuncNum)=encode(F$(FuncNum))
   80   MaxOfX=15
   90   cls 3
  100   MaxOfY=MaxOfX*480/640
  110   Dp=MaxOfX/320
  120   window (-MaxOfX,MaxOfY)-(MaxOfX,-MaxOfY)
  130   line (-MaxOfX,0)-(MaxOfX,0),7
  140   for I=-int(MaxOfX) to int(MaxOfX)
  150    line (I,5*Dp)-(I,-5*Dp),7
  160   next
  170   line (0,-MaxOfY)-(0,MaxOfY),7
  180   for I=-int(MaxOfY) to int(MaxOfY)
  190     line (5*Dp,I)-(-5*Dp,I),7
  200   next
  210   if FuncReDraw=0 then FuncStart=FuncNum else FuncStart=1
  220   locate 3,1
  230   for FuncCT=FuncStart to FuncNum
  231   locate 1,FuncCT+3
  240   print FuncCT;
  250   F$(FuncCT)=decode(F$(FuncCT))
  260   print "f(x)=";F$(FuncCT)
  270   F$(FuncCT)=encode(F$(FuncCT))
  280   for X1=-int(MaxOfX/Dp*Dwidth) to int(MaxOfX/Dp*Dwidth)
  290   X=X1*Dp/Dwidth
  300         Y=val(F$(FuncCT))
  310         if abs(Y)"M" then goto 350
  480   input "Max of x ";MaxOfX
  490   FuncReDraw=-1
  500   if MaxOfX<=0 then end else goto 90