Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/spiral.dat
There are no other files named spiral.dat in the archive.
TITLE GRAPH OF A SPIRAL 00000010
* SOURCE 00000020
* NOWARN 00000030
* NARROW 00000035
* NOSTATS 00000040
L LEV=INTGRL(RATE) 00000060
N LEV=0 00000070
R RATE=0 00000080
A X=COEFF*COS(OMEGA*TIME+PHI) 00000090
A Y=COEFF*SIN(OMEGA*TIME+PHI) 00000100
A COEFF=TIME 00000110
C PHI=0 00000120
A OMEGA=1 00000130
PLOT Y=*//X 00000140
PARM DT=.05 00000150
PARM START=0 00000160
PARM STOP=12.54 00000170
PARM PLTPER=.1 00000180