Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
calc /
Delete
Unzip
Name
Size
Permission
Date
Action
README
8.41
KB
-rw-r--r--
2013-01-02 20:45
README.prev
30.98
KB
-rw-r--r--
2013-01-01 15:37
calc-aent.elc
26.25
KB
-rw-r--r--
2023-06-07 04:11
calc-alg.elc
47.46
KB
-rw-r--r--
2023-06-07 04:11
calc-arith.elc
80.63
KB
-rw-r--r--
2023-06-07 04:11
calc-bin.elc
21.67
KB
-rw-r--r--
2023-06-07 04:11
calc-comb.elc
28.98
KB
-rw-r--r--
2023-06-07 04:11
calc-cplx.elc
8.44
KB
-rw-r--r--
2023-06-07 04:11
calc-embed.elc
29.32
KB
-rw-r--r--
2023-06-07 04:11
calc-ext.elc
107.11
KB
-rw-r--r--
2023-06-07 04:11
calc-fin.elc
11.78
KB
-rw-r--r--
2023-06-07 04:11
calc-forms.elc
47.54
KB
-rw-r--r--
2023-06-07 04:11
calc-frac.elc
6.07
KB
-rw-r--r--
2023-06-07 04:11
calc-funcs.elc
25.39
KB
-rw-r--r--
2023-06-07 04:11
calc-graph.elc
35.03
KB
-rw-r--r--
2023-06-07 04:11
calc-help.elc
20.46
KB
-rw-r--r--
2023-06-07 04:11
calc-incom.elc
5.22
KB
-rw-r--r--
2023-06-07 04:11
calc-keypd.elc
15.92
KB
-rw-r--r--
2023-06-07 04:11
calc-lang.elc
58.46
KB
-rw-r--r--
2023-06-07 04:11
calc-loaddefs.el
10.05
KB
-rw-r--r--
2023-06-07 04:00
calc-macs.elc
6.03
KB
-rw-r--r--
2023-06-07 04:11
calc-map.elc
28.51
KB
-rw-r--r--
2023-06-07 04:11
calc-math.elc
59.89
KB
-rw-r--r--
2023-06-07 04:11
calc-menu.elc
38.83
KB
-rw-r--r--
2023-06-07 04:11
calc-misc.elc
21.87
KB
-rw-r--r--
2023-06-07 04:11
calc-mode.elc
19.64
KB
-rw-r--r--
2023-06-07 04:11
calc-mtx.elc
6.91
KB
-rw-r--r--
2023-06-07 04:11
calc-nlfit.elc
13.37
KB
-rw-r--r--
2023-06-07 04:12
calc-poly.elc
24.29
KB
-rw-r--r--
2023-06-07 04:12
calc-prog.elc
50.68
KB
-rw-r--r--
2023-06-07 04:12
calc-rewr.elc
39.51
KB
-rw-r--r--
2023-06-07 04:12
calc-rules.elc
17.54
KB
-rw-r--r--
2023-06-07 04:12
calc-sel.elc
19.82
KB
-rw-r--r--
2023-06-07 04:12
calc-stat.elc
13.92
KB
-rw-r--r--
2023-06-07 04:12
calc-store.elc
16.85
KB
-rw-r--r--
2023-06-07 04:12
calc-stuff.elc
7.78
KB
-rw-r--r--
2023-06-07 04:12
calc-trail.elc
4.76
KB
-rw-r--r--
2023-06-07 04:12
calc-undo.elc
3.29
KB
-rw-r--r--
2023-06-07 04:12
calc-units.elc
52.73
KB
-rw-r--r--
2023-06-07 04:12
calc-vec.elc
37.74
KB
-rw-r--r--
2023-06-07 04:12
calc-yank.elc
16.59
KB
-rw-r--r--
2023-06-07 04:12
calc.elc
102.9
KB
-rw-r--r--
2023-06-07 04:12
calcalg2.elc
78.94
KB
-rw-r--r--
2023-06-07 04:12
calcalg3.elc
41.76
KB
-rw-r--r--
2023-06-07 04:12
calccomp.elc
33.11
KB
-rw-r--r--
2023-06-07 04:12
calcsel2.elc
5.98
KB
-rw-r--r--
2023-06-07 04:12
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:12:02 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-stat.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-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-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 \205B C\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>)\2035 T\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 8 B\202) \203c A@\fB\311 B\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]) (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\211 5 6\323\211 7 8\323 9 GS\211 :;\203~ \317\202 \311W\203\221 \324\323;\203\216 \325\202\217 \326\"\2104\204\233 7\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)