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