-----------------------------------------------

REM y=f(x)��graph
SET WINDOW -5,5,-5,5
DRAW AXES
DEF f(x)=1/x
LET h=0.01
FOR x=-5 TO 5-h STEP h
   WHEN EXCEPTION IN
      PLOT LINES:x,f(x);x+h,f(x+h)
   USE
      PLOT LINES
   END WHEN
NEXT x
END

-----------------------------------------------


-----------------------------------------------

REM cycloid��graph
SET WINDOW -1,7,-1,7
let a=1
DRAW AXES
DEF f(t)=a*t-a*sin(t)
DEF g(t)=a-a*cos(t)
LET h=0.01
SET LINE COLOR 2
FOR t=0 TO 3*pi STEP h
   PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t
END

-----------------------------------------------


-----------------------------------------------

REM epicycloid��graph
let a=1
LET b=1/3
SET WINDOW -1.1*(a+2*b),1.1*(a+2*b),-1.1*(a+2*b),1.1*(a+2*b)
DRAW AXES
DRAW circle WITH SCALE(a)
DEF f(t)=(a+b)*COS(t)-b*COS((a+b)/b*t)
DEF g(t)=(a+b)*sin(t)-b*sin((a+b)/b*t)
LET h=0.01
SET LINE COLOR 2
FOR t=0 TO 2*PI STEP h
   PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t
END

-----------------------------------------------


-----------------------------------------------

REM hypocycloid��graph
let a=1
LET b=1/3
SET WINDOW -1.1*a,1.1*a,-1.1*a,1.1*a
DRAW AXES
DRAW circle WITH SCALE(a)
DEF f(t)=(a-b)*COS(t)+b*COS((a-b)/b*t)
DEF g(t)=(a-b)*sin(t)-b*sin((a-b)/b*t)
LET h=0.01
SET LINE COLOR 2
FOR t=0 TO 2*PI STEP h
   PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t
END

-----------------------------------------------

REM Lissajous�Ȑ�
let a=1
SET WINDOW -1.1*a,1.1*a,-1.1*a,1.1*a
DRAW AXES
DEF f(t)=a*COS(3*t)
DEF g(t)=a*SIN(5*t)
LET h=0.01
SET LINE COLOR 2
FOR t=0 TO 2*PI STEP h
   PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t
END

-----------------------------------------------

REM �ȉ~ x^2/a^2+y^2/b^2=1
LET a=3
LET b=2
IF a>=b THEN LET c=a ELSE LET c=b
SET WINDOW -1.1*c,1.1*c,-1.1*c,1.1*c
DRAW AXES
DEF f(t)=a*COS(t)
DEF g(t)=b*SIN(t)
LET h=0.01
SET LINE COLOR 2
FOR t=0 TO 2*PI STEP h
   PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t
END

-----------------------------------------------

REM �o�Ȑ� x^2/a^2-y^2/b^2=1
LET a=1
LET b=1
SET WINDOW -3*a,3*a,-3*a,3*a
DRAW AXES
DEF f(t)=a/COS(t)
DEF g(t)=b*TAN(t)
LET h=0.01
SET LINE COLOR 2
FOR t=0 TO 2*PI STEP h
   WHEN EXCEPTION IN
      IF ABS(f(t))<10*a then PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   use
      PLOT lines
   END when
   WAIT DELAY 0.01
NEXT t
END

-----------------------------------------------