(FILECREATED "26-AUG-83 00:39:50" ("compiled on " {PHYLUM}MATHFNS.;3) "24-AUG-83 15:53:18" tcompl%'d in WORK dated "24-AUG-83 16:27:36") (FILECREATED "26-AUG-83 00:37:37" {PHYLUM}MATHFNS.;3 12249 changes to: (VARS MATHFNSCOMS) ( FNS LOG10 ANTILOG10 SEC CSC COT ARCSEC ARCCSC ARCCOT SINH SECH COSH CSCH TANH COTH ARCSINH ARCCOSH ARCTANH ARCCSCH ARCSECH ARCCOTH CPLUS CTIMES CQUOTIENT CABS CARG CLOG CANTILOG CEXPT CSQRT CSIN CCOS CTAN CCOT CSEC CCSC CARCSIN CARCCOS CARCTAN CARCCSC CARCSEC CARCCOT CSINH CSECH CCOSH CCSCH CTANH CCOTH CARCSINH CARCCOSH CARCTANH CARCCSCH CARCSECH CARCCOTH) (MACROS CEXP) previous date: "26-AUG-83 00:15:04" {PHYLUM}MATHFNS.;1) LOG10 D1 (I 0 X) @ oë(3 LOG) NIL (7 2.302583) ANTILOG10 D1 (I 0 X) o@ (7 EXPT) NIL (3 10.0) SEC D1 (I 1 RADIANSFLG I 0 X) o@A ë(10Q COS) NIL (3 1.0) CSC D1 (I 1 RADIANSFLG I 0 X) o@A ë(10Q SIN) NIL (3 1.0) COT D1 (I 1 RADIANSFLG I 0 X) o@A ë(10Q TAN) NIL (3 1.0) ARCSEC D1 (I 1 RADIANSFLG I 0 X) !o@òªo@ëA o@ëA (36Q FMINUS 33Q ARCCOS 20Q ARCCOS) NIL (25Q 1.0 12Q 1.0 3 0.0) ARCCSC D1 (I 1 RADIANSFLG I 0 X) >o@òªo@ëA A²o@ëA oè o@ëA oèoé(61Q ARCSIN 46Q FMINUS 36Q ARCSIN 20Q ARCSIN) NIL (72Q 180.0 65Q 3.141593 53Q 1.0 42Q 3.141593 30Q 1.0 12Q 1.0 3 0.0) ARCCOT D1 (I 1 RADIANSFLG I 0 X) o@A(10Q ARCTAN2) NIL (3 1.0) SINH D1 (I 0 X) @ @ éoë(12Q ANTILOG 7 FMINUS 3 ANTILOG) NIL (17Q 2.0) SECH D1 (I 0 X) o@ @ èë(16Q ANTILOG 13Q FMINUS 7 ANTILOG) NIL (3 2.0) COSH D1 (I 0 X) @ @ èoë(12Q ANTILOG 7 FMINUS 3 ANTILOG) NIL (17Q 2.0) CSCH D1 (I 0 X) o@ @ éë(16Q ANTILOG 13Q FMINUS 7 ANTILOG) NIL (3 2.0) TANH D1 (I 0 X) o@oê é@oê oèë(26Q ANTILOG 14Q ANTILOG) NIL (32Q 1.0 22Q -2.0 10Q -2.0 3 1.0) COTH D1 (I 0 X) @oê oèo@oê éë(32Q ANTILOG 10Q ANTILOG) NIL (26Q -2.0 21Q 1.0 14Q 1.0 4 -2.0) ARCSINH D1 (I 0 X) @ddêoè è (17Q LOG 13Q SQRT) NIL (7 1.0) ARCCOSH D1 (I 0 X) @ddêoè è (17Q LOG 13Q SQRT) NIL (7 -1.0) ARCTANH D1 (I 0 X) @oèo@éë oê(17Q LOG) NIL (23Q .5 11Q 1.0 4 1.0) ARCCSCH D1 (I 0 X) @dêoè oè@ë (24Q LOG 12Q SQRT) NIL (16Q 1.0 6 1.0) ARCSECH D1 (I 0 X) o@dêé oè@ë (24Q LOG 12Q SQRT) NIL (16Q 1.0 3 1.0) ARCCOTH D1 (I 0 X) @oé@oèë oê(17Q LOG) NIL (23Q .5 12Q 1.0 4 1.0) CPLUS D1 NIL MeHk2JdIñ²¿K1oZo[I°%a½Lµ Mh\»JkØZ°ÚM&¼°÷d¼JLèºKLè»µñJKNIL NIL (35Q 0.0 30Q 0.0) CTIMES D1 NIL \eHk2JdIñ²¿K0o[o\I°1a½Lµ Mh\»JkØZ°×M&¼°÷dºKJêLJêé½KJêLJêè¼M»µåKLNIL NIL (40Q 0.0 33Q 1.0) CQUOTIENT D1 (P 1 ANSWER P 0 R I 1 Z2 I 0 Z1) $ A X@AA YddHëIdHëI(23Q CTIMES 17Q FMINUS 6 CABS) NIL NIL CABS D1 (I 0 Z) @@ê@@êè (15Q SQRT) NIL NIL CARG D1 (P 0 ANSWER I 0 Z) @@iXoHò–HoèH(12Q ARCTAN2) NIL (27Q 6.283186 17Q 0.0) CLOG D1 (I 0 Z) @ @ (12Q CARG 6 LOG 3 CABS) NIL NIL CANTILOG D1 (P 1 ANSWER P 0 EX I 0 Z) @ Xd@i êH@i ê(27Q SIN 17Q COS 7 ANTILOG) NIL NIL CEXPT D1 (I 1 Z2 I 0 Z1) A@ (12Q CANTILOG 7 CTIMES 4 CLOG) NIL NIL CSQRT D1 (I 0 Z) o@ (15Q CANTILOG 12Q CTIMES 7 CLOG) NIL (3 (.5 . 0.0)) CSIN D1 (P 2 ANSWER P 1 MIZ P 0 IZ I 0 Z) 50@ @X@@ YH I éH I éo (62Q CQUOTIENT 50Q CANTILOG 43Q CANTILOG 35Q CANTILOG 30Q CANTILOG 22Q FMINUS 7 FMINUS) NIL (57Q (0.0 . 2.0)) CCOS D1 (P 2 ANSWER P 1 MIZ P 0 IZ I 0 Z) 50@ @X@@ YH I éH I éo (62Q CQUOTIENT 50Q CANTILOG 43Q CANTILOG 35Q CANTILOG 30Q CANTILOG 22Q FMINUS 7 FMINUS) NIL (57Q (0.0 . 2.0)) CTAN D1 (I 0 Z) @ @ (12Q CQUOTIENT 7 CSIN 3 CCOS) NIL NIL CCOT D1 (I 0 Z) @ @ (12Q CQUOTIENT 7 CCOS 3 CSIN) NIL NIL CSEC D1 (I 0 Z) o@ (12Q CQUOTIENT 7 CCOS) NIL (3 (1.0 . 0.0)) CCSC D1 (I 0 Z) o@ (12Q CQUOTIENT 7 CSIN) NIL (3 (1.0 . 0.0)) CARCSIN D1 (I 0 Z) 3oo@ o@d éo@d é (60Q CTIMES 55Q CLOG 52Q CPLUS 47Q CSQRT 41Q CTIMES 25Q CTIMES 13Q CTIMES) NIL (33Q (1.0 . 0.0) 17Q (1.0 . 0.0) 7 (0.0 . 1.0) 3 (0.0 . -1.0)) CARCCOS D1 (I 0 Z) ,o@dd oé@d oé (51Q CTIMES 46Q CLOG 43Q CPLUS 40Q CSQRT 25Q CTIMES 11Q CTIMES) NIL (32Q (1.0 . 0.0) 16Q (1.0 . 0.0) 3 (0.0 . -1.0)) CARCTAN D1 (I 0 Z) =ooo@ oo@ éoo@ é (72Q CTIMES 67Q CLOG 64Q CQUOTIENT 56Q CTIMES 37Q CTIMES 22Q CPLUS 17Q CTIMES) NIL (52Q (0.0 . 1.0) 45Q (1.0 . 0.0) 33Q (0.0 . 1.0) 26Q (1.0 . 0.0) 13Q (0.0 . 1.0) 7 (1.0 . 0.0) 3 (0.0 . -.5)) CARCCSC D1 (I 0 Z) 3oo@d oé@d oé @ (60Q CTIMES 55Q CLOG 52Q CQUOTIENT 46Q CPLUS 43Q CSQRT 30Q CTIMES 14Q CTIMES) NIL (35Q (1.0 . 0.0) 21Q (1.0 . 0.0) 7 (0.0 . 1.0) 3 (0.0 . -1.0)) CARCSEC D1 (I 0 Z) 0ood@d éo@d é @ (55Q CTIMES 52Q CLOG 47Q CQUOTIENT 43Q CPLUS 40Q CSQRT 32Q CTIMES 16Q CTIMES) NIL (24Q (1.0 . 0.0) 7 (1.0 . 0.0) 3 (0.0 . -1.0)) CARCCOT D1 (I 0 Z) (o@o @oé@oé (45Q CTIMES 42Q CLOG 37Q CQUOTIENT 13Q CPLUS) NIL (31Q (0.0 . 1.0) 21Q (0.0 . 1.0) 10Q (0.0 . 1.0) 3 (0.0 . -.5)) CSINH D1 (I 0 Z) 4@ @ @ é@ @ @ éo (61Q CQUOTIENT 47Q CANTILOG 43Q FMINUS 36Q FMINUS 30Q CANTILOG 22Q CANTILOG 16Q FMINUS 11Q FMINUS 3 CANTILOG) NIL (56Q (2.0 . 0.0)) CSECH D1 (I 0 Z) o@ @ @ (33Q CQUOTIENT 30Q CPLUS 25Q CANTILOG 21Q FMINUS 14Q FMINUS 7 CANTILOG) NIL (3 (2.0 . 0.0)) CCOSH D1 (I 0 Z) @ @ @ o (33Q CQUOTIENT 24Q CPLUS 21Q CANTILOG 15Q FMINUS 10Q FMINUS 3 CANTILOG) NIL (30Q (2.0 . 0.0)) CCSCH D1 (I 0 Z) 4o@ @ @ é@ @ @ é (61Q CQUOTIENT 53Q CANTILOG 47Q FMINUS 42Q FMINUS 34Q CANTILOG 26Q CANTILOG 22Q FMINUS 15Q FMINUS 7 CANTILOG) NIL (3 (2.0 . 0.0)) CTANH D1 (I 0 Z) <oo@ éoo@ éoo@ (71Q CQUOTIENT 66Q CPLUS 63Q CANTILOG 60Q CTIMES 41Q CANTILOG 36Q CTIMES 17Q CANTILOG 14Q CTIMES) NIL (54Q (-2.0 . 0.0) 50Q (1.0 . 0.0) 32Q (-2.0 . 0.0) 25Q (1.0 . 0.0) 10Q (-2.0 . 0.0) 3 (1.0 . 0.0)) CCOTH D1 (I 0 Z) <oo@ oo@ éoo@ é (71Q CQUOTIENT 63Q CANTILOG 60Q CTIMES 41Q CANTILOG 36Q CTIMES 21Q CPLUS 16Q CANTILOG 13Q CTIMES) NIL (54Q (-2.0 . 0.0) 47Q (1.0 . 0.0) 32Q (-2.0 . 0.0) 25Q (1.0 . 0.0) 7 (-2.0 . 0.0) 3 (1.0 . 0.0)) CARCSINH D1 (I 0 Z) @o@d (25Q CLOG 22Q CPLUS 17Q SQRT 14Q CPLUS 11Q CTIMES) NIL (4 (1.0 . 0.0)) CARCCOSH D1 (I 0 Z) %@dd oé@d oé (42Q CLOG 37Q CPLUS 34Q SQRT 21Q CTIMES 5 CTIMES) NIL (26Q (1.0 . 0.0) 12Q (1.0 . 0.0)) CARCTANH D1 (I 0 Z) (oo@ o@éo@é (45Q CTIMES 42Q CLOG 37Q CQUOTIENT 13Q CPLUS) NIL (27Q (1.0 . 0.0) 17Q (1.0 . 0.0) 7 (1.0 . 0.0) 3 (.5 . 0.0)) CARCCSCH D1 (I 0 Z) o@d o @ (34Q CLOG 31Q CQUOTIENT 25Q CPLUS 22Q SQRT 17Q CPLUS 10Q CTIMES) NIL (14Q (1.0 . 0.0) 3 (1.0 . 0.0)) CARCSECH D1 (I 0 Z) )od@d éo@d é @ (46Q CLOG 43Q CQUOTIENT 37Q CPLUS 34Q SQRT 26Q CTIMES 12Q CTIMES) NIL (20Q (1.0 . 0.0) 3 (1.0 . 0.0)) CARCCOTH D1 (I 0 Z) (o@oé@oéo@ (45Q CTIMES 42Q CLOG 37Q CQUOTIENT 34Q CPLUS) NIL (30Q (1.0 . 0.0) 21Q (1.0 . 0.0) 11Q (1.0 . 0.0) 3 (.5 . 0.0)) (PRETTYCOMPRINT MATHFNSCOMS) (RPAQQ MATHFNSCOMS ((* MATHFNS -- By Kelly Roach *) (FNS LOG10 ANTILOG10) (FNS SEC CSC COT ARCSEC ARCCSC ARCCOT) (FNS SINH SECH COSH CSCH TANH COTH ARCSINH ARCCOSH ARCTANH ARCCSCH ARCSECH ARCCOTH) ( FNS CPLUS CTIMES CQUOTIENT CABS CARG CLOG CANTILOG CEXPT CSQRT) (FNS CSIN CCOS CTAN CCOT CSEC CCSC CARCSIN CARCCOS CARCTAN CARCCSC CARCSEC CARCCOT) (FNS CSINH CSECH CCOSH CCSCH CTANH CCOTH CARCSINH CARCCOSH CARCTANH CARCCSCH CARCSECH CARCCOTH) (PROPS (COMPLEXIFY MACRO) (COMPLEX MACRO) (REAL MACRO) ( IMAGINARY MACRO) (CONJUGATE MACRO) (CZEROP MACRO) (CMINUS MACRO) (CDIFFERENCE MACRO) (CEXP MACRO) (EXP MACRO)) (CONSTANTS (E 2.718282) (PI 3.141593) (EULER .5772157) (COMPLEX0 (QUOTE (0.0 . 0.0))) ( COMPLEX1 (QUOTE (1.0 . 0.0))) (COMPLEX2 (QUOTE (2.0 . 0.0))) (COMPLEXI (QUOTE (0.0 . 1.0))) (COMPLEXM1 (QUOTE (-1.0 . 0.0))) (COMPLEXMI (QUOTE (0.0 . -1.0))) (COMPLEXE (QUOTE (2.718282 . 0.0))) (COMPLEXPI (QUOTE (3.141593 . 0.0)))) (P (MOVD (QUOTE ANTILOG) (QUOTE EXP)) (MOVD (QUOTE CANTILOG) (QUOTE CEXP)) ) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CTIMES CPLUS))))) (PUTPROPS COMPLEXIFY MACRO ((R) (CONS R 0.0))) (PUTPROPS COMPLEX MACRO ((R I) (CONS R I))) (PUTPROPS REAL MACRO ((Z) (CAR Z))) (PUTPROPS IMAGINARY MACRO ((Z) (CDR Z))) (PUTPROPS CONJUGATE MACRO ((Z) (CONS (CAR Z) (FMINUS (CDR Z))))) (PUTPROPS CZEROP MACRO ((Z) (EQUAL Z COMPLEX0))) (PUTPROPS CMINUS MACRO ((Z) (COMPLEX (FMINUS (REAL Z)) (FMINUS (IMAGINARY Z))))) (PUTPROPS CDIFFERENCE MACRO ((Z1 Z2) (COMPLEX (FDIFFERENCE (REAL Z1) (REAL Z2)) (FDIFFERENCE ( IMAGINARY Z1) (IMAGINARY Z2))))) (PUTPROPS CEXP MACRO ((X) (CANTILOG X))) (PUTPROPS EXP MACRO ((X) (ANTILOG X))) (RPAQQ E 2.718282) (RPAQQ PI 3.141593) (RPAQQ EULER .5772157) (RPAQQ COMPLEX0 (0.0 . 0.0)) (RPAQQ COMPLEX1 (1.0 . 0.0)) (RPAQQ COMPLEX2 (2.0 . 0.0)) (RPAQQ COMPLEXI (0.0 . 1.0)) (RPAQQ COMPLEXM1 (-1.0 . 0.0)) (RPAQQ COMPLEXMI (0.0 . -1.0)) (RPAQQ COMPLEXE (2.718282 . 0.0)) (RPAQQ COMPLEXPI (3.141593 . 0.0)) (CONSTANTS (E 2.718282) (PI 3.141593) (EULER .5772157) (COMPLEX0 (QUOTE (0.0 . 0.0))) (COMPLEX1 (QUOTE (1.0 . 0.0))) (COMPLEX2 (QUOTE (2.0 . 0.0))) (COMPLEXI (QUOTE (0.0 . 1.0))) (COMPLEXM1 (QUOTE (-1.0 . 0.0))) (COMPLEXMI (QUOTE (0.0 . -1.0))) (COMPLEXE (QUOTE (2.718282 . 0.0))) (COMPLEXPI (QUOTE ( 3.141593 . 0.0)))) (MOVD (QUOTE ANTILOG) (QUOTE EXP)) (MOVD (QUOTE CANTILOG) (QUOTE CEXP)) NIL