# TITLE:  Lissajoux 
# AUTHOR: Roy F.A. Maclean 
# Based upon program in "Micro Math" vol 12/2 by N.Hopley
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   27Jan1997 
# MAKE:   CASIO
# MODEL:  fx7000G or greater
#
# Enter 4 values for A,B,C,D and a lissajoux curve will be drawn.
#
# A- x periodicity
# B- x phase shift
# C- y periodicity
# D- y phase shift
#
# try: 5,0,3,0
#   or 2,0,3,0
# and other examples
#
# There are two versions.
# The second version is for 9x50 models.
#
# -7700 version------------------------------

@@ Program 1

Range -1.1,1.1,1,-1.1,1.1,1
Lbl 0
"A"?->A:"B"?->B:"C"?->C:"D"?->D
Cls
Rad
0->T
Plot sin B,cos D
Lbl 1
T+\pi/60->T
Plot sin(AT+B),cos(CT+D)
Line
T<=2\pi=>Goto 1     ; \pi is the Pi symbol
T_                  ; press G<>T button to display graph
Goto 0

# --------------------------------
# -9x50 version------------------------------

@@ Program "LISJOUX9"

ViewWindow -1.1,1.1,1,-1.1,1.1,1
Lbl 0
"A"?->A:"B"?->B:"C"?->C:"D"?->D
Cls
Rad
0->T
Plot sin B,cos D
Lbl 1
T+\pi/60->T
Plot sin(AT+B),cos(CT+D)
Line
T<=2\pi=>Goto 1     ; \pi is the Pi symbol
Do
Getkey->Z
LpWhile Z<>31       ; press EXE when graph finished
Goto 0

# --------------------------------