HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/calc/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/calc/calc-stat.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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-vector-count #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-vector-op "coun" calcFunc-vcount] 4]] 3 nil "P"])
(defalias 'calc-vector-sum #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-vector-op "vprd" calcFunc-vprod "vsum" calcFunc-vsum] 4]] 3 nil "P"])
(defalias 'calc-vector-product #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-vector-sum] 2 nil "P"])
(defalias 'calc-vector-max #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-vector-op "vmin" calcFunc-vmin "vmax" calcFunc-vmax] 4]] 3 nil "P"])
(defalias 'calc-vector-min #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-vector-max] 2 nil "P"])
(defalias 'calc-vector-mean #[(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-hyperbolic calc-is-inverse calc-vector-op "harm" calcFunc-vhmean "medn" calcFunc-vmedian "meae" calcFunc-vmeane "mean" calcFunc-vmean] 4]] 3 nil "P"])
(defalias 'calc-vector-rms #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-vector-op "rms" calcFunc-rms] 4]] 3 nil "P"])
(defalias 'calc-vector-mean-error #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-vector-mean] 2 nil "P"])
(defalias 'calc-vector-median #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-vector-mean] 2 nil "P"])
(defalias 'calc-vector-harmonic-mean #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-vector-mean] 2 nil "P"])
(defalias 'calc-vector-geometric-mean #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\305\303\306#\207" [arg calc-is-hyperbolic calc-binary-op "geom" calcFunc-agmean calc-vector-op calcFunc-vgmean] 4]] 3 nil "P"])
(defalias 'calc-vector-sdev #[(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-hyperbolic calc-is-inverse calc-vector-op "pvar" calcFunc-vpvar "var" calcFunc-vvar "psdv" calcFunc-vpsdev "sdev" calcFunc-vsdev] 4]] 3 nil "P"])
(defalias 'calc-vector-pop-sdev #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-vector-sdev] 2 nil "P"])
(defalias 'calc-vector-variance #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-vector-sdev] 2 nil "P"])
(defalias 'calc-vector-pop-variance #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-vector-sdev] 2 nil "P"])
(defalias 'calc-vector-covariance #[(arg) "\300\301`\"\207" [calc-do #[nil "\302=\203\n\302\202\303\304 \203\305	\306\307\310	!B#\2027\311 \203.\305	\312\313\310	!B#\2027\305	\314\315\310	!B#)\207" [arg n 1 2 calc-is-hyperbolic calc-enter-result "corr" calcFunc-vcorr calc-top-list-n calc-is-inverse "pcov" calcFunc-vpcov "cov" calcFunc-vcov] 6]] 3 nil "P"])
(defalias 'calc-vector-pop-covariance #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-vector-covariance] 2 nil "P"])
(defalias 'calc-vector-correlation #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-vector-covariance] 2 nil "P"])
(defalias 'calc-vector-op #[(name func arg) "\304\n!\211\305W\203\306\307!\210\310\n\311\n!B#\207" [name calc-aborted-prefix arg func prefix-numeric-value 0 error "Negative arguments not allowed" calc-enter-result calc-top-list-n] 7])
(defalias 'calcFunc-vsum #[(&rest vecs) "\301\302\303\304$\207" [vecs math-reduce-many-vecs calcFunc-add calcFunc-vsum 0] 5])
(defalias 'calcFunc-vprod #[(&rest vecs) "\301\302\303\304$\207" [vecs math-reduce-many-vecs calcFunc-mul calcFunc-vprod 1] 5])
(defalias 'calcFunc-vmax #[(&rest vecs) "@\242\301=\203\n\302\207@\242\303=\203\304\305@!8\207\306\307\310\311$\207" [vecs sdev (var inf var-inf) intv 3 math-fix-int-intv math-reduce-many-vecs calcFunc-max calcFunc-vmax (neg (var inf var-inf))] 5])
(defalias 'calcFunc-vmin #[(&rest vecs) "@\242\301=\203\n\302\207@\242\303=\203\304\305@!8\207\306\307\310\311$\207" [vecs sdev (neg (var inf var-inf)) intv 2 math-fix-int-intv math-reduce-many-vecs calcFunc-min calcFunc-vmin (var inf var-inf)] 5])
(defalias 'math-reduce-many-vecs #[(func whole-func vecs ident) "\306\211\211\211\f\307\\
\203\222
@\211\242\310=\203*\311\307	8!\242\300=\203*\307	8J	\211:\2057@\300=)\203]\312\205BC\313	!\"\211\203W\314\315!\300B\"\202Y\202\213	\211:?\206k@\316>)\204u\317	!\203\206\203\201	\"\202\202	\202\213\n	C\244
A\211\204)\203\256\320!\n\203\252\nB\"\202\273\202\273\n\203\271\nB\202\273,\207" [vec val symb-part const-part calc-internal-prec vecs nil 2 var calc-var-value append math-flatten-vector calcFunc-reducer math-calcFunc-to-var (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-infinitep math-normalize a func ident whole-func] 5])
(defalias 'calcFunc-vcount #[(&rest vecs) "\303	\203b	@\211:\205\n@\304=)\203\305	@!\\\202Z	@\211:?\206,\n@\306>)\2035T\202Z	@\242\307=\203U\310\311	@8!\242\304=\203U\305\311	@8J!\\\202Z\312	@\313\"	A\211\204)\207" [count vecs a 0 vec math-count-elements (bigpos bigneg frac float cplx polar hms date sdev intv mod) var calc-var-value 2 math-reject-arg numvecp] 5])
(defalias 'math-count-elements #[(vec) "\303	A\211\203(	@\211:\205\n@\301=)\203\"\304	@!\\\202$T\202)\207" [count vec a 0 math-count-elements] 4])
(defalias 'math-flatten-many-vecs #[(vecs) "\301C\211\203d	\n@\211:\205@\301=)\203!\304\n@!\202[\n@\211:?\206.@\305>)\2038\n@C\202[\n@\242\306=\203V\307\310\n@8!\242\301=\203V\304\310\n@8J!\202[\311\n@\312\"\244\nA\211\204		*\207" [vecs vec p a math-flatten-vector (bigpos bigneg frac float cplx polar hms date sdev intv mod) var calc-var-value 2 math-reject-arg numvecp] 5])
(defalias 'calcFunc-vflat #[(&rest vecs) "\301!\207" [vecs math-flatten-many-vecs] 2])
(defalias 'math-split-sdev-vec #[(vec zero-ok) "\300C\300C\306	A\211\203	@:\203\n	@@\307=\203\n	\204)\306D\202~A\211\203u@\211:\203R	@\307=\203R\n\204)	A@\fB\310	8B\202)
\203c	A@\fB\311B\202)\n\204n\300C\306\312	\fB\202)\f\237\205}\237D,\207" [vec p exact wts means zero-ok nil sdev 2 0 t] 4])
(defalias 'calcFunc-vmean #[(&rest vecs) "\306\307!\310\"\211@	A@\nGS\211\311U\203\312\310\313\"\202}\f\314U\203@\nA@\242\315=\203@\316\nA@!\317\320
8\321
8\")\202}\322\320\\\203t\f\314V\203t\323\324\211#\325\326\323\327\314#\"\330\325\331\323\332\n#\"\"*\202{\330\325\333\n\"\f\")!,\207" [vecs split means wts len x 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) calc-internal-prec sqrwts suminvsqrwts] 9])
#@46 Return the root-mean-square of the vector A.
(defalias 'calcFunc-rms #[(a) "\301\302\303\304\"!!\207" [a math-sqrt calcFunc-vmean calcFunc-map (var abssqr var-abssqr)] 5 (#$ . 7517)])
(defalias 'math-fix-int-intv #[(x) "\301!\203\207\302\303A@\304>\203\3058\202\306\3058\307\"A@\310>\203,\3038\2022\311\3038\307\"F\207" [x math-floatp intv 3 (2 3) 2 math-add 1 (1 3) math-sub] 6])
(defalias 'calcFunc-vmeane #[(&rest vecs) "\306\307!\310\"\211@	A@\nGS\211\311U\203\312\310\313\"\202\314
\315\\\203T\316\317\211#!\320\321\316\322\323!#\"\"\324\325\320\326\316\327\n!#\"\"\"\330\325\323\"\"D\"*\202}\325\320\331\n\"\f\"#\324#\330\325\332\333\316\334\316\335\316\336\n\337#!#\"\315#\"\340\f\211S\"\"D\"))!,\207" [vecs split means wts len 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 sqrwts suminvsqrwts mean] 17])
(defalias 'calcFunc-vmedian #[(&rest vecs) "\306\307!A!\211	G\211\310\245\311U\203\312\313\314\"\202\202\315U\2032	@\242\316>\2032\317	@!\202\202\n\203c\n@\242\320=\203E\n\211@A@\240\210\n@\211:?\206R
@\321>)\204\\\312\n@\322\"\210\nA\211\2046\323	\324\"\310\246\311U\203\325\326\fS	8\f	8\"\310\"\202\202\f	8,\207" [vecs flat p len hlen a copy-sequence math-flatten-many-vecs 2 0 math-reject-arg nil "*Must be at least 1 argument" 1 (sdev intv) calcFunc-vmean sdev (bigpos bigneg frac float hms) anglep sort math-lessp math-div math-add] 6])
(defalias 'calcFunc-vgmean #[(&rest vecs) "\305!\211GS\211\306U\203\307\310\311\"\2024\312\313\\\314\315	\"\n\313U\203+\316\f!\2022\317\f\320\321\nE\"*!*\207" [vecs flat len calc-internal-prec x 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] 7])
(defalias 'calcFunc-agmean #[(a b) "	\305	\"\306U*\203\207\307!\203\207\307	!\203 	\207\n\203'\310 \207\211:?\2063@\311>)\204<\312\313\"\207	\211:?\206H@\311>)\204Q\312	\313\"\207\314\315\\\316\317!!\316\317	!!\320\321	\"\204\322\323	\"\324\"\325\322	\"!\f\202d*!\207" [a b calc-symbolic-mode calc-internal-prec mean math-compare 0 math-zerop math-inexact-result (bigpos bigneg 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] 6])
(defalias 'calcFunc-vhmean #[(&rest vecs) "\304!\211GS\211\305U\203\306\307\310\"\202&\311\312\\\313\n\314\315\316\317	\"\"\")!*\207" [vecs flat len 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)] 9])
(defalias 'calcFunc-vvar #[(&rest vecs) "G\301U\203$@\242\302>\203$@\242\303=\203\304@\305\"\207\306\307@8!\207\310\305\211\311$\207" [vecs 1 (sdev intv) intv math-intv-variance nil math-sqr 2 math-covariance 0] 5])
(defalias 'calcFunc-vsdev #[(&rest vecs) "G\301U\2039@\242\302>\2039@\242\303=\2034\304@!\203-\305\306\307@8\310@8\"\311 \"\207\312\313@!!\207\310@8\207\312\314\315\211\316$!\207" [vecs 1 (sdev intv) intv math-floatp math-div math-sub 3 2 math-sqrt-12 math-sqrt calcFunc-vvar math-covariance nil 0] 6])
(defalias 'calcFunc-vpvar #[(&rest vecs) "G\301U\203$@\242\302>\203$@\242\303=\203\304@\305\"\207\306\307@8!\207\310\311\305\312$\207" [vecs 1 (sdev intv) intv math-intv-variance t math-sqr 2 math-covariance nil 0] 5])
(defalias 'calcFunc-vpsdev #[(&rest vecs) "G\301U\2039@\242\302>\2039@\242\303=\2034\304@!\203-\305\306\307@8\310@8\"\311 \"\207\312\313@!!\207\310@8\207\312\314\315\316\317$!\207" [vecs 1 (sdev intv) intv math-floatp math-div math-sub 3 2 math-sqrt-12 math-sqrt calcFunc-vpvar math-covariance nil t 0] 6])
(defalias 'math-intv-variance #[(x pop) "\304!\204\305\306\"\210\307!\203\310\311\312\3138\3148\"!\315\"\207\316!\312\3138\3148\"\317	\314\"\310\320	!\203C\321\322\323\324\n!\n$\202N\321\325\326\324\n!\327\n\330\"$\203Y\327	\330\"\202Z	\"+\207" [x len hlen pop 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] 8])
(defalias 'calcFunc-vcov #[(vec1 &optional vec2) "\302C	C\303\304$\207" [vec1 vec2 math-covariance nil 1] 5])
(defalias 'calcFunc-vpcov #[(vec1 &optional vec2) "\302C	C\303\304$\207" [vec1 vec2 math-covariance t 1] 5])
(defalias 'calcFunc-vcorr #[(vec1 &optional vec2) "\302C	C\303\304$\207" [vec1 vec2 math-covariance nil 2] 5])
(defalias 'math-covariance #[(vec1 vec2 pop mode) "@\204L	\306U\204L\n@\242\307=\203(\310\311\n@8!\242\312=\203(\311\n@8J\202+\n@\313\n!\2044\314 \210\nA@G\315U\204@\314 \210\316\n\311\"C\316\n\317\"C\320\311\\\321\322\n!\323\"\211@\fA@4\323\21156\323\21178\3239
GS\211:;\203~\317\202\311W\203\221\324\323;\203\216\325\202\217\326\"\2104\204\2337\203\310\3274\203\252\330\3314\211#\202\253\3067\203\271\330\3327\211#\202\272\306\"8\333\334\330\335\3178#\"9	\306U\204\354\321\322!\323\"\2115@6\311\f87:6GSU\204\354\314 \210\330\336
8\203\337\333\340\330\341
8#\"\3429!\"\202\337\343\344
\":[\"#<	\306U\203<\202D\330\34568\2039\337\333\346\330\34768#\"\3429!\"\202C\337\343\3506\":[\"#=\330\351<=#>8\203]\330\352>8#>\337\343\353>\"	\311U\203\242\330\354<\211#\330\355=\211#?@8\203\220\330\356@8#@\330\357?8#?\360\361\343\362@\"\343\363?\"\"!*\202\3148\203\277;\203\2619\202\314\337\3619:S\":\"\202\314;\203\311:\202\314:S\".
!\207" [vec2 mode vec1 calc-internal-prec split1 means1 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) (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) wts1 split2 means2 wts2 sqrwts suminvsqrwts len pop diff1 diff2 covar var2 var1] 12])
(provide 'calc-stat)