Gecko [ 122.154.134.11 ]

Name	Size	Permission
README	7.89 KB	-rw-r--r--
README.prev	31.02 KB	-rw-r--r--
calc-aent.elc	26.85 KB	-rw-r--r--
calc-alg.elc	46.35 KB	-rw-r--r--
calc-arith.elc	81.62 KB	-rw-r--r--
calc-bin.elc	21.53 KB	-rw-r--r--
calc-comb.elc	30.12 KB	-rw-r--r--
calc-cplx.elc	8.5 KB	-rw-r--r--
calc-embed.elc	29.83 KB	-rw-r--r--
calc-ext.elc	108.83 KB	-rw-r--r--
calc-fin.elc	11.84 KB	-rw-r--r--
calc-forms.elc	48.05 KB	-rw-r--r--
calc-frac.elc	5.58 KB	-rw-r--r--
calc-funcs.elc	25.78 KB	-rw-r--r--
calc-graph.elc	35.09 KB	-rw-r--r--
calc-help.elc	19.55 KB	-rw-r--r--
calc-incom.elc	5.29 KB	-rw-r--r--
calc-keypd.elc	15.83 KB	-rw-r--r--
calc-lang.elc	57.72 KB	-rw-r--r--
calc-loaddefs.el	10.61 KB	-rw-r--r--
calc-macs.elc	6.09 KB	-rw-r--r--
calc-map.elc	29.56 KB	-rw-r--r--
calc-math.elc	60.12 KB	-rw-r--r--
calc-menu.elc	32.85 KB	-rw-r--r--
calc-misc.elc	20.54 KB	-rw-r--r--
calc-mode.elc	19.45 KB	-rw-r--r--
calc-mtx.elc	6.77 KB	-rw-r--r--
calc-nlfit.elc	13.59 KB	-rw-r--r--
calc-poly.elc	24.53 KB	-rw-r--r--
calc-prog.elc	51.27 KB	-rw-r--r--
calc-rewr.elc	40.01 KB	-rw-r--r--
calc-rules.elc	17.6 KB	-rw-r--r--
calc-sel.elc	19.83 KB	-rw-r--r--
calc-stat.elc	13.97 KB	-rw-r--r--
calc-store.elc	17.31 KB	-rw-r--r--
calc-stuff.elc	8.07 KB	-rw-r--r--
calc-trail.elc	4.67 KB	-rw-r--r--
calc-undo.elc	3.35 KB	-rw-r--r--
calc-units.elc	37.86 KB	-rw-r--r--
calc-vec.elc	37.25 KB	-rw-r--r--
calc-yank.elc	16.66 KB	-rw-r--r--
calc.elc	101.08 KB	-rw-r--r--
calcalg2.elc	80.01 KB	-rw-r--r--
calcalg3.elc	42.38 KB	-rw-r--r--
calccomp.elc	32.86 KB	-rw-r--r--
calcsel2.elc	6.04 KB	-rw-r--r--

