WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/calc
Viewing File: /usr/share/emacs/24.3/lisp/calc/calc-vec.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:54 2025
;;; 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\306A!\nG\307\211\307@\310V\203>	S\n\233\n@
A	Z
\307\241\210\311A@\"\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\211A\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FC\203NB\202PDGSGC\203lE\203lGDGSU\204l\321\343!\210GS\211G\310Y\203\245\311C\203\210BA\211B@\202\212BE\203\231DA\211D@\202\233DD\"FBF\202l\312F\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\361B!\204V\314B!\204s\352H!\204d\314H!\204m\362BH\"\202v\321\363!\202v\321\364!*\207\365U\203\305\n@\nA@IJ\352J!\203\253\352I!\203\253\366I!\203\245\367JI\"\202\303\321\370!\202\303\346J!\203\275\346I!\203\275\321\347!\210\371JIE*\207\372>\203\n@\nA@KL\352L!\204\352L@\334=\204\352\314L!\204\f\352K!\204K@\334=\204\314K!\204\f\373\374\\LK#\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) "\301B\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\304D\207" [vec a calc-record-why vectorp calcFunc-head] 4])
(defalias 'calcFunc-tail #[(vec) "\211:\205	@\300=)\203A\203\300AAB\207\302\303\"\210\304D\207" [vec a calc-record-why vectorp calcFunc-tail] 4])
(defalias 'calcFunc-cons #[(head tail) "\211:\205	@\303=)\203\303\nABB\207\304\305\"\210\306\nE\207" [tail a head vec calc-record-why vectorp calcFunc-cons] 4])
(defalias 'calcFunc-rhead #[(vec) "\211:\205	@\300=)\203$A\203$\302!\211G\303Z\233\304\241\210)\207\305\306\"\210\307D\207" [vec a copy-sequence 2 nil calc-record-why vectorp calcFunc-rhead] 4])
(defalias 'calcFunc-rtail #[(vec) "\211:\205	@\300=)\203A\203GS8\207\302\303\"\210\304D\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\305A\211\203+	A\211\204\306 \210@	@\"\nB\202\2032\306 \210\307\n\237)B\207\305A\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\305A@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\304D\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\3128A@\313>\2033\314\2024\315\"\311\3168A@\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\303A\"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	AS\"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\303A\"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\303A\304\"B\207\305\306\"\210\307D\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\302A	T\"B\207" [row n math-get-diag-step] 4])
(defalias 'math-transpose #[(mat) "\303A@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\nGY\203?\n\233S\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\305A\"\"\207C\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) "\301A@!\203\302\303\304A\"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$	GTU\204$\304	E\207\305	!\203?\203=	\306\234GTU\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\310A\"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\nAT	#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BS\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\233S\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\302A!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\"\210G	GU\204<\313 \210\314A	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\313D\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\312D\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\303A!\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\303A!\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\fW\203W\f\317\fH\203\217
A\211@\202\220	\"I\210\202W\302\320\315\"-B\207\211:\205\252@\302=)\2038\321!\313GS\314\"\nA	\211:\205\312@\302=)	\315\203.@A\314\211\203	@\322\"\323U*\203	TA\211\204\350\317H\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\305A!\306\"\307\211\203*\nA\203*\310\311\n@\n\211A@)\"\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\303D\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@\nBA	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@\nBA\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>@\nBA\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\306A\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!\211A\203*GS8\303\304A@A@\305\"\304	A@\306\"\\\305A@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\307A\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\211A\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\"\211A\203*\304A@\242\305=\203\306A@8\202A@!\203*\307A@\310\"\210\311A\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#FB\202u\f\203\352\332\314!\334FB\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\305D\306!\204%\307\310\"\210\311\312A!\313\"\211	A\203U	@	A@\314\n\"\315U*\203N	\211AA\241\210\202/	A\211\2020)\305B\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\305D\202,\306!\204\"\307\310\"\210\305\311\312A!\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\211A\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\3068\307	8\"\305\3078\306	8\"\"\304\305\3078	A@\"\305A@\307	8\"\"\304\305A@\306	8\"\305\3068	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 (#$ . 35474)])
(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) "\305S\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)
F1l3 Manager
