(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 01:58:27" ("compiled on " |{DSK}sources>AARITH.;1|) "30-Mar-95 20:33:04" |bcompl'd| |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "16-May-90 11:41:16" |{DSK}local>lde>lispcore>sources>AARITH.;2| 32769 |changes| |to:| (VARS AARITHCOMS) |previous| |date:| "22-Oct-86 19:52:52" |{DSK}local>lde>lispcore>sources>AARITH.;1|) LOG :D8 (L (0 X)) @djHdoo@ HjjoHHoXJkذJHd@@oXlIYHlHod`l2doI(34 ERROR) (119 ARRAYP 114 \\LOGARRAY 9 FLOATP) ( 133 0.6931472 105 1.0 82 0.0 59 2.0 50 1.17549407E-38 28 "LOG OF NON-POSITIVE NUMBER:" 20 0.0) ANTILOG :D8 (L (0 X)) @hddH[ddojHoo@ KoKoj\d`l2d`Ll ZHooJJ(106 ELT 48 ERROR) (97 \\ANTILOGCARRAY 83 ARRAYP 78 \\ANTILOGARRAY) ( 125 1.0 118 0.0 63 1.442695 55 0.6931472 42 "FLOATING OVERFLOW" 36 0.0 21 88.7) SIN :D8 (L (1 RADIANSFLG 0 X)) !@AH oH (30 \\SIN-FLOAT 15 \\SIN-FLOAT) NIL ( 21 0.01745329) ARCSIN :D8 (L (1 RADIANSFLG 0 X)) @daoHHo.oH Ho.iooH XoHioHXHd\oL]dod^oNoN^HoNoMYKooIJoIAIIo(70 SQRT 40 ERROR) (9 FLOATP) ( 186 57.29578 173 0.0 162 2.0 157 1.570796 144 0.6599526 138 0.7533057 127 0.4918762 121 0.3697723 112 0.08982446 103 0.5315066 89 0.0 78 0.0 62 1.0 57 0.5 47 0.5 34 "ARCSIN: arg not in range" 26 1.0 17 -1.0) COS :D8 (L (1 RADIANSFLG 0 X)) #@AHi oHi (32 \\SIN-FLOAT 16 \\SIN-FLOAT) NIL ( 22 0.01745329) ARCCOS :D8 (L (1 RADIANSFLG 0 X)) $@dAooHA (32 ARCSIN) (9 FLOATP) ( 25 90.0 19 1.570796) TAN :D8 (L (1 RADIANSFLG 0 X)) !@AH oH (30 \\TAN-FLOAT 15 \\TAN-FLOAT) NIL ( 21 0.01745329) ARCTAN :D8 (L (1 RADIANSFLG 0 X)) n@oo"oHHdooHoooHXdZHJ`l2YKAII鹰IoNIL (78 ARRAYP 73 \\ARCTANARRAY) ( 106 57.29578 58 1.0 52 1.570796 46 -1.570796 38 0.0 29 1.0 19 -1.0 11 0.002866226 5 0.0) ARCTAN2 :D8 (L (2 RADIANSFLG 1 X 0 Y)) l@@bAAb@A i oAo@oHoHo@oHHXBHo(39 ARCTAN 33 ABS) (22 FLOATP 9 FLOATP) ( 104 57.29578 90 0.0 82 0.0 73 3.141593 64 -3.141593 56 0.0 47 0.0) ATAN :D8 (L (2 RADIANSFLG 1 X 0 Y)) @@bAAbo@oAbHo@@IoAAJKJK\d_LO`l2oNoNNoMoMNooNJKooKJIHoNoNHoNNBNNoNIL (94 ARRAYP 89 \\ATANARRAY 22 FLOATP 9 FLOATP) ( 218 57.29578 203 6.283185 193 3.141593 184 3.141593 168 0.0 163 1.570796 151 0.0 144 0.7853982 135 0.7853 127 0.7855 117 0.0 109 0.0 61 0.0 49 0.0 37 0.0 30 0.0) FEXPT :D8 (L (1 N 0 A)) 3@o oAd@d (48 ANTILOG 42 LOG 10 EQP) (37 FLOATP 27 FLOATP) ( 16 0.0 5 0.0) \\SIN-FLOAT :D8 (L (1 COS-FLAG 0 X)) hddA@@jn?n@o@XjHnjѹhHn?jѹHo XddohIHn@InXon@InHoHIHHHZIHJ`l2J`l2 d(203 CL::%/ 73 CL:REM) (190 ARRAYP 185 \\SIN-QPOLY 171 ARRAYP 166 \\SIN-PPOLY) ( 130 2.441406E-4 112 1.570796 85 3.141593 68 6.283185 32 1.570796) \\TAN-FLOAT :D8 (L (0 X)) hdd#@XjHohHoHo XddoHn@InoHinɍoin?nHoH KHLJ JHHYKHI`l2I`l2 ZLd J(224 CL::%RECIPROCOL 210 CL::%/ 145 CL::%RECIPROCOL 124 ABS 45 CL:REM) (197 ARRAYP 192 \\TAN-QPOLY 178 ARRAYP 173 \\TAN-PPOLY) ( 116 2.441406E-4 96 0.7853982 77 -0.7853982 57 1.570796 40 3.141593 31 1.0 20 -1.0) \\SIN.OLD :D8 (L (1 RADIANSFLG 0 X)) @hA#oHHo7Hn@n*oHHoHnCjoHoHHoXHoHn@nѰHon@InHoH(HHYHI`l2oHXdHYHI`l2NIL (232 ARRAYP 227 \\SINARRAY2 182 ARRAYP 177 \\SINARRAY1) ( 201 1.273239 152 0.7853982 134 1.570796 114 4.712389 101 6.283185 88 -1.570796 76 0.01745329 60 -360.0 47 360.0 27 -6.283185 14 6.283185) \\COS.OLD :D8 (L (1 RADIANSFLG 0 X)) @hA#oHHo7Hn@n*oHHoHnCjoHn?nHXoHHoXHoHn@nѰHon@InHoH(HHYHI`l2oHXdHYHI`l2NIL (243 ARRAYP 238 \\SINARRAY2 193 ARRAYP 188 \\SINARRAY1) ( 212 1.273239 163 0.7853982 145 1.570796 125 4.712389 112 6.283185 99 -1.570796 76 0.01745329 60 -360.0 47 360.0 27 -6.283185 14 6.283185) \\TAN.OLD :D8 (L (1 RADIANSFLG 0 X)) @hdAHn@InHo oXdoHn@InXoHHoXHoin?nHoHinnHHYdIZIJ`l2YKn?jII(34 FREMAINDER) (162 ARRAYP 157 \\TANARRAY) ( 118 -0.7853982 97 0.7853982 84 3.141593 71 -1.570796 51 1.570796 39 0.01745329 29 180.0) (PRETTYCOMPRINT AARITHCOMS) (RPAQQ AARITHCOMS ((FNS LOG ANTILOG SIN ARCSIN COS ARCCOS TAN ARCTAN ARCTAN2 ATAN FEXPT \\SIN-FLOAT \\TAN-FLOAT \\SIN.OLD \\COS.OLD \\TAN.OLD) (VARS \\ANTILOGARRAY \\ANTILOGCARRAY \\ARCTANARRAY \\LOGARRAY \\SIN-PPOLY \\SIN-QPOLY \\TAN-PPOLY \\TAN-QPOLY \\SINARRAY1 \\SINARRAY2 \\TANARRAY \\ATANARRAY) (DECLARE\: EVAL@COMPILE DONTCOPY (MACROS (* |now| |obsolete| - |use| POLYEVAL |instead|) HORNERIFY FLEQ FGEQ) (FILES (LOADCOMP) LLFLOAT) (CONSTANTS (\\SIN-EPSILON 2.441406E-4) (\\TAN-EPSILON 2.441406E-4) (\\EXPONENT.BIAS 127) (2PI 6.283185) (CL:PI 3.141593) (-PI -3.141593) (-PI/2 -1.570796) ( PI/2 1.570796) (4/PI 1.273239) (3PI/2 4.712389) (PI/4 0.7853982) (-PI/4 -0.7853982) (PI/180 0.01745329 ) (180/PI 57.29578) (-PI/2 -1.570796) (LN2 0.6931472) (|2^-126| 1.17549407E-38))))) (RPAQ \\ANTILOGARRAY (READARRAY-FROM-LIST 8 (QUOTE FLOATP) 0 (QUOTE (-1.413161E-4 0.001329882 -0.00830136 0.04165735 -0.1666653 0.4999999 -1.0 1.0 NIL)))) (RPAQ \\ANTILOGCARRAY (READARRAY-FROM-LIST 255 (QUOTE FLOATP) 0 (QUOTE (5.87747456E-39 1.17549407E-38 2.350992E-38 4.70198E-38 9.40396E-38 1.880791E-37 3.761582E-37 7.523175E-37 1.504633E-36 3.009266E-36 6.018532E-36 1.203706E-35 2.407413E-35 4.814832E-35 9.629655E-35 1.92593E-34 3.85186E-34 7.70372E-34 1.540746E-33 3.081488E-33 6.162979E-33 1.232595E-32 2.465191E-32 4.930382E-32 9.860764E-32 1.972152E-31 3.944305E-31 7.888613E-31 1.577722E-30 3.155448E-30 6.310891E-30 1.262178E-29 2.524355E-29 5.04871E-29 1.009743E-28 2.019484E-28 4.038968E-28 8.077936E-28 1.615587E-27 3.231174E-27 6.462349E-27 1.29247E-26 2.58494E-26 5.169879E-26 1.033976E-25 2.067952E-25 4.135903E-25 8.271806E-25 1.654361E-24 3.308724E-24 6.617445E-24 1.323489E-23 2.646978E-23 5.293956E-23 1.058791E-22 2.117583E-22 4.235165E-22 8.47033E-22 1.694066E-21 3.388132E-21 6.776264E-21 1.355253E-20 2.710506E-20 5.421011E-20 1.084202E-19 2.168405E-19 4.336809E-19 8.67363E-19 1.734724E-18 3.469447E-18 6.938904E-18 1.387779E-17 2.775558E-17 5.551115E-17 1.110223E-16 2.220446E-16 4.440892E-16 8.881784E-16 1.776359E-15 3.552714E-15 7.105429E-15 1.421086E-14 2.842171E-14 5.684342E-14 1.136868E-13 2.273737E-13 4.547474E-13 9.094948E-13 1.818989E-12 3.637979E-12 7.275959E-12 1.455192E-11 2.910383E-11 5.820766E-11 1.164153E-10 2.328307E-10 4.656613E-10 9.31324E-10 1.862645E-9 3.72529E-9 7.450583E-9 1.490116E-8 2.980232E-8 5.960465E-8 1.192093E-7 2.384186E-7 4.768372E-7 9.536744E-7 1.907349E-6 3.814697E-6 7.629397E-6 1.525879E-5 3.051759E-5 6.103516E-5 1.220703E-4 2.441406E-4 4.882813E-4 9.765626E-4 0.001953125 0.00390625 0.0078125 0.015625 0.03125 0.0625 0.125 0.25 0.5 1.0 2.0 4.0 8.0 16.0 32.0 64.0 128.0 256.0 512.0 1024.0 2048.0 4096.0 8192.0 16384.0 32768.0 65536.0 131072.0 262144.0 524288.0 1048576.0 2097152.0 4194304.0 8388608.0 1.677722E+7 3.355443E+7 6.710887E+7 1.342177E+8 2.684355E+8 5.368709E+8 1.073742E+9 2.147484E+9 4.294968E+9 8.589936E+9 1.717987E+10 3.435974E+10 6.871948E+10 1.37439E+11 2.748779E+11 5.497558E+11 1.099512E+12 2.199023E+12 4.398047E+12 8.796094E+12 1.759219E+13 3.518437E+13 7.036876E+13 1.407375E+14 2.81475E+14 5.6295E+14 1.1259E+15 2.2518E+15 4.5036E+15 9.0072E+15 1.80144E+16 3.60288E+16 7.205761E+16 1.441152E+17 2.882304E+17 5.764609E+17 1.152922E+18 2.305843E+18 4.611686E+18 9.223372E+18 1.844675E+19 3.689349E+19 7.378698E+19 1.47574E+20 2.951479E+20 5.902958E+20 1.180592E+21 2.361183E+21 4.722367E+21 9.444734E+21 1.888947E+22 3.777893E+22 7.555786E+22 1.511157E+23 3.022315E+23 6.044629E+23 1.208926E+24 2.417852E+24 4.835703E+24 9.671406E+24 1.934281E+25 3.868563E+25 7.737125E+25 1.547425E+26 3.09485E+26 6.1897E+26 1.23794E+27 2.47588E+27 4.95176E+27 9.90352E+27 1.980704E+28 3.961408E+28 7.922816E+28 1.584563E+29 3.169126E+29 6.338253E+29 1.267651E+30 2.535301E+30 5.070602E+30 1.01412E+31 2.028241E+31 4.056482E+31 8.112964E+31 1.622593E+32 3.245186E+32 6.490371E+32 1.298074E+33 2.596148E+33 5.192297E+33 1.038459E+34 2.076919E+34 4.153837E+34 8.307675E+34 1.661535E+35 3.32307E+35 6.64614E+35 1.329228E+36 2.658456E+36 5.316912E+36 1.063382E+37 2.126765E+37 4.25353E+37 8.50706E+37 1.701412E+38 NIL)))) (RPAQ \\ARCTANARRAY (READARRAY-FROM-LIST 9 (QUOTE FLOATP) 0 (QUOTE (0.002866226 -0.01616574 0.04290961 -0.07528964 0.1065626 -0.142089 0.1999355 -0.3333315 1.0 NIL)))) (RPAQ \\LOGARRAY (READARRAY-FROM-LIST 9 (QUOTE FLOATP) 0 (QUOTE (-0.006453544 0.03608849 -0.0953294 0.1676541 -0.2407338 0.331799 -0.4998741 0.9999964 0.0 NIL)))) (RPAQ \\SIN-PPOLY (READARRAY-FROM-LIST 6 (QUOTE FLOATP) 0 (QUOTE (-1.312516E-9 5.565546E-7 -8.703754E-5 0.005830397 -0.1509093 1.0 NIL)))) (RPAQ \\SIN-QPOLY (READARRAY-FROM-LIST 6 (QUOTE FLOATP) 0 (QUOTE (3.535755E-12 1.995733E-9 6.131296E-7 1.232982E-4 0.01575741 1.0 NIL)))) (RPAQ \\TAN-PPOLY (READARRAY-FROM-LIST 5 (QUOTE FLOATP) 0 (QUOTE (8.443456E-8 -3.939664E-5 0.004337587 -0.140375 1.0 NIL)))) (RPAQ \\TAN-QPOLY (READARRAY-FROM-LIST 6 (QUOTE FLOATP) 0 (QUOTE (-1.539329E-9 2.275635E-6 -4.822159E-4 0.02890704 -0.4737084 1.0 NIL)))) (RPAQ \\SINARRAY1 (READARRAY-FROM-LIST 6 (QUOTE FLOATP) 0 (QUOTE (-2.39E-8 2.7526E-6 -1.98409E-4 0.008333332 -0.1666667 1.0 NIL)))) (RPAQ \\SINARRAY2 (READARRAY-FROM-LIST 4 (QUOTE FLOATP) 0 (QUOTE (-3.59544E-5 0.002490007 -0.08074545 0.7853982 NIL)))) (RPAQ \\TANARRAY (READARRAY-FROM-LIST 7 (QUOTE FLOATP) 0 (QUOTE (0.00951681 0.002900525 0.02456509 0.05337406 0.1333924 0.3333314 1.0 NIL)))) (RPAQ \\ATANARRAY (READARRAY-FROM-LIST 8 (QUOTE FLOATP) 0 (QUOTE (-0.004054058 0.02186123 -0.05590989 0.09642004 -0.1390853 0.1994654 -0.3332986 0.9999994 NIL)))) (PUTPROPS AARITH COPYRIGHT ("Venue & Xerox Corporation" 1981 1983 1984 1985 1986 1990)) NIL