Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/exptst.dat
There are no other files named exptst.dat in the archive.
TITLE EXPONENTIATION TEST 00000010
* NARROW 00000020
* CHECK 00000021
* EULER 00000022
L LEVEL.K=INTGRL(RATE.JK) 00000030
N LEVEL=1 00000040
R RATE.KL=LEVEL.K 00000050
S ZERZER.K=0**0 00000060
S ZERANY.K=0**TIME.K 00000070
S ANYZER.K=TIME.K**0 00000080
S POSPOS.K=TIME.K**TIME.K 00000090
S POSNEG.K=TIME.K**(-TIME.K) 00000100
S NEGPOS.K=(-TIME.K)**TIME.K 00000110
S NEGNEG.K=(-TIME.K)**(-TIME.K) 00000120
S POSPF.K=TIME.K**(1/(TIME.K+1)) 00000130
S POSFN.K=TIME.K**(-1/(TIME.K+1)) 00000140
S NEGFP.K=(-TIME.K)**(1/(TIME.K+1)) 00000150
S NEGFN.K=(-TIME.K)**(-1/(TIME.K+1)) 00000160
PARM DT=1 00000170
PARM STOP=3 00000180
PARM PRTPER=1 00000185
NOTE THE CONDITIONS WITH ZERO 00000190
PRINT ZERZER,ZERANY,ANYZER 00000200
NOTE COMBINATIONS OF POSITIVE AND NEGATIVE 00000210
PRINT POSPOS,POSNEG,NEGPOS,NEGNEG 00000220
NOTE COMBINATIONS WITH FRACTIONAL EXPONENTS 00000230
PRINT POSPF,POSFN,NEGFP,NEGFN 00000240