Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/pulse.dat
There are no other files named pulse.dat in the archive.
TITLE A PROGRAM TO TEST THE PULSE FUNCTION 00000010
* EULER 00000020
* NARROW 00000030
* NOSTATS 00000040
L LEVEL.K=INTGRL(R.JK) 00000050
N LEVEL=0 00000060
R R.KL=LEVEL.K*.06+PULSE(4,1,5,5) 00000070
PARM DT=1 00000080
PARM START=0 00000090
PARM STOP=20 00000100
PARM PLTPER=1 00000110
PARM PRTPER=1 00000120
NOTE DELAYED LEVEL VARIABLE 00000130
PRINT LEVEL 00000140
NOTE DELAYED LEVEL VARIABLE 00000150
PLOT LEVEL 00000160