1PAGE 1 EXPONENTIATION TEST (C) 1978 UND * * * * * S O U R C E L I S T I N G * * * * * 0001 TITLE EXPONENTIATION TEST 0002 * NARROW 0003 * CHECK 0004 * EULER 0005 L LEVEL.K=INTGRL(RATE.JK) 0006 N LEVEL=1 0007 R RATE.KL=LEVEL.K 0008 S ZERZER.K=0**0 0009 S ZERANY.K=0**TIME.K 0010 S ANYZER.K=TIME.K**0 0011 S POSPOS.K=TIME.K**TIME.K 0012 S POSNEG.K=TIME.K**(-TIME.K) 0013 S NEGPOS.K=(-TIME.K)**TIME.K 0014 S NEGNEG.K=(-TIME.K)**(-TIME.K) 0015 S POSPF.K=TIME.K**(1/(TIME.K+1)) 0016 S POSFN.K=TIME.K**(-1/(TIME.K+1)) 0017 S NEGFP.K=(-TIME.K)**(1/(TIME.K+1)) 0018 S NEGFN.K=(-TIME.K)**(-1/(TIME.K+1)) 0019 PARM DT=1 0020 PARM STOP=3 0021 PARM PRTPER=1 0022 NOTE THE CONDITIONS WITH ZERO 0023 PRINT ZERZER,ZERANY,ANYZER 0024 NOTE COMBINATIONS OF POSITIVE AND NEGATIVE 0025 PRINT POSPOS,POSNEG,NEGPOS,NEGNEG 0026 NOTE COMBINATIONS WITH FRACTIONAL EXPONENTS 0027 PRINT POSPF,POSFN,NEGFP,NEGFN 1PAGE 2 EXPONENTIATION TEST (C) 1978 UND * * * S T A T S A N D O P T I O N S * * * 27 SOURCE STATEMENTS NO DIAGNOSTIC MESSAGES CARD TYPE OCCURRENCE PARM 3 N 1 L 1 R 1 S 11 * 3 NOTE 3 PRINT 3 TITLE 1 OPTIONS IN EFFECT: CHECK NOSYSTEM NODOCUMENT NARROW STATS GO NOSYMBOL NOXREF WARN NOOBJECT SOURCE NOTIME INTEGRATION METHOD: EULER LOWER SUM 1PAGE 3 EXPONENTIATION TEST - THE CONDITIONS WITH ZERO (C) 1978 UND TIME ZERZER ZERANY ANYZER 0.0000 1.0000 1.0000 1.0000 1.0000 1.0000 0.0000 1.0000 2.0000 1.0000 0.0000 1.0000 3.0000 1.0000 0.0000 1.0000 1PAGE 4 EXPONENTIATION TEST - COMBINATIONS OF POSITIVE A (C) 1978 UND TIME POSPOS POSNEG NEGPOS NEGNEG 0.0000 1.000 1.0000 1.000 1.0000 1.0000 1.000 1.0000 -.000 -1.0000 2.0000 4.000 0.2500 4.000 0.2500 3.0000 27.000 0.0370 -27.000 -0.0370 1PAGE 5 EXPONENTIATION TEST - COMBINATIONS WITH FRACTION (C) 1978 UND TIME POSPF POSFN NEGFP NEGFN 0.0000 0.0000 0.0000 0.0000 0.0000 1.0000 1.0000 1.0000 -1.0000 -1.0000 2.0000 1.2599 0.7937 1.2599 0.7937 3.0000 1.3161 0.7598 1.3161 0.7598