Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
calc /
[ HOME SHELL ]
Name
Size
Permission
Action
calc-aent.elc
26.22
KB
-rw-r--r--
calc-alg.elc
50.83
KB
-rw-r--r--
calc-arith.elc
79.87
KB
-rw-r--r--
calc-bin.elc
17.6
KB
-rw-r--r--
calc-comb.elc
28.6
KB
-rw-r--r--
calc-cplx.elc
8.25
KB
-rw-r--r--
calc-embed.elc
29.39
KB
-rw-r--r--
calc-ext.elc
109.63
KB
-rw-r--r--
calc-fin.elc
12.05
KB
-rw-r--r--
calc-forms.elc
56.09
KB
-rw-r--r--
calc-frac.elc
5.87
KB
-rw-r--r--
calc-funcs.elc
25.78
KB
-rw-r--r--
calc-graph.elc
35.06
KB
-rw-r--r--
calc-help.elc
20.06
KB
-rw-r--r--
calc-incom.elc
5.16
KB
-rw-r--r--
calc-keypd.elc
15.54
KB
-rw-r--r--
calc-lang.elc
58.62
KB
-rw-r--r--
calc-loaddefs.el
9.2
KB
-rw-r--r--
calc-macs.elc
6.13
KB
-rw-r--r--
calc-map.elc
28.65
KB
-rw-r--r--
calc-math.elc
58.13
KB
-rw-r--r--
calc-menu.elc
38.72
KB
-rw-r--r--
calc-misc.elc
20.67
KB
-rw-r--r--
calc-mode.elc
20.14
KB
-rw-r--r--
calc-mtx.elc
6.76
KB
-rw-r--r--
calc-nlfit.elc
13.45
KB
-rw-r--r--
calc-poly.elc
26.06
KB
-rw-r--r--
calc-prog.elc
51.18
KB
-rw-r--r--
calc-rewr.elc
39.08
KB
-rw-r--r--
calc-rules.elc
17.4
KB
-rw-r--r--
calc-sel.elc
19.6
KB
-rw-r--r--
calc-stat.elc
14.04
KB
-rw-r--r--
calc-store.elc
16.77
KB
-rw-r--r--
calc-stuff.elc
7.42
KB
-rw-r--r--
calc-trail.elc
4.69
KB
-rw-r--r--
calc-undo.elc
3.14
KB
-rw-r--r--
calc-units.elc
56.14
KB
-rw-r--r--
calc-vec.elc
37.91
KB
-rw-r--r--
calc-yank.elc
19.01
KB
-rw-r--r--
calc.elc
102.71
KB
-rw-r--r--
calcalg2.elc
78.71
KB
-rw-r--r--
calcalg3.elc
41.41
KB
-rw-r--r--
calccomp.elc
34.46
KB
-rw-r--r--
calcsel2.elc
5.84
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : calc-vec.elc
;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) ":\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\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@\211 B\242\312= C\nA@\211 D\242\312= E\307 FC\203bB\202dDGS GC\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\211 B\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\211 J\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\211 L\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=\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\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><A@=B=\202(\322>\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@!\2036 A\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\203 A\203 A@\207\301\302\"\210\303D\207" [vec calc-record-why vectorp calcFunc-head] 3]) (defalias 'calcFunc-tail #[(vec) "\211\242\300=\262\203 A\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\203 A\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\203 A\203 GS8\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\203 GS\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\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 \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=\262 A\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\203 GS\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\203 GS\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 \315 A\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\352 TA\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@ @\"\2031 A\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\203M 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] 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\203W 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\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\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\202@ \323 ! \f\203J \324\202K \325 \f\203U \325\202V \324 G \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\202 AA\204N A@\242\303=\203N \n\204N A@\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\2053 A\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=\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) "\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)
Close
