;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2) (defalias 'calc-display-strings #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\304\211$\203\305\202\306!\207" [n message calc-change-mode calc-display-strings t "Displaying vectors of integers as quoted strings" "Displaying vectors of integers normally"] 6]] 2 nil "P"]) (defalias 'calc-pack #[(n) "\300\301!\207" [calc-do #[nil "\203\305\202 \306\203\307!\202\310\305!\211\211\242\311=\262\203,\nA\203,\nA\2028\n\250\2035\n\2028\312\313!\314\n!\315 \"\316\317 \320#\321\322\n\f\"#-\207" [n nn mode num items 1 2 prefix-numeric-value calc-top-n vec error "Packing mode must be an integer or vector of integers" calc-pack-size calc-top-list calc-enter-result + -1 "pack" calc-pack-items] 7]] 2 nil "P"]) (defalias 'calc-pack-size #[(mode) ":\2032\302\203#@\250\204\303\304!\210 \305@!_A\211\204 \306U\203/\303\307!\2020 )\207\306Y\203:\207\310\236A\206B\311\207" [mode size 1 error "Vector of integers expected" calc-pack-size 0 "Zero dimensions not allowed" ((-3 . 3) (-13 . 1) (-14 . 3) (-15 . 6)) 2] 4]) (defalias 'calc-pack-items #[(mode items) ":\203LA\203F\306A!\nG\307\211\307@ \310V\203> S\n\233\n@ A Z \307\241\210\311A@\"\fB\202\311@\f\237\"-\207\311@\n\"\207\310Y\203V\312\nB\207\313U\203\304\314\n@!\203\240\314\nA@!\203\240\314\315\n8!\203\240\316\n@!\203\234\316\nA@!\203\234\315\n8\211:?\206\217\211@\317>\262\203\230\320\nB\207\321\322!\207\321\323!\207\324\325\211A\326=\203\262\327\n@\330E\202\264\n@\327\nA@\331EE\327\315\n8\332EE!\207\333U\203\371\n@\211:?\206\326\211@\317>\262\203\337\334\nB\207\n@\242\334=\203\352\n@\207\314\n@!\203\365\321\335!\207\336\nB\207\337>\203/\n\211\203\314 @!\203\340 @!\204\321\341!\210 A\211\204 \203(\336\nB\202-\334\342\n!D)\207\n@\242\312=\204@\nA@\242\312=\203\301\n@\211B\242\312=C\nA@\211D\242\312=E\307FC\203bB\202dDGSGC\203\200E\203\200GDGSU\204\200\321\343!\210GS\211G\310Y\203\271\311C\203\234BA\211B@\202\236BE\203\255DA\211D@\202\257DD\"FBF\202\200\312F\237.B\207\344U\203\n@\211:?\206\323\211@\317>\262\203\356\nA@\211:?\206\345\211@\317>\262\203\356\345\nB\207\346\n@!\203\346\nA@!\203\321\347!\210\324\325\n@\327\nA@\350EE!\207\351U\203\n@\211:?\206 \211@\317>\262\203;\nA@\211:?\2062\211@\352>\262\203;\353\nB\207\346\n@!\203N\346\nA@!\203N\321\347!\210\324\327\n@\nA@\211:?\206_\211@\352>\262\203m\353\354\nA@E\202|\355\327\356\nA@!\353\354\357\307!EEDE!\207\360U\203\321\n@\nA@H\211B\211:?\206\231\211@\361>\262\204\245\314B!\204\314H\211:?\206\261\211@\352>\262\204\275\314H!\204\306\362BH\"\202\317\321\363!\202\317\321\364!*\207\365U\2031\n@\nA@I\211J\211:?\206\353\211@\352>\262\203I\211:?\206\374\211@\352>\262\203\366I!\203\367JI\"\202/\321\370!\202/\346J!\203)\346I!\203)\321\347!\210\371JIE*\207\372\267\202\n@\nA@K\211L\211:?\206K\211@\352>\262\204_L@\334=\204_\314L!\204\213K\211:?\206k\211@\352>\262\204K@\334=\204\314K!\204\213\373\374\\LK#\202\216\321\347!*\207\375\nA@!\203\234\321\376!\207\340\n@!\203\261\340\nA@!\203\261\324\377\nB!\207\346\n@!\203\304\346\nA@!\203\304\321\341!\210\201M\nB\207\n@\211:?\206\326\211@\317>\262\203\361\340\nA@!\203\361\201N\201O\n@!\nA@\"\207\346\n@!\203\346\nA@!\203\321\341!\210\324\201N\201P\n@D\nA@E!\207\321\201Q\"\207" [mode size items len new p calc-pack-size nil 0 calc-pack-items vec -3 math-objvecp 2 math-num-integerp (frac float) hms error "Seconds must be real" "Hours and minutes must be integers" math-normalize + rad * (hms 1 0 0) (hms 0 1 0) (hms 0 0 1) -13 date "Date value must be real" calcFunc-date (-14 -15) math-integerp "Components must be integers" math-dt-to-date "Vectors must be the same length" -1 cplx math-objectp "Components must be real" (cplx 0 1) -2 (frac float hms) polar 1 calcFunc-exp math-to-radians-2 math-quarter-circle -4 (frac float cplx polar hms) math-make-sdev "Error component must be real" "Mean component must be real or complex" -5 math-posp math-make-mod "Modulus must be positive" calcFunc-makemod #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (-6 823 -7 823 -8 823 -9 823 -10 912 -11 970 -12 970)) math-make-intv 9 math-zerop "Denominator must not be zero" frac row calc-angle-mode x vx y vy z n sigma m a hi lo calcFunc-fdiv calcFunc-scf math-float calcFunc-float "Invalid packing mode: %d"] 11]) (defvar calc-unpack-with-type nil) (defalias 'calc-unpack #[(mode) "\300\301!\207" [calc-do #[nil "\302\303\304\305\306 \205 \307 !\310 \"#)\207" [calc-unpack-with-type mode t calc-pop-push-record-list 1 "unpk" calc-unpack-item prefix-numeric-value calc-top] 6]] 2 nil "P"]) (defalias 'calc-unpack-type #[(item) "\242\301=\203 GS\207\242\302=\203A@\303Z\207\242\304\236A\206#\305\306!\207" [item vec intv 9 ((cplx . -1) (polar . -2) (hms . -3) (sdev . -4) (mod . -5) (frac . -10) (float . -11) (date . -13)) error "Argument must be a composite object"] 2]) (defalias 'calc-unpack-item #[(mode item) "\204* \242\306>\204\307 !\204 \242\310=\203\311\312!\210 @\313=\203' AA\207 A\207\314V\203\237\315\211\211 C\314V\203w\316 @!\211\fB\317\315 @\" A\211\203n\316 @! U\204b\311\320!\210\321\n\317\315 @\"\"\202N\nS\211\202:\fA\203\202\322\f\237BC \323=\203\221\f@\322 BD\202\235 \203\234\321 \f\"\202\235 +\207 \323=\203\261\315\322\317 \")BD\207\324U\203\305 \242\325=\203\301 A\207\311\326!\207\327U\203\331 \242\330=\203\325 A\207\311\331!\207\332U\203\362 \242\330=\203\356\333\334 A@!!\207\311\331!\207\335U\203 \242\330=\203\321\333 A@!\336 A@!?\205\314\211\211E\"\207\311\331!\207 \242\322=\203V\315\211\211<=> A\211\203I\317 @\"\211<@>B>\237B\322=\237+BD\207\337U\203\212 \242\340=\203f A\207 \242\341=\203r\342 !A\207 \211:?\206}\211@\343>\262\203\206 \314D\207\311\344!\207\345U\203\260 \242\346>\204\247 \211:?\206\242\211@\343>\262\203\254\347 !A\207\311\344!\207\350U\203\304 \242\351=\203\300 A\207 \314D\207\352U\203\330 \242\353=\203\324 A\207\311\354!\207\355>\203\355 \242\313=\203\351 AA\207 \211D\207\356U\203  \242\357=\203\375 A\207\360 !\203 \361D\207\311\362!\207\363U\203& \242\364=\203\" A@\365\366 8!D\207\311\367!\207\370U\203? \242\364=\203;\371 !\372 !D\207\311\367!\207\311\373\"\207" [mode item new type dims calc-unpack-with-type (frac float cplx polar vec hms date sdev mod intv) math-objvecp var error "Argument must be a composite object or function call" intv 0 nil calc-unpack-type calc-unpack-item "Inconsistent types or dimensions in vector elements" append vec pair -3 hms "Argument must be an HMS form" -13 date "Argument must be a date form" -14 math-date-to-dt math-floor -15 math-integerp -1 cplx polar math-complex (frac float) "Argument must be a complex number" -2 (cplx polar) math-polar -4 sdev -5 mod "Argument must be a modulo form" (-6 -7 -8 -9) -10 frac Math-integerp 1 "Argument must be a rational number" -11 float math-normalize 2 "Expected a floating-point number" -12 calcFunc-mant calcFunc-xpon "Invalid unpacking mode: %d" res y x] 6]) (defalias 'calc-diag #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\203\304\305\302!\306!E\202\304\305\302!D#\207" [n calc-enter-result 1 "diag" calcFunc-diag calc-top-n prefix-numeric-value] 7]] 2 nil "P"]) (defalias 'calc-ident #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\302=\203 \304\202\305\306\307!E#\207" [n calc-enter-result 0 "idn" (calcFunc-idn 1) calcFunc-idn 1 prefix-numeric-value] 7]] 2 nil "NDimension of identity matrix = "]) (defalias 'calc-index #[(n &optional stack) "\300\301!\207" [calc-do #[nil ":\203\302\303\304\305\306\303!B#\207\302\307\304\305\310 !D#\207" [stack n calc-enter-result 3 "indx" calcFunc-index calc-top-list-n 0 prefix-numeric-value] 6]] 2 nil "NSize of vector = \nP"]) (defalias 'calc-build-vector #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305\302!\306!E#\207" [n calc-enter-result 1 "bldv" calcFunc-cvec calc-top-n prefix-numeric-value] 7]] 2 nil "NSize of vector = "]) (defalias 'calc-cons #[(arg) "\300\301!\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-binary-op "rcns" calcFunc-rcons "cons" calcFunc-cons] 4]] 2 nil "P"]) (defalias 'calc-head #[(arg) "\300\301!\207" [calc-do #[nil "\301 \203\302 \203\303\304\305#\207\303\306\307#\207\302 \203!\303\310\311#\207\303\312\313#\207" [arg calc-is-inverse calc-is-hyperbolic calc-unary-op "rtai" calcFunc-rtail "tail" calcFunc-tail "rhed" calcFunc-rhead "head" calcFunc-head] 4]] 2 nil "P"]) (defalias 'calc-tail #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-head] 2 nil "P"]) (defalias 'calc-vlength #[(arg) "\300\301!\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "dims" calcFunc-mdims "len" calcFunc-vlen] 4]] 2 nil "P"]) (defalias 'calc-arrange-vector #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305\302!\306!E#\207" [n calc-enter-result 1 "arng" calcFunc-arrange calc-top-n prefix-numeric-value] 7]] 2 nil "NNumber of columns = "]) (defalias 'calc-vector-find #[(arg) "\300\301!\207" [calc-do #[nil "\302\303\304!B\305\304\306 \203\307\310 !C\"\202#)\207" [func arg calcFunc-find calc-top-list-n 2 calc-enter-result "find" append prefix-numeric-value] 7]] 2 nil "P"]) (defalias 'calc-subvector #[nil "\300\301!\207" [calc-do #[nil "\300 \203\301\302\303\304\305\302!B#\207\301\302\306\307\305\302!B#\207" [calc-is-inverse calc-enter-result 3 "rsvc" calcFunc-rsubvec calc-top-list-n "svec" calcFunc-subvec] 6]] 2 nil nil]) (defalias 'calc-reverse-vector #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "rev" calcFunc-rev] 4]] 2 nil "P"]) (defalias 'calc-mask-vector #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "vmsk" calcFunc-vmask] 4]] 2 nil "P"]) (defalias 'calc-expand-vector #[(arg) "\300\301!\207" [calc-do #[nil "\301 \203\302\303\304\305\306\303!B#\207\307\304\305#\207" [arg calc-is-hyperbolic calc-enter-result 3 "vexp" calcFunc-vexp calc-top-list-n calc-binary-op] 6]] 2 nil "P"]) (defalias 'calc-sort #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203\301\302\303\304\305\302!D#\207\301\302\306\307\305\302!D#\207" [calc-is-inverse calc-enter-result 1 "rsrt" calcFunc-rsort calc-top-n "sort" calcFunc-sort] 6]] 3 nil nil]) (defalias 'calc-grade #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203\301\302\303\304\305\302!D#\207\301\302\306\307\305\302!D#\207" [calc-is-inverse calc-enter-result 1 "rgrd" calcFunc-rgrade calc-top-n "grad" calcFunc-grade] 6]] 3 nil nil]) (defalias 'calc-histogram #[(n) "\301!\204\f\302\303\304!!\305\306`\"\207" [n natnump math-read-expr read-string "Centers of bins: " calc-do #[nil "\203\302\303\304\305\306\303!\306\307! F#\207\302\307\304\305\306\307! E#\207" [calc-hyperbolic-flag n calc-enter-result 2 "hist" calcFunc-histogram calc-top-n 1] 7]] 3 nil "P"]) (defalias 'calc-transpose #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "trn" calcFunc-trn] 4]] 2 nil "P"]) (defalias 'calc-conj-transpose #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "ctrn" calcFunc-ctrn] 4]] 2 nil "P"]) (defalias 'calc-cross #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "cros" calcFunc-cross] 4]] 2 nil "P"]) (defalias 'calc-kron #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "kron" calcFunc-kron] 4]] 2 nil "P"]) (defalias 'calc-remove-duplicates #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "rdup" calcFunc-rdup] 4]] 2 nil "P"]) (defalias 'calc-set-union #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305%\207" [arg calc-binary-op "unio" calcFunc-vunion (vec) calcFunc-rdup] 6]] 2 nil "P"]) (defalias 'calc-set-intersect #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305%\207" [arg calc-binary-op "intr" calcFunc-vint (vec) calcFunc-rdup] 6]] 2 nil "P"]) (defalias 'calc-set-difference #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305%\207" [arg calc-binary-op "diff" calcFunc-vdiff (vec) calcFunc-rdup] 6]] 2 nil "P"]) (defalias 'calc-set-xor #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305%\207" [arg calc-binary-op "xor" calcFunc-vxor (vec) calcFunc-rdup] 6]] 2 nil "P"]) (defalias 'calc-set-complement #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "cmpl" calcFunc-vcompl] 4]] 2 nil "P"]) (defalias 'calc-set-floor #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "vflr" calcFunc-vfloor] 4]] 2 nil "P"]) (defalias 'calc-set-enumerate #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "enum" calcFunc-venum] 4]] 2 nil "P"]) (defalias 'calc-set-span #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "span" calcFunc-vspan] 4]] 2 nil "P"]) (defalias 'calc-set-cardinality #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "card" calcFunc-vcard] 4]] 2 nil "P"]) (defalias 'calc-unpack-bits #[(arg) "\300\301!\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "bpck" calcFunc-vpack "bupk" calcFunc-vunpack] 4]] 2 nil "P"]) (defalias 'calc-pack-bits #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-unpack-bits] 2 nil "P"]) (defalias 'calc-rnorm #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "rnrm" calcFunc-rnorm] 4]] 2 nil "P"]) (defalias 'calc-cnorm #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "cnrm" calcFunc-cnorm] 4]] 2 nil "P"]) (defalias 'calc-mrow #[(n &optional nn) "\300\301!\207" [calc-do #[nil ":\203\302\303\304\305\306\303!B#\207\307 !\211\310U\203#\302\311\312\313\314\311!D#\207 \310W\2035\302\311\315\316\314\311! [E#\207\302\311\304\305\314\311! E#\207" [nn n calc-enter-result 2 "mrow" calcFunc-mrow calc-top-list-n prefix-numeric-value 0 1 "getd" calcFunc-getdiag calc-top-n "rrow" calcFunc-mrrow] 7]] 2 nil "NRow number: \nP"]) (defalias 'calc-mcol #[(n &optional nn) "\300\301!\207" [calc-do #[nil ":\203\302\303\304\305\306\303!B#\207\307 !\211\310U\203#\302\311\312\313\314\311!D#\207 \310W\2035\302\311\315\316\314\311! [E#\207\302\311\304\305\314\311! E#\207" [nn n calc-enter-result 2 "mcol" calcFunc-mcol calc-top-list-n prefix-numeric-value 0 1 "getd" calcFunc-getdiag calc-top-n "rcol" calcFunc-mrcol] 7]] 2 nil "NColumn number: \nP"]) (defalias 'calcFunc-mdims #[(m) "\211\242\301=\262\204\302\303\"\210\301\304!B\207" [m vec math-reject-arg vectorp math-mat-dimens] 3]) (defalias 'math-map-vec #[(f a) "\211\242\302=\262\203\302\303 A\"B\207 !\207" [a f vec mapcar] 4]) (defalias 'math-dimension-error #[nil "\300\301!\210\302\303\304\"\207" [calc-record-why "*Dimension error" signal wrong-type-argument nil] 3]) (defalias 'calcFunc-vec #[(&rest objs) "\301B\207" [objs vec] 2]) (defalias 'calcFunc-cvec #[(obj &rest dims) "\302 \"\207" [obj dims math-make-vec-dimen] 3]) (defalias 'math-make-vec-dimen #[(obj dims) "\203<\302@!\2036A\204 \211:?\206\211@\303>\262\204.\304\305\306@\307 A\"\"!B\207\304\306@ \"B\207\310@\311\"\207 \207" [dims obj natnump (frac float cplx polar) vec copy-sequence make-list math-make-vec-dimen math-reject-arg fixnatnump] 7]) (defalias 'calcFunc-head #[(vec) "\211\242\300=\262\203A\203A@\207\301\302\"\210\303D\207" [vec calc-record-why vectorp calcFunc-head] 3]) (defalias 'calcFunc-tail #[(vec) "\211\242\300=\262\203A\203\300AAB\207\301\302\"\210\303D\207" [vec calc-record-why vectorp calcFunc-tail] 3]) (defalias 'calcFunc-cons #[(head tail) "\211\242\302=\262\203\302 ABB\207\303\304\"\210\305 E\207" [tail head vec calc-record-why vectorp calcFunc-cons] 3]) (defalias 'calcFunc-rhead #[(vec) "\211\242\300=\262\203A\203\301!\211G\302Z\233\303\241\210)\207\304\305\"\210\306D\207" [vec copy-sequence 2 nil calc-record-why vectorp calcFunc-rhead] 4]) (defalias 'calcFunc-rtail #[(vec) "\211\242\300=\262\203A\203GS8\207\301\302\"\210\303D\207" [vec calc-record-why vectorp calcFunc-rtail] 3]) (defalias 'calcFunc-rcons #[(head tail) "\211\242\302=\262\203\303 C\"\207\304\305\"\210\306 E\207" [head tail vec append calc-record-why vectorp calcFunc-rcons] 3]) (defalias 'math-map-vec-2 #[(f a b) "\211\242\304=\262\203Z \211\242\304=\262\203@\305A\211\2033 A\211\204'\306 \210 @ @\"\nB\202\203:\306 \210\304\n\237)B\207\305A\211\203T @ \"\nB\202B\304\n\237)B\207 \211\242\304=\262\203~\305 A\211\203x  @\"\nB\202f\304\n\237)B\207  \"\207" [a b v f vec nil math-dimension-error] 3]) (defalias 'math-reduce-vec #[(f a) "\211\242\303=\262\203*A\203(A\211@A\211\203%\n @\"\202 )\207\304\207\207" [a accum f vec 0] 3]) (defalias 'math-reduce-cols #[(f a) "\302!\203\303\304 A\305A@G$B\207\207" [a f math-matrixp vec math-reduce-cols-col-step 1] 6]) (defalias 'math-reduce-cols-col-step #[(f a col cols) " W\205\304\n @8 A$\305\n T $B\207" [col cols f a math-reduce-cols-row-step math-reduce-cols-col-step] 6]) (defalias 'math-reduce-cols-row-step #[(f tot col a) "\203\304 \211\n @8\" A$\207\n\207" [a f tot col math-reduce-cols-row-step] 6]) (defalias 'math-dot-product #[(a b) "A A\211\203+\303@ @\"A A\211\203(\304\n\303@ @\"\"\202\n)\207\305\207" [a b accum math-mul math-add 0] 5]) (defalias 'calcFunc-vlen #[(v) "\211\242\301=\262\203GS\207\302!\203\303\207\304D\207" [v vec math-objectp 0 calcFunc-vlen] 3]) (defalias 'calcFunc-mrow #[(mat n) "\211\242\302=\262\203\303\304\"\207\242\305=\203D\306!\203D\307 \310\3118A@\312>\203.\313\202/\314\"\310\3158A@\316>\203@\314\202A\313\"#\207\317!\211\250\203S\313V\204X\320\321\"\210 \211\242\302=\262\204g\320 \322\"\210 8\206q\320\323\"\207" [n mat vec math-map-vec #[(x) "\302 \"\207" [mat x calcFunc-mrow] 3] intv math-constp calcFunc-subvec math-add 2 (2 3) 0 1 3 (1 3) math-check-integer math-reject-arg fixposintp vectorp "*Index out of range"] 7]) (defalias 'calcFunc-subscr #[(mat n &optional m) "\242\303=?\205\"\304 \"\n\203!\305 !\203\304\n\"\207\306\n\"\207\207" [mat n m var calcFunc-mrow math-num-integerp calcFunc-mcol] 3]) (defalias 'math-mat-col #[(mat n) "\301\302\303A\"B\207" [mat vec mapcar #[(x) " \234\207" [x n] 2]] 4]) (defalias 'calcFunc-mcol #[(mat n) "\211\242\302=\262\203\303\304\305\"!\207\242\306=\203.\307!\203.\310 !\203)\304\311 \"\207\312 \"\207\313!\211\250\203=\314V\204B\315\316\"\210 \211\242\302=\262\204Q\315 \317\"\210\310 !\203g A@GW\203m\320 \"\202j 8\206q\315\321\"\207" [n mat vec calcFunc-trn math-map-vec #[(x) "\302 \"\207" [mat x calcFunc-mcol] 3] intv math-constp math-matrixp #[(x) "\302 \"\207" [x n calcFunc-mrow] 3] calcFunc-mrow math-check-integer 0 math-reject-arg fixposintp vectorp math-mat-col "*Index out of range"] 4]) (defalias 'math-mat-less-row #[(mat n) "\302X\203 A\207 @\303 AS\"B\207" [n mat 0 math-mat-less-row] 4]) (defalias 'calcFunc-mrrow #[(mat n) "\302!\211\250\205\303V\205 GW\205\304 \"\207" [n mat math-check-integer 0 math-mat-less-row] 3]) (defalias 'math-mat-less-col #[(mat n) "\301\302\303A\"B\207" [mat vec mapcar #[(x) "\302 \"\207" [x n math-mat-less-row] 3]] 4]) (defalias 'calcFunc-mrcol #[(mat n) "\302!\211\250\205'\303V\205'\304 !\203# A@GW\205'\305 \"\207\306 \"\207" [n mat math-check-integer 0 math-matrixp math-mat-less-col math-mat-less-row] 3]) (defalias 'calcFunc-getdiag #[(mat) "\301!\203\302\303A\304\"B\207\305\306\"\210\307D\207" [mat math-square-matrixp vec math-get-diag-step 1 calc-record-why square-matrixp calcFunc-getdiag] 4]) (defalias 'math-get-diag-step #[(row n) "\205 @8\302A T\"B\207" [row n math-get-diag-step] 4]) (defalias 'math-transpose #[(mat) "\303A@G S\211\304V\203\305 \"\nB\202\306\n*B\207" [mat col m nil 0 math-mat-col vec] 3]) (defalias 'calcFunc-trn #[(mat) "\211\242\301=\262\203\302!\203\303!\207\304!\207\211:?\206#\211@\305>\262\203*\207\306\307\"\207" [mat vec math-matrixp math-transpose math-col-matrix (frac float cplx polar) math-reject-arg matrixp] 3]) (defalias 'calcFunc-ctrn #[(mat) "\301\302!!\207" [mat calcFunc-conj calcFunc-trn] 3]) (defalias 'calcFunc-pack #[(mode els) "\211\242\303=\262\204\304\305\"\210 \211\242\303=\262\203$ A\203$ A\202. \250\204.\304 \306\"\210\3071J\310 !GSU\203D\311 A\"\202H\304\312\"0\207\304\nA@\")\207" [els mode err vec math-reject-arg vectorp fixnump (error) calc-pack-size calc-pack-items "*Wrong number of elements"] 3]) (defalias 'calcFunc-unpack #[(mode thing) "\250\204\n\303\304\"\210\3051\306\307 \"B0\207\303 \nA@\")\207" [mode thing err math-reject-arg fixnump (error) vec calc-unpack-item] 4]) (defalias 'calcFunc-unpackt #[(mode thing) "\303\304 \n\")\207" [calc-unpack-with-type mode thing pair calcFunc-unpack] 3]) (defalias 'calcFunc-arrange #[(vec cols) "\305\306\" \211\242\301=\262\205P\307 !\301C\310\311X\203$ \n\244\202O\nGY\203C\n\233S\n\233\310\241\210 \301\nBC\244\f\211\202%\n\203N \301\nBC\244 +\207" [cols vec flat mat next math-check-fixnum t math-flatten-vector nil 0] 4]) (defalias 'math-flatten-vector #[(vec) "\211\242\300=\262\203\301\302\303\304A\"\"\207C\207" [vec apply append mapcar math-flatten-vector] 5]) (defalias 'calcFunc-vconcat #[(a b) "\302\303 E!\207" [a b math-normalize |] 4]) (defalias 'calcFunc-vconcatrev #[(a b) "\302\303 E!\207" [b a math-normalize |] 4]) (defalias 'calcFunc-append #[(v1 v2) "\211\242\302=\262\203 \211\242\302=\262\203\303 A\"\207\304 E\207" [v1 v2 vec append calcFunc-append] 3]) (defalias 'calcFunc-appendrev #[(v1 v2) "\302 \"\207" [v2 v1 calcFunc-append] 3]) (defalias 'math-copy-matrix #[(m) "A@\211\242\301=\262\203\301\302\303A\"B\207\303!\207" [m vec mapcar copy-sequence] 4]) (defalias 'calcFunc-diag #[(a &optional n) "\203 \250\204 \302! \211\242\303=\262\203N\203( GTU\204(\304 E\207\305 !\203C\203A \306\234GTU\204A\304 E\207 \207\303\307 A\310 GS#B\207\203]\303\307\311 \"\310#B\207\304 D\207" [n a math-check-fixnum vec calcFunc-diag math-matrixp 1 math-diag-step 0 make-list] 5]) (defalias 'calcFunc-idn #[(a &optional n) "\203 \211\242\303=\262\203\304 \305\"\207\306 \"\207\n\250\203\"\307 \n\"\207\307 D\207" [n a calc-matrix-mode vec math-reject-arg numberp calcFunc-diag calcFunc-idn] 3]) (defalias 'math-mimic-ident #[(a m) "\302!\203 \303 GS\"\207\211\242\304=\262\203(\305 !\203%\304\306\307A\"B\207\310 \207\303 !\207" [m a math-square-matrixp calcFunc-idn vec math-zerop mapcar #[(x) "\211\242\302=\262\203\303 \"\207 \207" [x a vec math-mimic-ident] 3] math-dimension-error] 4]) (defalias 'math-diag-step #[(a n m) " W\205\303\304\305\"\n@\304 ZS\305\"B\244B\306\nAT #B\207" [n m a vec make-list 0 math-diag-step] 6]) (defalias 'calcFunc-index #[(n &optional start incr) "\305!\203\306\307\310! \n#!\207\250\204\311!\312 \203]\313Y\203>S\211\313Y\203W B\314 \n\2069\315\"\202%T\211\313X\203W B\316 \n\206R\317\"\202> \237\202\210\313Y\203t\313V\203\210 BS\211\202d\320\211Y\203\207\f B\fS\211\202w)\303 )B\207" [n start incr vec i math-messy-integerp math-float calcFunc-index math-trunc math-check-fixnum nil 0 math-add 1 math-mul 2 -1] 6]) (defalias 'calcFunc-find #[(vec x &optional start) "\203 \304\305\"\202\f\306\211\306W\203\307\310\"\210 \233 \203: @\311\"\312U\266\202\204:\nT A\211\204\" \203B\n\202C\312)\207" [start vec n x math-check-fixnum t 1 math-reject-arg posp math-compare 0] 6]) (defalias 'calcFunc-subvec #[(vec start &optional end) "\305\306\"\305 \206 \307\306\"\n\211\242\302=\262\204\310\n\311\"\210\nGS\307X\203-\312 \313# \307X\2039\312 \313# V\204E X\203I\314\202g\n\233 X\203d\315 \313#\316\n!\211\233\211\317\241\210)\302\nB)\207" [start end vec len chop math-check-fixnum t 0 math-reject-arg vectorp + 1 (vec) - copy-sequence nil] 5]) (defalias 'calcFunc-rsubvec #[(vec start &optional end) "\306\307\"\306 \206 \310\307\"\n\211\242\302=\262\204\311\n\312\"\210\nGS\310X\203-\313 \314# \310X\2039\313 \314# V\204E X\203I\n\202_ \n\233S\315\n!\211\233\f\316\241\210\317\n \"*)\207" [start end vec len chop tail math-check-fixnum t 0 math-reject-arg vectorp + 1 copy-sequence nil append] 4]) (defalias 'calcFunc-rev #[(vec) "\211\242\300=\262\203\300\301A!B\207\302\303\"\207" [vec reverse math-reject-arg vectorp] 3]) (defalias 'calcFunc-vmask #[(mask vec) "\211:?\206 \211@\303>\262\203\304!\203\305\207 \207\211\242\301=\262\204)\306\307\"\210\310!\2044\306\311\"\210 \211\242\301=\262\204C\306 \307\"\210G GU\204N\312 \210\313A A\211\203i\304@!\204P @\nB\202P\301\n\237)B\207" [mask vec new (frac float cplx polar) math-zerop (vec) math-reject-arg vectorp math-constp constp math-dimension-error nil] 3]) (defalias 'calcFunc-vexp #[(mask vec &optional filler) "\211\242\301=\262\204\305\306\"\210\307!\204\305\310\"\210 \211\242\301=\262\204)\305 \306\"\210\311\n\2055\n\211\242\301=\262A\211\203m\312@!\203] \203Q\nA\211@\202R\n\206W@\fB\2027 A\211@\206g@\fB\2027\301\f\237*B\207" [mask vec filler fvec new math-reject-arg vectorp math-constp constp nil math-zerop] 5]) (defalias 'calcFunc-rnorm #[(a) "\211\242\301=\262\203&\302!\203&\303!\203\304\305\306\307\"\"\207\304\305\306\310\"\"\207\311\312\"\210\313D\207" [a vec math-constp math-matrixp math-reduce-vec math-max math-map-vec calcFunc-cnorm math-abs calc-record-why vectorp calcFunc-rnorm] 5]) (defalias 'calcFunc-cnorm #[(a) "\211\242\301=\262\203#\302!\203#\303!\203\304\305\306\307\"\"\207\304\307\"\207\310\311\"\210\312D\207" [a vec math-constp math-matrixp math-reduce-vec math-max math-reduce-cols math-add-abs calc-record-why vectorp calcFunc-cnorm] 5]) (defalias 'math-add-abs #[(a b) "\302\303!\303 !\"\207" [a b math-add math-abs] 4]) (defalias 'calcFunc-sort #[(vec) "\211\242\300=\262\203\300\301\302A!\303\"B\207\304\305\"\207" [vec sort copy-sequence math-beforep math-reject-arg vectorp] 4]) (defalias 'calcFunc-rsort #[(vec) "\211\242\300=\262\203\300\301\302A!\303\"\237B\207\304\305\"\207" [vec sort copy-sequence math-beforep math-reject-arg vectorp] 4]) (defalias 'calcFunc-grade #[(math-grade-vec) "\211\242\302=\262\203GS\302\303\304 !A\305\")B\207\306\307\"\207" [math-grade-vec len vec sort calcFunc-index math-grade-beforep math-reject-arg vectorp] 4]) (defalias 'calcFunc-rgrade #[(math-grade-vec) "\211\242\302=\262\203GS\302\303\304 !A\305\"\237)B\207\306\307\"\207" [math-grade-vec len vec sort calcFunc-index math-grade-beforep math-reject-arg vectorp] 4]) (defalias 'math-grade-beforep #[(i j) "\303 8\n 8\"\207" [i math-grade-vec j math-beforep] 4]) (defalias 'calcFunc-histogram #[(vec wts &optional n) "\204 \306\n\211\242\302=\262\204\307\n\310\"\210 \211\242\302=\262\203,\nG GU\204,\311 \210\312!\203\216\313\314\"\n \211\242\302=\262 \315A\211\203\205@\312 !\204^\316 !\312 !\203G W\203G \317 H \203~\fA\211@\202 \"I\210\202G\302\320\315\"-B\207\211\242\302=\262\203\321!\313GS\314\"\nA \211\242\302=\262 \315\203@A\314\211\203\352@\322\"\323U\266\202\203\352TA\211\204\314\317H \203\fA\211@\202 \"I\210*A\211\204\273\302\320\315\".B\207\307\324\"\207" [n wts vec bin wp wvec 1 math-reject-arg vectorp math-dimension-error natnump make-vector 0 nil math-floor math-add append math-vector-avg math-compare -1 "*Expecting an integer or vector" vp res bds num i tbds] 7]) (defalias 'math-vector-avg #[(vec) "\303\304A!\305\"\306\211\203'\nA\203'\307\310\n@\nA@\"\311\" B\nA\211\204\300\312 !*B\207" [vec res vp sort copy-sequence math-beforep nil math-div math-add 2 reverse] 5]) (defalias 'calcFunc-vunion #[(a b) "\211:?\206 \211@\302>\262\203\303D\202&\211\242\303=\262\204&\304\305\"\210 \211:?\2061\211@\302>\262\203< C\202N \211\242\303=\262\204K\304 \305\"\210 A\306\307 \"!\207" [a b (frac float cplx polar hms date sdev intv mod) vec math-reject-arg vectorp calcFunc-rdup append] 4]) (defalias 'calcFunc-vint #[(a b) "\303!\203R\303 !\203R\304!A\304 !A\302C\203N \203N\305@ @\"\2031A\211\202@ @\306\"\307U\266\202\203H@\nBA A\202\n\237)\207\310\311\310!\310 !\"!\207" [a b vec math-simple-set calcFunc-rdup math-beforep math-compare 0 calcFunc-vcompl calcFunc-vunion] 6]) (defalias 'calcFunc-vdiff #[(a b) "\303!\203]\303 !\203]\304!A\304 !A\302C\203Y \2031\305 @@\"\2031 A\211\204! \203M@ @\306\"\307U\266\202\203MA A\202@\nBA\211\204\n\237)\207\310\311\310! \"!\207" [a b vec math-simple-set calcFunc-rdup math-beforep math-compare 0 calcFunc-vcompl calcFunc-vunion] 6]) (defalias 'calcFunc-vxor #[(a b) "\305!\203f\305 !\203f\306!A\306 !A\302C\204! \203b\203> \2032\307@ @\"\203>@\nBA\211\202\203W@ @\310\"\311U\266\202\203WA\202\\ @\nB A\202\n\237)\207\312!\312 !\313\312\313\f \"!\312\313 \"!\"*\207" [a b vec cb ca math-simple-set calcFunc-rdup math-beforep math-compare 0 calcFunc-vcompl calcFunc-vunion] 7]) (defalias 'calcFunc-vcompl #[(a) "\304!\303C\305\306A\211\203U\306@8\307\232\203$@A@\310>\204>\311 @A@\312>\2033\313\2024\314\\\n\306@8F B\315@8@A@\316>\203P\306\202Q\314\202 \n\317\232\203a \314U\204j\311 T\n\320F B\321 \237!+\207" [a closed prev vec math-prepare-set (neg (var inf var-inf)) 2 (neg (var inf var-inf)) (2 3) intv (0 1) 1 0 3 (0 2) (var inf var-inf) (var inf var-inf) math-clean-set] 5]) (defalias 'calcFunc-vspan #[(a) "\302!\211A\203*GS8\303\304A@A@\305\"\304 A@\306\"\\\305A@8\307 8#)\207\310\207" [a last math-prepare-set math-make-intv logand 2 1 3 (intv 2 0 0)] 6]) (defalias 'calcFunc-vfloor #[(a &optional always-vec) "\306!\305C\307\211\211\fA\211\203\246\f@A@\310\f@8\311\f@8 \312>\203E\313!\204E\314 \310\"\211\203E\315!\203E\316\317\"\320! \321>\203i\313\n!\204i\314 \317\"\211\203i\315\n!\203i\322\n\317\"\323\n! \203\214\322\317\"\311 8\324\"\325U\266\202\203\214\311 \233\n\240\210\202\n\324\"\326U\266\202\204\327 \nF\211 B\202 \237\330 \"-\207" [a mask b prev p vec math-prepare-set nil 2 3 (0 1) math-infinitep logior math-num-integerp math-add 1 math-ceiling (0 2) math-sub math-floor math-compare 0 -1 intv math-clean-set always-vec] 5]) (defalias 'calcFunc-vcard #[(a) "\302\303\"\304!\204\305\306\"\210\307A\211\2037@\242\310=\203/\311 \312\313@8\314@8\"\"\311 \315\"\202 )\207" [a count calcFunc-vfloor t math-constp math-reject-arg "*Set must be finite" 0 intv math-add math-sub 3 2 1] 6]) (defalias 'calcFunc-venum #[(a) "\306\307\"\310!\204\311\312\"\210\211A\313\211\313\n\203W\nA\n@\211\242\314=\203O\315\316\317\320 8\321 8\"\322\"\321 8\"A\323\n!\211\f\241\210 \n\241\210 \202Q\n\f\211\204-\207" [a prev this this-val next this-last calcFunc-vfloor t math-constp math-reject-arg "*Set must be finite" nil intv calcFunc-index math-add math-sub 3 2 1 last] 7]) (defalias 'calcFunc-vpack #[(a) "\302\303\"\211A\203*\304A@\242\305=\203\306A@8\202A@!\203*\307A@\310\"\210\311A\211\203r@\242\305=\203g\312@8\313\232\203Q\314 \315\306@8!\"\202,\316 \314\315\312@8T!\315\306@8!\"\"\202,\316 \315@!\"\202, )\207" [a accum calcFunc-vfloor t math-negp intv 2 math-reject-arg posp 0 3 (var inf var-inf) math-sub math-power-of-2 math-add] 8]) (defalias 'calcFunc-vunpack #[(a &optional w) "\306!\204 \307\310\"\210 \203\311 \"\312!\203\313!\314\315\316!\211\2031\317\320\"\2022\211\321=\203=\322\202@\323 !\f\203J\324\202K\325\f\203U\325\202V\324G \326C S!\315\"!\321Y\203\317!H=\203\204!S\211!\202k!\"!\321Y\203\243!H=\203\243!S\211!\202\212!\"SU\203\266\327 \"\330#\202\307\331\332\327 \"\330#\327 !\314#FB\202i\f\203\336\331\314 \333FB\334\237!. \207" [a w calc-number-radix calc-twos-complement-mode neg aa math-num-integerp math-reject-arg integerp math-clip math-messy-integerp math-trunc 2 nil math-negp math-sub -1 0 "" math-format-binary 49 48 vec - 1 intv 3 (var inf var-inf) math-clean-set str zero one len pos pos2] 8]) (defalias 'calcFunc-rdup #[(a) "\302!\203]\211:?\206\211@\303>\262\203\304D\211\242\304=\262\204)\305\306\"\210\307\310A!\311\"\211 A\203X @ A@\312\"\313U\266\202\203Q \211AA\241\210\2023 A\211\2024)\304B\207\314\315!!\207" [a p math-simple-set (frac float cplx polar hms date sdev intv mod) vec math-reject-arg vectorp sort copy-sequence math-beforep math-compare 0 math-clean-set math-prepare-set] 6]) (defalias 'math-prepare-set #[(a) "\211:?\206 \211@\303>\262\203\304D\2020\211\242\304=\262\204&\305\306\"\210\304\307\310A!\311\"B\312\nA\203\311\nA@\242\313=\203\203\314\nA@!\203y\nA@A@\315>\203r\316\nA@8\317\nA@8\320\"\321U\266\202\203r\n\211AA\241\210\2024\nA\211\2025\305\nA@\322\"\210\2024\nA@\211:?\206\220\211@\323>\262\204\265\nA@@\324=\204\265\nA@\325\232\204\265\nA@\326\232\204\265\305\nA@\327\"\210\nA\313\317\nA@\nA@F\240\210\nA\211\2025\nAA\203\203\320\317\nA@8\316\211\n88\"\211\330>\204\376 \321=\203\nA@A@\331>\203\316\n8A@\332>\203\nA\211\202\314\320\317\nA@8\317\316\n88\"\n\313\333\334\nA@A@\316\nA@8\316\211\n88\320\"\321U\266\202\2038\316\n8A@\2029\321\"\316\"\333\334 \335>\203L\nA@A@\202M\321 \336>\203[\316\n8A@\202\\\321\"\337\"\\\316\nA@8 \337=\203s\317\nA@8\202x\317\316\n88F\nAAAB\241\210\202\313*\207" [a res p (frac float cplx polar hms date sdev intv mod) vec math-reject-arg vectorp sort copy-sequence math-beforep nil intv math-intv-constp (0 1 2) 2 3 math-compare 0 constp (frac float hms) date (var inf var-inf) (neg (var inf var-inf)) realp (-1 2) (0 2) (0 1) logand logior (1 0 2) (-1 0 2) 1] 11]) (defalias 'math-clean-set #[(a &optional always-vec) "\211A\2035 A@\242\303=\203.\304 A@8\305 A@8\306\"\307U\266\202\203. A\304 A@8\240\210 A\211\202AA\204NA@\242\303=\203N\n\204NA@\202O)\207" [a p always-vec intv 2 3 math-compare 0] 6]) (defalias 'math-simple-set #[(a) "\211:?\206 \211@\301>\262\203\242\302=?\2063\211\242\303=\262\2053A\211\2031@\242\302=\203\"?\207" [a (frac float cplx polar hms date sdev intv mod) intv vec] 3]) (defalias 'calcFunc-cross #[(a b) "\242\302=\203ZG\303U\203Z \242\302=\203U G\303U\203U\302\304\305\3068\307 8\"\305\3078\306 8\"\"\304\305\3078 A@\"\305A@\307 8\"\"\304\305A@\306 8\"\305\3068 A@\"\"F\207\310 \311\"\207\310\311\"\207" [a b vec 4 math-sub math-mul 2 3 math-reject-arg "*Three-vector expected"] 8]) #@338 The Kronecker product of objects X and Y. The objects X and Y may be scalars, vectors or matrices. The type of the result depends on the types of the operands; the product of two scalars is a scalar, of one scalar and a vector is a vector, of two vectors is a vector. of one vector and a matrix is a matrix, of two matrices is a matrix. (defalias 'calcFunc-kron #[(x y &optional nocheck) "\204{\306 !\204\306\n!\203K\306 !\204, \211\242\307=\262\203&\307 D\202+\307\211 DD\306\n!\204{\n\211\242\307=\262\203B\307\nD\202G\307\211\nDD\202{ \211\242\307=\262\204_\n\211\242\307=\262\203{ \211\242\307=\262\204m\307 D\n\211\242\307=\262\204{\307\nD \211\242\307=\262\203\300\310 A\310\211\203\271 @\nA\310\f\211\203\261 @\f\311\f\f\312# B A\211\204\235* A\211\204\220*\307 \237)B\207\313 \n\"\207" [nocheck x y ret v --dolist-tail-- math-matrixp vec nil calcFunc-kron t math-mul w] 5 (#$ . 35599)]) (defalias 'math-read-brackets #[(space-sep math-rb-close) "\203\306 ?\307 \210 \310=\203\307 \210\202 \n \232\204# \311=\203(\307 \210\312\207\f \n \n\313\232\204;\n\314\232\203?\315\202F\3162F\317 0)!\"#$%!;\203\265\203\257\f \320&'(%$#\"\320 \3162z\317 0&)&;\204\237\321\n\322\"\204\226\n \232\204\226 \311=\203\237\320&!\202\253('\323\316!\"\210+\202\265\323\316!\"\210\n\313\232\204\301\n\314\232\203#\307 \210!G\324V\203\324\325!AB\202\330!A@!\n \232\204\354\n\326\232\204\354 \311=\203\360\327\202\363\330\331!)\332\n\326\232\203\324\202\333!)F!)\n \232\204G\n\326\232\204G \311=\204G\323\316\334\"\210\202G\n\335\232\2036 \336\337!C!B!)\n \232\204G \311=\204G\323\316\334\"\210 \311=\204P\307 \210!-\207" [space-sep math-exp-token math-expr-data math-rb-close math-exp-pos math-exp-old-pos math-check-for-commas math-read-token space end (vec) "\\dots" "\\ldots" (vec (neg (var inf var-inf))) syntax math-read-vector nil assoc (("\\ldots") ("\\dots") (";")) throw 2 calcFunc-mul ")" (var inf var-inf) math-read-expr-level 0 intv 3 "Expected `]'" ";" vec math-read-matrix math-exp-keep-spaces vals save-exp-data save-exp-token save-exp-old-pos save-exp-pos vals2 error-exp-old-pos error-exp-pos exp2] 6]) (defalias 'math-check-for-commas #[(&optional balancing) "\305S\n\305Y\203N\306 \203\307\202\310\f T#\211\203N\f H\311U\2030\n\305V\2040 \203N\f H\312>\203?\nT\211\202\f H\313>\203\nS\211\202 \203V \202_ \205_\f H\311U*\207" [math-exp-pos pos count balancing math-exp-str 0 string-match "[],[{}()<>]" "[],[{}()]" 44 (91 123 40 60) (93 125 41 62)] 5]) (defalias 'math-read-vector #[nil "\306\307!C\211\n\310=\203\311 \210\202\n\312=\204U \313\232\204U \f\232\204U \314\232\204U \315\232\204U \316\232\203:\311 \210\n\310=\203F\311 \210\202:\306\307!C \241\210 )\202\317*B\207" [val last math-exp-token math-expr-data math-rb-close rest math-read-expr-level 0 space math-read-token end ";" "\\dots" "\\ldots" "," vec] 3]) (defalias 'math-read-matrix #[(mat) "\303\232\203\304 \210 \305=\203\304 \210\202 \n\306 C\244\202\n\207" [math-expr-data math-exp-token mat ";" math-read-token space math-read-vector] 2]) (provide 'calc-vec)