Code Editor : calc-vec.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:39 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-vec.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`calc-vec.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-display-strings #[(n) "\300\301!\207" [calc-do #[nil "\301\302\303\304\211$\203�\305\202�\306!\207" [n message calc-change-mode calc-display-strings t "Displaying vectors of integers as quoted strings" "Displaying vectors of integers normally"] 6]] 2 nil "P"])
(defalias 'calc-pack #[(n) "\300\301!\207" [calc-do #[nil "\203�\306\202	�\307\203�\310!\202�\311\306!\211\211:\205#�@\312=)\2031�\nA\2031�\nA\202=�\n\250\203:�\n\202=�\313\314!\315\n!\316\f	\"\317\320	\f\321#\322\323\n
\"#-\207" [n nn mode a num items 1 2 prefix-numeric-value calc-top-n vec error "Packing mode must be an integer or vector of integers" calc-pack-size calc-top-list calc-enter-result + -1 "pack" calc-pack-items] 7]] 2 nil "P"])
(defalias 'calc-pack-size #[(mode) ":\2032�\302\203#�@\250\204�\303\304!\210	\305@!_A\211\204�	\306U\203/�\303\307!\2020�	)\207\306Y\203:�\207\310\236A\206B�\311\207" [mode size 1 error "Vector of integers expected" calc-pack-size 0 "Zero dimensions not allowed" ((-3 . 3) (-13 . 1) (-14 . 3) (-15 . 6)) 2] 4])
(defalias 'calc-pack-items #[(mode items) ":\203L�A\203F�\306A!\nG\307\211\307@\310V\203>�	S\n\233\n@
A	Z
\307\241\210\311A@\"\fB\202�\311@\f\237\"-\207\311@\n\"\207\310Y\203V�\312\nB\207\313U\203\272�\314\n@!\203\226�\314\nA@!\203\226�\314\315\n8!\203\226�\316\n@!\203\222�\316\nA@!\203\222�\317\315\n8!\203\216�\320\nB\207\321\322!\207\321\323!\207\324\325\211A\326=\203\250�\327\n@\330E\202\252�\n@\327\nA@\331EE\327\315\n8\332EE!\207\333U\203\345�\317\n@!\203\313�\334\nB\207\n@\242\334=\203\326�\n@\207\314\n@!\203\341�\321\335!\207\336\nB\207\337>\203\n\211\203\n\314
@!\203\n\340
@!\204\321\341!\210
A\211\204\361�
\203\336\nB\202\334\342\n!D)\207\n@\242\312=\204,\nA@\242\312=\203\255\n@\211B\242\312=C\nA@\211D\242\312=E\307FC\203NB\202PDGSGC\203lE\203lGDGSU\204l\321\343!\210GS\211G\310Y\203\245\311C\203\210BA\211B@\202\212BE\203\231DA\211D@\202\233DD\"FBF\202l\312F\237.B\207\344U\203\346\317\n@!\203\306\317\nA@!\203\306\345\nB\207\346\n@!\203\331\346\nA@!\203\331\321\347!\210\324\325\n@\327\nA@\350EE!\207\351U\2039\317\n@!\203\377\352\nA@!\203\377\353\nB\207\346\n@!\203\346\nA@!\203\321\347!\210\324\327\n@\352\nA@!\203'\353\354\nA@E\2026\355\327\356\nA@!\353\354\357\307!EEDE!\207\360U\203x\n@\nA@HB\361B!\204V\314B!\204s\352H!\204d\314H!\204m\362BH\"\202v\321\363!\202v\321\364!*\207\365U\203\305\n@\nA@IJ\352J!\203\253\352I!\203\253\366I!\203\245\367JI\"\202\303\321\370!\202\303\346J!\203\275\346I!\203\275\321\347!\210\371JIE*\207\372>\203\n@\nA@KL\352L!\204\352L@\334=\204\352\314L!\204\f\352K!\204�K@\334=\204�\314K!\204\f\373\374\\LK#\202\321\347!*\207\375=\203S\376\nA@!\203#\321\377!\207\340\n@!\203:\340\nA@!\203:\324\201M�\nB!\207\346\n@!\203M\346\nA@!\203M\321\341!\210\201N�\nB\207\201O�>\203\233\317\n@!\203x\340\nA@!\203x\201P�\201Q�\n@!\nA@\"\207\346\n@!\203\213\346\nA@!\203\213\321\341!\210\324\201P�\201R�\n@D\nA@E!\207\321\201S�\"\207" [mode size items len new p calc-pack-size nil 0 calc-pack-items vec -3 math-objvecp 2 math-num-integerp math-realp hms error "Seconds must be real" "Hours and minutes must be integers" math-normalize + rad * (hms 1 0 0) (hms 0 1 0) (hms 0 0 1) -13 date "Date value must be real" calcFunc-date (-14 -15) math-integerp "Components must be integers" math-dt-to-date "Vectors must be the same length" -1 cplx math-objectp "Components must be real" (cplx 0 1) -2 math-anglep polar 1 calcFunc-exp math-to-radians-2 math-quarter-circle -4 math-scalarp math-make-sdev "Error component must be real" "Mean component must be real or complex" -5 math-posp math-make-mod "Modulus must be positive" calcFunc-makemod (-6 -7 -8 -9) math-make-intv 9 -10 math-zerop "Denominator must not be zero" row calc-angle-mode x vx y vy z n sigma m a hi lo frac calcFunc-fdiv (-11 -12) calcFunc-scf math-float calcFunc-float "Invalid packing mode: %d"] 11])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list calc-unpack-with-type default-boundp set-default nil] 3)
(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) "\300\301`\"\207" [calc-do #[nil "\203�\302\303\304\305\306\303!\306\307!\310	!F#\207\302\307\304\305\306\307!\310	!E#\207" [calc-hyperbolic-flag n calc-enter-result 2 "hist" calcFunc-histogram calc-top-n 1 prefix-numeric-value] 8]] 3 nil "NNumber of bins: "])
(defalias 'calc-transpose #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "trn" calcFunc-trn] 4]] 2 nil "P"])
(defalias 'calc-conj-transpose #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "ctrn" calcFunc-ctrn] 4]] 2 nil "P"])
(defalias 'calc-cross #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "cros" calcFunc-cross] 4]] 2 nil "P"])
(defalias 'calc-kron #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "kron" calcFunc-kron] 4]] 2 nil "P"])
(defalias 'calc-remove-duplicates #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "rdup" calcFunc-rdup] 4]] 2 nil "P"])
(defalias 'calc-set-union #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305%\207" [arg calc-binary-op "unio" calcFunc-vunion (vec) calcFunc-rdup] 6]] 2 nil "P"])
(defalias 'calc-set-intersect #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305%\207" [arg calc-binary-op "intr" calcFunc-vint (vec) calcFunc-rdup] 6]] 2 nil "P"])
(defalias 'calc-set-difference #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305%\207" [arg calc-binary-op "diff" calcFunc-vdiff (vec) calcFunc-rdup] 6]] 2 nil "P"])
(defalias 'calc-set-xor #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305%\207" [arg calc-binary-op "xor" calcFunc-vxor (vec) calcFunc-rdup] 6]] 2 nil "P"])
(defalias 'calc-set-complement #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "cmpl" calcFunc-vcompl] 4]] 2 nil "P"])
(defalias 'calc-set-floor #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "vflr" calcFunc-vfloor] 4]] 2 nil "P"])
(defalias 'calc-set-enumerate #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "enum" calcFunc-venum] 4]] 2 nil "P"])
(defalias 'calc-set-span #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "span" calcFunc-vspan] 4]] 2 nil "P"])
(defalias 'calc-set-cardinality #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "card" calcFunc-vcard] 4]] 2 nil "P"])
(defalias 'calc-unpack-bits #[(arg) "\300\301!\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "bpck" calcFunc-vpack "bupk" calcFunc-vunpack] 4]] 2 nil "P"])
(defalias 'calc-pack-bits #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-unpack-bits] 2 nil "P"])
(defalias 'calc-rnorm #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "rnrm" calcFunc-rnorm] 4]] 2 nil "P"])
(defalias 'calc-cnorm #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "cnrm" calcFunc-cnorm] 4]] 2 nil "P"])
(defalias 'calc-mrow #[(n &optional nn) "\300\301!\207" [calc-do #[nil ":\203�\302\303\304\305\306\303!B#\207\307	!\211\310U\203#�\302\311\312\313\314\311!D#\207	\310W\2035�\302\311\315\316\314\311!	[E#\207\302\311\304\305\314\311!	E#\207" [nn n calc-enter-result 2 "mrow" calcFunc-mrow calc-top-list-n prefix-numeric-value 0 1 "getd" calcFunc-getdiag calc-top-n "rrow" calcFunc-mrrow] 7]] 2 nil "NRow number: \nP"])
(defalias 'calc-mcol #[(n &optional nn) "\300\301!\207" [calc-do #[nil ":\203�\302\303\304\305\306\303!B#\207\307	!\211\310U\203#�\302\311\312\313\314\311!D#\207	\310W\2035�\302\311\315\316\314\311!	[E#\207\302\311\304\305\314\311!	E#\207" [nn n calc-enter-result 2 "mcol" calcFunc-mcol calc-top-list-n prefix-numeric-value 0 1 "getd" calcFunc-getdiag calc-top-n "rcol" calcFunc-mrcol] 7]] 2 nil "NColumn number: \nP"])
(defalias 'calcFunc-mdims #[(m) "\301!\204�\302\303\"\210\304\305!B\207" [m math-vectorp math-reject-arg vectorp vec math-mat-dimens] 3])
(defalias 'math-map-vec #[(f a) "\302!\203�\303\304	A\"B\207	!\207" [a f math-vectorp vec mapcar] 4])
(defalias 'math-dimension-error #[nil "\300\301!\210\302\303\304\"\207" [calc-record-why "*Dimension error" signal wrong-type-argument nil] 3])
(defalias 'calcFunc-vec #[(&rest objs) "\301B\207" [objs vec] 2])
(defalias 'calcFunc-cvec #[(obj &rest dims) "\302	\"\207" [obj dims math-make-vec-dimen] 3])
(defalias 'math-make-vec-dimen #[(obj dims) "\2032�\302@!\203,�A\204�\303	!\204$�\304\305\306@\307	A\"\"!B\207\304\306@	\"B\207\310@\311\"\207	\207" [dims obj natnump math-numberp vec copy-sequence make-list math-make-vec-dimen math-reject-arg fixnatnump] 7])
(defalias 'calcFunc-head #[(vec) "\211:\205�	@\300=)\203�A\203�A@\207\302\303\"\210\304D\207" [vec a calc-record-why vectorp calcFunc-head] 4])
(defalias 'calcFunc-tail #[(vec) "\211:\205�	@\300=)\203�A\203�\300AAB\207\302\303\"\210\304D\207" [vec a calc-record-why vectorp calcFunc-tail] 4])
(defalias 'calcFunc-cons #[(head tail) "\211:\205�	@\303=)\203�\303\nABB\207\304\305\"\210\306\nE\207" [tail a head vec calc-record-why vectorp calcFunc-cons] 4])
(defalias 'calcFunc-rhead #[(vec) "\211:\205�	@\300=)\203$�A\203$�\302!\211G\303Z\233\304\241\210)\207\305\306\"\210\307D\207" [vec a copy-sequence 2 nil calc-record-why vectorp calcFunc-rhead] 4])
(defalias 'calcFunc-rtail #[(vec) "\211:\205�	@\300=)\203�A\203�GS8\207\302\303\"\210\304D\207" [vec a calc-record-why vectorp calcFunc-rtail] 4])
(defalias 'calcFunc-rcons #[(head tail) "\211:\205�	@\303=)\203�\304\nC\"\207\305\306\"\210\307\nE\207" [head a tail vec append calc-record-why vectorp calcFunc-rcons] 4])
(defalias 'math-map-vec-2 #[(f a b) "\304!\203R�\304	!\2038�\305A\211\203+�	A\211\204�\306 \210@	@\"\nB\202�\2032�\306 \210\307\n\237)B\207\305A\211\203L�@	\"\nB\202:�\307\n\237)B\207\304	!\203r�\305	A\211\203l�	@\"\nB\202Z�\307\n\237)B\207	\"\207" [a b v f math-vectorp nil math-dimension-error vec] 3])
(defalias 'math-reduce-vec #[(f a) "\303!\203&�A\203$�A\211@A\211\203!�\n	@\"\202�	)\207\304\207\207" [a accum f math-vectorp 0] 3])
(defalias 'math-reduce-cols #[(f a) "\302!\203�\303\304	A\305A@G$B\207\207" [a f math-matrixp vec math-reduce-cols-col-step 1] 6])
(defalias 'math-reduce-cols-col-step #[(f a col cols) "	W\205�\304\n@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) "\301!\203\n�GS\207\302!\203�\303\207\304D\207" [v math-vectorp math-objectp 0 calcFunc-vlen] 2])
(defalias 'calcFunc-mrow #[(mat n) "\211:\205�	@\303=)\203�\304\305\"\207\242\306=\203I�\307!\203I�\310\n\311\3128A@\313>\2033�\314\2024�\315\"\311\3168A@\317>\203E�\315\202F�\314\"#\207\320!\211\250\203X�\314V\204]�\321\322\"\210\n\211:\205h�	@\303=)\204q�\321\n\323\"\210\n8\206{�\321\324\"\207" [n a mat vec math-map-vec #[(x) "\302	\"\207" [mat x calcFunc-mrow] 3] intv math-constp calcFunc-subvec math-add 2 (2 3) 0 1 3 (1 3) math-check-integer math-reject-arg fixposintp vectorp "*Index out of range"] 8])
(defalias 'calcFunc-subscr #[(mat n &optional m) "\303	\"\n\203�\304	!\203�\303\n\"\207\305\n\"\207\207" [mat n m calcFunc-mrow math-num-integerp calcFunc-mcol] 3])
(defalias 'math-mat-col #[(mat n) "\301\302\303A\"B\207" [mat vec mapcar #[(x) "	\234\207" [x n] 2]] 4])
(defalias 'calcFunc-mcol #[(mat n) "\211:\205�	@\303=)\203�\304\305\306\"!\207\242\307=\2033�\310!\2033�\311\n!\203.�\305\312\n\"\207\313\n\"\207\314!\211\250\203B�\315V\204G�\316\317\"\210\n\211:\205R�	@\303=)\204[�\316\n\320\"\210\311\n!\203q�\nA@GW\203w�\321\n\"\202t�\n8\206{�\316\322\"\207" [n a mat vec calcFunc-trn math-map-vec #[(x) "\302	\"\207" [mat x calcFunc-mcol] 3] intv math-constp math-matrixp #[(x) "\302	\"\207" [x n calcFunc-mrow] 3] calcFunc-mrow math-check-integer 0 math-reject-arg fixposintp vectorp math-mat-col "*Index out of range"] 5])
(defalias 'math-mat-less-row #[(mat n) "\302X\203	�	A\207	@\303	AS\"B\207" [n mat 0 math-mat-less-row] 4])
(defalias 'calcFunc-mrrow #[(mat n) "\302!\211\250\205�\303V\205�	GW\205�\304	\"\207" [n mat math-check-integer 0 math-mat-less-row] 3])
(defalias 'math-mat-less-col #[(mat n) "\301\302\303A\"B\207" [mat vec mapcar #[(x) "\302	\"\207" [x n math-mat-less-row] 3]] 4])
(defalias 'calcFunc-mrcol #[(mat n) "\302!\211\250\205'�\303V\205'�\304	!\203#�	A@GW\205'�\305	\"\207\306	\"\207" [n mat math-check-integer 0 math-matrixp math-mat-less-col math-mat-less-row] 3])
(defalias 'calcFunc-getdiag #[(mat) "\301!\203�\302\303A\304\"B\207\305\306\"\210\307D\207" [mat math-square-matrixp vec math-get-diag-step 1 calc-record-why square-matrixp calcFunc-getdiag] 4])
(defalias 'math-get-diag-step #[(row n) "\205�	@8\302A	T\"B\207" [row n math-get-diag-step] 4])
(defalias 'math-transpose #[(mat) "\303A@G	S\211\304V\203�\305	\"\nB\202�\306\n*B\207" [mat col m nil 0 math-mat-col vec] 3])
(defalias 'calcFunc-trn #[(mat) "\301!\203�\302!\203�\303!\207\304!\207\305!\203�\207\306\307\"\207" [mat math-vectorp math-matrixp math-transpose math-col-matrix math-numberp math-reject-arg matrixp] 3])
(defalias 'calcFunc-ctrn #[(mat) "\301\302!!\207" [mat calcFunc-conj calcFunc-trn] 3])
(defalias 'calcFunc-pack #[(mode els) "\211:\205�	@\303=)\204�\304\305\"\210\n\211:\205�	@\303=)\203.�\nA\203.�\nA\2028�\n\250\2048�\304\n\306\"\210\307\310\311\217\207" [els a mode vec math-reject-arg vectorp fixnump err (byte-code "\302!	GSU\203�\303	A\"\207\304	\305\"\207" [mode els calc-pack-size calc-pack-items math-reject-arg "*Wrong number of elements"] 3) ((error (byte-code "\302	A@\"\207" [els err math-reject-arg] 3)))] 4])
(defalias 'calcFunc-unpack #[(mode thing) "\250\204\n�\301\302\"\210\303\304\305\217\207" [mode math-reject-arg fixnump err (byte-code "\302\303	\"B\207" [mode thing vec calc-unpack-item] 4) ((error (byte-code "\302	A@\"\207" [thing err math-reject-arg] 3)))] 3])
(defalias 'calcFunc-unpackt #[(mode thing) "\303\304	\n\")\207" [calc-unpack-with-type mode thing pair calcFunc-unpack] 3])
(defalias 'calcFunc-arrange #[(vec cols) "\305\306\"\307	!\205L�\310	!\301C\311\312X\203 �\n\244\202K�\nGY\203?�\n\233S\n\233\311\241\210\301\nBC\244\f\211\202!�\n\203J�\301\nBC\244+\207" [cols vec flat mat next math-check-fixnum t math-vectorp math-flatten-vector nil 0] 4])
(defalias 'math-flatten-vector #[(vec) "\301!\203�\302\303\304\305A\"\"\207C\207" [vec math-vectorp apply append mapcar math-flatten-vector] 5])
(defalias 'calcFunc-vconcat #[(a b) "\302\303	E!\207" [a b math-normalize |] 4])
(defalias 'calcFunc-vconcatrev #[(a b) "\302\303	E!\207" [b a math-normalize |] 4])
(defalias 'calcFunc-append #[(v1 v2) "\302!\203�\302	!\203�\303	A\"\207\304	E\207" [v1 v2 math-vectorp append calcFunc-append] 3])
(defalias 'calcFunc-appendrev #[(v1 v2) "\302	\"\207" [v2 v1 calcFunc-append] 3])
(defalias 'math-copy-matrix #[(m) "\301A@!\203�\302\303\304A\"B\207\304!\207" [m math-vectorp vec mapcar copy-sequence] 4])
(defalias 'calcFunc-diag #[(a &optional n) "\203
�\250\204
�\302!\303	!\203J�\203$�	GTU\204$�\304	E\207\305	!\203?�\203=�	\306\234GTU\204=�\304	E\207	\207\307\310	A\311	GS#B\207\203Y�\307\310\312	\"\311#B\207\304	D\207" [n a math-check-fixnum math-vectorp calcFunc-diag math-matrixp 1 vec math-diag-step 0 make-list] 5])
(defalias 'calcFunc-idn #[(a &optional n) "\203�\303	!\203�\304	\305\"\207\306	\"\207\n\250\203�\307	\n\"\207\307	D\207" [n a calc-matrix-mode math-vectorp math-reject-arg numberp calcFunc-diag calcFunc-idn] 3])
(defalias 'math-mimic-ident #[(a m) "\302!\203
�\303	GS\"\207\304!\203$�\305	!\203!�\306\307\310A\"B\207\311 \207\303	!\207" [m a math-square-matrixp calcFunc-idn math-vectorp math-zerop vec mapcar #[(x) "\302!\203�\303	\"\207	\207" [x a math-vectorp math-mimic-ident] 3] math-dimension-error] 4])
(defalias 'math-diag-step #[(a n m) "	W\205�\303\304\305\"\n@\304	ZS\305\"B\244B\306\nAT	#B\207" [n m a vec make-list 0 math-diag-step] 6])
(defalias 'calcFunc-index #[(n &optional start incr) "\305!\203�\306\307\310!	\n#!\207\250\204�\311!\312	\203]�\313Y\203>�S\211\313Y\203W�	B\314	\n\2069�\315\"\202%�T\211\313X\203W�	B\316	\n\206R�\317\"\202>�\237\202\210�\313Y\203t�\313V\203\210�BS\211\202d�\320\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�\306\307\"\202\f�\310\211\310W\203�\311\312\"\210	\233	\203;�	@\313
\f\"\314U*\204;�\nT	A\211\204\"�	\203C�\n\202D�\314)\207" [start vec n x b a math-check-fixnum t 1 math-reject-arg posp math-compare 0] 4])
(defalias 'calcFunc-subvec #[(vec start &optional end) "\305\306\"\305	\206�\307\306\"\310\n!\204�\311\n\312\"\210\nGS\307X\203)�\313\314#	\307X\2035�\313	\314#V\204A�	X\203E�\315\202c�\n\233	X\203`�\316	\314#\317\n!\211\233\211\320\241\210)\302\nB)\207" [start end vec len chop math-check-fixnum t 0 math-vectorp math-reject-arg vectorp + 1 (vec) - copy-sequence nil] 5])
(defalias 'calcFunc-rsubvec #[(vec start &optional end) "\306\307\"\306	\206�\310\307\"\311\n!\204�\312\n\313\"\210\nGS\310X\203)�\314\315#	\310X\2035�\314	\315#V\204A�	X\203E�\n\202[�	\n\233S\316\n!\211\233\f\317\241\210\320\n
\"*)\207" [start end vec len chop tail math-check-fixnum t 0 math-vectorp math-reject-arg vectorp + 1 copy-sequence nil append] 4])
(defalias 'calcFunc-rev #[(vec) "\301!\203
�\300\302A!B\207\303\304\"\207" [vec math-vectorp reverse math-reject-arg vectorp] 3])
(defalias 'calcFunc-vmask #[(mask vec) "\303!\203�\304!\203�\305\207	\207\306!\204�\307\310\"\210\311!\204&�\307\312\"\210\306	!\2041�\307	\310\"\210G	GU\204<�\313 \210\314A	A\211\203W�\304@!\204>�	@\nB\202>�\301\n\237)B\207" [mask vec new math-numberp math-zerop (vec) math-vectorp math-reject-arg vectorp math-constp constp math-dimension-error nil] 3])
(defalias 'calcFunc-vexp #[(mask vec &optional filler) "\305!\204�\306\307\"\210\310!\204�\306\311\"\210\305	!\204!�\306	\307\"\210\312\n\205)�\305\n!A\211\203a�\313@!\203Q�\203E�\nA\211@\202F�\n\206K�@\fB\202+�	A\211@\206[�@\fB\202+�\301\f\237*B\207" [mask vec filler fvec new math-vectorp math-reject-arg vectorp math-constp constp nil math-zerop] 4])
(defalias 'calcFunc-rnorm #[(a) "\211:\205�@\301=)\203+�\302!\203+�\303!\203#�\304\305\306\307\"\"\207\304\305\306\310\"\"\207\311\312\"\210\313D\207" [a vec math-constp math-matrixp math-reduce-vec math-max math-map-vec calcFunc-cnorm math-abs calc-record-why vectorp calcFunc-rnorm] 6])
(defalias 'calcFunc-cnorm #[(a) "\211:\205�@\301=)\203(�\302!\203(�\303!\203#�\304\305\306\307\"\"\207\304\307\"\207\310\311\"\210\312D\207" [a vec math-constp math-matrixp math-reduce-vec math-max math-reduce-cols math-add-abs calc-record-why vectorp calcFunc-cnorm] 6])
(defalias 'math-add-abs #[(a b) "\302\303!\303	!\"\207" [a b math-add math-abs] 4])
(defalias 'calcFunc-sort #[(vec) "\301!\203�\300\302\303A!\304\"B\207\305\306\"\207" [vec math-vectorp sort copy-sequence math-beforep math-reject-arg vectorp] 4])
(defalias 'calcFunc-rsort #[(vec) "\301!\203�\300\302\303A!\304\"\237B\207\305\306\"\207" [vec math-vectorp sort copy-sequence math-beforep math-reject-arg vectorp] 4])
(defalias 'calcFunc-grade #[(math-grade-vec) "\302!\203�GS\303\304\305	!A\306\")B\207\307\310\"\207" [math-grade-vec len math-vectorp vec sort calcFunc-index math-grade-beforep math-reject-arg vectorp] 4])
(defalias 'calcFunc-rgrade #[(math-grade-vec) "\302!\203�GS\303\304\305	!A\306\"\237)B\207\307\310\"\207" [math-grade-vec len math-vectorp vec sort calcFunc-index math-grade-beforep math-reject-arg vectorp] 4])
(defalias 'math-grade-beforep #[(i j) "\303	8\n	8\"\207" [i math-grade-vec j math-beforep] 4])
(defalias 'calcFunc-histogram #[(vec wts &optional n) "\204�	\306\n\211:\205�@\302=)\204�\307\n\310\"\210	\211:\205'�@\302=)\2036�\nG	GU\2046�\311 \210\312!\204A�\307\313\"\210\314\315\"\n	\211:\205Q�@\302=)	\316A\211\203\233�@\312\f!\204s�\317\f!\312\f!\203\\�\fW\203\\�\f\320\fH\203\224�
A\211@\202\225�	\"I\210\202\\�\302\321\316\"-B\207" [n wts vec a bin wp 1 math-reject-arg vectorp math-dimension-error natnump fixnatnump make-vector 0 nil math-floor math-add append wvec vp res] 7])
(defalias 'calcFunc-vunion #[(a b) "\211:?\206\f�@\302>)\203�\303D\202\"�\304!\204\"�\305\306\"\210	\211:?\206.�@\302>)\2038�	C\202F�\304	!\204C�\305	\306\"\210	A\307\310	\"!\207" [a b (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-vectorp math-reject-arg vectorp calcFunc-rdup append] 5])
(defalias 'calcFunc-vint #[(a b) "\303!\203S�\303	!\203S�\304!A\304	!A\302C\203O�	\203O�\305@	@\"\2031�A\211\202�@	@\306	\"\307U*\203I�@\nBA	A\202�\n\237)\207\310\311\310!\310	!\"!\207" [a b vec math-simple-set calcFunc-rdup math-beforep math-compare 0 calcFunc-vcompl calcFunc-vunion] 6])
(defalias 'calcFunc-vdiff #[(a b) "\303!\203^�\303	!\203^�\304!A\304	!A\302C\203Z�	\2031�\305	@@\"\2031�	A\211\204!�	\203N�@	@\306	\"\307U*\203N�A	A\202�@\nBA\211\204�\n\237)\207\310\311\310!	\"!\207" [a b vec math-simple-set calcFunc-rdup math-beforep math-compare 0 calcFunc-vcompl calcFunc-vunion] 5])
(defalias 'calcFunc-vxor #[(a b) "\305!\203g�\305	!\203g�\306!A\306	!A\302C\204!�	\203c�\203>�	\2032�\307@	@\"\203>�@\nBA\211\202�\203X�@	@\310	\"\311U*\203X�A\202]�	@\nB	A\202�\n\237)\207\312!\312	!\313\312\313\f	\"!\312\313\"!\"*\207" [a b vec cb ca math-simple-set calcFunc-rdup math-beforep math-compare 0 calcFunc-vcompl calcFunc-vunion] 7])
(defalias 'calcFunc-vcompl #[(a) "\304!\303C\305\306A\211\203U�\306@8\307\232\203$�@A@\310>\204>�\311	@A@\312>\2033�\313\2024�\314\\\n\306@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\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\"\3118\324\n\"\325U*\203\215�\311\233\n\240\210\202�\n\324\n\"\326U*\204�\327	\nF\211
B\202�
\237\330
\"-\207" [a mask b prev p vec math-prepare-set nil 2 3 (0 1) math-infinitep logior math-num-integerp math-add 1 math-ceiling (0 2) math-sub math-floor math-compare 0 -1 intv math-clean-set always-vec] 5])
(defalias 'calcFunc-vcard #[(a) "\302\303\"\304!\204�\305\306\"\210\307A\211\2037�@\242\310=\203/�\311	\312\313@8\314@8\"\"\311	\315\"\202�	)\207" [a count calcFunc-vfloor t math-constp math-reject-arg "*Set must be finite" 0 intv math-add math-sub 3 2 1] 6])
(defalias 'calcFunc-venum #[(a) "\306\307\"\310!\204�\311\312\"\210\211A\313\211\313\n\203W�\nA\n@\211\242\314=\203O�\315\316\317\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\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!\211\203/�\316\317\"\2020�\211\320=\203;�\321\202J�\f:\203G�\322\fA!\202J�\323\f!\203S�\324\202T�\325\203^�\325\202_�\324
G \326C S!\327\"!\320Y\203\325�
!H=\203\213�!S\211!\202s�!\"!\320Y\203\251�
!H=\203\251�!S\211!\202\221�!\"SU\203\274�\330 \"\331#\202\315�\332\333\330 \"\331#\330 !\314#FB\202q�\203\344�\332\314 \334FB\335\237!.\n\207" [a w calc-number-radix neg aa str math-num-integerp math-reject-arg integerp math-clip math-messy-integerp math-trunc 2 math-negp math-sub -1 0 "" math-format-bignum-binary math-format-binary 49 48 vec nil - 1 intv 3 (var inf var-inf) math-clean-set zero one len pos pos2] 8])
(defalias 'calcFunc-rdup #[(a) "\303!\203Z�\211:?\206�@\304>)\203�\305D\306!\204%�\307\310\"\210\311\312A!\313\"\211	A\203U�	@	A@\314\n\"\315U*\203N�	\211AA\241\210\202/�	A\211\2020�)\305B\207\316\317!!\207" [a p b math-simple-set (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-vectorp math-reject-arg vectorp sort copy-sequence math-beforep math-compare 0 math-clean-set math-prepare-set] 4])
(defalias 'math-prepare-set #[(a) "\211:?\206\f�@\304>)\203�\305D\202,�\306!\204\"�\307\310\"\210\305\311\312A!\313\"B\314\nA\203\306�\nA@\242\315=\203\200�\316\nA@!\203v�\nA@A@\317>\203o�\320\nA@8\321\nA@8\322\"\323U*\203o�\n\211AA\241\210\2020�\nA\211\2021�\307\nA@\324\"\210\2020�\nA@\211:?\206\216�@\325>)\204\262�\nA@@\326=\204\262�\nA@\327\232\204\262�\nA@\330\232\204\262�\307\nA@\331\"\210\nA\315\321\nA@\nA@F\240\210\nA\211\2021�\nAA\203\201\322\321\nA@8\320\211\n88\"\211\332>\204\373�	\323=\203\nA@A@\333>\203\320\n8A@\334>\203\nA\211\202\311�\322\321\nA@8\321\320\n88\"\n\315\335\336\nA@A@\320\nA@8\320\211\n88\322\"\323U*\2036\320\n8A@\2027\323\"\320\"\335\336	\337>\203J\nA@A@\202K\323	\340>\203Y\320\n8A@\202Z\323\"\341\"\\\320\nA@8	\341=\203q\321\nA@8\202v\321\320\n88F\nAAAB\241\210\202\310�*\207" [a res p b (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-vectorp math-reject-arg vectorp sort copy-sequence math-beforep nil intv math-intv-constp (0 1 2) 2 3 math-compare 0 constp (bigpos bigneg frac float hms) date (var inf var-inf) (neg (var inf var-inf)) realp (-1 2) (0 2) (0 1) logand logior (1 0 2) (-1 0 2) 1] 10])
(defalias 'math-clean-set #[(a &optional always-vec) "\305\211A\2038�\nA@\242\306=\2031�\307\nA@8\310\nA@8\311\"\312U*\2031�\nA\307\nA@8\240\210\nA\211\202�AA\204Q�A@\242\306=\203Q�\f\204Q�A@\202R�*\207" [a res p b always-vec nil intv 2 3 math-compare 0] 4])
(defalias 'math-simple-set #[(a) "\211:?\206\f�@\301>)\203�\242\302=?\2068�\211:\205#�@\303=)\2058�A\211\2036�@\242\302=\203'�?\207" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod) intv vec] 3])
(defalias 'calcFunc-cross #[(a b) "\242\302=\203Z�G\303U\203Z�	\242\302=\203U�	G\303U\203U�\302\304\305\3068\307	8\"\305\3078\306	8\"\"\304\305\3078	A@\"\305A@\307	8\"\"\304\305A@\306	8\"\305\3068	A@\"\"F\207\310	\311\"\207\310\311\"\207" [a b vec 4 math-sub math-mul 2 3 math-reject-arg "*Three-vector expected"] 8])
#@338 The Kronecker product of objects X and Y.
The objects X and Y may be scalars, vectors or matrices.
The type of the result depends on the types of the operands;
the product of two scalars is a scalar,
of one scalar and a vector is a vector,
of two vectors is a vector.
of one vector and a matrix is a matrix,
of two matrices is a matrix.
(defalias 'calcFunc-kron #[(x y &optional nocheck) "\204c�\306	!\204�\306\n!\203C�\306	!\204(�\307	!\203\"�\310	D\202'�\310\211	DD\306\n!\204c�\307\n!\203:�\310\nD\202?�\310\211\nDD\202c�\307	!\204O�\307\n!\203c�\307	!\204Y�\310	D\307\n!\204c�\310\nD\307	!\203\244�\311	A\311\211\203\235�
@\nA\311
\211\203\225�
@
\312\f
\313#B
A\211\204\201�*
A\211\204t�*\310\237)B\207\314	\n\"\207" [nocheck x y ret v --dolist-tail-- math-matrixp math-vectorp vec nil calcFunc-kron t math-mul w] 5 (#$ . 34972)])
(defalias 'math-read-brackets #[(space-sep math-rb-close) "\203�\306 ?\307 \210	\310=\203�\307 \210\202�\n\232\204#�	\311=\203(�\307 \210\312\207\f
	\n!\n\313\232\204;�\n\314\232\203?�\315\202B�\316\317\215)\"#$%&\";\203\255�\203\247�\f
\320'()&%$#\320!\316\321\215')';\204\227�\322\n\323\"\204\216�\n\232\204\216�	\311=\203\227�\320'\"\202\243�)(\324\316\"\"\210+\202\255�\324\316\"\"\210\n\313\232\204\271�\n\314\232\203\307 \210\"G\325V\203\314�\326\"AB\202\320�\"A@\"\n\232\204\344�\n\327\232\204\344�	\311=\203\350�\330\202\353�\331\332!*\333\n\327\232\203\370�\325\202\371�\334\"*F\")\n\232\204?\n\327\232\204?	\311=\204?\324\316\335\"\210\202?\n\336\232\203.!\337\340\"C!B\")\n\232\204?	\311=\204?\324\316\335\"\210	\311=\204H\307 \210\"-\207" [space-sep math-exp-token math-expr-data math-rb-close math-exp-pos math-exp-old-pos math-check-for-commas math-read-token space end (vec) "\\dots" "\\ldots" (vec (neg (var inf var-inf))) syntax (math-read-vector) nil (math-read-vector) assoc (("\\ldots") ("\\dots") (";")) throw 2 calcFunc-mul ")" (var inf var-inf) math-read-expr-level 0 intv 3 "Expected `]'" ";" vec math-read-matrix math-exp-keep-spaces vals save-exp-data save-exp-token save-exp-old-pos save-exp-pos vals2 error-exp-old-pos error-exp-pos exp2] 6])
(defalias 'math-check-for-commas #[(&optional balancing) "\305S\n\305Y\203N�\306\203�\307\202�\310\f	T#\211\203N�\f	H\311U\2030�\n\305V\2040�\203N�\f	H\312>\203?�\nT\211\202�\f	H\313>\203�\nS\211\202�\203V�	\202_�	\205_�\f	H\311U*\207" [math-exp-pos pos count balancing math-exp-str 0 string-match "[],[{}()<>]" "[],[{}()]" 44 (91 123 40 60) (93 125 41 62)] 5])
(defalias 'math-read-vector #[nil "\306\307!C\211\n\310=\203�\311 \210\202�\n\312=\204U�\313\232\204U�\f\232\204U�\314\232\204U�\315\232\204U�\316\232\203:�\311 \210\n\310=\203F�\311 \210\202:�\306\307!C	
\241\210
)\202�\317*B\207" [val last math-exp-token math-expr-data math-rb-close rest math-read-expr-level 0 space math-read-token end ";" "\\dots" "\\ldots" "," vec] 3])
(defalias 'math-read-matrix #[(mat) "\303\232\203�\304 \210	\305=\203�\304 \210\202	�\n\306 C\244\202��\n\207" [math-expr-data math-exp-token mat ";" math-read-token space math-read-vector] 2])
(provide 'calc-vec)

${this.title}

Code Editor : calc-vec.elc