REM epicycloid �Ȑ�
LET a=1
LET b=1
SET WINDOW -1.2*(a+2*b),1.2*(a+2*b),-1.2*(a+2*b),1.2*(a+2*b)
LET h=0.01
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)
DRAW axes
SET LINE COLOR 4
DRAW circle WITH SCALE(a)
SET LINE COLOR 2
FOR t=0 TO 4*PI-h STEP h
   PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t
END
---------------------------------------------------
REM hypocycloid �Ȑ�
LET a=1
LET b=2/5
SET WINDOW -1.2*a,1.2*a,-1.2*a,1.2*a
LET h=0.01
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)
DRAW axes
SET LINE COLOR 4
DRAW circle WITH SCALE(a)
SET LINE COLOR 2
FOR t=0 TO 4*PI-h 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
LET b=7
LET d=0
SET WINDOW -1.2,1.2,-1.2,1.2
LET h=0.01
DEF f(t)=COS(a*t)
DEF g(t)=SIN(b*t+d)
DRAW axes
SET LINE color 4
PLOT LINES:1,1;-1,1;-1,-1;1,-1;1,1
SET LINE COLOR 2
FOR t=0 TO 2*PI-h STEP h
   PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t
END
----------------------------------------------------
REM �ȉ~
LET a=3
LET b=3
IF a>=b THEN LET d=a ELSE LET d=b
SET WINDOW -1.2*d,1.2*d,-1.2*d,1.2*d
LET h=0.01
DEF f(t)=a*COS(t)
DEF g(t)=b*SIN(t)
DRAW axes
SET LINE COLOR 2
FOR t=0 TO 2*PI-h STEP h
   PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t
END
--------------------------------------------------------
REM �o�Ȑ�-1
LET a=3
LET b=2
IF a>=b THEN LET d=a ELSE LET d=b
SET WINDOW -2*d,2*d,-2*d,2*d
LET h=0.01
DEF f(t)=a/COS(t)
DEF g(t)=b*TAN(t)
DRAW axes
SET LINE COLOR 2
FOR t=0 TO 2*PI-h STEP h
   IF ABS(f(t))<5*d OR ABS(g(t))<5*d then
      PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   else
      PLOT LINES
   END IF
   WAIT DELAY 0.01
NEXT t
END
-------------------------------------------------------
REM �o�Ȑ�-2
LET a=3
LET b=2
IF a>=b THEN LET d=a ELSE LET d=b
SET WINDOW -2*d,2*d,-2*d,2*d
LET h=0.01
DEF f(t)=a*COSh(t)
DEF g(t)=b*SINh(t)
DRAW axes
SET LINE COLOR 2
FOR t=-3 TO 3-h STEP h
   PLOT LINES:f(t),g(t);f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t
FOR t=-3 TO 3-h STEP h
   PLOT LINES:-f(t),g(t);-f(t+h),g(t+h)
   WAIT DELAY 0.01
NEXT t

END
--------------------------------------------------------