SET WINDOW -1,33,-21,13
DRAW grid(5,5)
DEF x(t) = -5*PI*t*COS((PI/2)*t)+10*SIN((PI/2)*t)
DEF y(t) = 5*PI*t*SIN((PI/2)*t)+10*COS((PI/2)*t)-10
PRINT
PRINT "1秒後： x =";-5*PI*1*COS((PI/2)*1)+10*SIN((PI/2)*1);
PRINT "　　y =";5*PI*1*SIN((PI/2)*1)+10*COS((PI/2)*1)-10
PRINT
PRINT "2秒後： x =";-5*PI*2*COS((PI/2)*2)+10*SIN((PI/2)*2);
PRINT "　　y = ";5*PI*2*SIN((PI/2)*2)+10*COS((PI/2)*2)-10
PRINT
SET LINE width 2
FOR i=0 TO 2 STEP 0.01
   FOR t=0 TO i STEP 0.001
      PLOT LINES: x(t), y(t);
   NEXT t
   PLOT LINES
NEXT i
END