Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/calc/calc-vec.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\203b
B\202d
DGSGC\203\200
E\203\200
GDGSU\204\200
\321\343!\210GS\211G\310Y\203\271
\311C\203\234
BA\211B@\202\236
BE\203\255
DA\211D@\202\257
DD\"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=\203GS\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><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@!\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@8A$\305\nT	$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\210BS\211\202d\320\211Y\203\207\fB\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
\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!\203GW\203G\317H
\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@8FB\315@8@A@\316>\203P\306\202Q\314\202\n\317\232\203a	\314U\204j\311	T\n\320FB\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\"\3118\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\3208\3218\"\322\"\3218\"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)