Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
calc /
Delete
Unzip
Name
Size
Permission
Date
Action
README
8.41
KB
-rw-r--r--
2013-01-02 20:45
README.prev
30.98
KB
-rw-r--r--
2013-01-01 15:37
calc-aent.elc
26.25
KB
-rw-r--r--
2023-06-07 04:11
calc-alg.elc
47.46
KB
-rw-r--r--
2023-06-07 04:11
calc-arith.elc
80.63
KB
-rw-r--r--
2023-06-07 04:11
calc-bin.elc
21.67
KB
-rw-r--r--
2023-06-07 04:11
calc-comb.elc
28.98
KB
-rw-r--r--
2023-06-07 04:11
calc-cplx.elc
8.44
KB
-rw-r--r--
2023-06-07 04:11
calc-embed.elc
29.32
KB
-rw-r--r--
2023-06-07 04:11
calc-ext.elc
107.11
KB
-rw-r--r--
2023-06-07 04:11
calc-fin.elc
11.78
KB
-rw-r--r--
2023-06-07 04:11
calc-forms.elc
47.54
KB
-rw-r--r--
2023-06-07 04:11
calc-frac.elc
6.07
KB
-rw-r--r--
2023-06-07 04:11
calc-funcs.elc
25.39
KB
-rw-r--r--
2023-06-07 04:11
calc-graph.elc
35.03
KB
-rw-r--r--
2023-06-07 04:11
calc-help.elc
20.46
KB
-rw-r--r--
2023-06-07 04:11
calc-incom.elc
5.22
KB
-rw-r--r--
2023-06-07 04:11
calc-keypd.elc
15.92
KB
-rw-r--r--
2023-06-07 04:11
calc-lang.elc
58.46
KB
-rw-r--r--
2023-06-07 04:11
calc-loaddefs.el
10.05
KB
-rw-r--r--
2023-06-07 04:00
calc-macs.elc
6.03
KB
-rw-r--r--
2023-06-07 04:11
calc-map.elc
28.51
KB
-rw-r--r--
2023-06-07 04:11
calc-math.elc
59.89
KB
-rw-r--r--
2023-06-07 04:11
calc-menu.elc
38.83
KB
-rw-r--r--
2023-06-07 04:11
calc-misc.elc
21.87
KB
-rw-r--r--
2023-06-07 04:11
calc-mode.elc
19.64
KB
-rw-r--r--
2023-06-07 04:11
calc-mtx.elc
6.91
KB
-rw-r--r--
2023-06-07 04:11
calc-nlfit.elc
13.37
KB
-rw-r--r--
2023-06-07 04:12
calc-poly.elc
24.29
KB
-rw-r--r--
2023-06-07 04:12
calc-prog.elc
50.68
KB
-rw-r--r--
2023-06-07 04:12
calc-rewr.elc
39.51
KB
-rw-r--r--
2023-06-07 04:12
calc-rules.elc
17.54
KB
-rw-r--r--
2023-06-07 04:12
calc-sel.elc
19.82
KB
-rw-r--r--
2023-06-07 04:12
calc-stat.elc
13.92
KB
-rw-r--r--
2023-06-07 04:12
calc-store.elc
16.85
KB
-rw-r--r--
2023-06-07 04:12
calc-stuff.elc
7.78
KB
-rw-r--r--
2023-06-07 04:12
calc-trail.elc
4.76
KB
-rw-r--r--
2023-06-07 04:12
calc-undo.elc
3.29
KB
-rw-r--r--
2023-06-07 04:12
calc-units.elc
52.73
KB
-rw-r--r--
2023-06-07 04:12
calc-vec.elc
37.74
KB
-rw-r--r--
2023-06-07 04:12
calc-yank.elc
16.59
KB
-rw-r--r--
2023-06-07 04:12
calc.elc
102.9
KB
-rw-r--r--
2023-06-07 04:12
calcalg2.elc
78.94
KB
-rw-r--r--
2023-06-07 04:12
calcalg3.elc
41.76
KB
-rw-r--r--
2023-06-07 04:12
calccomp.elc
33.11
KB
-rw-r--r--
2023-06-07 04:12
calcsel2.elc
5.98
KB
-rw-r--r--
2023-06-07 04:12
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:12:04 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-vec.el ;;; in Emacs version 24.3.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 \306\202 \307\203 \310!\202 \311\306!\211\211:\205# @\312=)\2031 \nA\2031 \nA\202= \n\250\203: \n\202= \313\314!\315\n! \316\f \" \317\320 \f\321#\322\323\n \"#-\207" [n nn mode a 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) ":\203L A\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\272 \314\n@!\203\226 \314\nA@!\203\226 \314\315\n8!\203\226 \316\n@!\203\222 \316\nA@!\203\222 \317\315\n8!\203\216 \320\nB\207\321\322!\207\321\323!\207\324\325\211A\326=\203\250 \327\n@\330E\202\252 \n@\327\nA@\331EE\327\315\n8\332EE!\207\333U\203\345 \317\n@!\203\313 \334\nB\207\n@\242\334=\203\326 \n@\207\314\n@!\203\341 \321\335!\207\336\nB\207\337>\203\n\211 \203\n\314 @!\203\n\340 @!\204\321\341!\210 A\211\204\361 \203\336\nB\202\334\342\n!D)\207\n@\242\312=\204,\nA@\242\312=\203\255\n@\211 B\242\312= C\nA@\211 D\242\312= E\307 FC\203NB\202PDGS GC\203lE\203lGDGSU\204l\321\343!\210GS\211G\310Y\203\245\311C\203\210BA\211B@\202\212BE\203\231DA\211D@\202\233DD\"FBF\202l\312F\237.B\207\344U\203\346\317\n@!\203\306\317\nA@!\203\306\345\nB\207\346\n@!\203\331\346\nA@!\203\331\321\347!\210\324\325\n@\327\nA@\350EE!\207\351U\2039\317\n@!\203\377\352\nA@!\203\377\353\nB\207\346\n@!\203\346\nA@!\203\321\347!\210\324\327\n@\352\nA@!\203'\353\354\nA@E\2026\355\327\356\nA@!\353\354\357\307!EEDE!\207\360U\203x\n@\nA@ H B\361B!\204V\314B!\204s\352H!\204d\314H!\204m\362BH\"\202v\321\363!\202v\321\364!*\207\365U\203\305\n@\nA@ I J\352J!\203\253\352I!\203\253\366I!\203\245\367JI\"\202\303\321\370!\202\303\346J!\203\275\346I!\203\275\321\347!\210\371JIE*\207\372>\203\n@\nA@ K L\352L!\204\352L@\334=\204\352\314L!\204\f\352K!\204 K@\334=\204 \314K!\204\f\373\374\\LK#\202\321\347!*\207\375=\203S\376\nA@!\203#\321\377!\207\340\n@!\203:\340\nA@!\203:\324\201M \nB!\207\346\n@!\203M\346\nA@!\203M\321\341!\210\201N \nB\207\201O >\203\233\317\n@!\203x\340\nA@!\203x\201P \201Q \n@!\nA@\"\207\346\n@!\203\213\346\nA@!\203\213\321\341!\210\324\201P \201R \n@D\nA@E!\207\321\201S \"\207" [mode size items len new p calc-pack-size nil 0 calc-pack-items vec -3 math-objvecp 2 math-num-integerp math-realp 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 math-anglep polar 1 calcFunc-exp math-to-radians-2 math-quarter-circle -4 math-scalarp 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 (-6 -7 -8 -9) math-make-intv 9 -10 math-zerop "Denominator must not be zero" row calc-angle-mode x vx y vy z n sigma m a hi lo frac calcFunc-fdiv (-11 -12) 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=\203 A@\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\243 \315\211\211\211 C\314V\203y \316 @!\211 B\317\315 @\" A\211\203p \316 @!\fU\204d \311\320!\210\321 \317\315 @\"\"\202P S\211\202< A\203\204 \322 \237BC<\323=\203\224 @\322 BD\202\241 <\203\240 \321 \"\202\241 ,\207<\323=\203\267 \315 <\322\317 \")BD\207\324U\203\313 \242\325=\203\307 A\207\311\326!\207\327U\203\337 \242\330=\203\333 A\207\311\331!\207\332U\203\370 \242\330=\203\364 \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=\203\\\315\211\211 = > ? A\211\203O\317 @\"\211=@?B?=A@>B>\202.\322?\237B\322>\237+BD\207\337U\203\222 \242\340=\203l A\207 \242\341=\203x\342 !A\207 \211 @:?\206\206@@\343>)\203\216 \314D\207\311\344!\207\345U\203\272 \242\346>\204\261 \211 @:?\206\255@@\343>)\203\266\347 !A\207\311\344!\207\350U\203\316 \242\351=\203\312 A\207 \314D\207\352U\203\342 \242\353=\203\336 A\207\311\354!\207\355>\203\367 \242\313=\203\363 AA\207 \211D\207\356U\203! \242\357=\203 A\207 \211 @:?\206@@\360>)\203 \361D\207\311\362!\207\363U\203< \242\364=\2038 A@\365\366 8!D\207\311\367!\207\370U\203U \242\364=\203Q\371 !\372 !D\207\311\367!\207\311\373\"\207" [mode item row new type dims (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 (bigpos bigneg 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 (bigpos bigneg) 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" calc-unpack-with-type res y x a] 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) "\301!\204 \302\303\"\210\304\305!B\207" [m math-vectorp math-reject-arg vectorp vec math-mat-dimens] 3]) (defalias 'math-map-vec #[(f a) "\302!\203 \303\304 A\"B\207 !\207" [a f math-vectorp 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) "\2032 \302@!\203, A\204 \303 !\204$ \304\305\306@\307 A\"\"!B\207\304\306@ \"B\207\310@\311\"\207 \207" [dims obj natnump math-numberp vec copy-sequence make-list math-make-vec-dimen math-reject-arg fixnatnump] 7]) (defalias 'calcFunc-head #[(vec) "\211:\205 @\300=)\203 A\203 A@\207\302\303\"\210\304D\207" [vec a calc-record-why vectorp calcFunc-head] 4]) (defalias 'calcFunc-tail #[(vec) "\211:\205 @\300=)\203 A\203 \300AAB\207\302\303\"\210\304D\207" [vec a calc-record-why vectorp calcFunc-tail] 4]) (defalias 'calcFunc-cons #[(head tail) "\211:\205 @\303=)\203 \303\nABB\207\304\305\"\210\306\nE\207" [tail a head vec calc-record-why vectorp calcFunc-cons] 4]) (defalias 'calcFunc-rhead #[(vec) "\211:\205 @\300=)\203$ A\203$ \302!\211G\303Z\233\304\241\210)\207\305\306\"\210\307D\207" [vec a copy-sequence 2 nil calc-record-why vectorp calcFunc-rhead] 4]) (defalias 'calcFunc-rtail #[(vec) "\211:\205 @\300=)\203 A\203 GS8\207\302\303\"\210\304D\207" [vec a calc-record-why vectorp calcFunc-rtail] 4]) (defalias 'calcFunc-rcons #[(head tail) "\211:\205 @\303=)\203 \304\nC\"\207\305\306\"\210\307\nE\207" [head a tail vec append calc-record-why vectorp calcFunc-rcons] 4]) (defalias 'math-map-vec-2 #[(f a b) "\304!\203R \304 !\2038 \305A\211\203+ A\211\204 \306 \210 @ @\"\nB\202 \2032 \306 \210\307\n\237)B\207\305A\211\203L @ \"\nB\202: \307\n\237)B\207\304 !\203r \305 A\211\203l @\"\nB\202Z \307\n\237)B\207 \"\207" [a b v f math-vectorp nil math-dimension-error vec] 3]) (defalias 'math-reduce-vec #[(f a) "\303!\203& A\203$ A\211@A\211\203! \n @\"\202 )\207\304\207\207" [a accum f math-vectorp 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) "\301!\203\n GS\207\302!\203 \303\207\304D\207" [v math-vectorp math-objectp 0 calcFunc-vlen] 2]) (defalias 'calcFunc-mrow #[(mat n) "\211:\205 @\303=)\203 \304\305\"\207\242\306=\203I \307!\203I \310\n\311\3128A@\313>\2033 \314\2024 \315\"\311\3168A@\317>\203E \315\202F \314\"#\207\320!\211\250\203X \314V\204] \321\322\"\210\n\211:\205h @\303=)\204q \321\n\323\"\210\n8\206{ \321\324\"\207" [n a 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"] 8]) (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:\205 @\303=)\203 \304\305\306\"!\207\242\307=\2033 \310!\2033 \311\n!\203. \305\312\n\"\207\313\n\"\207\314!\211\250\203B \315V\204G \316\317\"\210\n\211:\205R @\303=)\204[ \316\n\320\"\210\311\n!\203q \nA@GW\203w \321\n\"\202t \n8\206{ \316\322\"\207" [n a 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"] 5]) (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) "\301!\203 \302!\203 \303!\207\304!\207\305!\203 \207\306\307\"\207" [mat math-vectorp math-matrixp math-transpose math-col-matrix math-numberp math-reject-arg matrixp] 3]) (defalias 'calcFunc-ctrn #[(mat) "\301\302!!\207" [mat calcFunc-conj calcFunc-trn] 3]) (defalias 'calcFunc-pack #[(mode els) "\211:\205 @\303=)\204 \304\305\"\210\n\211:\205 @\303=)\203. \nA\203. \nA\2028 \n\250\2048 \304\n\306\"\210\307\310\311\217\207" [els a mode vec math-reject-arg vectorp fixnump err (byte-code "\302! GSU\203 \303 A\"\207\304 \305\"\207" [mode els calc-pack-size calc-pack-items math-reject-arg "*Wrong number of elements"] 3) ((error (byte-code "\302 A@\"\207" [els err math-reject-arg] 3)))] 4]) (defalias 'calcFunc-unpack #[(mode thing) "\250\204\n \301\302\"\210\303\304\305\217\207" [mode math-reject-arg fixnump err (byte-code "\302\303 \"B\207" [mode thing vec calc-unpack-item] 4) ((error (byte-code "\302 A@\"\207" [thing err math-reject-arg] 3)))] 3]) (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\"\307 !\205L \310 !\301C\311 \312X\203 \n\244\202K \nGY\203? \n\233S\n\233\311\241\210 \301\nBC\244\f\211\202! \n\203J \301\nBC\244 +\207" [cols vec flat mat next math-check-fixnum t math-vectorp math-flatten-vector nil 0] 4]) (defalias 'math-flatten-vector #[(vec) "\301!\203 \302\303\304\305A\"\"\207C\207" [vec math-vectorp 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) "\302!\203 \302 !\203 \303 A\"\207\304 E\207" [v1 v2 math-vectorp append calcFunc-append] 3]) (defalias 'calcFunc-appendrev #[(v1 v2) "\302 \"\207" [v2 v1 calcFunc-append] 3]) (defalias 'math-copy-matrix #[(m) "\301A@!\203 \302\303\304A\"B\207\304!\207" [m math-vectorp vec mapcar copy-sequence] 4]) (defalias 'calcFunc-diag #[(a &optional n) "\203 \250\204 \302!\303 !\203J \203$ GTU\204$ \304 E\207\305 !\203? \203= \306\234GTU\204= \304 E\207 \207\307\310 A\311 GS#B\207\203Y \307\310\312 \"\311#B\207\304 D\207" [n a math-check-fixnum math-vectorp calcFunc-diag math-matrixp 1 vec math-diag-step 0 make-list] 5]) (defalias 'calcFunc-idn #[(a &optional n) "\203 \303 !\203 \304 \305\"\207\306 \"\207\n\250\203 \307 \n\"\207\307 D\207" [n a calc-matrix-mode math-vectorp math-reject-arg numberp calcFunc-diag calcFunc-idn] 3]) (defalias 'math-mimic-ident #[(a m) "\302!\203 \303 GS\"\207\304!\203$ \305 !\203! \306\307\310A\"B\207\311 \207\303 !\207" [m a math-square-matrixp calcFunc-idn math-vectorp math-zerop vec mapcar #[(x) "\302!\203 \303 \"\207 \207" [x a math-vectorp 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\211 Y\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 \306\307\"\202\f \310\211\310W\203 \311\312\"\210 \233 \203; @ \313 \f\"\314U*\204; \nT A\211\204\" \203C \n\202D \314)\207" [start vec n x b a math-check-fixnum t 1 math-reject-arg posp math-compare 0] 4]) (defalias 'calcFunc-subvec #[(vec start &optional end) "\305\306\"\305 \206 \307\306\"\310\n!\204 \311\n\312\"\210\nGS\307X\203) \313 \314# \307X\2035 \313 \314# V\204A X\203E \315\202c \n\233 X\203` \316 \314#\317\n!\211\233\211 \320\241\210)\302\nB)\207" [start end vec len chop math-check-fixnum t 0 math-vectorp math-reject-arg vectorp + 1 (vec) - copy-sequence nil] 5]) (defalias 'calcFunc-rsubvec #[(vec start &optional end) "\306\307\"\306 \206 \310\307\"\311\n!\204 \312\n\313\"\210\nGS\310X\203) \314 \315# \310X\2035 \314 \315# V\204A X\203E \n\202[ \n\233S\316\n!\211\233 \f\317\241\210\320\n \"*)\207" [start end vec len chop tail math-check-fixnum t 0 math-vectorp math-reject-arg vectorp + 1 copy-sequence nil append] 4]) (defalias 'calcFunc-rev #[(vec) "\301!\203 \300\302A!B\207\303\304\"\207" [vec math-vectorp reverse math-reject-arg vectorp] 3]) (defalias 'calcFunc-vmask #[(mask vec) "\303!\203 \304!\203 \305\207 \207\306!\204 \307\310\"\210\311!\204& \307\312\"\210\306 !\2041 \307 \310\"\210G GU\204< \313 \210\314A A\211\203W \304@!\204> @\nB\202> \301\n\237)B\207" [mask vec new math-numberp math-zerop (vec) math-vectorp math-reject-arg vectorp math-constp constp math-dimension-error nil] 3]) (defalias 'calcFunc-vexp #[(mask vec &optional filler) "\305!\204 \306\307\"\210\310!\204 \306\311\"\210\305 !\204! \306 \307\"\210\312\n\205) \305\n! A\211\203a \313@!\203Q \203E \nA\211@\202F \n\206K @\fB\202+ A\211@\206[ @\fB\202+ \301\f\237*B\207" [mask vec filler fvec new math-vectorp math-reject-arg vectorp math-constp constp nil math-zerop] 4]) (defalias 'calcFunc-rnorm #[(a) "\211:\205 @\301=)\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] 6]) (defalias 'calcFunc-cnorm #[(a) "\211:\205 @\301=)\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] 6]) (defalias 'math-add-abs #[(a b) "\302\303!\303 !\"\207" [a b math-add math-abs] 4]) (defalias 'calcFunc-sort #[(vec) "\301!\203 \300\302\303A!\304\"B\207\305\306\"\207" [vec math-vectorp sort copy-sequence math-beforep math-reject-arg vectorp] 4]) (defalias 'calcFunc-rsort #[(vec) "\301!\203 \300\302\303A!\304\"\237B\207\305\306\"\207" [vec math-vectorp sort copy-sequence math-beforep math-reject-arg vectorp] 4]) (defalias 'calcFunc-grade #[(math-grade-vec) "\302!\203 GS\303\304\305 !A\306\")B\207\307\310\"\207" [math-grade-vec len math-vectorp vec sort calcFunc-index math-grade-beforep math-reject-arg vectorp] 4]) (defalias 'calcFunc-rgrade #[(math-grade-vec) "\302!\203 GS\303\304\305 !A\306\"\237)B\207\307\310\"\207" [math-grade-vec len math-vectorp 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:\205 @\302=)\204 \307\n\310\"\210 \211:\205' @\302=)\2036 \nG GU\2046 \311 \210\312!\203\237 \313\314\"\n \211:\205L @\302=) \315 A\211\203\226 @\312\f!\204n \316\f!\312\f!\203W \fW\203W \f\317\fH\203\217 A\211@\202\220 \"I\210\202W \302\320\315\"-B\207\211:\205\252 @\302=)\2038\321! \313GS\314\" \nA \211:\205\312 @\302=) \315 \203.@A\314 \211 \203 @ \322 \"\323U*\203 TA\211\204\350 \317H\203 A\211@\202! \"I\210*A\211\204\327 \302\320\315\".B\207\307\324\"\207" [n wts vec a bin wp 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" wvec vp res bds num i tbds b] 7]) (defalias 'math-vector-avg #[(vec) "\304\305A!\306\"\307\211\203* \nA\203* \310\311\n@\n\211A@)\"\312\" B\nA\211\204 \300\313 !*B\207" [vec res vp x sort copy-sequence math-beforep nil math-div math-add 2 reverse] 5]) (defalias 'calcFunc-vunion #[(a b) "\211:?\206\f @\302>)\203 \303D\202\" \304!\204\" \305\306\"\210 \211:?\206. @\302>)\2038 C\202F \304 !\204C \305 \306\"\210 A\307\310 \"!\207" [a b (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-vectorp math-reject-arg vectorp calcFunc-rdup append] 5]) (defalias 'calcFunc-vint #[(a b) "\303!\203S \303 !\203S \304!A\304 !A\302C\203O \203O \305@ @\"\2031 A\211\202 @ @\306 \"\307U*\203I @\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\203Z \2031 \305 @@\"\2031 A\211\204! \203N @ @\306 \"\307U*\203N A 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] 5]) (defalias 'calcFunc-vxor #[(a b) "\305!\203g \305 !\203g \306!A\306 !A\302C\204! \203c \203> \2032 \307@ @\"\203> @\nBA\211\202 \203X @ @\310 \"\311U*\203X A\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\250 \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\215 \322\317\"\311 8\324\n\"\325U*\203\215 \311 \233\n\240\210\202 \n\324\n\"\326U*\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\202 A@!\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\202L :\203I \323 A!\202L \324 ! \f\203V \325\202W \326 \f\203a \326\202b \325 G !\327C !S \"\315 #\"\321Y\203\333 \"H =\203\220 \"S\211\"\202w \"#\"\321Y\203\257 \"H =\203\257 \"S\211\"\202\226 \"#SU\203\302 \330!#\331#\202\323 \332\333\330!#\331#\330!\"\314#FB\202u \f\203\352 \332\314!\334FB\335\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-bignum-binary 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) "\303!\203Z \211:?\206 @\304>)\203 \305D\306!\204% \307\310\"\210\311\312A!\313\"\211 A\203U @ A@\314\n\"\315U*\203N \211AA\241\210\202/ A\211\2020 )\305B\207\316\317!!\207" [a p b math-simple-set (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-vectorp math-reject-arg vectorp sort copy-sequence math-beforep math-compare 0 math-clean-set math-prepare-set] 4]) (defalias 'math-prepare-set #[(a) "\211:?\206\f @\304>)\203 \305D\202, \306!\204\" \307\310\"\210\305\311\312A!\313\"B\314\nA\203\306 \nA@\242\315=\203\200 \316\nA@!\203v \nA@A@\317>\203o \320\nA@8\321\nA@8\322 \"\323U*\203o \n\211AA\241\210\2020 \nA\211\2021 \307\nA@\324\"\210\2020 \nA@\211:?\206\216 @\325>)\204\262 \nA@@\326=\204\262 \nA@\327\232\204\262 \nA@\330\232\204\262 \307\nA@\331\"\210\nA\315\321\nA@\nA@F\240\210\nA\211\2021 \nAA\203\201\322\321\nA@8\320\211\n88\"\211\332>\204\373 \323=\203\nA@A@\333>\203\320\n8A@\334>\203\nA\211\202\311 \322\321\nA@8\321\320\n88\"\n\315\335\336\nA@A@\320\nA@8\320\211\n88\322 \"\323U*\2036\320\n8A@\2027\323\"\320\"\335\336 \337>\203J\nA@A@\202K\323 \340>\203Y\320\n8A@\202Z\323\"\341\"\\\320\nA@8 \341=\203q\321\nA@8\202v\321\320\n88F\nAAAB\241\210\202\310 *\207" [a res p b (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-vectorp math-reject-arg vectorp sort copy-sequence math-beforep nil intv math-intv-constp (0 1 2) 2 3 math-compare 0 constp (bigpos bigneg 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] 10]) (defalias 'math-clean-set #[(a &optional always-vec) "\305\211A\2038 \nA@\242\306=\2031 \307\nA@8\310\nA@8\311 \"\312U*\2031 \nA\307\nA@8\240\210\nA\211\202 AA\204Q A@\242\306=\203Q \f\204Q A@\202R *\207" [a res p b always-vec nil intv 2 3 math-compare 0] 4]) (defalias 'math-simple-set #[(a) "\211:?\206\f @\301>)\203 \242\302=?\2068 \211:\205# @\303=)\2058 A\211\2036 @\242\302=\203' ?\207" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod) intv vec] 3]) (defalias 'calcFunc-cross #[(a b) "\242\302=\203Z G\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) "\204c \306 !\204 \306\n!\203C \306 !\204( \307 !\203\" \310 D\202' \310\211 DD\306\n!\204c \307\n!\203: \310\nD\202? \310\211\nDD\202c \307 !\204O \307\n!\203c \307 !\204Y \310 D\307\n!\204c \310\nD\307 !\203\244 \311 A\311 \211 \203\235 @\nA\311 \211 \203\225 @ \312\f \313# B A\211\204\201 * A\211\204t *\310 \237)B\207\314 \n\"\207" [nocheck x y ret v --dolist-tail-- math-matrixp math-vectorp vec nil calcFunc-kron t math-mul w] 5 (#$ . 35470)]) (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\202B \316\317\215) \" # $ % &\";\203\255 \203\247 \f \320 ' ( )&%$#\320 !\316\321\215')';\204\227 \322\n\323\"\204\216 \n \232\204\216 \311=\203\227 \320'\"\202\243 )(\324\316\"\"\210+\202\255 \324\316\"\"\210\n\313\232\204\271 \n\314\232\203\307 \210\"G\325V\203\314 \326\"AB\202\320 \"A@\"\n \232\204\344 \n\327\232\204\344 \311=\203\350 \330\202\353 \331\332! *\333\n\327\232\203\370 \325\202\371 \334\"*F\")\n \232\204?\n\327\232\204? \311=\204?\324\316\335\"\210\202?\n\336\232\203. !\337\340\"C!B\")\n \232\204? \311=\204?\324\316\335\"\210 \311=\204H\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 (math-read-vector) 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)