(FILECREATED "25-Jun-86 12:30:37" ("compiled on " {QV}LISP>EARRAY-ARITHFNS.;15) "12-Nov-85 14:59:23" recompiled changes: EARRAY-FLOAT-ABS EARRAY-FLOAT-DIFFERENCE EARRAY-FLOAT-FIX EARRAY-FLOAT-FLOAT EARRAY-FLOAT-MAX EARRAY-FLOAT-MIN EARRAY-FLOAT-MINUS EARRAY-FLOAT-PLUS EARRAY-FLOAT-QUOTIENT EARRAY-FLOAT-RECIPROCAL EARRAY-FLOAT-REMAINDER EARRAY-FLOAT-TIMES EARRAY-GENERIC-DIFFERENCE EARRAY-GENERIC-PLUS EARRAY-GENERIC-QUOTIENT EARRAY-GENERIC-TIMES EARRAY-SAMPLE-VARIANCE EARRAY-SAMPLE-VARIANCE-REDUCE EARRAY-VARIANCE EARRAY-VARIANCE-REDUCE in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "25-Jun-86 12:29:12" {QV}LISP>EARRAY-ARITHFNS.;15 39795 changes to: (VARS EARRAY-ARITHFNSCOMS) (FNS EARRAY-SAMPLE-VARIANCE-REDUCE EARRAY-SAMPLE-VARIANCE EARRAY-VARIANCE EARRAY-VARIANCE-REDUCE EARRAY-FLOAT-ABS EARRAY-FLOAT-DIFFERENCE EARRAY-FLOAT-FIX EARRAY-FLOAT-FLOAT EARRAY-FLOAT-MAX EARRAY-FLOAT-MIN EARRAY-FLOAT-MINUS EARRAY-FLOAT-PLUS EARRAY-FLOAT-QUOTIENT EARRAY-FLOAT-RECIPROCAL EARRAY-FLOAT-REMAINDER EARRAY-FLOAT-TIMES EARRAY-GENERIC-DIFFERENCE EARRAY-GENERIC-PLUS EARRAY-GENERIC-QUOTIENT EARRAY-GENERIC-TIMES) previous date: "23-Jun-86 14:05:47" {QV}LISP>EARRAY-ARITHFNS.;12) EARRAY-ABS D1 (I 1 RESULT I 0 ARRAY) g@A@ (13Q EARRAY-MONADIC-APPLY 10Q EARRAY-ELEMENT-TYPE) (2 ABS) () EARRAY-ABS-FN D1 (I 2 RESULT I 1 ARRAY I 0 OP) "A gðžB gð•AB gAB (37Q EARRAY-GENERIC-MONADIC-APPLY 26Q EARRAY-FLOAT-ABS 14Q EARRAY-ELEMENT-TYPE 3 EARRAY-ELEMENT-TYPE) (32Q ABS 17Q SINGLE-FLOAT 6 SINGLE-FLOAT) () EARRAY-CEILING D1 (L (1 RESULT 0 ARRAY)) g@A (7 EARRAY-MONADIC-APPLY) (2 CEILING) () EARRAY-CEILING-FN D1 (L (2 RESULT 1 ARRAY 0 OP)) gAB (7 EARRAY-GENERIC-MONADIC-APPLY) (2 SCALAR-CEILING) () EARRAY-DIFFERENCE D1 (I 2 RESULT I 1 ARRAY2 I 0 ARRAY1) g@AB@ A (24Q EARRAY-DYADIC-APPLY 20Q EARRAY-ARITH-TYPE 15Q EARRAY-ELEMENT-TYPE 11Q EARRAY-ELEMENT-TYPE) (2 DIFFERENCE) () EARRAY-DIFFERENCE-FN D1 (I 3 RESULT I 2 ARRAY2 I 1 ARRAY1 I 0 OP) AB ŸC gð–ABC ABC (33Q EARRAY-GENERIC-DIFFERENCE 24Q EARRAY-FLOAT-DIFFERENCE 11Q EARRAY-ELEMENT-TYPE 4 USE-FLOAT-P) (14Q SINGLE-FLOAT) () EARRAY-DIFFERENCE-SWEEP D1 (L (3 RESULT 2 AXIS 1 ARRAY2 0 ARRAY1)) g@ABC@ A (25Q EARRAY-SWEEP 21Q EARRAY-ARITH-TYPE 16Q EARRAY-ELEMENT-TYPE 12Q EARRAY-ELEMENT-TYPE) (2 DIFFERENCE) () EARRAY-FIX D1 (I 1 RESULT I 0 ARRAY) g@A (7 EARRAY-MONADIC-APPLY) (2 FIX) () EARRAY-FIX-FN D1 (I 2 RESULT I 1 ARRAY I 0 OP) A gð•AB gAB (26Q EARRAY-GENERIC-MONADIC-APPLY 15Q EARRAY-FLOAT-FIX 3 EARRAY-ELEMENT-TYPE) (21Q FIX 6 SINGLE-FLOAT) () EARRAY-FLOAT D1 (I 1 RESULT I 0 ARRAY) g@Ag (12Q EARRAY-MONADIC-APPLY) (7 SINGLE-FLOAT 2 FLOAT) () EARRAY-FLOAT-ABS D1 (L (1 RESULT 0 ARRAY)) B@ §@íííA dÐkÙj@ A IHó³KIÐJIÐdÈýÈÑíοIlÔY°åA(35Q ARRAYBASE 31Q ARRAYBASE 20Q EARRAY-TOTAL-SIZE 3 CL:ARRAYP) NIL () EARRAY-FLOAT-DIFFERENCE D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) £@d ª¿A £@AÕ@ ³;B dÐkÙjA B @íIHó³KIÐLJIÐdÈýÈÑìοIlÔY°ä°SA ³;B dÐkÙj@ B AíIHó³KIÐJIÐdÈýÈÑLìοIlÔY°ä°@ A B B ûB(235Q EARRAY-TOTAL-SIZE 231Q ARRAYBASE 225Q ARRAYBASE 221Q ARRAYBASE 145Q ARRAYBASE 141Q ARRAYBASE 130Q EARRAY-TOTAL-SIZE 122Q CL:ARRAYP 46Q ARRAYBASE 42Q ARRAYBASE 31Q EARRAY-TOTAL-SIZE 23Q CL:ARRAYP 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-FLOAT-FIX D1 (L (1 RESULT 0 ARRAY)) =@ £@jØA kÙj@ A IHó³JIdÐÐdÈýÈÑíKI ¿IkÔY°äA(62Q \ASET.1 27Q EARRAY-LINEARIZE 23Q ARRAYBASE 14Q EARRAY-TOTAL-SIZE 3 CL:ARRAYP) NIL () EARRAY-FLOAT-FLOAT D1 (L (1 RESULT 0 ARRAY)) 9@ ¤@A kÙj@ A IHó³KIdÐÐJI íοIkÔY°éA(52Q \AREF.1 30Q ARRAYBASE 24Q EARRAY-LINEARIZE 15Q EARRAY-TOTAL-SIZE 3 CL:ARRAYP) (10Q FLOATP) () EARRAY-FLOAT-FN D1 (I 2 RESULT I 1 ARRAY I 0 OP) B gð•AB gAB (26Q EARRAY-GENERIC-MONADIC-APPLY 15Q EARRAY-FLOAT-FLOAT 3 EARRAY-ELEMENT-TYPE) (21Q FLOAT 6 SINGLE-FLOAT) () EARRAY-FLOAT-MAX D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) í@d ¬¿A ¥@A @ ³DB dÐkÙjA B @íhIHó³%JIÐdÈýÈѽLMì”KIÐLƒKIÐMοIlÔY°ÛBA ³AB dÐkÙj@ B AíhIHó³ÝJIÐdÈýÈÑ]Lì”KIÐMƒKIÐLοIlÔY°ÜB dÐkÙj@ A B hdIHó³œJIÐdÈýÈѽKIÐdÈýÈѾMNì”LIÐMƒLIÐNοIlÔY°Ð(263Q ARRAYBASE 257Q ARRAYBASE 253Q ARRAYBASE 242Q EARRAY-TOTAL-SIZE 160Q ARRAYBASE 154Q ARRAYBASE 143Q EARRAY-TOTAL-SIZE 135Q CL:ARRAYP 50Q ARRAYBASE 44Q ARRAYBASE 33Q EARRAY-TOTAL-SIZE 25Q CL:ARRAYP 20Q MAX 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-FLOAT-MAX-REDUCE D1 (L (0 FLOATVECTOR)) @ Hjñ´@d jHú (27Q \AREF.1 20Q ARRAYBASE 3 EARRAY-TOTAL-SIZE) NIL () EARRAY-FLOAT-MIN D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) ð@d ¬¿A ¥@A @ ³EB dÐkÙjA B @íhIHó³&JIÐdÈýÈѽLMýì”KIÐLƒKIÐMοIlÔY°ÚBA ³BB dÐkÙj@ B AíhIHó³ÝJIÐdÈýÈÑ]Lýì”KIÐMƒKIÐLοIlÔY°ÛB dÐkÙj@ A B hdIHó³›JIÐdÈýÈѽKIÐdÈýÈѾMNýì”LIÐMƒLIÐNοIlÔY°Ï(265Q ARRAYBASE 261Q ARRAYBASE 255Q ARRAYBASE 244Q EARRAY-TOTAL-SIZE 161Q ARRAYBASE 155Q ARRAYBASE 144Q EARRAY-TOTAL-SIZE 136Q CL:ARRAYP 50Q ARRAYBASE 44Q ARRAYBASE 33Q EARRAY-TOTAL-SIZE 25Q CL:ARRAYP 20Q MIN 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-FLOAT-MIN-REDUCE D1 (L (0 FLOATVECTOR)) @ Hjñ´@d jHú (27Q \AREF.1 20Q ARRAYBASE 3 EARRAY-TOTAL-SIZE) NIL () EARRAY-FLOAT-MINUS D1 (L (1 RESULT 0 ARRAY)) ?@ ¤@ A dÐkÙj@ A IHó³KIÐJIÐdÈýÈÑíοIlÔY°åA(32Q ARRAYBASE 26Q ARRAYBASE 15Q EARRAY-TOTAL-SIZE 10Q FMINUS 3 CL:ARRAYP) NIL () EARRAY-FLOAT-PLUS D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) £@d ª¿A £@AÔ@ ³;B dÐkÙjA B @íIHó³KIÐLJIÐdÈýÈÑìοIlÔY°ä°SA ³;B dÐkÙj@ B AíIHó³KIÐJIÐdÈýÈÑLìοIlÔY°ä°@ A B B ûB(235Q EARRAY-TOTAL-SIZE 231Q ARRAYBASE 225Q ARRAYBASE 221Q ARRAYBASE 145Q ARRAYBASE 141Q ARRAYBASE 130Q EARRAY-TOTAL-SIZE 122Q CL:ARRAYP 46Q ARRAYBASE 42Q ARRAYBASE 31Q EARRAY-TOTAL-SIZE 23Q CL:ARRAYP 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-FLOAT-PLUS-REDUCE D1 (L (0 FLOATVECTOR)) @ Hjñ´n?€jÑ@ HkÙ2í(24Q ARRAYBASE 3 EARRAY-TOTAL-SIZE) NIL () EARRAY-FLOAT-PLUS-SCAN D1 (L (1 FLOATSINK 0 FLOATSOURCE)) 9@ dÐkÙj@ A hIHó³LJIÐdÈýÈÑì¼KIÐLοIlÔY°âA(20Q ARRAYBASE 14Q ARRAYBASE 3 EARRAY-TOTAL-SIZE) NIL () EARRAY-FLOAT-QUOTIENT D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) Ë@d ª¿A £@A×@ ³:B dÐkÙjA B @íIHó³KIÐLJIÐdÈýÈÑìοIlÔY°äBA ³8B dÐkÙj@ B AíIHó³ÞKIÐJIÐdÈýÈÑLìοIlÔY°äB dÐkÙj@ A B IHó³§LIÐJIÐdÈýÈÑKIÐdÈýÈÑìοIlÔY°Û(236Q ARRAYBASE 232Q ARRAYBASE 226Q ARRAYBASE 215Q EARRAY-TOTAL-SIZE 144Q ARRAYBASE 140Q ARRAYBASE 127Q EARRAY-TOTAL-SIZE 121Q CL:ARRAYP 46Q ARRAYBASE 42Q ARRAYBASE 31Q EARRAY-TOTAL-SIZE 23Q CL:ARRAYP 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-FLOAT-RECIPROCAL D1 (L (1 RESULT 0 ARRAY)) F@ ¦o@ëA dÐkÙj@ A IHó³ KIÐn?€jÑJIÐdÈýÈÑìοIlÔY°àA(34Q ARRAYBASE 30Q ARRAYBASE 17Q EARRAY-TOTAL-SIZE 3 CL:ARRAYP) NIL ( 10Q 1.0) EARRAY-FLOAT-REMAINDER D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) Í@d ¬¿A ¥@A @ ³:B dÐkÙjA B @íIHó³KIÐLJIÐdÈýÈÑìοIlÔY°äBA ³8B dÐkÙj@ B AíIHó³ÞKIÐJIÐdÈýÈÑLìοIlÔY°äB dÐkÙj@ A B IHó³§LIÐJIÐdÈýÈÑKIÐdÈýÈÑìοIlÔY°Û(240Q ARRAYBASE 234Q ARRAYBASE 230Q ARRAYBASE 217Q EARRAY-TOTAL-SIZE 146Q ARRAYBASE 142Q ARRAYBASE 131Q EARRAY-TOTAL-SIZE 123Q CL:ARRAYP 50Q ARRAYBASE 44Q ARRAYBASE 33Q EARRAY-TOTAL-SIZE 25Q CL:ARRAYP 20Q REMAINDER 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-FLOAT-TIMES D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) £@d ª¿A £@AÖ@ ³;B dÐkÙjA B @íIHó³KIÐLJIÐdÈýÈÑìοIlÔY°ä°SA ³;B dÐkÙj@ B AíIHó³KIÐJIÐdÈýÈÑLìοIlÔY°ä°@ A B B ûB(235Q EARRAY-TOTAL-SIZE 231Q ARRAYBASE 225Q ARRAYBASE 221Q ARRAYBASE 145Q ARRAYBASE 141Q ARRAYBASE 130Q EARRAY-TOTAL-SIZE 122Q CL:ARRAYP 46Q ARRAYBASE 42Q ARRAYBASE 31Q EARRAY-TOTAL-SIZE 23Q CL:ARRAYP 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-FLOAT-TIMES-SCAN D1 (L (1 FLOATSINK 0 FLOATSOURCE)) =@ dÐkÙj@ A n?€jÑIHó³LJIÐdÈýÈÑì¼KIÐLοIlÔY°âA(20Q ARRAYBASE 14Q ARRAYBASE 3 EARRAY-TOTAL-SIZE) NIL () EARRAY-FLOOR D1 (L (1 RESULT 0 ARRAY)) g@A (7 EARRAY-MONADIC-APPLY) (2 FLOOR) () EARRAY-FLOOR-FN D1 (L (2 RESULT 1 ARRAY 0 OP)) gAB (7 EARRAY-GENERIC-MONADIC-APPLY) (2 SCALAR-FLOOR) () EARRAY-GENERIC-DIFFERENCE D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) ¥@d ª¿A £@AÕ@ ³.B kÙjA B IHó³@JI ÕKI ¿IkÔY°ëBA ³,B kÙj@ B IHó³ãJI AÕKI ¿IkÔY°ëB kÙj@ A B IHó³µJI KI ÕLI ¿IkÔY°ç(234Q \ASET.1 226Q \AREF.1 221Q \AREF.1 204Q EARRAY-LINEARIZE 200Q EARRAY-LINEARIZE 174Q EARRAY-LINEARIZE 165Q EARRAY-TOTAL-SIZE 152Q \ASET.1 143Q \AREF.1 126Q EARRAY-LINEARIZE 122Q EARRAY-LINEARIZE 113Q EARRAY-TOTAL-SIZE 105Q CL:ARRAYP 70Q \ASET.1 62Q \AREF.1 44Q EARRAY-LINEARIZE 40Q EARRAY-LINEARIZE 31Q EARRAY-TOTAL-SIZE 23Q CL:ARRAYP 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-GENERIC-PLUS D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) ¥@d ª¿A £@AÔ@ ³.B kÙjA B IHó³@JI ÔKI ¿IkÔY°ëBA ³,B kÙj@ B IHó³ãJI AÔKI ¿IkÔY°ëB kÙj@ A B IHó³µJI KI ÔLI ¿IkÔY°ç(234Q \ASET.1 226Q \AREF.1 221Q \AREF.1 204Q EARRAY-LINEARIZE 200Q EARRAY-LINEARIZE 174Q EARRAY-LINEARIZE 165Q EARRAY-TOTAL-SIZE 152Q \ASET.1 143Q \AREF.1 126Q EARRAY-LINEARIZE 122Q EARRAY-LINEARIZE 113Q EARRAY-TOTAL-SIZE 105Q CL:ARRAYP 70Q \ASET.1 62Q \AREF.1 44Q EARRAY-LINEARIZE 40Q EARRAY-LINEARIZE 31Q EARRAY-TOTAL-SIZE 23Q CL:ARRAYP 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-GENERIC-PLUS-REDUCE D1 (L (0 VECTOR)) )@ Hjñ´HkÙjdJIó­K@J Ô»JkÔZ°ñK(35Q \AREF.1 3 EARRAY-TOTAL-SIZE) NIL () EARRAY-GENERIC-QUOTIENT D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) ¥@d ª¿A £@AÔ@ ³.B kÙjA B IHó³@JI ×KI ¿IkÔY°ëBA ³,B kÙj@ B IHó³ãJI A×KI ¿IkÔY°ëB kÙj@ A B IHó³µJI KI ×LI ¿IkÔY°ç(234Q \ASET.1 226Q \AREF.1 221Q \AREF.1 204Q EARRAY-LINEARIZE 200Q EARRAY-LINEARIZE 174Q EARRAY-LINEARIZE 165Q EARRAY-TOTAL-SIZE 152Q \ASET.1 143Q \AREF.1 126Q EARRAY-LINEARIZE 122Q EARRAY-LINEARIZE 113Q EARRAY-TOTAL-SIZE 105Q CL:ARRAYP 70Q \ASET.1 62Q \AREF.1 44Q EARRAY-LINEARIZE 40Q EARRAY-LINEARIZE 31Q EARRAY-TOTAL-SIZE 23Q CL:ARRAYP 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-GENERIC-TIMES D1 (L (2 RESULT 1 ARRAY2 0 ARRAY1)) ¥@d ª¿A £@AÔ@ ³.B kÙjA B IHó³@JI ÖKI ¿IkÔY°ëBA ³,B kÙj@ B IHó³ãJI AÖKI ¿IkÔY°ëB kÙj@ A B IHó³µJI KI ÖLI ¿IkÔY°ç(234Q \ASET.1 226Q \AREF.1 221Q \AREF.1 204Q EARRAY-LINEARIZE 200Q EARRAY-LINEARIZE 174Q EARRAY-LINEARIZE 165Q EARRAY-TOTAL-SIZE 152Q \ASET.1 143Q \AREF.1 126Q EARRAY-LINEARIZE 122Q EARRAY-LINEARIZE 113Q EARRAY-TOTAL-SIZE 105Q CL:ARRAYP 70Q \ASET.1 62Q \AREF.1 44Q EARRAY-LINEARIZE 40Q EARRAY-LINEARIZE 31Q EARRAY-TOTAL-SIZE 23Q CL:ARRAYP 12Q CL:ARRAYP 4 CL:ARRAYP) NIL () EARRAY-MAX D1 (I 2 RESULT I 1 ARRAY2 I 0 ARRAY1) g@AB@ A (24Q EARRAY-DYADIC-APPLY 20Q EARRAY-COMMON-TYPE 15Q EARRAY-ELEMENT-TYPE 11Q EARRAY-ELEMENT-TYPE) (2 MAX) () EARRAY-MAX-FN D1 (I 3 RESULT I 2 ARRAY2 I 1 ARRAY1 I 0 OP) !AB ŸC gð–ABC gABC (36Q EARRAY-GENERIC-DYADIC-APPLY 24Q EARRAY-FLOAT-MAX 11Q EARRAY-ELEMENT-TYPE 4 USE-FLOAT-P) (30Q MAX 14Q SINGLE-FLOAT) () EARRAY-MAX-REDUCE D1 (I 2 RESULT I 1 AXIS I 0 ARRAY) g@AB@ (15Q EARRAY-REDUCE 11Q EARRAY-ELEMENT-TYPE) (2 MAX) () EARRAY-MAX-REDUCE-FN D1 (L (0 VECTOR)) @ gð”@ g@ (24Q EARRAY-GENERIC-VECTOR-REDUCE 14Q EARRAY-FLOAT-MAX-REDUCE 3 EARRAY-ELEMENT-TYPE) (20Q MAX 6 SINGLE-FLOAT) () EARRAY-MEAN D1 (L (0 VECTOR)) @ @ ë(7 EARRAY-TOTAL-SIZE 3 EARRAY-PLUS-REDUCE) NIL () EARRAY-MEAN-REDUCE D1 (L (2 RESULT 1 AXIS 0 ARRAY)) g@AB@ (15Q EARRAY-REDUCE 11Q EARRAY-ELEMENT-TYPE) (2 MEAN) () EARRAY-MIN D1 (I 2 RESULT I 1 ARRAY2 I 0 ARRAY1) g@AB@ A (24Q EARRAY-DYADIC-APPLY 20Q EARRAY-COMMON-TYPE 15Q EARRAY-ELEMENT-TYPE 11Q EARRAY-ELEMENT-TYPE) (2 MIN) () EARRAY-MIN-FN D1 (I 3 RESULT I 2 ARRAY2 I 1 ARRAY1 I 0 OP) !AB ŸC gð–ABC gABC (36Q EARRAY-GENERIC-DYADIC-APPLY 24Q EARRAY-FLOAT-MIN 11Q EARRAY-ELEMENT-TYPE 4 USE-FLOAT-P) (30Q MIN 14Q SINGLE-FLOAT) () EARRAY-MIN-REDUCE D1 (I 2 RESULT I 1 AXIS I 0 ARRAY) g@AB@ (15Q EARRAY-REDUCE 11Q EARRAY-ELEMENT-TYPE) (2 MIN) () EARRAY-MIN-REDUCE-FN D1 (L (0 VECTOR)) @ gð”@ g@ (24Q EARRAY-GENERIC-VECTOR-REDUCE 14Q EARRAY-FLOAT-MIN-REDUCE 3 EARRAY-ELEMENT-TYPE) (20Q MIN 6 SINGLE-FLOAT) () EARRAY-MINUS D1 (I 1 RESULT I 0 ARRAY) g@A@ (13Q EARRAY-MONADIC-APPLY 10Q EARRAY-ELEMENT-TYPE) (2 MINUS) () EARRAY-MINUS-FN D1 (I 2 RESULT I 1 ARRAY I 0 OP) "A gðžB gð•AB gAB (37Q EARRAY-GENERIC-MONADIC-APPLY 26Q EARRAY-FLOAT-MINUS 14Q EARRAY-ELEMENT-TYPE 3 EARRAY-ELEMENT-TYPE) (32Q MINUS 17Q SINGLE-FLOAT 6 SINGLE-FLOAT) () EARRAY-PLUS D1 (I 2 RESULT I 1 ARRAY2 I 0 ARRAY1) g@AB@ A (24Q EARRAY-DYADIC-APPLY 20Q EARRAY-ARITH-TYPE 15Q EARRAY-ELEMENT-TYPE 11Q EARRAY-ELEMENT-TYPE) (2 PLUS) () EARRAY-PLUS-FN D1 (I 3 RESULT I 2 ARRAY2 I 1 ARRAY1 I 0 OP) AB ŸC gð–ABC ABC (33Q EARRAY-GENERIC-PLUS 24Q EARRAY-FLOAT-PLUS 11Q EARRAY-ELEMENT-TYPE 4 USE-FLOAT-P) (14Q SINGLE-FLOAT) () EARRAY-PLUS-REDUCE D1 (I 2 RESULT I 1 AXIS I 0 ARRAY) g@AB@ (15Q EARRAY-REDUCE 11Q EARRAY-ELEMENT-TYPE) (2 PLUS) () EARRAY-PLUS-REDUCE-FN D1 (L (0 VECTOR)) @d gð•¿@  (22Q EARRAY-GENERIC-PLUS-REDUCE 16Q EARRAY-FLOAT-PLUS-REDUCE 4 EARRAY-ELEMENT-TYPE) (7 SINGLE-FLOAT) () EARRAY-PLUS-SCAN D1 (I 2 RESULT I 1 AXIS I 0 ARRAY) g@AB@ (15Q EARRAY-SCAN 11Q EARRAY-ELEMENT-TYPE) (2 PLUS) () EARRAY-PLUS-SCAN-FN D1 (L (1 RESULT 0 VECTOR)) "@ gðžA gð•@A g@A (37Q EARRAY-GENERIC-VECTOR-SCAN 26Q EARRAY-FLOAT-PLUS-SCAN 14Q EARRAY-ELEMENT-TYPE 3 EARRAY-ELEMENT-TYPE) (32Q PLUS 17Q SINGLE-FLOAT 6 SINGLE-FLOAT) () EARRAY-PLUS-SWEEP D1 (L (3 RESULT 2 AXIS 1 ARRAY2 0 ARRAY1)) g@ABC@ A (25Q EARRAY-SWEEP 21Q EARRAY-ARITH-TYPE 16Q EARRAY-ELEMENT-TYPE 12Q EARRAY-ELEMENT-TYPE) (2 PLUS) () EARRAY-QUOTIENT D1 (I 2 RESULT I 1 ARRAY2 I 0 ARRAY1) g@AB@ A (24Q EARRAY-DYADIC-APPLY 20Q EARRAY-ARITH-TYPE 15Q EARRAY-ELEMENT-TYPE 11Q EARRAY-ELEMENT-TYPE) (2 QUOTIENT) () EARRAY-QUOTIENT-FN D1 (I 3 RESULT I 2 ARRAY2 I 1 ARRAY1 I 0 OP) AB ŸC gð–ABC ABC (33Q EARRAY-GENERIC-QUOTIENT 24Q EARRAY-FLOAT-QUOTIENT 11Q EARRAY-ELEMENT-TYPE 4 USE-FLOAT-P) (14Q SINGLE-FLOAT) () EARRAY-QUOTIENT-SWEEP D1 (L (3 RESULT 2 AXIS 1 ARRAY2 0 ARRAY1)) g@ABC@ A (25Q EARRAY-SWEEP 21Q EARRAY-ARITH-TYPE 16Q EARRAY-ELEMENT-TYPE 12Q EARRAY-ELEMENT-TYPE) (2 QUOTIENT) () EARRAY-RECIPROCAL D1 (L (1 RESULT 0 ARRAY)) g@A@ (13Q EARRAY-MONADIC-APPLY 10Q EARRAY-ELEMENT-TYPE) (2 RECIPROCAL) () EARRAY-RECIPROCAL-FN D1 (I 2 RESULT I 1 ARRAY I 0 OP) "A gðžB gð•AB gAB (37Q EARRAY-GENERIC-MONADIC-APPLY 26Q EARRAY-FLOAT-RECIPROCAL 14Q EARRAY-ELEMENT-TYPE 3 EARRAY-ELEMENT-TYPE) (32Q SCALAR-RECIPROCAL 17Q SINGLE-FLOAT 6 SINGLE-FLOAT) () EARRAY-REMAINDER D1 (I 2 RESULT I 1 ARRAY2 I 0 ARRAY1) g@AB@ A (24Q EARRAY-DYADIC-APPLY 20Q EARRAY-ARITH-TYPE 15Q EARRAY-ELEMENT-TYPE 11Q EARRAY-ELEMENT-TYPE) (2 REMAINDER) () EARRAY-REMAINDER-FN D1 (I 3 RESULT I 2 ARRAY2 I 1 ARRAY1 I 0 OP) !AB ŸC gð–ABC gABC (36Q EARRAY-GENERIC-DYADIC-APPLY 24Q EARRAY-FLOAT-REMAINDER 11Q EARRAY-ELEMENT-TYPE 4 USE-FLOAT-P) (30Q REMAINDER 14Q SINGLE-FLOAT) () EARRAY-ROUND D1 (L (1 RESULT 0 ARRAY)) g@A (7 EARRAY-MONADIC-APPLY) (2 ROUND) () EARRAY-ROUND-FN D1 (L (2 RESULT 1 ARRAY 0 OP)) gAB (7 EARRAY-GENERIC-MONADIC-APPLY) (2 SCALAR-ROUND) () EARRAY-SAMPLE-VARIANCE D1 (L (0 VECTOR)) @ @d IHdêé@ kÙë(24Q EARRAY-TOTAL-SIZE 10Q EARRAY-MATRIX-TIMES 3 EARRAY-MEAN) NIL () EARRAY-SAMPLE-VARIANCE-REDUCE D1 (L (2 RESULT 1 AXIS 0 ARRAY)) g@AB@ (15Q EARRAY-REDUCE 11Q EARRAY-ELEMENT-TYPE) (2 SAMPLE-VARIANCE) () EARRAY-TIMES D1 (I 2 RESULT I 1 ARRAY2 I 0 ARRAY1) g@AB@ A (24Q EARRAY-DYADIC-APPLY 20Q EARRAY-ARITH-TYPE 15Q EARRAY-ELEMENT-TYPE 11Q EARRAY-ELEMENT-TYPE) (2 TIMES) () EARRAY-TIMES-FN D1 (I 3 RESULT I 2 ARRAY2 I 1 ARRAY1 I 0 OP) AB ŸC gð–ABC ABC (33Q EARRAY-GENERIC-TIMES 24Q EARRAY-FLOAT-TIMES 11Q EARRAY-ELEMENT-TYPE 4 USE-FLOAT-P) (14Q SINGLE-FLOAT) () EARRAY-TIMES-SCAN D1 (I 2 RESULT I 1 AXIS I 0 ARRAY) g@AB@ (15Q EARRAY-SCAN 11Q EARRAY-ELEMENT-TYPE) (2 TIMES) () EARRAY-TIMES-SCAN-FN D1 (L (1 RESULT 0 VECTOR)) "@ gðžA gð•@A g@A (37Q EARRAY-GENERIC-VECTOR-SCAN 26Q EARRAY-FLOAT-TIMES-SCAN 14Q EARRAY-ELEMENT-TYPE 3 EARRAY-ELEMENT-TYPE) (32Q TIMES 17Q SINGLE-FLOAT 6 SINGLE-FLOAT) () EARRAY-TIMES-SWEEP D1 (L (3 RESULT 2 AXIS 1 ARRAY2 0 ARRAY1)) g@ABC@ A (25Q EARRAY-SWEEP 21Q EARRAY-ARITH-TYPE 16Q EARRAY-ELEMENT-TYPE 12Q EARRAY-ELEMENT-TYPE) (2 TIMES) () EARRAY-VARIANCE D1 (L (0 VECTOR)) @ @d IHdêé@ ë(24Q EARRAY-TOTAL-SIZE 10Q EARRAY-MATRIX-TIMES 3 EARRAY-MEAN) NIL () EARRAY-VARIANCE-REDUCE D1 (L (2 RESULT 1 AXIS 0 ARRAY)) g@AB@ (15Q EARRAY-REDUCE 11Q EARRAY-ELEMENT-TYPE) (2 VARIANCE) () (PRETTYCOMPRINT EARRAY-ARITHFNSCOMS) (RPAQQ EARRAY-ARITHFNSCOMS ((FNS EARRAY-ABS EARRAY-ABS-FN EARRAY-CEILING EARRAY-CEILING-FN EARRAY-DIFFERENCE EARRAY-DIFFERENCE-FN EARRAY-DIFFERENCE-SWEEP EARRAY-FIX EARRAY-FIX-FN EARRAY-FLOAT EARRAY-FLOAT-ABS EARRAY-FLOAT-DIFFERENCE EARRAY-FLOAT-FIX EARRAY-FLOAT-FLOAT EARRAY-FLOAT-FN EARRAY-FLOAT-MAX EARRAY-FLOAT-MAX-REDUCE EARRAY-FLOAT-MIN EARRAY-FLOAT-MIN-REDUCE EARRAY-FLOAT-MINUS EARRAY-FLOAT-PLUS EARRAY-FLOAT-PLUS-REDUCE EARRAY-FLOAT-PLUS-SCAN EARRAY-FLOAT-QUOTIENT EARRAY-FLOAT-RECIPROCAL EARRAY-FLOAT-REMAINDER EARRAY-FLOAT-TIMES EARRAY-FLOAT-TIMES-SCAN EARRAY-FLOOR EARRAY-FLOOR-FN EARRAY-GENERIC-DIFFERENCE EARRAY-GENERIC-PLUS EARRAY-GENERIC-PLUS-REDUCE EARRAY-GENERIC-QUOTIENT EARRAY-GENERIC-TIMES EARRAY-MAX EARRAY-MAX-FN EARRAY-MAX-REDUCE EARRAY-MAX-REDUCE-FN EARRAY-MEAN EARRAY-MEAN-REDUCE EARRAY-MIN EARRAY-MIN-FN EARRAY-MIN-REDUCE EARRAY-MIN-REDUCE-FN EARRAY-MINUS EARRAY-MINUS-FN EARRAY-PLUS EARRAY-PLUS-FN EARRAY-PLUS-REDUCE EARRAY-PLUS-REDUCE-FN EARRAY-PLUS-SCAN EARRAY-PLUS-SCAN-FN EARRAY-PLUS-SWEEP EARRAY-QUOTIENT EARRAY-QUOTIENT-FN EARRAY-QUOTIENT-SWEEP EARRAY-RECIPROCAL EARRAY-RECIPROCAL-FN EARRAY-REMAINDER EARRAY-REMAINDER-FN EARRAY-ROUND EARRAY-ROUND-FN EARRAY-SAMPLE-VARIANCE EARRAY-SAMPLE-VARIANCE-REDUCE EARRAY-TIMES EARRAY-TIMES-FN EARRAY-TIMES-SCAN EARRAY-TIMES-SCAN-FN EARRAY-TIMES-SWEEP EARRAY-VARIANCE EARRAY-VARIANCE-REDUCE) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)))) (PUTPROPS EARRAY-ARITHFNS COPYRIGHT ("Xerox Corporation" 1986)) NIL