;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@12 

(fn ARG)
(defalias 'calc-vector-count #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-vector-op "coun" calcFunc-vcount] 4]] 5 (#$ . 156) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-sum #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-hyperbolic calc-vector-op "vprd" calcFunc-vprod "vsum" calcFunc-vsum] 4]] 5 (#$ . 349) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-product #[257 "\300 \210\301
!\207" [calc-hyperbolic-func calc-vector-sum] 3 (#$ . 611) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-max #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-inverse calc-vector-op "vmin" calcFunc-vmin "vmax" calcFunc-vmax] 4]] 5 (#$ . 745) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-min #[257 "\300 \210\301
!\207" [calc-invert-func calc-vector-max] 3 (#$ . 1003) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-mean #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302 \203\303\304\305\300#\207\303\306\307\300#\207\302 \203!\303\310\311\300#\207\303\312\313\300#\207" [V0 calc-is-hyperbolic calc-is-inverse calc-vector-op "harm" calcFunc-vhmean "medn" calcFunc-vmedian "meae" calcFunc-vmeane "mean" calcFunc-vmean] 4]] 5 (#$ . 1130) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-rms #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-vector-op "rms" calcFunc-rms] 4]] 5 (#$ . 1523) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-mean-error #[257 "\300 \210\301
!\207" [calc-invert-func calc-vector-mean] 3 (#$ . 1711) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-median #[257 "\300 \210\301
!\207" [calc-hyperbolic-func calc-vector-mean] 3 (#$ . 1846) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-harmonic-mean #[257 "\300 \210\301 \210\302
!\207" [calc-invert-func calc-hyperbolic-func calc-vector-mean] 3 (#$ . 1981) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-geometric-mean #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302\303\304\300#\207\305\303\306\300#\207" [V0 calc-is-hyperbolic calc-binary-op "geom" calcFunc-agmean calc-vector-op calcFunc-vgmean] 4]] 5 (#$ . 2149) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-sdev #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302 \203\303\304\305\300#\207\303\306\307\300#\207\302 \203!\303\310\311\300#\207\303\312\313\300#\207" [V0 calc-is-hyperbolic calc-is-inverse calc-vector-op "pvar" calcFunc-vpvar "var" calcFunc-vvar "psdv" calcFunc-vpsdev "sdev" calcFunc-vsdev] 4]] 5 (#$ . 2434) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-pop-sdev #[257 "\300 \210\301
!\207" [calc-invert-func calc-vector-sdev] 3 (#$ . 2822) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-variance #[257 "\300 \210\301
!\207" [calc-hyperbolic-func calc-vector-sdev] 3 (#$ . 2955) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-pop-variance #[257 "\300 \210\301 \210\302
!\207" [calc-invert-func calc-hyperbolic-func calc-vector-sdev] 3 (#$ . 3092) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-covariance #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\300\301=\203\n\301\202\302\303 \203\304
\305\306\307!B#\207\310 \203)\304
\311\312\307!B#\207\304
\313\314\307!B#\207" [V0 1 2 calc-is-hyperbolic calc-enter-result "corr" calcFunc-vcorr calc-top-list-n calc-is-inverse "pcov" calcFunc-vpcov "cov" calcFunc-vcov] 7]] 5 (#$ . 3259) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-pop-covariance #[257 "\300 \210\301
!\207" [calc-invert-func calc-vector-covariance] 3 (#$ . 3663) "P"])
#@12 

(fn ARG)
(defalias 'calc-vector-correlation #[257 "\300 \210\301
!\207" [calc-hyperbolic-func calc-vector-covariance] 3 (#$ . 3808) "P"])
#@22 

(fn NAME FUNC ARG)
(defalias 'calc-vector-op #[771 "\301
!\262
\211\302W\203\303\304!\210\305
\306!B#\207" [calc-aborted-prefix prefix-numeric-value 0 error "Negative arguments not allowed" calc-enter-result calc-top-list-n] 9 (#$ . 3954)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vsum #[128 "\300\301\302\303$\207" [math-reduce-many-vecs calcFunc-add calcFunc-vsum 0] 6 (#$ . 4210)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vprod #[128 "\300\301\302\303$\207" [math-reduce-many-vecs calcFunc-mul calcFunc-vprod 1] 6 (#$ . 4359)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vmax #[128 "\211@\242\300=\203\n\301\207\211@\242\302=\203\303\304@!8\207\305\306\307\310$\207" [sdev (var inf var-inf) intv 3 math-fix-int-intv math-reduce-many-vecs calcFunc-max calcFunc-vmax (neg (var inf var-inf))] 6 (#$ . 4510)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vmin #[128 "\211@\242\300=\203\n\301\207\211@\242\302=\203\303\304@!8\207\305\306\307\310$\207" [sdev (neg (var inf var-inf)) intv 2 math-fix-int-intv math-reduce-many-vecs calcFunc-min calcFunc-vmin (var inf var-inf)] 6 (#$ . 4794)])
#@35 

(fn FUNC WHOLE-FUNC VECS IDENT)
(defalias 'math-reduce-many-vecs #[1028 "\301\211\211\211\302\\\203\212@\262
\242\303=\203(\304\3028!\242\305=\203(\3028J\262
\211\242\305=\262
\203U\306\2059C\307!\"\262
\211\203O\310\311	!\305B\"\202P\262\202\203
\211:?\206`\211@\312>\262
\204k\313!\203}\203w\"\202x
\262\202\203C\244\262A\262\202)\203\243\314!\262\203\241B\"\207\207\203\254B\207\207" [calc-internal-prec nil 2 var calc-var-value vec append math-flatten-vector calcFunc-reducer math-calcFunc-to-var (frac float cplx polar hms date sdev intv mod) math-infinitep math-normalize] 12 (#$ . 5078)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vcount #[128 "\300
\203]
@\211\242\301=\262
\203\211\302@!\\\202T
@\211:?\206%\211@\303>\262
\203/\211T\202T
@\242\304=\203O\305\306@8!\242\301=\203O\211\302\306@8J!\\\202T\307@\310\"\262

A\262\202
\207" [0 vec math-count-elements (frac float cplx polar hms date sdev intv mod) var calc-var-value 2 math-reject-arg numvecp] 6 (#$ . 5744)])
#@12 

(fn VEC)
(defalias 'math-count-elements #[257 "\300
A\211\262\203$
@\211\242\301=\262
\203\211\302@!\\\202\211T\262
\202
\207" [0 vec math-count-elements] 5 (#$ . 6145)])
#@13 

(fn VECS)
(defalias 'math-flatten-many-vecs #[257 "\211\300C
\203^\211@\211\242\300=\262
\203\301@!\202T@\211:?\206&\211@\302>\262
\2031@C\202T@\242\303=\203O\304\305@8!\242\300=\203O\301\305@8J!\202T\306@\307\"\244\262

A\262\202\207" [vec math-flatten-vector (frac float cplx polar hms date sdev intv mod) var calc-var-value 2 math-reject-arg numvecp] 7 (#$ . 6332)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vflat #[128 "\300
!\207" [math-flatten-many-vecs] 3 (#$ . 6731)])
#@20 

(fn VEC ZERO-OK)
(defalias 'math-split-sdev-vec #[514 "\300C\300C\301\211A\211\262\203\211@:\203\211@@\302=\203\211\204$\301D\207A\211\262\203z@\211\262:\203Q\211@\302=\203Q
\204$\211A@B\262\303
8B\262\202$\203d\211A@B\262\304B\262\202$
\204r\300C\262\301\262\305\262\211B\262\202$\237\205\202\237D\207" [vec nil sdev 2 0 t] 8 (#$ . 6841)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vmean #[128 "\301\302!\303\"\211@
A@
GS\211\304U\203\305\303\306\"\207\211\307U\2036A@\242\310=\2036\311A@!\312\3138\3148\"\207\315\313\\\203d
\307V\203d\316\317\211#\320\321\316\322\307#\"\323\320\324\316\325\n#\"\"\266\202\202l\323\320\326\"\")!\207" [calc-internal-prec math-split-sdev-vec math-flatten-many-vecs nil 0 math-reject-arg "*Must be at least 1 argument" 1 intv math-fix-int-intv calcFunc-vmean 2 3 math-normalize calcFunc-map (var mul var-mul) calcFunc-reduce (var add var-add) (var div var-div) math-div (var add var-add) (var div var-div) (var add var-add)] 15 (#$ . 7231)])
#@54 Return the root-mean-square of the vector A.

(fn A)
(defalias 'calcFunc-rms #[257 "\300\301\302\303\"!!\207" [math-sqrt calcFunc-vmean calcFunc-map (var abssqr var-abssqr)] 6 (#$ . 7891)])
#@10 

(fn X)
(defalias 'math-fix-int-intv #[257 "\300
!\203\207\301\302A@\303>\203\3048\202\305\3048\306\"A@\307>\203+\3028\2021\310\3028\306\"F\207" [math-floatp intv 3 (2 3) 2 math-add 1 (1 3) math-sub] 7 (#$ . 8088)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vmeane #[128 "\301\302!\303\"\211@
A@
GS\211\304U\203\305\303\306\"\207\307\310\\\203I\311\312\211#\313\314\311\315\316#\"\317\320\313\321\311\322#\"\"\323\320\316\"D\"\266\202\202s\320\313\324\"\"\317
\323\320\325\326\311\327\311\330\311\331\332!#\"\310#\"\333\211S\"\"D\"\262
)!\207" [calc-internal-prec math-split-sdev-vec math-flatten-many-vecs nil 0 math-reject-arg "*Must be at least 1 argument" math-normalize 2 calcFunc-map (var mul var-mul) calcFunc-reduce (var add var-add) (var div var-div) 1 math-make-sdev math-div (var add var-add) (var div var-div) calcFunc-sqrt (var add var-add) calcFunc-reducer (var add var-add) (var pow var-pow) (var abs var-abs) (var add var-add) math-neg math-mul] 22 (#$ . 8325)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vmedian #[128 "\300\301!A!\211
G\211\302\245
\303U\203\304\305\306\"\207
\307U\203*@\242\310>\203*\311@!\207\203[@\242\312=\203=\211@A@\240\210@\211:?\206I\211@\313>\262
\204T\304@\314\"\210A\262\202*\315\316\"\262
\302\246\303U\203x\317\320S88\"\302\"\207\2118\207" [copy-sequence math-flatten-many-vecs 2 0 math-reject-arg nil "*Must be at least 1 argument" 1 (sdev intv) calcFunc-vmean sdev (frac float hms) anglep sort math-lessp math-div math-add] 10 (#$ . 9115)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vgmean #[128 "\301
!\211GS\211\302U\203\303\304\305\"\207\306\307\\\310\311\"\307U\203&\312
!\202.\313
\314\315E\"\262
)!\207" [calc-internal-prec math-flatten-many-vecs 0 math-reject-arg nil "*Must be at least 1 argument" math-normalize 2 calcFunc-reduce (var mul math-mul) math-sqrt math-pow frac 1] 10 (#$ . 9658)])
#@12 

(fn A B)
(defalias 'calcFunc-agmean #[514 "

\302\"\303U\266\202\203
\207\304!\203
\207\304
!\203\207\203%\305 \207
\211:?\2060\211@\306>\262
\204:\307\310\"\207\211\211:?\206E\211@\306>\262
\204O\307
\310\"\207\311	\312\\\313\314!!\262\313\314!!\262\315\316\"\204\201\317\320\"\321\"\262
\322\317\"!\262\211\262\202c\262
)!\207" [calc-symbolic-mode calc-internal-prec math-compare 0 math-zerop math-inexact-result (frac float) math-reject-arg realp math-normalize 2 math-float math-abs nil math-nearly-equal-float math-mul-float math-add-float (float 5 -1) math-sqrt-float] 8 (#$ . 10031)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vhmean #[128 "\301
!\211GS\211\302U\203\303\304\305\"\207\306\307\\\310\311\312\313\314\"\"\")!\207" [calc-internal-prec math-flatten-many-vecs 0 math-reject-arg nil "*Must be at least 1 argument" math-normalize 2 math-div calcFunc-reduce (var add math-add) calcFunc-map (var inv var-inv)] 11 (#$ . 10663)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vvar #[128 "\211G\300U\203$\211@\242\301>\203$\211@\242\302=\203\303
@\304\"\207\305\306@8!\207\307
\304\211\310$\207" [1 (sdev intv) intv math-intv-variance nil math-sqr 2 math-covariance 0] 6 (#$ . 11022)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vsdev #[128 "\211G\300U\2039\211@\242\301>\2039\211@\242\302=\2034\303
@!\203-\304\305\306@8\307@8\"\310 \"\207\311\312@!!\207\307
@8\207\311\313\314\211\315$!\207" [1 (sdev intv) intv math-floatp math-div math-sub 3 2 math-sqrt-12 math-sqrt calcFunc-vvar math-covariance nil 0] 7 (#$ . 11280)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vpvar #[128 "\211G\300U\203$\211@\242\301>\203$\211@\242\302=\203\303
@\304\"\207\305\306@8!\207\307
\310\304\311$\207" [1 (sdev intv) intv math-intv-variance t math-sqr 2 math-covariance nil 0] 6 (#$ . 11628)])
#@19 

(fn &rest VECS)
(defalias 'calcFunc-vpsdev #[128 "\211G\300U\2039\211@\242\301>\2039\211@\242\302=\2034\303
@!\203-\304\305\306@8\307@8\"\310 \"\207\311\312@!!\207\307
@8\207\311\313\314\315\316$!\207" [1 (sdev intv) intv math-floatp math-div math-sub 3 2 math-sqrt-12 math-sqrt calcFunc-vpvar math-covariance nil t 0] 7 (#$ . 11889)])
#@14 

(fn X POP)
(defalias 'math-intv-variance #[514 "\300!\204\301\302\"\210\303!\203 \304\305\306\3078\3108\"!\311\"\207\312!\306\3078\3108\"\313
\310\"\304\314!\203A\315\316\317\320!$\202M\315\321\322\320!\323\324\"$\203X\323\324\"\202Y\"\207" [math-constp math-reject-arg constp math-floatp math-div math-sqr math-sub 3 2 12 math-fix-int-intv math-quotient math-evenp calcFunc-sum (^ (var X var-X) 2) (var X var-X) math-neg (^ (- (var X var-X) (/ 1 2)) 2) (var X var-X) math-add 1] 13 (#$ . 12241)])
#@28 

(fn VEC1 &optional VEC2)
(defalias 'calcFunc-vcov #[513 "\300CC\301\302$\207" [math-covariance nil 1] 7 (#$ . 12772)])
#@28 

(fn VEC1 &optional VEC2)
(defalias 'calcFunc-vpcov #[513 "\300CC\301\302$\207" [math-covariance t 1] 7 (#$ . 12901)])
#@28 

(fn VEC1 &optional VEC2)
(defalias 'calcFunc-vcorr #[513 "\300CC\301\302$\207" [math-covariance nil 2] 7 (#$ . 13029)])
#@27 

(fn VEC1 VEC2 POP MODE)
(defalias 'math-covariance #[1028 "@\204P\211\301U\204P@\242\302=\203)\303\304@8!\242\305=\203)\304@8J\262\202-@\262\306!\2046\307 \210A@G\310U\204B\307 \210\311\304\"C\262\311\312\"C\262\313\304\\\314\315!\316\"\211@
A@\316\211\211\211\211GS\211\f\203t\312\202u\304W\203\207\317\316
\203\204\320\202\205\321\"\210\203\253\322\203\233\323\324	\211#\202\234\301\301\"\262\325\326\323\327\312#\"\262\n\301U\204\320\314\315!\316\"\262@\262\304	8\262\211GSU\204\320\307 \210\323\330	\203\353\331\325\332\323\333#\"\334!\"\202\364\331\335\336
\"[\"#\301U\203
\211\202'
\323\337\203
\331\325\340\323\341
\f#\"\334!\"\202&
\331\335\342\"[\"#\323\343#\2038
\323\344#\262
\331\335\345\"\304U\203v
\323\346\211#\323\347\211#	\203e
\323\350\f#\262\323\351\f#\262
\352\353\335\354\"\335\355\"\"!\266\202\202\236
\203\223
\203\205
\202\236
\331\353S\"\"\202\236
\203\234
\202\236
S\"\266\214)!\207" [calc-internal-prec 0 var calc-var-value 2 vec math-matrixp math-dimension-error 3 math-mat-col 1 math-normalize math-split-sdev-vec math-flatten-many-vecs nil math-reject-arg "*Must be at least 1 argument" "*Must be at least 2 arguments" math-add calcFunc-map (var mul var-mul) calcFunc-reduce (var add var-add) (var div var-div) (var add var-add) math-div (var add var-add) (var div var-div) math-neg calcFunc-reducer (var add var-add) (var add var-add) (var add var-add) (var div var-div) (var add var-add) (var mul var-mul) (var div var-div) (var add var-add) (var mul var-mul) (var mul var-mul) (var div var-div) (var div var-div) math-sqrt math-mul (var add var-add) (var add var-add)] 27 (#$ . 13159)])
(provide 'calc-stat)