1PAGE 1 GRAPH OF A SPIRAL (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE GRAPH OF A SPIRAL
0002 * SOURCE
0003 * NOWARN
0004 * NARROW
0005 * NOSTATS
0006 L LEV=INTGRL(RATE)
0007 N LEV=0
0008 R RATE=0
0009 A X=COEFF*COS(OMEGA*TIME+PHI)
0010 A Y=COEFF*SIN(OMEGA*TIME+PHI)
0011 A COEFF=TIME
0012 C PHI=0
0013 A OMEGA=1
0014 PLOT Y=*//X
0015 PARM DT=.05
0016 PARM START=0
0017 PARM STOP=12.54
0018 PARM PLTPER=.1
1PAGE 2 GRAPH OF A SPIRAL (C) 1978 UND
*=Y
* -12 -7 -2 3 8
-9.5 . . . . . . . . . . .*. * * .*. * * .*.*. . . . . . . . .
. . * . * * .
. . * . . * .
. * . . * .
X . * . . . * .
. . . . .
. * . . . * .
. * . . . * .
. . . . * .
. * . . . .
-3.875 . . . . . . . . . . . . . . .*****. . . . . . . . . . .*.
. * . *** *** . *.
. * . ** . ** . .
. . * . * . *
. * . * . ** . *
. . * . * . .
. * . * . * ** . *
. . * . ***** . *.
. * . * . . *.
. . * . . .
1.75 . .*. . . . . . . . * . . . . . . . . . . . . . . . . * .
. . * . . * .
. * . * . . * .
. . ** . . * .
. * . * . . * .
. . * . . * .
. * . **. . * .
. . .** *.* * .
. * . . * * * ** . .
. . . . .
7.375 . . . . .*. . . . . . . . . . . . . . . . . . . . . . . .
. . . . .
. * . . . .
. *. . . .
. . . . .
. . * . . .
. . * . . .
. . * . . .
. . * . . .
. . * * . .
13 . . . . . . . . . . . . . . . . . . . . . . . . . . . . .