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



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defvar math-scalar-functions '(calcFunc-det calcFunc-cnorm calcFunc-rnorm calcFunc-vlen calcFunc-vcount calcFunc-vsum calcFunc-vprod calcFunc-vmin calcFunc-vmax))
(defvar math-nonscalar-functions '(vec calcFunc-idn calcFunc-diag calcFunc-cvec calcFunc-index calcFunc-trn | calcFunc-append calcFunc-cons calcFunc-rcons calcFunc-tail calcFunc-rhead))
(defvar math-scalar-if-args-functions '(+ - * / neg))
(defvar math-real-functions '(calcFunc-arg calcFunc-re calcFunc-im calcFunc-floor calcFunc-ceil calcFunc-trunc calcFunc-round calcFunc-rounde calcFunc-roundu calcFunc-ffloor calcFunc-fceil calcFunc-ftrunc calcFunc-fround calcFunc-frounde calcFunc-froundu))
(defvar math-positive-functions nil)
(defvar math-nonnegative-functions '(calcFunc-cnorm calcFunc-rnorm calcFunc-vlen calcFunc-vcount))
(defvar math-real-scalar-functions '(% calcFunc-idiv calcFunc-abs calcFunc-choose calcFunc-perm calcFunc-eq calcFunc-neq calcFunc-lt calcFunc-gt calcFunc-leq calcFunc-geq calcFunc-lnot calcFunc-max calcFunc-min))
(defvar math-real-if-arg-functions '(calcFunc-sin calcFunc-cos calcFunc-tan calcFunc-sec calcFunc-csc calcFunc-cot calcFunc-arctan calcFunc-sinh calcFunc-cosh calcFunc-tanh calcFunc-sech calcFunc-csch calcFunc-coth calcFunc-exp calcFunc-gamma calcFunc-fact))
(defvar math-integer-functions '(calcFunc-idiv calcFunc-isqrt calcFunc-ilog calcFunc-vlen calcFunc-vcount))
(defvar math-num-integer-functions nil)
(defvar math-rounding-functions '(calcFunc-floor calcFunc-ceil calcFunc-round calcFunc-trunc calcFunc-rounde calcFunc-roundu))
(defvar math-float-rounding-functions '(calcFunc-ffloor calcFunc-fceil calcFunc-fround calcFunc-ftrunc calcFunc-frounde calcFunc-froundu))
(defvar math-integer-if-args-functions '(+ - * % neg calcFunc-abs calcFunc-min calcFunc-max calcFunc-choose calcFunc-perm))
#@12 

(fn ARG)
(defalias 'calc-min #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300\304$\207" [V0 calc-binary-op "min" calcFunc-min (var inf var-inf)] 5]] 5 (#$ . 1963) "P"])
#@12 

(fn ARG)
(defalias 'calc-max #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300\304$\207" [V0 calc-binary-op "max" calcFunc-max (neg (var inf var-inf))] 5]] 5 (#$ . 2166) "P"])
#@12 

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

(fn ARG)
(defalias 'calc-idiv #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300\304$\207" [V0 calc-binary-op "\\" calcFunc-idiv 1] 5]] 5 (#$ . 2555) "P"])
#@12 

(fn ARG)
(defalias 'calc-floor #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302 \203\303\304\305\300#\207\303\304\306\300#\207\302 \203!\303\307\310\300#\207\303\307\311\300#\207" [V0 calc-is-inverse calc-is-hyperbolic calc-unary-op "ceil" calcFunc-fceil calcFunc-ceil "flor" calcFunc-ffloor calcFunc-floor] 4]] 5 (#$ . 2743) "P"])
#@12 

(fn ARG)
(defalias 'calc-ceiling #[257 "\300 \210\301
!\207" [calc-invert-func calc-floor] 3 (#$ . 3111) "P"])
#@12 

(fn ARG)
(defalias 'calc-round #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302 \203\303\304\305\300#\207\303\304\306\300#\207\302 \203!\303\307\310\300#\207\303\307\311\300#\207" [V0 calc-is-inverse calc-is-hyperbolic calc-unary-op "trnc" calcFunc-ftrunc calcFunc-trunc "rond" calcFunc-fround calcFunc-round] 4]] 5 (#$ . 3230) "P"])
#@12 

(fn ARG)
(defalias 'calc-trunc #[257 "\300 \210\301
!\207" [calc-invert-func calc-round] 3 (#$ . 3600) "P"])
#@12 

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

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

(fn ARG)
(defalias 'calc-scale-float #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-binary-op "scal" calcFunc-scf] 4]] 5 (#$ . 4093) "P"])
#@12 

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

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

(fn ARG)
(defalias 'calc-increment #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\304\305\302!\300E#\207" [V0 calc-enter-result 1 "incr" calcFunc-incr calc-top-n] 6]] 5 (#$ . 4653) "p"])
#@12 

(fn ARG)
(defalias 'calc-decrement #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\304\305\302!\300E#\207" [V0 calc-enter-result 1 "decr" calcFunc-decr calc-top-n] 6]] 5 (#$ . 4870) "p"])
#@10 

(fn A)
(defalias 'math-abs-approx #[257 "\211\211:\203%\211@\300>\203\211A@\211\250\205\211\301W\266\202\202*\302
!\262
\202*\211\301W\262
\2031\303
!\207\211\211:?\206<\211@\304>\262
\203B\207\211@\305=\203V\306\307A@!\307\3108!\"\207\211@\311=\203a\211A@\207\211@\312=\203n\313
A@!\207\211@\314=\203\202\315\307\3108!\307\3168!\"\207\211@\317=\203\212\207\211@\320=\203\226\321\322\"\207\211@\323=\203\240\211@\207\207" [(frac float) 0 math-negp math-neg (frac float hms) cplx math-add math-abs 2 polar sdev math-abs-approx intv math-max 3 date vec math-reduce-vec math-add-abs-approx calcFunc-abs] 6 (#$ . 5087)])
#@12 

(fn A B)
(defalias 'math-add-abs-approx #[514 "\300\301!\301!\"\207" [math-add math-abs-approx] 6 (#$ . 5734)])
(defvar math-decls-cache-tag nil)
(defvar math-decls-cache nil)
(defvar math-decls-all nil)
(defvar math-super-types '((int numint rat real number) (numint real number) (frac rat real number) (rat real number) (float real number) (real number) (number) (scalar) (sqmatrix matrix vector) (matrix vector) (vector) (const)))
(defalias 'math-setup-declarations #[0 "\304\305!=\206
\304\305!\306\211\211\306\242\307=\203
A\211\262\203
@\242\307=\203\310@8\211\262\203\3111
@A@\306\262\306\262\242\307=\204M\307D\262A\211\262\203\256@\211:?\206a\211@\312>\262
\204\256@\242\313=\203M@A@\n\236\211\203\202\314\"\262\210\202M@A@\315=\203\230\314\316\"\262\317\262\210\202M@A@\320=\203\252\314\321\"\262\322\262\210\202M\203\277\314\323\"\262\324\307B!\262D\262\211\242\307=\204\320\307
D\262
\211A\211\262\205
\211@\242\313=\204\361\211@\211:?\206\354\211@\325>\262
\204\320\211@@\313=\203
\310
@8\202
\211@@B	B\202\320\262
0\210\202\210\202\326	\236\211\266\204\207" [math-decls-cache-tag math-decls-cache math-super-types math-decls-all calc-var-value var-Decls nil vec 2 (error) (frac float cplx polar hms date sdev intv mod) var append pos (real number) (intv 1 0 (var inf var-inf)) nonneg (real number) (intv 3 0 (var inf var-inf)) (real number) math-prepare-set (frac float cplx polar hms date mod var) var-All] 9])
#@34 

(fn A &optional ASSUME-SCALAR)
(defalias 'math-known-scalarp #[513 "\301 \210\203
\302=\202\211\203\303!?\207\304!\207" [calc-matrix-mode math-setup-declarations scalar math-check-known-matrixp math-check-known-scalarp] 4 (#$ . 7246)])
#@10 

(fn A)
(defalias 'math-known-matrixp #[257 "\211\211:?\206\211@\300>\262
?\205\301
\302\"?\207" [(frac float cplx polar hms) math-known-scalarp t] 4 (#$ . 7499)])
#@10 

(fn A)
(defalias 'math-known-square-matrixp #[257 "\300
!\205	\301
!\207" [math-known-matrixp math-check-known-square-matrixp] 3 (#$ . 7674)])
#@10 

(fn A)
(defalias 'math-check-known-scalarp #[257 "\211\211:?\206\211@\305>\262
\203\306\207\211@>\203\306\207\211@	>\203$\306\207\211@\n>\203=\211A\211\262\203:\307
@!\204+\211?\207\211@\310=\203J\307
A@!\207\311
!\203R\306\207\211@\312=\203e\313
8\236\206i\f\202i\211@\236\314\315A@>\203v\266\306\207@\312=\203\232\31389\203\232\316\3138!\203\232\3138J\211\262\203\232\307
!\207\266\314\207" [math-scalar-functions math-real-scalar-functions math-scalar-if-args-functions math-decls-cache math-decls-all (frac float cplx polar hms date sdev intv mod) t math-check-known-scalarp ^ math-const-var var 2 nil scalar boundp] 6 (#$ . 7826)])
#@10 

(fn A)
(defalias 'math-check-known-matrixp #[257 "\211\211:?\206\211@\304>\262
\203\305\207\211@>\203\306\207\211@	>\2032\211A\211\262\2031\307
@!\203\"\207\211@\310=\203?\307
A@!\207\311
!\203G\305\207\211@\312=\203Z\313
8\n\236\206^\202^\211@\n\236\305\314A@>\203k\266\306\207@\312=\203\217\31389\203\217\315\3138!\203\217\3138J\211\262\203\217\307
!\207\266\305\207" [math-nonscalar-functions math-scalar-if-args-functions math-decls-cache math-decls-all (frac float cplx polar hms date sdev intv mod) nil t math-check-known-matrixp ^ math-const-var var 2 matrix boundp] 6 (#$ . 8503)])
#@10 

(fn A)
(defalias 'math-check-known-square-matrixp #[257 "\303
!\203\304\207\211\242\305=\203\306
A@!\207\211\242\307=\204*\211\242\310=\204*\211\242\311=\2038\306
A@!\205\236\306\3128!\207\211@\313=\203K\312
8\236\206O	\202O\211@\236\314\315A@>\203\\\266\304\207@\313=\203y\316\3128!\203y\3128J\211\262\203y\306
!\207\n\250\204\204\n\315=\203\217\242\313=\203\217\266\304\207\317A@>\203\233\266\314\207\266\314\207" [math-decls-cache math-decls-all calc-matrix-mode math-square-matrixp t ^ math-check-known-square-matrixp * + - 2 var nil sqmatrix boundp matrix] 6 (#$ . 9131)])
#@10 

(fn A)
(defalias 'math-known-realp #[257 "\300
!\301W\207" [math-possible-signs 8] 3 (#$ . 9750)])
#@10 

(fn A)
(defalias 'math-known-posp #[257 "\300
!\301=\207" [math-possible-signs 4] 3 (#$ . 9857)])
#@10 

(fn A)
(defalias 'math-known-negp #[257 "\300
!\301=\207" [math-possible-signs 1] 3 (#$ . 9963)])
#@10 

(fn A)
(defalias 'math-known-nonnegp #[257 "\300
!\301>\207" [math-possible-signs (2 4 6)] 3 (#$ . 10069)])
#@10 

(fn A)
(defalias 'math-known-nonposp #[257 "\300
!\301>\207" [math-possible-signs (1 2 3)] 3 (#$ . 10185)])
#@10 

(fn A)
(defalias 'math-known-nonzerop #[257 "\300
!\301>\207" [math-possible-signs (1 4 5 8 9 12 13)] 3 (#$ . 10301)])
#@10 

(fn A)
(defalias 'math-guess-if-neg #[257 "\300
!\211\301>\203\302\207\211\303>?\205\304!\207" [math-possible-signs (1 3) t (2 4 6) math-looks-negp] 4 (#$ . 10428)])
#@27 

(fn A &optional ORIGIN)
(defalias 'math-possible-signs #[513 "
\211:?\206\211@\306>\262
\203)
\211\203\307\"\262
\211:\203?\211@\310>\2037\211A@\211\250\2052\211\311V\266\202\202D\312
!\262
\202D\211\311V\262
\203I\313\207
\211:\203n\211@\314>\203f\211A@\211\250\205a\211\311W\266\202\202s\315
!\262
\202s\211\311W\262
\203x\316\207
\211:\203\227\211@\317=\203\217\211A@\311=\262
\202\234\320
!\262
\202\234\211\311=\262
\203\241\321\207
@\322=\203
\323\3218!\203\262\313\207\324\3258!\203\274\316\207\3218\211:\203\335\211@\317=\203\325\211A@\311=\262
\202\342\320
!\262
\202\342\211\311=\262
\203\347\326\207\3258\211:\203
\211@\317=\203
\211A@\311=\262
\202

\320
!\262
\202

\211\311=\262
\203
\325\207\327\207
@\330=\203'
\331A@!\203%
\327\207\332\207\333\207
@\334>\2036
A@\211:?\206=
\211@\335>\262
\203z

@\336=\203b
\337\340\3218\203\\
\341A@\"\202_
A@\"!\207\340\3218\203s
\307A@\"\202x
\342A@!\"\207\3218\211:?\206\207
\211@\335>\262
\203\260

@\336=\203\231
\3218\202\236
\342\3218!\340A@\203\255
\341\"\202\256
\"\207\340A@\"\340\3218!@\336=\203\307
\337
!\262


=\203\317

\207
\321=\203\326
\207\211\321=\203\336

\207
\333Y\203\350
\266\332\207\211\333Y\203\362
\266\332\207
\313=\203\211\326=\203\266\313\207\211\313=\203
\326=\203\266\313\207
\316=\203\"\211\325=\203\"\266\316\207\211\316=\2032
\325=\2032\266\316\207\266\327\207
@\343=\203L\337\340A@\205I\342!\"!\207\211\203z\211\211:\203o\211@\317=\203g\211A@\311=\262
\202t\320
!\262
\202t\211\311=\262
\203z\344\262

@\345=\204\214
@\346=\203(\211\203(
A@\211:?\206\231\211@\335>\262
\203(
@\345=\203\347
A@\211:\203\306\211@\317=\203\276\211A@\311=\262
\202\313\320
!\262
\202\313\211\311=\262
\203\325\340\311\"\202\364\340\3218\347\206\337\311A@\"\"\202\364\337\340\3218\347A@\"\"!A@\211:\203\211@\314>\203\211A@\211\250\205\211\311W\266\202\202 \315
!\262
\202 \211\311W\262
\203'\337
!\207\207
@\350>\203\232\3218\211:?\206<\211@\335>\262
\203\232\340A@@\345=\203Z\351\206R\311\3218\"\202e\347\206`\311\3218\"\"\3218\211:\203\215\211@\314>\203\205\211A@\211\250\205\200\211\311W\266\202\202\222\315
!\262
\202\222\211\311W\262
\203\231\337
!\207\207
@\352=\203\276\311A\211\262\203\275\211\332W\203\275\353
\340@\"\"\262
\202\242\207
@\354>\203$\340A@!\340\3218!
\333Y\203\333\266\332\202(\211\333Y\203\347\266\332\202(@\346=\203\372\211\355>\203\372\266\332\202(\353\356>\203
\202\311\357>\203\321\202\311\360>\203\337!\202\311#\266\202\202(
@\361=\203\311\340A@!\340\3218!
\333Y\203A\266\332\202(\211\333Y\203M\266\332\202(
\362\267\202k\266\313\202(\211\313=\203e\266\321\202(\266\332\202(\211\321=\203\203
\363>\203}\266\321\202(\266\332\202(\364\3218!\203\253\365\3218!\203\245
\366>\203\237\266\326\202(\266\313\202(
\266\202\202(
\326=\203\303\211\313=\203\275\266\326\202(\266\332\202(\266\327\202(
@\367=\203\367\340\3218!\211\333Y\203\337\327\202\362\211\370\267\202\361\321\202\362\326\202\362\325\202\362\327\262
\202(
@\371>\203
G\321U\203\340A@!\211\372\267\202\321\202\313\202\326\262
\202(
@\373=\203\203
G\321U\203\203\340A@!\211\333Y\203;\332\202~
\203E\315!\203I\313\202~\307\206O\311\316\"\262
\211:\203r\211@\317=\203j\211A@\311=\262
\202w\320
!\262
\202w\211\311=\262
\203}\344\262\211\262
\202(
@\374>\203\221
G\321U\204\247
@\375=\203\274
G\325U\203\274\323\3218!\203\274\376A@!\203\270\340A@\316\"\202(\332\202(
@\377=\203\341
G\321U\203\341\340A@!\211\201A>\203\333\211\202\334\332\262
\202(
@>\203\354\326\202(
@	>\203\367\313\202(
@\n>\203\327\202(
@>\203
\327\202(
@\f>\205(
G\321U\205(\331A@!\203'\327\202(\332\211\203\203
\203\202\201B
\333\"\211:\203[\211@\310>\203S\211A@\211\250\205N\211\311V\266\202\202`\312
!\262
\202`\211\311V\262
\203s
\201C>\203o\316\202\200\327\202\200
\201D>\203\313\202\200\327\\\207\207\201E!\203\343\3218\201F=\203\243
\203\241\340\201G \"\207\313\207\3218\201H=\203\273
\203\271\340\201I \"\207\313\207\3218\201J=\203\307\313\207\3218\201K=\203\325\201L\207\3218\201M=\203\341\333\207\332\207\201N \210@\201O=\203\376\3218
\236\206@\202@
\236\2030\201P
A@>\2030\211\250\206'\211:\205'\211@\317=\205'\321
8\311Y\262
\2040\201Q\207\321
8\203=\340\3218\"\207\201R
A@>\203I\327\207\332\207" [math-nonnegative-functions math-positive-functions math-real-functions math-real-scalar-functions math-real-if-arg-functions math-decls-cache (frac float cplx polar hms date sdev intv mod) math-sub (frac float) 0 math-posp 4 (frac float) math-negp 1 float math-zerop 2 intv math-known-posp math-known-negp 3 6 7 sdev math-known-realp 15 8 (+ -) (frac float) - math-neg-signs math-possible-signs math-add math-neg neg nil * / math-div (* /) math-mul vec logior (* /) (2 3 6 7) (4 5 6 7) (2 3 6 7) (1 3 5 7) ^ #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 1107 2 1113)) (1 5) Math-integerp math-evenp (3 6 7) % #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 1253 4 1257 6 1257 1 1261 3 1261)) (calcFunc-abs calcFunc-abssqr) #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 1296 1 1300 4 1300 5 1300)) calcFunc-exp (calcFunc-ln calcFunc-log10) calcFunc-log math-known-nonnegp calcFunc-sqrt math-decls-all (2 4 6) logand (1 2 3 8 9 10 11) (2 4 6 8 10 12 14) math-const-var var-pi math-pi var-e math-e var-inf var-uinf 13 var-i math-setup-declarations var int 5 real] 9 (#$ . 10607)])
#@11 

(fn S1)
(defalias 'math-neg-signs #[257 "\211\300Y\203\300\301\300Z!\\\207\211\302>\203\303\202\304
\305>\203#\306\202$\304\\
\307>\203/\310\2020\304\\\207" [8 math-neg-signs (1 3 5 7) 4 0 (2 3 6 7) 2 (4 5 6 7) 1] 5 (#$ . 16318)])
#@10 

(fn A)
(defalias 'math-known-integerp #[257 "\300
!\301=\207" [math-possible-types 1] 3 (#$ . 16568)])
#@10 

(fn A)
(defalias 'math-known-num-integerp #[257 "\300
\301\"\302X\207" [math-possible-types t 3] 4 (#$ . 16679)])
#@10 

(fn A)
(defalias 'math-known-imagp #[257 "\300
!\301U\207" [math-possible-types 16] 3 (#$ . 16801)])
#@24 

(fn A &optional NUM)
(defalias 'math-possible-types #[513 "
\211:?\206\211@\306>\262
\203\313\307!\203\211\203\310\207\311\207
\211:\2050\211@\312=\2050\313
8\314Y\262
\203=\211\203;\310\207\313\207
@\315=\203L\211\203J\316\207\317\207
@\312=\203[\211\203Y\316\207\320\207
@\321=\203t\3138\3108\232\203r\322\3138!\207\323\207
@\324=\203\207\325A@!\203\205\323\207\326\207
@\327=\203\232\330A@!\203\230\331\207\332\207
@\333=\203\311\3138\334\335!\336\"\314U\266\202\204\305\3138\337\334\335!!\336\"\314U\266\202\203\307\331\207\340\207\326\207
@\341=\203M
\322A@\"\322\3138\"\342\"\211\331W\203

\343
\344\"\314V\203\365\266\344\207\317U\204

\317U\204
\203	
\266\345\207\266\323\207\211\332W\203I
\331U\2031

\331U\203#
\266\323\207
\331W\203-
\266\331\207\266\346\207
\331U\203E
\331W\203A
\266\331\207\266\346\207\266\346\207\266\326\207
@\347>\203Z\322A@\"\322\3138\"\342\"@\350=\203}
\343\323\"\262\343\323\"\262\343
\323\"\262
\211\331W\203\351
\211\310X\203\215
\311\202\267
\310X\203\234
\343\310\"\314U\204\253

\310X\203\266
\343\310\"\314U\203\266
@\351>\203\266
\317\202\267
\345\203\277
\211\310_\207\342\343\345\"\314V\203\326
\343\345\"\314V\203\326

\202\327
\314\343\344\"\314V\203\346
\313_\202\347
\314\"\207\211\332W\203V@\352=\203,\331U\203
\331U\203\266\323\207
\331W\203\266\331\207\266\346\207
\331U\203(\331W\203$\266\331\207\266\346\207\266\346\207\211\331U\2036\266\331\207\331U\203B
\331W\204N
\331U\203R\331W\203R\266\332\207\266\326\207\266\326\207
@\353=\203g\322A@!\207
@\354=\203
\322A@\"\322\3138\"\342\"
\310X\203\350\355\3138!\203\350\331W\203\350\342\343\310\"\314V\203\241\311\202\242\314\343\317\"\343\316\"\314V\203\264\345\202\265\314#\203\276\211\310_\207\342\343\345\"\314V\203\325\343\345\"\314V\203\325
\202\326\314\343\344\"\314V\203\345\313_\202\346\314\"\207\355A@!\203\375\356\3138!\203\375\266\323\207\266\326\207
@\357=\203H\360A@!\342\343\313\"\314V\203\310\202\314\343\311\"\314V\203)\331\202*\314\343\317\"\314V\2037\323\2028\314\343\320\"\314V\203E\332\202F\314$\207
@\361=\203l\314A\211\262\203k\211\326W\203k\342
\322@\362\"\"\262
\202P\207
@	>\204\206
@\n>\203\210\355\3138\206\202\314!\203\210\311\207
@>\204\242
@\f>\203\244\355\3138\206\236\314!\203\244\313\207
@\363=\203\255\345\207
@\364=\203\343
G\313U\203\343\322A@!\342\343\310\"\314V\203\316\313\202\317\314\343\316\"\314V\203\334\320\202\335\314\343\340\"#\207
@\365>\203\377
G\313U\203\377\322A@!\211\331Y\203\376\323\207\207\366!\203%\3138\367>\203\320\207\3138\370=\203\311\207\3138\371=\203#\331\207\326\207\372 \210
@\373=\203<\3138
\236\206@@\202@
@
\236\374
A@>\203J\311\207\375
A@>\203T\310\207\315
A@>\203^\317\207\376
A@>\203h\345\207\312
A@>\203r\344\207\313
8\203~\322\3138!\207\377
A@>\203\210\323\207\326\207" [calc-prefer-frac math-integer-functions math-rounding-functions math-num-integer-functions math-float-rounding-functions math-decls-cache (frac float cplx polar hms date sdev intv mod) Math-integerp 3 1 float 2 0 frac 12 4 8 intv math-possible-types 15 sdev math-known-realp 63 cplx math-zerop 16 32 polar math-quarter-circle nil math-compare math-neg 48 / logior logand 10 5 31 (+ - * %) % (+ -) * neg ^ math-known-nonnegp math-known-posp calcFunc-sqrt math-possible-signs vec t calcFunc-frac calcFunc-float (calcFunc-abs calcFunc-abssqr) math-const-var (var-e var-pi var-phi var-gamma) var-inf var-i math-setup-declarations var int numint rat real math-decls-all] 11 (#$ . 16910)])
#@10 

(fn A)
(defalias 'math-known-evenp #[257 "\300
!\203\n\301
!\207\211\211:\205\211@\302=\205\303
8\304Y\262
\203/\303
8\304V\206\203\301\305!!\207\211@\306=\203R\307
A@!\203D\310\3038!\207\310
A@!\205Q\307\3038!\207\211@\311>\203w\307
A@!\203i\307\3038!\206\203\312
A@!\205v\312\3038!\207\211@\313=\205\203\307
A@!\207" [Math-integerp math-evenp float 2 0 math-trunc * math-known-evenp math-known-num-integerp (+ -) math-known-oddp neg] 4 (#$ . 20569)])
#@10 

(fn A)
(defalias 'math-known-oddp #[257 "\300
!\203\n\301
!\207\211\211:\205\211@\302=\205\303
8\304Y\262
\203/\303
8\304X\205`\301\305!!\207\211@\306>\203T\307
A@!\203F\310\3038!\206`\310
A@!\205S\307\3038!\207\211@\311=\205`\310
A@!\207" [Math-integerp math-oddp float 2 0 math-trunc (+ -) math-known-evenp math-known-oddp neg] 4 (#$ . 21050)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dreal #[257 "\300
!\211\301W\203\302\207\303
\304\"\305U\203\305\207\306\307\310#\207" [math-possible-types 16 1 logand 15 0 math-reject-arg realp quiet] 6 (#$ . 21420)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dimag #[257 "\300
!\211\301U\203\302\207\303
\301\"\304U\203\304\207\305\306\"\207" [math-possible-types 16 1 logand 0 math-reject-arg "Expected an imaginary number"] 5 (#$ . 21634)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dpos #[257 "\300
!\211\301=\203\302\207\211\303>\203\304\207\305\306\307#\207" [math-possible-signs 4 1 (1 2 3) 0 math-reject-arg posp quiet] 6 (#$ . 21861)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dneg #[257 "\300
!\211\301=\203\301\207\211\302>\203\303\207\304\305\306#\207" [math-possible-signs 1 (2 4 6) 0 math-reject-arg negp quiet] 6 (#$ . 22063)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dnonneg #[257 "\300
!\211\301>\203\302\207\211\302=\203\303\207\304\305\306#\207" [math-possible-signs (2 4 6) 1 0 math-reject-arg posp quiet] 6 (#$ . 22263)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dnonzero #[257 "\300
!\211\301>\203\302\207\211\303=\203\304\207\305\306\307#\207" [math-possible-signs (1 4 5 8 9 12 13) 1 2 0 math-reject-arg nonzerop quiet] 6 (#$ . 22466)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dint #[257 "\300
!\211\301U\203\301\207\302
\301\"\303U\203\303\207\304\305\306#\207" [math-possible-types 1 logand 0 math-reject-arg integerp quiet] 6 (#$ . 22686)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dnumint #[257 "\300
\301\"\211\302X\203\f\303\207\304
\302\"\305U\203\305\207\306\307\310#\207" [math-possible-types t 3 1 logand 0 math-reject-arg integerp quiet] 6 (#$ . 22896)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dnatnum #[257 "\300
!\211\301=\203
\302!\207\207" [calcFunc-dint 1 calcFunc-dnonneg] 4 (#$ . 23119)])
#@13 

(fn EXPR)
(defalias 'calcFunc-deven #[257 "\300
!\203\301\207\302
!\204\303\304!\305\"\306U\203\306\207\307
\310\"\207" [math-known-evenp 1 math-known-oddp logand math-possible-types 3 0 math-reject-arg "Can't tell if expression is odd or even"] 4 (#$ . 23261)])
#@13 

(fn EXPR)
(defalias 'calcFunc-dodd #[257 "\300
!\203\301\207\302
!\204\303\304!\305\"\306U\203\306\207\307
\310\"\207" [math-known-oddp 1 math-known-evenp logand math-possible-types 3 0 math-reject-arg "Can't tell if expression is odd or even"] 4 (#$ . 23539)])
#@13 

(fn EXPR)
(defalias 'calcFunc-drat #[257 "\300
!\211\301>\203\302\207\303
\304\"\305U\203\305\207\306\307\"\207" [math-possible-types (1 4 5) 1 logand 5 0 math-reject-arg "Rational number expected"] 5 (#$ . 23816)])
#@13 

(fn EXPR)
(defalias 'calcFunc-drange #[257 "\302 \210\303
\211:?\206\211@\304>\262
\203\305D\207
\242\306=\203!
\207
\242\307=\2038\310\2118\236\2062	8\262
\202@\310\242\2368\262
\211\203J\311\312!!\207\313!\262
\211\314W\203Y\315
H\207\316\317\320#\207" [math-decls-cache math-decls-all math-setup-declarations nil (frac float) vec intv var 2 math-clean-set copy-sequence math-possible-signs 8 [(vec) (intv 2 (neg (var inf var-inf)) 0) (vec 0) (intv 3 (neg (var inf var-inf)) 0) (intv 1 0 (var inf var-inf)) (vec (intv 2 (neg (var inf var-inf)) 0) (intv 1 0 (var inf var-inf))) (intv 3 0 (var inf var-inf)) (intv 3 (neg (var inf var-inf)) (var inf var-inf))] math-reject-arg realp quiet] 6 (#$ . 24045)])
#@10 

(fn A)
(defalias 'calcFunc-dscalar #[257 "\300
!\203\301\207\302
!\203\303\207\304
\305\306#\207" [math-known-scalarp 1 math-known-matrixp 0 math-reject-arg objectp quiet] 5 (#$ . 24777)])
#@10 

(fn A)
(defalias 'calcFunc-neg #[257 "\300\301D!\207" [math-normalize neg] 4 (#$ . 24978)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put calcFunc-neg speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'math-neg-fancy #[257 "\211@\301=\203(\301
A@\302\3038!\203\304\3038\305\306!\"\202&\307\3038\305\306!\"E\207\211@\310=\203F\311
A@!\2038\207\310\304\3038A@\"\3038E\207\211@\312=\203X\312\313A@!\3038E\207\211@\314=\203q\315\316A@H\313\3178!\313\3038!#\207\203\211\232\204\320
D\207\211@\321=\203\221\304\313A@!\3038\"\207\211@\322=\203\241\304\3038A@\"\207\211@\323>\203\274\324
A@!\203\274\211@\313A@!\3038E\207\211@\325>\203\327\324\3038!\203\327\211@
A@\313\3038!E\207\211@\326>\203
\327
A@!\204\371\211A@@\330=\203
\327
A@A@!\203
\211@\313A@!\3038E\207\211@\331=\2033
\327\3038!\204'
\303
8@\330=\2033
\327\3038A@!\2033
\211@
A@\313\3038!E\207\211@\332=\203C
\303
8\333>\203C
\207\211@\320=\203N
\211A@\207\320
D\207" [math-simplify-only polar math-posp 2 math-sub math-half-circle nil math-add mod math-zerop sdev math-neg intv math-make-intv [0 2 1 3] 3 neg + - (* /) math-okay-neg (* /) (* /) math-objectp * / var (var-uinf var-nan)] 7 (#$ . 25217)])
#@10 

(fn A)
(defalias 'math-okay-neg #[257 "\300
!\206\n\211\242\301=\207" [math-looks-negp -] 3 (#$ . 26248)])
#@10 

(fn A)
(defalias 'math-neg-float #[257 "\300
A@\211[\262
\3018E\207" [float 2] 5 (#$ . 26364)])
#@19 

(fn &rest REST)
(defalias 'calcFunc-add #[128 "\211\203\211@
A\211\262\203\300
@E\262
\202\301
!\207\302\207" [+ math-normalize 0] 5 (#$ . 26469)])
#@19 

(fn &rest REST)
(defalias 'calcFunc-sub #[128 "\211\203\211@
A\211\262\203\300
@E\262
\202\301
!\207\302\207" [- math-normalize 0] 5 (#$ . 26633)])
#@12 

(fn A B)
(defalias 'math-add-objects-fancy #[514 "
\211:?\206\211@\300>\262
\203O\211\211:?\206\211@\300>\262
\203O\301!\301!\302\303\304A@A@\"\304\3058\3058\"E\306\"\203J\307
!\202K\211\262
!\207
\211\242\310=\262
\204c\211\211\242\310=\262
\203i\311\304#\207
\242\312=\203\267\211\242\312=\203\212\313\304A@A@\"\314\3058\3058\"\"\207\211\211:?\206\225\211@\315>\262
\204\253\211\211:?\206\245\211@\316>\262
?\205\266\313\304A@\"\3058\"\207\211\242\312=\203\352
\211:?\206\311\211@\315>\262
\204\336
\211:?\206\331\211@\316>\262
\204\352\313\304A@\"\3058\"\207
\242\317=\203\236
\211\242\317=\203c
\320\321\322A@A@\"\3058\323\232\203
\322A@\305\"\202
\324\3058\325\232\203%
\322A@\305\"\202&
\324\3268\327\232\2039
\322A@\330\"\202:
\324\3268\331\232\203M
\322A@\330\"\202N
\324%\304\3058\3058\"\304\3268\3268\"#\207\211\211:?\206n
\211@\332>\262
\204\213
\211@\333=\204\213
\211\211:?\206\205
\211@\316>\262
?\205\235
\320A@\304\3058\"\304\3268\"#\207\211\242\317=\203\337

\211:?\206\260
\211@\332>\262
\204\314

@\333=\204\314

\211:?\206\307
\211@\316>\262
\204\337
\320
A@\304\3058\"\304\3268\"#\207
\242\333=\203I\211\242\333=\203\366
\304A@A@\"\207\211\242\334=\203.\335A@!\333\304@\336\304\211A@\3058\"\304\337	A@\340\"\304\337\305\f8\341\"\326\f8\"\"\"\342\"\"D\207\211\211:?\2069\211@\343>\262
\203G\333\304A@\"D\207\344\207\211\242\333=\203U\345
\"\207
\242\346=\203{\211\242\346=\203{\3058\3058\232\203{\347\304A@A@\"\3058\"\207
\242\346=\203\236\211\211:?\206\215\211@\332>\262
\203\236\347\304A@\"\3058\"\207\211\242\346=\203\301
\211:?\206\260\211@\332>\262
\203\301\347\304A@\"\3058\"\207
\242\334=\204\317\211\242\334=\203\230
\211:?\206\332\211@\332>\262
\203\230\211\211:?\206\352\211@\332>\262
\203\230
\242\334=\204\373\350!\262\211\242\334=\204\350
!\262
\302\351!\203\352\304\352!\352!\"!\202\226\351!\203w\304\3268\3268\"\304\3058\3058\"\304A@A@\"\351!\203K\304\341\"\262\304\353\"\262\351!\203]\304\341\"\262\304
\353\"\262
\351
!\203m\304\"\266\203\202\226\334
F\266\203\202\226\304\3268\3268\"\304\3058\3058\"\304A@A@\"\334
F\266\203!\207\354\355#\207" [(frac float cplx polar) math-complex math-normalize cplx math-add 2 math-want-polar math-polar vec math-map-vec-2 sdev math-make-sdev math-hypot (frac float cplx polar hms) (frac float cplx polar hms date sdev intv mod vec) intv math-make-intv logior logand (neg (var inf var-inf)) 0 (neg (var inf var-inf)) 3 (var inf var-inf) 1 (var inf var-inf) (frac float hms) date hms math-date-parts math-div math-mul 3600 60 86400 (frac float) nil math-add-objects-fancy mod math-make-mod math-to-hms math-negp math-neg -1 calc-record-why "*Incompatible arguments for +"] 15 (#$ . 26797)])
#@12 

(fn A B)
(defalias 'math-add-symb-fancy #[514 "\203
\232\204\301E\206\371\211\242\301=\203&\302\211A@\"\3038\"\206\371\211\242\304=\203;\305\302A@\"\3038\"\206\371\211\242\306=\203]\211A@\242\301=\203]\305\211A@A@\"\303A@8\"\206\371
\211\242\307=\262
\203m\310
!\204}\211\211\242\307=\262
\203\205\310!\203\205\311\302#\206\371\312!\211\203>
\312!\211\203\350\3038\313>\204\243\303
8\314>\203\247\315\2029
\316\"\316\"
\211:?\206\272\211@\317>\262
\205\343\211\211:?\206\312\211@\317>\262
\205\343

\320\"\321U\266\202\203\342\266\202\2029
\322\266\202\2029
\323\232\203
\242\324=\203
A@\325>\203
\3038\326\232\203
\324\327\3038F\2029
\330\232\2038
\242\324=\2038
A@\331>\2038
\3278\332\232\2038
\324\327\3278F\2029
\262
\202\277
\312!\203V
\242\324=\203R
\302\"\202\277

\202\277
\242\301=\203u
\333\3038\334\211\335%\211\205p
\302A@\"\262
\202\277
\242\304=\203\224
\333\3038\335\334\335%\211\205\217
\302A@\"\262
\202\277
\211:?\206\237
\211@\317>\262
\203\270

\211:?\206\257
\211@\317>\262
\203\270
\334\202\277
\333\334\211\211%\262
\206\371\211\211\211:\203\352
\211@\336>\203\342
\211A@\211\250\205\335
\211\321W\266\202\202\357
\337
!\262
\202\357
\211\321W\262
\206\211:\205\211@\306=\206\211@\340>\205\341
A@!\206\341\3038!\262
\203 \304\342!E\206\371
\211\211:\203F\211@\336>\203>\211A@\211\250\2059\211\321W\266\202\202K\337
!\262
\202K\211\321W\262
\206n\211:\205n\211@\306=\206n\211@\340>\205n\341
A@!\206n\341\3038!\262
\203|\304
\342!E\206\371
\242\343=\203\306
G\303U\203\306\211\242\343=\203\245\211G\303U\203\245\343\302A@A@\"D\206\371\344
!\203\267\302\345A@\"\"\206\371\310
!\203\306\302A@\"\206\371\211\242\343=\203\365\211G\303U\203\365\344!\203\346\302\345A@\"\"\206\371\310!\203\365\302A@\"\206\371\301E\207" [math-simplify-only + math-add 2 - math-sub neg vec math-known-scalarp math-map-vec-2 math-infinitep (var-uinf var-nan) (var-uinf var-nan) (var nan var-nan) math-infinite-dir (frac float cplx polar hms date sdev intv mod) math-compare 0 (var nan var-nan) (var inf var-inf) intv (2 3) (neg (var inf var-inf)) 3 (neg (var inf var-inf)) (1 3) (var inf var-inf) math-combine-sum nil t (frac float) math-negp (* /) math-looks-negp math-neg calcFunc-idn math-square-matrixp math-mimic-ident] 11 (#$ . 29638)])
#@19 

(fn &rest REST)
(defalias 'calcFunc-mul #[128 "\211\203\211@
A\211\262\203\300
@E\262
\202\301
!\207\302\207" [* math-normalize 1] 5 (#$ . 32033)])
#@12 

(fn A B)
(defalias 'math-mul-objects-fancy #[514 "
\211:?\206\211@\301>\262
\203\201\211\211:?\206\211@\301>\262
\203\201\302\303\"\203I\304!\304!\305\306A@A@\"\307\310\3118\3118\"!E\266\202\202\312!\262\312!\262\313\314\306A@A@\"\306\3118\3118\"\"\310\306A@\3118\"\306\3118A@\"\"E!\207
\211\242\315=\262
\203
\211\211\242\315=\262
\203\n
\316!\203\340\316
!\203\263
A@G
GU\203\260\317\"\207\320 \207
A@G\311U\203\316
G
GU\203\313\317\315D\"\207\320 \207
A@G
GU\203\335\321\"\207\320 \207\316
!\203\372
G
GU\203\367\317\315D\"A@\207\320 \207
G
GU\203
\322\"\207\320 \207\323\306#\207\211\211\242\315=\262
\203 
\323\306#\207
\242\324=\203~
\211\242\324=\203N
\325\306A@A@\"\326\306\3118A@\"\306\3118A@\"\"\"\207\211\211:?\206Y
\211@\327>\262
\204o
\211\211:?\206i
\211@\330>\262
?\205}
\325\306A@\"\306\3118\"\"\207\211\242\324=\203\264

\211:?\206\220
\211@\327>\262
\204\245

\211:?\206\240
\211@\330>\262
\204\264
\325\306A@\"\306\3118\"\"\207
\242\331=\203\211\211:?\206\306
\211@\332>\262
\203\211\211:\203\360
\211@\333>\203\350
\211A@\211\250\205\343
\211\334W\266\202\202\365
\335
!\262
\202\365
\211\334W\262
\203
\336\306\336!\"!\207\337A@\306\3118\"\306\3408\"#\207\211\242\331=\2030
\211:?\206&\211@\332>\262
\2030\306
\"\207
\242\331=\203\370\341!\203\370\211\242\331=\203\370\341
!\203\370\306\3118\"\306\3408\"
\242\331=\204p\331A@\342>\203j\340\202k\334\211F\262\211\242\331=\204\212\331A@\343>\203\204\340\202\205\334\211F\262
\344\3118A@\345>\204\236\346\3118!\205\243A@\347>\3408A@\350>\204\270\346\3408!\205\275A@\351>\3118A@\352>\204\323\346\3118!\205\331A@\353>\3408\nA@\354>\204\357\346\340\n8!\205\365A@\355>&\207
\242\356=\203\211\242\356=\203\3118\3118\232\203\357\306A@A@\"\3118\"\207
\242\356=\203A\211\211:?\2060\211@\332>\262
\203A\357\306A@\"\3118\"\207\211\242\356=\203d
\211:?\206S\211@\332>\262
\203d\357\306A@\"\3118\"\207
\242\360=\203\215\211\211:?\206v\211@\361>\262
\203\215\302\311\\\362\306\363\364\"\"\364\")!\207\211\242\360=\203\251
\211:?\206\237\211@\361>\262
\203\251\306
\"\207\365\366#\207" [calc-internal-prec (frac float cplx polar) math-normalize math-want-polar math-polar polar math-mul math-fix-circular math-add 2 math-complex cplx math-sub vec math-matrixp math-mul-mats math-dimension-error math-mul-mat-vec math-dot-product math-map-vec-2 sdev math-make-sdev math-hypot (frac float cplx polar hms) (frac float cplx polar hms date sdev intv mod vec) intv (frac float hms) (frac float) 0 math-negp math-neg math-make-intv 3 math-intv-constp (2 3) (1 3) math-combine-intervals (2 3) math-infinitep (2 3) (2 3) (1 3) (1 3) (2 3) (1 3) (1 3) mod math-make-mod hms (frac float) math-to-hms math-from-hms deg calc-record-why "*Incompatible arguments for *"] 15 (#$ . 32197)])
#@12 

(fn A B)
(defalias 'math-mul-float #[514 "\300\301A@A@\"\3028\3028\\\"\207" [math-make-float math-mul 2] 7 (#$ . 35118)])
#@10 

(fn A)
(defalias 'math-sqr-float #[257 "\300\301A@A@\"\3028\3028\\\"\207" [math-make-float math-mul 2] 6 (#$ . 35252)])
#@27 

(fn A &optional FINITE)
(defalias 'math-intv-constp #[513 "\3008\211:?\206
\211@\301>\262
\204&\3008\302\232\205J\211\203&
A@\303>\205J\3048\211:?\2063\211@\301>\262
\206J\3048\305\232\205J\211?\206J
A@\306>\207" [2 (frac float hms) (neg (var inf var-inf)) (0 1) 3 (var inf var-inf) (0 2)] 5 (#$ . 35384)])
#@12 

(fn A B)
(defalias 'math-mul-zero #[514 "\301
!\203\211\211\242\302=\262
\203\303\304#\207\305\306\"\207\307
!\203#\310\207\311\211\242\312=\203\242\3138\314\232\203AA@\315>\203A\3138\262\3168\317\232\203VA@\320>\203V\3168\262

\204^\211\203\242\321!\204z\322!\203\210\323>\204z\324\262\325\211\262\203\210\312\316\206\201\306\206\206\306F\207\326!\203\236\327\312\316\206\226\306\206\233\306F!\207\266\330\207\331!\204\256\331!\203\262\266\332\207\266\306\207" [calc-infinite-mode math-known-matrixp vec math-map-vec-2 math-mul math-mimic-ident 0 math-infinitep (var nan var-nan) nil intv 2 (neg (var inf var-inf)) (2 3) 3 (var inf var-inf) (1 3) math-posp math-zerop (-1 1) (neg (var inf var-inf)) (var inf var-inf) math-negp math-neg (var nan var-nan) math-floatp (float 0 0)] 9 (#$ . 35712)])
#@12 

(fn A B)
(defalias 'math-mul-symb-fancy #[514 "\203
\232\204\301E\206\267
\302

=\2062
:\2052
@\303=\2052
A@
=\2052\3048\305U\266\202\203;\211\206\267
\306

=\206\\
:\205\\
@\303=\205\\
A@
=\205\\\3048\305U\266\202\203g\307
!\206\267
\211\242\310=\262
\203w\311
!\204\207\211\211\242\310=\262
\203\217\311!\203\217\312\313#\206\267\211\211:?\206\232\211@\314>\262
\203\266
\211:?\206\252\211@\314>\262
\204\266\313
\"\206\267
\242\315=\203\310\307\313A@\"!\206\267\211\242\315=\203\332\307\313A@\"!\206\267
\242\301=\203\357\313A@\313\3048\"\"\206\267
\242\316=\203\301
\3048\211\211:\203
\211@\317>\203
\211A@\211\250\205
\211\305W\266\202\202#
\320
!\262
\202#
\211\305W\262
\206F
\211:\205F
\211@\315=\206F
\211@\321>\205F
\322
A@!\206F
\322\3048!\262
\203\301
\211\242\316=\203\247
\304
8\211\211:\203z
\211@\317>\203r
\211A@\211\250\205m
\211\305W\266\202\202
\320
!\262
\202
\211\305W\262
\206\242
\211:\205\242
\211@\315=\206\242
\211@\321>\205\242
\322
A@!\206\242
\322\3048!\262
\204\301
\311
\323\"\203\301
\324
\325\316A@\307\3048!E!\"\206\267\211\242\316=\203\224\304
8\211\211:\203\360
\211@\317>\203\350
\211A@\211\250\205\343
\211\305W\266\202\202\365
\320
!\262
\202\365
\211\305W\262
\206\211:\205\211@\315=\206\211@\321>\205\322
A@!\206\322\3048!\262
\203\224
\242\316=\203y\3048\211\211:\203L\211@\317>\203D\211A@\211\250\205?\211\305W\266\202\202Q\320
!\262
\202Q\211\305W\262
\206t\211:\205t\211@\315=\206t\211@\321>\205t\322
A@!\206t\322\3048!\262
\204\224\326
A@!\204\224\324\325\316A@\307\3048!E!\"\206\267
\242\327=\203\317\311\323\"\204\251\311
\323\"\203\317\330\3048\323\331\323%\211\203\277\313A@\"\202\312\324\313A@\"\3048\"\262
\206\267\211\242\327=\203\344\324\313A@\"\3048\"\206\267\211\242\332=\2030
\211:?\206\366\211@\333>\262
\2030\211A@\211:?\206\211@\333>\262
\204\304
8\211:?\206\211@\333>\262
\2030\334\313A@\"\313\3048\"\"\206\267\211\242\335=\203|
\211:?\206B\211@\333>\262
\203|\211A@\211:?\206T\211@\333>\262
\204k\304
8\211:?\206f\211@\333>\262
\203|\336\313A@\"\313\3048\"\"\206\267\211\242\301=\203\263\211A@\211:?\206\220\211@\333>\262
\203\263
\211:?\206\240\211@\333>\262
\204\263\313
A@\313\3048\"\"\206\267
\242\337=\203\374
G\304U\203\374\211\242\337=\203\334\211G\304U\203\334\337\313A@A@\"D\206\267\311
!\203\355\337\313A@\"D\206\267\326
!\203\374\313A@\"\206\267\211\242\337=\203*\211G\304U\203*\311!\203\337\313A@\"D\206\267\326!\203*\313A@\"\206\267\340\323\"\203x\211\242\337=\203Q\211G\304U\203Q\337\313A@A@A@\"GSE\206\267\311
!\203g\337\313A@A@\"GSE\206\267\326
!\203x\313A@A@\"\206\267\340
\323\"\203\306
\242\337=\203\237
G\304U\203\237\337\313A@A@A@\"GSE\206\267\311!\203\265\337\313A@A@\"GSE\206\267\326!\203\306\313A@A@\"\206\267\322
!\203\327\313\307!\307!\"\206\267\211\242\335=\203\357\322!\203\357\313\307!\307!\"\206\267\211\242\301=\203\330A@\331\211\323%\211\205	\313
\3048\"\262
\202\330\331\211\211%\206\267
\341\232\203\"
\206\267\211\342\232\203,\211\206\267
\343\232\2036
\206\267\211\344\232\203@\211\206\267\211\345\232\203\246\346!\211\347\267\202a
\202\241\350\202\241\307!\202\241\351\202\241@\352=\203r\353!\203r\354\202\241@\355=\203\220\356A@!\203\220\301\355\305\357\3048!EE\202\241@\360=\205\241\301\360\302\3048EE\262
\206\267
\361\232\203\263\313
\"\206\267\301E\207" [math-simplify-only * 1 float 2 0 -1 math-neg vec math-known-scalarp math-map-vec-2 math-mul (frac float cplx polar hms date sdev intv mod) neg ^ (frac float) math-negp (* /) math-looks-negp t math-div math-normalize math-known-matrixp / math-combine-prod nil + (frac float cplx polar) math-add - math-sub calcFunc-idn math-identity-matrix-p (var nan var-nan) (var nan var-nan) (var uinf var-uinf) (var uinf var-uinf) (var inf var-inf) math-possible-signs #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 1359 6 1363 1 1367 3 1373)) (intv 3 0 (var inf var-inf)) (intv 3 (neg (var inf var-inf)) 0) intv math-intv-constp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) cplx math-zerop calcFunc-sign polar (var inf var-inf)] 10 (#$ . 36566)])
#@21 

(fn A &rest REST)
(defalias 'calcFunc-div #[385 "\211\203\300@E\262\211A\262
\202\301!\207" [/ math-normalize] 5 (#$ . 40888)])
#@12 

(fn A B)
(defalias 'math-div-objects-fancy #[514 "
\211:?\206\211@\302>\262
\203\271\211\211:?\206\211@\302>\262
\203\271\303\304\"\203I\305!\305!\306\307A@A@\"\310\311\3128\3128\"!E\266\202\202\267
\211:?\206T\211@\313>\262
\203p\314!\262\315\307A@\"\307\3128\"E\202\267\314!\262\314!\262\307\315\316\317A@A@\"\317\3128\3128\"\"\311\317\3128A@\"\317A@\312	8\"\"E\316\320A@!\320\3128!\"\"!\207\321
!\203O
\322
!\203J
\211G\211\242\323=\262
\203
\321!\203

G
U\203\346\324\325!#\207A@G
U\203\376\326\324\325\326!!\326!#!\207\327 \207G
U\203
\330\324\325!\331!#\332\"\207\327 \207\332

=\206:

:\205:

@\333=\205:

A@
=\205:
\3128\334U\266\202\203C
\335!\207\317\335!\"\207\336
\337\"\207
\211\242\323=\262
\203o
\211\211:?\206d
\211@\340>\262
\203o
\341\307#\207
\242\342=\203\320
\211\242\342=\203\234
\307A@A@\"\343
\307\344\3128\317\3128\"\"A@\"\"\207\211\211:?\206\247
\211@\345>\262
\204\274
\211\211:?\206\267
\211@\346>\262
\204\313
\343\307A@\"\307\3128\"\"\207\336\347\"\207\211\242\342=\203

\211:?\206\342
\211@\345>\262
\204\367

\211:?\206\362
\211@\346>\262
\204
\307A@\"\343
\307\317\3128\"A@\"\"\207
\242\350=\203m\211\211:?\206\211@\351>\262
\203m\211\211:\203I\211@\352>\203A\211A@\211\250\205<\211\334W\266\202\202N\353
!\262
\202N\211\334W\262
\203Z\354\307\354!\"!\207\355A@\307\3128\"\307\3568\"#\207\211\242\350=\203\256
\211:?\206\211@\351>\262
\203\256\312
8\211:\203\253\211@\357>\203\243\211A@\211\250\205\236\211\334V\266\202\202\260\360
!\262
\202\260\211\334V\262
\204\350\312
8\211:\203\324\211@\333=\203\314\211A@\334=\262
\202\331\361
!\262
\202\331\211\334=\262
\2036\211A@\362>\204\350\2036
\211:\203
\211@\352>\203\211A@\211\250\205\211\334W\266\202\202\353
!\262
\202\211\334W\262
\203\354\307\354!\"!\207\332\355\363A@H\307\3568\"\307\3128\"#)\207\356
8\211:\203]\211@\352>\203U\211A@\211\250\205P\211\334W\266\202\202b\353
!\262
\202b\211\334W\262
\204\232\356
8\211:\203\206\211@\333=\203~\211A@\334=\262
\202\213\361
!\262
\202\213\211\334=\262
\203\243\211A@\364>\204\232\203\243\354\307\354!\"!\207\203\251\365\207\336
\366\"\207
\242\350=\203\213\367!\203\213\211\242\350=\203\213\367
!\203\213\312
8\211:\203\357\211@\357>\203\347\211A@\211\250\205\342\211\334V\266\202\202\364\360
!\262
\202\364\211\334V\262
\204,\312
8\211:\203\211@\333=\203\211A@\334=\262
\202\361
!\262
\202\211\334=\262
\203\211A@\370>\204,\203\332\307\3128\"\307\3568\"
\242\350=\204T\350A@\371>\203N\356\202O\334\211F\262\211\242\350=\204n\350A@\372>\203h\356\202i\334\211F\262
\373\3128A@\374>\204\214\375\3128!\205\221\361\3128!?\205\221A@\376>\3568A@\377>\204\260\375\3568!\205\267\361\3128!?\205\267A@\201@>\3128A@\201A>\204\331\375\3128!\205\341\361\356\n8!?\205\341A@\201B>\3568\nA@\201C>\204\375\356\n8!\205\361\356\f8!?\205A@\201D>&)\207\356
8\211:\2036\211@\352>\203.\211A@\211\250\205)\211\334W\266\202\202;\353
!\262
\202;\211\334W\262
\204u\356
8\211:\203_\211@\333=\203W\211A@\334=\262
\202d\361
!\262
\202d\211\334=\262
\203~\211A@\201E>\204u\203~\354\307\354!\"!\207\203\206\201F\207\336
\366\"\207
\242\201G=\203\275\211\242\201G=\203\275\3128\3128\232\203\275\201H\201IA@A@\3128#\3128\"\207
\242\201G=\203\352\211\211:?\206\321\211@\351>\262
\203\352\201H\201IA@\3128#\3128\"\207\211\242\201G=\203
\211:?\206\376\211@\351>\262
\203\201H\201IA@\3128#\3128\"\207
\242\201J=\203[\211\242\201J=\203A\303	T\307\201K\201L\"\201K\201L\"\")!\207\303	\312\\\201M\307\201K\201L\"\"\201L\")!\207\201N\201O#\207" [calc-infinite-mode calc-internal-prec (frac float cplx polar) math-normalize math-want-polar math-polar polar math-div math-fix-circular math-sub 2 (frac float) math-complex cplx math-add math-mul math-sqr math-matrixp math-square-matrixp vec math-lud-solve math-matrix-lud math-transpose math-dimension-error math-mat-col math-col-matrix 1 float 0 calcFunc-inv math-reject-arg square-matrixp (frac float cplx polar hms date sdev intv mod) math-map-vec-2 sdev math-make-sdev math-hypot (frac float cplx polar hms) (frac float cplx polar hms date sdev intv mod vec) realp intv (frac float hms) (frac float) math-negp math-neg math-make-intv 3 (frac float) math-posp math-zerop (0 1) [0 2 1 3] (0 2) (intv 3 (neg (var inf var-inf)) (var inf var-inf)) "*Division by zero" math-intv-constp (0 1) (2 3) (1 3) math-combine-intervals (2 3) math-infinitep (2 3) (2 3) (1 3) (1 3) (2 3) (1 3) (1 3) (0 2) (intv 3 (neg (var inf var-inf)) (var inf var-inf)) mod math-make-mod math-div-mod hms math-from-hms deg math-to-hms calc-record-why "*Incompatible arguments for /"] 15 (#$ . 41032)])
#@12 

(fn A B)
(defalias 'math-div-by-zero #[514 "\301!\203
\302\232\204\211\303\232\204\304>\203
\207\305\207\203I\306!\203(\307\207\310=\2033\311\312\"\207\313=\203>\311\314\"\207
\242\315=\203G\316\207\317\207\320\321\"\207" [calc-infinite-mode math-infinitep (var nan var-nan) (var uinf var-uinf) (-1 1) (var uinf var-uinf) math-zerop (var nan var-nan) 1 math-mul (var inf var-inf) -1 (neg (var inf var-inf)) intv (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var uinf var-uinf) math-reject-arg "*Division by zero"] 5 (#$ . 45901)])
#@12 

(fn A B)
(defalias 'math-div-zero #[514 "\301
!\203\211\211\242\302=\262
\203\303\304#\207\305\306\"\207\211\307\232\203\"\207\211\242\310=\203r\311
!\203r\312
!\204r\313
!\204r\203m\310\314\315\3168!\203U\317>\203U\3168\202V\320\315\3148!\203j\321>\203j\3148\202k\322F\207\323
\324\"\207
\207" [calc-infinite-mode math-known-matrixp vec math-map-vec-2 math-div math-mimic-ident 0 (var nan var-nan) intv math-intv-constp math-posp math-negp 3 math-zerop 2 (1 -1) (neg (var inf var-inf)) (1 -1) (var inf var-inf) math-reject-arg "*Division by zero"] 8 (#$ . 46468)])
(defvar math-trig-inverses '((calcFunc-sin . calcFunc-csc) (calcFunc-cos . calcFunc-sec) (calcFunc-tan . calcFunc-cot) (calcFunc-sec . calcFunc-cos) (calcFunc-csc . calcFunc-sin) (calcFunc-cot . calcFunc-tan) (calcFunc-sinh . calcFunc-csch) (calcFunc-cosh . calcFunc-sech) (calcFunc-tanh . calcFunc-coth) (calcFunc-sech . calcFunc-cosh) (calcFunc-csch . calcFunc-sinh) (calcFunc-coth . calcFunc-tanh)))
#@11 

(fn TR)
(defalias 'math-div-new-trig #[257 "\203\301
E\211\207\211\211\207" [math-div-trig *] 4 (#$ . 47471)])
#@12 

(fn NTR)
(defalias 'math-div-new-non-trig #[257 "\203\301
E\211\207\211\211\207" [math-div-non-trig *] 4 (#$ . 47596)])
#@13 

(fn EXPR)
(defalias 'math-div-isolate-trig #[257 "\211\242\300=\203\301
A@!\210\302\3038!\207\301
!\207" [* math-div-isolate-trig-term math-div-isolate-trig 2] 4 (#$ . 47730)])
#@13 

(fn TERM)
(defalias 'math-div-isolate-trig-term #[257 "\301
\242\"\211\203\302
AAB!\207\303!\207" [math-trig-inverses assoc math-div-new-trig math-div-new-non-trig] 5 (#$ . 47918)])
#@12 

(fn A B)
(defalias 'math-div-symb-fancy #[514 "\306
!\203\307\310\311\"\"\206>\203!
\232\204!\312E\206>\211\313

=\206B
:\205B
@\314=\205B
A@
=\205B\3158\316U\266\202\203K
\206>\211\311

=\206l
:\205l
@\314=\205l
A@
=\205l\3158\316U\266\202\203w\317!\206>
\211\242\320=\262
\203\217\321
!\203\217\322\323#\206>\211\242\324=\203$
\315
8\211\211:\203\276\211@\325>\203\266\211A@\211\250\205\261\211\316W\266\202\202\303\326
!\262
\202\303\211\316W\262
\206\346\211:\205\346\211@\327=\206\346\211@\330>\205\346\331
A@!\206\346\331\3158!\262
\204

\313

=\206\f

:\205\f

@\314=\205\f

A@
=\205\f
\3158\316U\266\202\203$
\307\332\324A@\317\3158!E!\"\206>
\242\327=\2036
\317\323A@\"!\206>\211\242\327=\203H
\317\323A@\"!\206>
\242\312=\203]
\323A@\307\3158\"\"\206>\211\242\312=\203\204
\321
A@\333\"\204v
\321\3158\333\"\203\204
\323\307\3158\"A@\"\206>\211\242\334=\203\231
\307\335\3158A@\"\"\206>
\242\336=\203\345

A@\211:?\206\255
\211@\337>\262
\204\304
\3158\211:?\206\277
\211@\337>\262
\203\345
\211\211:?\206\317
\211@\337>\262
\203\345
\340\323A@\"\323\3158\"\"\206>
\242\341=\2031
A@\211:?\206\371
\211@\337>\262
\204\3158\211:?\206\211@\337>\262
\2031\211\211:?\206\211@\337>\262
\2031\342\323A@\"\323\3158\"\"\206>
\242\341=\204>\331!\203O\331
!\203O\323\317!\317!\"\206>\211\242\341=\203g\331!\203g\323\317!\317!\"\206>
\242\343=\203\260
G\315U\203\260\211\242\343=\203\220\211G\315U\203\220\343\323A@A@\"D\206>\321
!\203\241\343\323A@\"D\206>\306
!\203\260\323A@\"\206>\211\242\343=\203\336\211G\315U\203\336\321!\203\317\343\323A@\"D\206>\306!\203\336\323A@\"\206>	\203\344\211\345
!\210\205\n\203\374\323\307\"\n\"\202\307\"*\206>\f\203\306!\204\306
!\203\346\344\333\344%\202\212
\242\347=\203d\211\242\347=\203L\346A@A@\344\333\211%\211\205G\323\307\3158\"\3158\"\262
\202\212\346A@\344\333\211%\211\205_\307
\3158\"\262
\202\212\211\242\347=\203\203\346A@\344\333\211%\211\205~\323
\3158\"\262
\202\212\346\344\333\344%\206>\350!\203 \350
!\203\233\351\207
\352\232\204\247
\353\232\203\253
\202
\354\232\203 \355
!\204\306\211\242\356=\203\332\357\3158!\203\332\211\242\356=\203\326\360
\333\"\204\326\361\207
\202\326
!\204\357\211\242\356=\203\357\3628!\203\211\242\356=\203\377\360
\333\"\204\377\363\207\317!\202\211\242\356=\203 \326\3158!\203 \355\3628!\203 \364\206>\350
!\203:\211\365\232\2030\211\2027\313\366
\")\206>\312E\207" [math-simplify-only math-simplifying math-div-non-trig math-div-trig calc-matrix-mode calc-infinite-mode math-known-matrixp math-mul math-pow -1 / 1 float 2 0 math-neg vec math-known-scalarp math-map-vec-2 math-div ^ (frac float) math-negp neg (* /) math-looks-negp math-normalize t frac math-make-frac + (frac float cplx polar) math-add - math-sub calcFunc-idn nil math-div-isolate-trig math-combine-prod * math-infinitep (var nan var-nan) (var nan var-nan) (var uinf var-uinf) (var inf var-inf) math-posp intv math-zerop math-intv-constp (intv 3 0 (var inf var-inf)) 3 (intv 3 (neg (var inf var-inf)) 0) (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var nan var-nan) math-mul-zero] 10 (#$ . 48113)])
#@12 

(fn A B)
(defalias 'calcFunc-ldiv #[514 "\300!\203\301
\"\207\302\303\304\"\"\207" [math-known-scalarp math-div math-mul math-pow -1] 6 (#$ . 51406)])
#@12 

(fn A B)
(defalias 'calcFunc-mod #[514 "\300\301E!\207" [math-normalize %] 6 (#$ . 51571)])
#@12 

(fn A B)
(defalias 'math-mod-fancy #[514 "\211\300\232\2033\301!\204\302!\203
\207\303!\203\207
\242\304=\203.\303\3058!\203,\306\207
\207\307E\207
\242\310=\203W\211\211:?\206E\211@\311>\262
\203W\301
!\203W\312A@\"\207
\242\304=\203p\313\314\"\203p\301
!\203p\315\"\207
\211:?\206{\211@\316>\262
\203\210\317\320\"\210\202\215\317\320\"\210\307E\207" [(var inf var-inf) math-posp math-zerop math-negp intv 2 (intv 3 0 (var inf var-inf)) % mod (frac float) math-make-mod math-intv-constp t math-mod-intv (frac float hms) calc-record-why anglep] 5 (#$ . 51673)])
#@12 

(fn A B)
(defalias 'calcFunc-pow #[514 "\300\301E!\207" [math-normalize ^] 6 (#$ . 52278)])
#@65 Raise A to the power of B, where A is a form of zero.

(fn A B)
(defalias 'math-pow-of-zero #[514 "\301
!\203\302!\262\211\303=\203\304\207\211\211:\2032\211@\305=\203*\211A@\303=\262
\2027\306
!\262
\2027\211\303=\262
\203H\203@\307\207\310\311E\312\"\207\313
!\203P
\207\314
!\203[\315\304\"\207\316
!\203c\317\207\211@\320=\203\200\203\200\321\3228!\203\200\323\3248!\203\200\325\207\311E\207" [calc-infinite-mode math-floatp math-float 0 1 float math-zerop (var nan var-nan) math-reject-arg ^ "*Indeterminate form" math-known-posp math-known-negp math-div math-infinitep (var nan var-nan) intv math-negp 2 math-posp 3 (intv 3 (neg (var inf var-inf)) (var inf var-inf))] 6 (#$ . 52380)])
#@12 

(fn A B)
(defalias 'math-pow-zero #[514 "
\242\300=\203\301\302\3038\"\207\304!\203\305\302\"\207\306!\203!\307\207
@\310=\203C\311!\203C\312!\204:\313!\203A\311\314\"\204C\315\207\316!\204O\316
!\203Q\317\207\302\207" [mod math-make-mod 1 2 math-known-matrixp math-mimic-ident math-infinitep (var nan var-nan) intv math-intv-constp math-posp math-negp t (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-floatp (float 1 0)] 6 (#$ . 53105)])
#@12 

(fn A B)
(defalias 'math-pow-fancy #[514 "
\211:?\206\211@\305>\262
\203\267\211\211:?\206\211@\305>\262
\203\267\306
!\307>\203S\310\311!\2035\312!\2026!\211\211:?\206B\211@\305>\262
\205N\313
\314\315\"\"\262
\202{\211@\316=\203~\315
8\250\203~\315
8\317X\203~\320\3158\"\211\205y\321
A@\"\262
\206	
\317=\204\212
\322\232\203\227\323
!\203\227\324\325\"\206	\203\242\326E\206	\327	\315\\\330\312\314\331\312!!\"!!)!\207
\211:?\206\302\211@\332>\262
\203\327\211\211:?\206\322\211@\333>\262
\204\272\334\n\203\347\n\232\204\347\326E\207\242\335=\203B
\336A@!\203\376\336\3158!\204
\203B
\337=\204B
\340A@!\204B
\340\3158!\204B

\341U\203=
\342A@!\203=
\342\3158!\203=
\314\343\3158\341\"\343A@\341\"\"\207\326E\207\242\335=\203o
\344!\204_
\345A@!\204_
\345\3158!\203o
\314\313A@\"\313\3158\"\"\207\242\346=\203\224
\344!\204\204
\345\3158!\203\224
\347\313A@\"\313\3158\"\"\207\242\346=\203\277
\345A@!\203\277
\350A@\351\"\204\277
\314\313A@\"\313\347\351\3158\"\"\"\207\242\326=\203\341
\344!\204\324
\345A@!\203\341
\313A@\314\3158\"\"\207\242\352=\203\344!\204\366
\345A@!\203\313A@\347\315\"\"\207\242\326=\203/\353\3158!\203/\306!\354>\203/\355A@!\203/\356\313A@\314\3158\"\"!\207\357!\203_\360!\203_\353!\203J\313\361!\"\206X\362!\205X\361\313\361!\"!\211\262\203_\207\242\363=\203{\355A@!\203{\353!\203{\313A@\"\207\364!\203\306\365\232\203\211\207@\366=\203\235\314\313\341\"\313A@\"\"\207\367!\203\245\207\370!\203\265\311!\203\263\371\207\372\207
\242\373=\203\304\374!\203\304\375\207\376\207\364!\203o\334\370!\203\336\313\347\351\"\361!\"\207\367!\204\346\377\207\350\201@!\211\262\351\"\203\370\201A\207\211\351\201B\"\341U\266\202\203\311!\203\201C\207\372\207\351\201B\"\341U\266\202\203$\207\341\201B\"\341U\266\202\2037\201D\207@\373=\203j\374!\203j\341\201B\"\341U\266\202\203f\350\201E8\351\"\203b\201F\207\201G\207\201H\207\326E\207\242\201I=\203\220G\315U\203\220\344!\203\220\201I\313A@\"D\207\211:?\206\233\211@\333>\262
\203\254\201J\201K\"\210\202\265\201J\201K\"\210\326E\207
\242\201L=\203N\211\242\201L=\203N\201M!\203\201M
!\203\327	\315\\\331\312A@!!\330\312\314A@\"!!\201N
\314\201O\314\3158\347A@
A@\"\"\314\3158	\"\"\"\"\266\202)!\207\313A@A@\"\201N
\314\201O\314\315	8\347	A@A@\"\"\314\315	8\201PA@!\"\"\"\"\207
\242\201L=\203\273\211\211:?\206b\211@\305>\262
\203\273\201M!\203\232\327	\315\\\313A@\201Q\351\"\"\201N\314A@\"\314\314\315	8\"\"\"\262
)!\207\201N\313A@\"\314\313A@\201R\341\"\"\314\3158\"\"\"\207\211\242\201L=\203\375
\211:?\206\317\211@\305>\262
\203\375\327	\315\\\331\312!!\201S\314A@\"!\201N
\314\314\315	8\"\"\"\266\202)!\207
\242\373=\203Q\374!\203Q\211\211:?\206\211@\201T>\262
\203Q\211\211\250\205%\211\372Y\262
\204\3158\211:\203S\211@\201U>\203K\211A@\211\250\205F\211\372V\266\202\202X\367
!\262
\202X\211\372V\262
\204\201V\3158!\203\240\211\211:\203\214\211@\201U>\203\204\211A@\211\250\205\211\372V\266\202\202\221\367
!\262
\202\221\211\372V\262
\204\201W
!\203\240\f\204\201E8\211:\203\313\211@\201X>\203\303\211A@\211\250\205\276\211\372W\266\202\202\320\370
!\262
\202\320\211\372W\262
\204\201V\201E8!\203Q\211\211:\203\211@\201U>\203\376\211A@\211\250\205\371\211\372V\266\202\202\367
!\262
\202\211\372V\262
\204\201W
!\203Q\f\203Q\201Y
!\203'\356!\262\201V\201E8!\2037\341\2028\351\201ZA@\313\3158\"\313\201E8\"#)\207\211\242\373=\203\266\374
!\203\266
\211:?\206k\211@\201T>\262
\203\266
\211:\203\227\211@\201U>\203\217\211A@\211\250\205\212\211\372V\266\202\202\234\367
!\262
\202\234\211\372V\262
\203\266\201Z
A@\313\3158\"\313\201E8\"#\207
\242\373=\203h\374!\203h\211\242\373=\203h\374
!\203h\3158\211:\203\371\211@\201X>\203\361\211A@\211\250\205\354\211\372W\266\202\202\376\370
!\262
\202\376\211\372W\262
\2042\315
8\211:\203*\211@\201X>\203\"\211A@\211\250\205\211\372W\266\202\202/\370
!\262
\202/\211\372W\262
\203\226\3158\211:\203[\211@\201U>\203S\211A@\211\250\205N\211\372V\266\202\202`\367
!\262
\202`\211\372V\262
\203h\201E
8\211:\203\216\211@\201U>\203\206\211A@\211\250\205\201\211\372V\266\202\202\223\367
!\262
\202\223\211\372V\262
\204h\313\3158\"\313\201E8\"
\242\373=\204\302\373A@\201[>\203\274\201E\202\275\372\211F\262\211\242\373=\204\340\373A@\201\\>\203\332\201E\202\333\372\211F\262
\201]\3158A@\201^>\204\370\364\3158!\205\377A@\201_>\201E8A@\201`>\204\364\201E8!\205!A@\201a>\3158A@\201b>\2049\364\3158!\205AA@\201c>\201E8\nA@\201d>\204]\364\201E\n8!\205eA@\201e>&\207
\242\201f=\203\232\211\242\201f=\203\232\3158\3158\232\203\232\201g\201hA@A@\3158#\3158\"\207
\242\201f=\203\311\211\211:?\206\260\211@\201i>\262
\203\311\201g\201hA@\3158#\3158\"\207\211\242\201f=\203\367
\211:?\206\337\211@\201i>\262
\203\367\201g\201hA@\3158#\3158\"\207
\211:?\206	\211@\305>\262
\204	\201j\201k\"\207\201j
\201k\"\207" [calc-symbolic-mode calc-internal-prec math-simplify-only calc-matrix-mode calc-infinite-mode (frac float cplx polar) math-quarter-integer (1 2 3) math-sqrt math-floatp math-float math-pow math-mul 2 frac 10 math-nth-root math-ipow (float 1 1) math-num-integerp calcFunc-scf (float 1 0) ^ math-normalize math-exp-raw math-ln-raw (frac float cplx polar hms date sdev intv mod vec) (frac float cplx polar hms date sdev intv mod) nil * math-known-matrixp scalar math-known-scalarp -1 math-known-square-matrixp math-pow-fancy math-known-num-integerp math-known-nonnegp / math-div math-equal-int 1 calcFunc-sqrt math-known-evenp (1 2 3) math-known-realp math-abs math-looks-negp math-known-integerp math-neg math-known-oddp calcFunc-abs math-infinitep (var nan var-nan) neg math-posp math-negp (float 0 0) 0 intv math-intv-constp (intv 3 0 (var inf var-inf)) (var nan var-nan) (var nan var-nan) calcFunc-abssqr (var nan var-nan) math-compare (float 0 0) (var uinf var-uinf) 3 (intv 3 0 1) (intv 3 0 (var inf var-inf)) (intv 3 (neg (var inf var-inf)) (var inf var-inf)) calcFunc-idn calc-record-why objectp sdev math-constp math-make-sdev math-hypot calcFunc-ln math-sub math-add calcFunc-exp (frac float) (frac float) math-zerop Math-integerp (frac float) math-evenp math-sort-intv (2 3) (1 3) math-combine-intervals (2 3) (2 3) (2 3) (1 3) (1 3) (2 3) (1 3) (1 3) mod math-make-mod math-pow-mod (frac float hms) math-reject-arg numberp] 15 (#$ . 53582)])
#@10 

(fn X)
(defalias 'math-quarter-integer #[257 "\300
!\203\301\207\302
!\203\303\304!!\262
\211\205\251\305
Z\207\211@\306=\203J\307
8\307=\203.\307\207\307
8\305=\205\251\211A@\262
\211:\203F\211A@\202G\211\305\246\207\211@\310=\205\251\307
8\301Y\203[\301\207\307
8\311U\203}\211A@\262
\211:\203s\211A@\202t\211\312\246\313U\205\251\307\207\307
8\314U\205\251\211A@\262
\211:\203\225\211A@\202\226\211\315\246\262
\211\316U\203\242\317\207\211\320U\205\251\321\207" [Math-integerp 0 math-negp math-quarter-integer math-neg 4 frac 2 float -1 10 5 -2 100 25 1 75 3] 4 (#$ . 60330)])
#@14 

(fn A B M)
(defalias 'math-pow-mod #[771 "\300!\203[\300!\203[\300
!\203[
\211:\2037\211@\301>\203/\211A@\211\250\205*\211\302W\266\202\202<\303
!\262
\202<\211\302W\262
\203M\304\305\306\211[\262
##\207\211\305=\203U\302\207\307#\207\310\311\"\"\207" [Math-integerp (frac float) 0 math-negp math-div-mod 1 math-pow-mod math-pow-mod-step math-mod math-pow] 9 (#$ . 60941)])
#@14 

(fn A N M)
(defalias 'math-pow-mod-step #[771 "\301=\203\302\303\"\210
\304\267\202\305\2029\2029\306\307\310\211\"\"\311!#\312!\2030\211\2027\313\310\"\"\262
\301=\203D\302\303\"\210\207" [calc-display-working-message lots math-do-working "pow" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 17 1 21)) 1 math-pow-mod-step math-imod math-mul math-div2 math-evenp math-mod] 8 (#$ . 61345)])
#@12 

(fn A B)
(defalias 'math-min #[514 "
:\203\254
@\300=\203\254\211:\203\243\211@\300=\203\243\3018A@\302>\3038A@\304>\305\306\3018\"\211\262\307U\203I\3018\262A@\310>\262\202Z\211\311U\203Z\206XA@\312>\262\306\3038\"\211\262\307U\203y\3038\262A@\313>\262\202\212\211\311U\203\212
\206\210A@\314>\262\315\203\223\301\202\224\311\203\234\316\202\235\311\\#\207\317\300\303\211F\"\207\211:\203\301\211@\300=\203\301\317\300\303\211F\"\207\306\"\211\316U\203\315
\207\211\301U\203\325\320\207\207" [intv 2 (2 3) 3 (1 3) nil math-compare -1 (2 3) 0 (2 3) (1 3) (1 3) math-make-intv 1 math-min (var nan var-nan)] 11 (#$ . 61806)])
#@28 

(fn &optional A &rest B)
(defalias 'calcFunc-min #[384 "
\204\300\207
\211:?\206\211@\301>\262
\2045
@\302=\2045
@\303=\203*\304!\2045\305!\2045\306\307\"\210\310\"\207" [(var inf var-inf) (frac float hms) date intv math-intv-constp math-infinitep math-reject-arg anglep math-min-list] 5 (#$ . 62498)])
#@12 

(fn A B)
(defalias 'math-min-list #[514 "\211\203C\211@\211:?\206\211@\300>\262
\2043\211@@\301=\2043\211@@\302=\203,\303
@!\2043\304
@!\203=\305\306@\"A\"\207\307
@\310\"\207
\207" [(frac float hms) date intv math-intv-constp math-infinitep math-min-list math-min math-reject-arg anglep] 6 (#$ . 62823)])
#@12 

(fn A B)
(defalias 'math-max #[514 "
:\203\f
@\300=\204\211:\203#\211@\300=\203#\301\302\301!\301!\"!\207\303\"\211\304U\203/
\207\211\305U\2037\306\207\207" [intv math-neg math-min math-compare -1 2 (var nan var-nan)] 7 (#$ . 63148)])
#@28 

(fn &optional A &rest B)
(defalias 'calcFunc-max #[384 "
\204\300\207
\211:?\206\211@\301>\262
\2045
@\302=\2045
@\303=\203*\304!\2045\305!\2045\306\307\"\210\310\"\207" [(neg (var inf var-inf)) (frac float hms) date intv math-intv-constp math-infinitep math-reject-arg anglep math-max-list] 5 (#$ . 63404)])
#@12 

(fn A B)
(defalias 'math-max-list #[514 "\211\203C\211@\211:?\206\211@\300>\262
\2043\211@@\301=\2043\211@@\302=\203,\303
@!\2043\304
@!\203=\305\306@\"A\"\207\307
@\310\"\207
\207" [(frac float hms) date intv math-intv-constp math-infinitep math-max-list math-max math-reject-arg anglep] 6 (#$ . 63735)])
#@10 

(fn A)
(defalias 'math-abs #[257 "\211\211:\203%\211@\300>\203\211A@\211\250\205\211\301W\266\202\202*\302
!\262
\202*\211\301W\262
\2031\303
!\207\211\211:?\206<\211@\304>\262
\203B\207\211@\305=\203R\306
A@\3078\"\207\211@\310=\203]\211A@\207\211@\311=\203\214\211AAA\203q\312\313!!\207\211AA\203\200\306
A@\3078\"\207\211A\203\213\314
A@!\207\207\211@\315=\203\236\315\314A@!\3078E\207\211@\316=\203)
\317
!\203)
\211\211:\203\320\211@\320>\203\310\211A@\211\250\205\303\211\301V\266\202\202\325\321
!\262
\202\325\211\301V\262
\203\331\207\303\3078!\322
\3238\"\211\324U\203\374\325A@\326>\203\367\307\202\370\323\301#\207\211\301U\203
\325A@\301=\203
\307\202
\323\301#\207\325A@\327>\203!
\307\202\"
\323\301\3238#\207\330
!\2035
\331\303!D\207\332
!\211\333>\203B

\206K
\211\334>\205K
\303!\262
\206o
\335
!\211\205b
\211\336\232\203a
\211\202b
\337\262
\206o
\340\341\"\210\331
D\207" [(frac float) 0 math-negp math-neg (frac float hms) cplx math-hypot 2 polar vec math-sqrt calcFunc-abssqr math-abs sdev intv math-intv-constp (frac float) math-posp math-compare 3 1 math-make-intv (0 1) (0 2) math-looks-negp calcFunc-abs math-possible-signs (2 4 6) (1 3) math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numvecp] 8 (#$ . 64060)])
(defalias 'calcFunc-abs 'math-abs)
#@10 

(fn A)
(defalias 'math-float-fancy #[257 "\211@\300=\203\211@
A@\301\302AA\"BB\207\211@\303>\203<\211A@\211:?\206)\211@\304>\262
\203<\211@\302A@!\305\3068DE\207\211@\307=\203w\211A@@\310=\203w\211A@A@\211:?\206[\211@\304>\262
\203w\310\302A@A@!\305\307\306A@8\3068EDE\207\311
!\203~\207\211@\305=\203\206\207\211@\312\236\211\205\223\211AAB\262
\206\234\313
\314\"\207" [intv mapcar math-float (* /) (frac float cplx polar) calcFunc-float 2 / * math-infinitep ((calcFunc-floor . calcFunc-ffloor) (calcFunc-ceil . calcFunc-fceil) (calcFunc-trunc . calcFunc-ftrunc) (calcFunc-round . calcFunc-fround) (calcFunc-rounde . calcFunc-frounde) (calcFunc-roundu . calcFunc-froundu)) math-reject-arg objectp] 8 (#$ . 65408)])
(defalias 'calcFunc-float 'math-float)
#@10 

(fn A)
(defalias 'math-trunc-fancy #[257 "\211@\300=\203\301
A@\3028\"\207\211@\303=\203\304
A@!\207\211@\305=\203*\304\306!!\207\211@\307=\2039\307
A@\310\211F\207\211@\311=\203H\311\304A@!D\207\211@\312=\203o\313\3028!\203d\304\314A@\304\3028!\"!\207\314\304A@!\3028\"\207\211@\315=\203o
\316\3028\317\232\203\213
A@\320>\203\213\310\202\214\302\3218\322\232\203\240A@\323>\203\240\310\202\241\324\\\3028\211:\203\311\211@\325>\203\301\211A@\211\250\205\274\211\310W\266\202\202\316\326
!\262
\202\316\211\310W\262
\203
\3028\211\250\206\352\211:\205\352\211@\327=\205\352\302
8\310Y\262
\203
A@\330>\203
\331\304\3028!\324\"\202
\304\3028!\3218\211:\203.
\211@\332>\203&
\211A@\211\250\205!
\211\310V\266\202\2023
\333
!\262
\2023
\211\310V\262
\203h
\3218\211\250\206O
\211:\205O
\211@\327=\205O
\302
8\310Y\262
\203h
A@\334>\203h
\331\304\3218!\335\"\202m
\304\3218!#\207\336
!\203v
\207\211\211\242\337=\262
\203\205
\340\341\"\207\342
!\203\232
\333
!\204\227
\326
!\203\230
\207\343\207\344
!\206\244
\345
\346\"\207" [frac math-quotient 2 cplx math-trunc polar math-complex hms 0 date mod math-messy-integerp math-make-mod intv math-make-intv (neg (var inf var-inf)) (0 1) 3 (var inf var-inf) (0 2) 1 (frac float) math-negp float (0 1) math-add (frac float) math-posp (0 2) -1 math-provably-integerp vec math-map-vec #[257 "\301
\"\207" [math-trunc-prec math-trunc] 4 "\n\n(fn X)"] math-infinitep (var nan var-nan) math-to-integer math-reject-arg numberp] 8 (#$ . 66193)])
#@15 

(fn A PREC)
(defalias 'math-trunc-special #[514 "\211\211:\205\211@\301=\205\302
8\303Y\262
\203\304
!\262
\211\250\204&\305
\306\"\210\211\303X\2034\307!\2034
\207\310\304\311\310\")![\"\207" [calc-prefer-frac float 2 0 math-trunc math-reject-arg fixnump math-provably-integerp calcFunc-scf t] 7 (#$ . 67734)])
#@10 

(fn A)
(defalias 'math-to-integer #[257 "\211\242\300\236\211\205
G\301U\205\211AAB\207" [((calcFunc-ffloor . calcFunc-floor) (calcFunc-fceil . calcFunc-ceil) (calcFunc-ftrunc . calcFunc-trunc) (calcFunc-fround . calcFunc-round) (calcFunc-frounde . calcFunc-rounde) (calcFunc-froundu . calcFunc-roundu)) 2] 4 (#$ . 68068)])
#@25 

(fn A &optional PREC)
(defalias 'calcFunc-ftrunc #[513 "
\211:\205\211@\300=\205\301
8\302Y\262
\203(\211\203&\211\250\203(\211\302X\203(
\207\303\304\"!\207" [float 2 0 math-float math-trunc] 6 (#$ . 68405)])
#@10 

(fn A)
(defalias 'math-floor-fancy #[257 "\300
!\203\207\211@\301=\203/\302
!\204$\303\3048!\203(\303\3058!\203(\306
!\207\307\306!\310\"\207\211@\311=\203>\311\312A@!D\207\211@\313=\203\257\314\3048\315\232\203Z
A@\316>\203Z\317\202[\304\3058\320\232\203oA@\321>\203o\317\202p\322\\\312\3048!\3058\211\250\206\217\211:\205\217\211@\323=\205\217\304
8\317Y\262
\203\250A@\324>\203\250\307\312\3058!\310\"\202\255\312\3058!#\207\211\211\242\325=\262
\203\276\326\327\"\207\330
!\203\323\302
!\204\320\331
!\203\321\207\332\207\333
!\206\335\334
\335\"\207" [math-provably-integerp hms math-posp math-zerop 2 3 math-trunc math-add -1 date math-floor intv math-make-intv (neg (var inf var-inf)) (0 1) 0 (var inf var-inf) (0 2) 1 float (0 2) vec math-map-vec #[257 "\301
\"\207" [math-floor-prec math-floor] 4 "\n\n(fn X)"] math-infinitep math-negp (var nan var-nan) math-to-integer math-reject-arg anglep] 8 (#$ . 68633)])
#@15 

(fn A PREC)
(defalias 'math-floor-special #[514 "\211\211:\205\211@\301=\205\302
8\303Y\262
\203\304
!\262
\211\250\204&\305
\306\"\210\211\303X\2034\307!\2034
\207\310\311\312\310\")![\"\207" [calc-prefer-frac float 2 0 math-trunc math-reject-arg fixnump math-provably-integerp calcFunc-scf math-floor t] 7 (#$ . 69601)])
#@25 

(fn A &optional PREC)
(defalias 'calcFunc-ffloor #[513 "
\211:\205\211@\300=\205\301
8\302Y\262
\203(\211\203&\211\250\203(\211\302X\203(
\207\303\304\"!\207" [float 2 0 math-float math-floor] 6 (#$ . 69946)])
#@25 

(fn A &optional PREC)
(defalias 'math-ceiling #[513 "\211C\211\242\203Q\211\242\211:\205\211@\301=\205\302
8\303Y\262
\203&\211\304\242!\240\210\211\242\250\2042\305
\242\306\"\210\211\242\303X\203A\307!\203A\207\310\311\312\310\242\")!\242[\"\207\313!\203Y\207\211:\205k\211@\301=\205k\302
8\303Y\262
\203t\304!\207\211:?\206\211@\314>\262
\203\274\211:\203\251\211@\315>\203\241\211A@\211\250\205\234\211\303V\266\202\202\256\316
!\262
\202\256\211\303V\262
\203\270\317\304!\320\"\207\304!\207\307!\203\304\207@\321=\203\354\322!\204\341\323\3028!\203\345\323\3248!\203\345\304!\207\317\304!\320\"\207@\325=\203\373\325\311A@!D\207@\326=\203n
\327\3028\330\232\203
A@\331>\203
\303\202
\302\3248\332\232\203,
A@\333>\203,
\303\202-
\320\\\3028\211\250\206G
\211:\205G
\211@\301=\205G
\302
8\303Y\262
\203`
A@\334>\203`
\317\335\3028!\320\"\202f
\311\3028!\311\3248!#\207\211\242\336=\262
\203\200
\337\340\341\"\"\207\342!\203\226
\316!\204\222
\322!\203\224
\207\343\207\344!\206\240
\305\345\"\207" [calc-prefer-frac float 2 0 math-trunc math-reject-arg fixnump math-provably-integerp calcFunc-scf math-ceiling t Math-integerp (frac float) (frac float) math-posp math-add 1 hms math-negp math-zerop 3 date intv math-make-intv (neg (var inf var-inf)) (0 1) (var inf var-inf) (0 2) (0 1) math-floor vec math-map-vec make-closure #[257 "\301
\300\242\"\207" [V0 math-ceiling] 4 "\n\n(fn X)"] math-infinitep (var nan var-nan) math-to-integer anglep] 9 (#$ . 70174)])
(defalias 'calcFunc-ceil 'math-ceiling)
#@25 

(fn A &optional PREC)
(defalias 'calcFunc-fceil #[513 "
\211:\205\211@\300=\205\301
8\302Y\262
\203(\211\203&\211\250\203(\211\302X\203(
\207\303\304\"!\207" [float 2 0 math-float math-ceiling] 6 (#$ . 71768)])
(defvar math-rounding-mode nil)
#@25 

(fn A &optional PREC)
(defalias 'math-round #[513 "\211C\211\242\203Q\211\242\211:\205\211@\303=\205\304
8\305Y\262
\203&\211\306\242!\240\210\211\242\250\2042\307
\242\310\"\210\211\242\305X\203A\311!\203A\207\312\313\314\312\242\")!\242[\"\207\211:?\206\\\211@\315>\262
\203
\211\250\206x\211:\205x\211@\303=\205x\304
8\305Y\262
\203\201\306!\207\211:\203\246\211@\316>\203\236\211A@\211\250\205\231\211\305W\266\202\202\253\317
!\262
\202\253\211\305W\262
\203\274	\320=\204\274\321\313\321!!!\207\322\323\211\211:?\206\313\211@\324=\262
\203\324\325\202\325\326\")\262\211\250\206\360\211:\205\360\211@\303=\205\360\304
8\305Y\262
\203
	\327=\203
\330!\262\331!\204\f
\332\333\"\262\207\330!\207\311!\203
\207@\334=\203)
\334\313A@!D\207@\335=\2037
\330\323\336\"!\207\211\242\337=\262
\203I
\340\341\342\"\"\207\343!\203_
\344!\204[
\317!\203]
\207\345\207\346!\206i
\307\347\"\207" [calc-prefer-frac math-rounding-mode calc-angle-mode float 2 0 math-trunc math-reject-arg fixnump math-provably-integerp calcFunc-scf math-round t (frac float hms) (frac float) math-negp up math-neg deg math-add frac (frac 1 2) (float 5 -1) even math-floor math-evenp math-sub 1 date intv (frac 1 2) vec math-map-vec make-closure #[257 "\301
\300\242\"\207" [V0 math-round] 4 "\n\n(fn X)"] math-infinitep math-posp (var nan var-nan) math-to-integer anglep] 8 (#$ . 72029)])
(defalias 'calcFunc-round 'math-round)
#@25 

(fn A &optional PREC)
(defalias 'calcFunc-rounde #[513 "\301\302\")\207" [math-rounding-mode even math-round] 5 (#$ . 73507)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put calcFunc-rounde speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@25 

(fn A &optional PREC)
(defalias 'calcFunc-roundu #[513 "\301\302\")\207" [math-rounding-mode up math-round] 5 (#$ . 73786)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put calcFunc-roundu speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@25 

(fn A &optional PREC)
(defalias 'calcFunc-fround #[513 "
\211:\205\211@\300=\205\301
8\302Y\262
\203(\211\203&\211\250\203(\211\302X\203(
\207\303\304\"!\207" [float 2 0 math-float math-round] 6 (#$ . 74063)])
#@25 

(fn A &optional PREC)
(defalias 'calcFunc-frounde #[513 "\301\302\")\207" [math-rounding-mode even calcFunc-fround] 5 (#$ . 74291)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put calcFunc-frounde speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@25 

(fn A &optional PREC)
(defalias 'calcFunc-froundu #[513 "\301\302\")\207" [math-rounding-mode up calcFunc-fround] 5 (#$ . 74577)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put calcFunc-froundu speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn X)
(defalias 'calcFunc-mant #[257 "\211\211:?\206\211@\300>\262
\2036\211\211:?\206\211@\301=\262
\204(\211A@\302=\203)\207\303
A@\304\305A@!ZE\207\306\307\"\210\310
D\207" [(frac float) frac 0 float 1 math-numdigs calc-record-why realp calcFunc-mant] 6 (#$ . 74861)])
#@10 

(fn X)
(defalias 'calcFunc-xpon #[257 "\211\211:?\206\211@\300>\262
\2037\211\211:?\206\211@\301=\262
\204(\211A@\302=\203*\302\207\303\3048\305A@!S\\!\207\306\307\"\210\310
D\207" [(frac float) frac 0 math-normalize 2 math-numdigs calc-record-why realp calcFunc-xpon] 5 (#$ . 75151)])
#@12 

(fn X N)
(defalias 'calcFunc-scf #[514 "\211\250\203\317\211\300=\203

\207\301!\203'\211\300V\203\302\"\207\303\302\304[\"\"\207
@\305=\203M\211\300V\203@\306\302A@\"\3078\"\207\306A@\302\3078[\"\"\207
@\310=\203_\311A@\3078\\\"\207
@\312>\203y\313@\314A@\"\314\3078\"E!\207
@\315>\203\217\313@\314A@\"\3078E!\207
@\316=\203\256\313@A@\314\3078\"\314\3178\"F!\207
@\320=\203\275\321\322\323\"\"\207\324!\203\305
\207\325\326\"\210\314E\207\327
!\203\350\307
8\330W\203\344\314\331!\"\207\332
!\207\333
!\203\362\332
!\207\325\334\"\210\314E\207" [0 Math-integerp math-scale-int math-div 1 frac math-make-frac 2 float math-make-float (cplx sdev) math-normalize calcFunc-scf (polar mod) intv 3 vec math-map-vec make-closure #[257 "\301
\300\"\207" [V0 calcFunc-scf] 4 "\n\n(fn X)"] math-infinitep calc-record-why realp math-messy-integerp 10 math-trunc math-overflow math-integerp integerp] 9 (#$ . 75455)])
#@37 

(fn X &optional STEP RELATIVE-TO)
(defalias 'calcFunc-incr #[769 "
\204\301\262\302!\204\303\304\"\207\302!\203\305\"\207@\306=\203O\307!\203;\211\242\306=\203;\310\311\301Z\"\"\207\312\313\3148\315A@!Z\\\"\"\207@\316=\203m\302A@!\203c\305\"\207\305\317\320\211F\"\207\303\321\"\207" [calc-internal-prec 1 Math-integerp math-reject-arg integerp math-add float math-zerop math-mul calcFunc-scf math-add-float math-make-float 2 math-numdigs date hms 0 realp] 10 (#$ . 76430)])
#@37 

(fn X &optional STEP RELATIVE-TO)
(defalias 'calcFunc-decr #[769 "\300\301\206\302!#\207" [calcFunc-incr math-neg 1] 7 (#$ . 76950)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put calcFunc-decr speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn X)
(defalias 'calcFunc-percent #[257 "\301
!\203\302\303
\304\")\207\305
D\207" [calc-prefer-frac math-objectp nil math-div 100 calcFunc-percent] 4 (#$ . 77236)])
#@12 

(fn X Y)
(defalias 'calcFunc-relch #[514 "\300!\203\300
!\203\301\302\"\"\207\303E\207" [math-objectp math-div math-sub calcFunc-relch] 6 (#$ . 77414)])
#@10 

(fn A)
(defalias 'calcFunc-abssqr #[257 "\211\211:?\206\211@\300>\262
\203\301
\211\"\207\211@\302=\203)\303\304A@!\304\3058!\"\207\211@\306=\2036\304
A@!\207\211@\307>\203I\310
!\203I\304\311!!\207\211@\312=\203X\313\303\314\315\"\"\207\316
!\203c\317
\305\"\207\320
!\211\205s\301\315\321\"!\"\262
\206\200\322\323\"\210\315
D\207" [(frac float) math-mul cplx math-add math-sqr 2 polar (sdev intv) math-constp math-abs vec math-reduce-vec math-map-vec calcFunc-abssqr math-known-realp math-pow math-infinitep math-infinite-dir calc-record-why numvecp] 7 (#$ . 77585)])
#@10 

(fn A)
(defalias 'math-sqr #[257 "\300
\211\"\207" [math-mul] 4 (#$ . 78184)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put math-sqr speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@12 

(fn A B)
(defalias 'calcFunc-idiv #[514 "
\211\250\205	\211\301Y\262
\203'\211\211\250\205\211\301Y\262
\203'\211\301=\204'\302\"\207
\211:?\2062\211@\303>\262
\203V\211\211:?\206B\211@\303>\262
\203Q\304\305\306\"!)\207\307
\310\"\207
\242\311=\203s\211\242\311=\203n\304\305\306\"!)\207\307
\312\"\207
\242\313=\204\212
\211:?\206\205\211@\303>\262
\203\250\211\242\313=\204\241\211\211:?\206\234\211@\303>\262
\203\250\305\306\"!\207\314!\204\264\314
!\203\271\306\"\207\307\315\"\207" [calc-prefer-frac 0 math-quotient (frac float) t math-floor math-div math-reject-arg realp hms hmsp intv math-infinitep anglep] 6 (#$ . 78405)])
#@34 

(fn A B NEGA NEGB SCALAR-OKAY)
(defalias 'math-combine-sum #[1285 "\211\203+\211:?\206\211@\301>\262
\203+\211:?\206\211@\301>\262
\203+\302$\207\303\211:\203\256@\304=\203]A@\211:?\206I\211@\305>\262
\203]A@\262\3068\262\202\256@\307=\203\235\3068\211:?\206s\211@\305>\262
\203\235\310\3068!\203\213\311\303\306	8E\202\222\312\303\306	8\"\262A@\262\202\256@\313=\203\256\314\262A@\262:\203'
@\304=\203\332A@\211:?\206\307\211@\305>\262
\203\332A@\262
\3068\262\202'
@\307=\203
\3068\211:?\206\357\211@\305>\262
\203
\310\3068!\203
\311\303\3068E\202
\312\303\3068\"\262
A@\262\202'
@\313=\203'
\314\262
A@\262\203:
\315\"\316U\266\202\202?
\232\205_
\203K
\317!\262\203T
\317
!\262
\320\"\262\321\"\207" [math-simplifying (frac float cplx polar hms date sdev intv mod vec) math-add-or-sub 1 * (frac float cplx polar hms date sdev intv mod) 2 / Math-integerp frac math-div neg -1 math-compare 0 math-neg math-add math-mul] 12 (#$ . 79081)])
#@22 

(fn A B ANEG BNEG)
(defalias 'math-add-or-sub #[1028 "
\203	\300!\262\211\203\300!\262\211\242\301=\262
\204&\211\242\301=\262
\203-\302\303E!\207\304\"\207" [math-neg vec math-normalize + math-add] 8 (#$ . 80135)])
(defvar math-combine-prod-e '(var e var-e))
#@34 

(fn A B INVA INVB SCALAR-OKAY)
(defalias 'math-combine-prod #[1285 "\203+\211:\203#\211@\305=\203\211A@\306=\262
\202(\307
!\262
\202(\211\306=\262
\204V
\203X\211:\203N\211@\305=\203F\211A@\306=\262
\202S\307
!\262
\202S\211\306=\262
\203X\310\207\211\203\226\211:?\206g\211@\311>\262
\203\226\211:?\206w\211@\311>\262
\203\226\312$\262\211:?\206\217\211@\311>\262
\205\207\242\313=\203\272\203\272\314\3158!\203\272\316\317A@\320\315	8!\"\"\207\242\313=\203\335
\203\335\314\3158!\203\335\316\317A@\320\315	8!\"\"\207\203\350\321\"\206\322\211:\203Z
@\313=\203
\204
\3158\211:?\206\n
\211@\323>\262
\203
\3158\262A@\262\202Z
@\324=\2032
\325\262A@\262\202Z
@\326=\203Z
\204Q
A@\211:?\206L
\211@\323>\262
\203Z
A@\262	\262:\203\207
@\327=\203\207
A@\3158\330\"\331U\266\202\203\207
\332\322\"\262\320!\262:\203\357
@\313=\203\270
\204\252
\3158\211:?\206\245
\211@\323>\262
\203\270
\3158\262
A@\262\202\357
@\324=\203\312
\333\262
A@\262\202\357
@\326=\203\357
\204\347
A@\211:?\206\342
\211@\323>\262
\203\357
A@\262
	\262:\203@\327=\203A@\3158\330\"\331U\266\202\203\332\322\"\262\320
!\262
\203\"\320!\262\203+\320
!\262
\2038\334\"\202=\232\203\335\"\336!\203~\211\211:\203j\211@\305=\203b\211A@\306=\262
\202o\307
!\262
\202o\211\306=\262
\204~\242\327=\242\327==\205\314
!\203\317\211:?\206\220\211@\327=\262
\203\317\211:\203\273\211@\337>\203\263\211A@\211\250\205\256\211\306V\266\202\202\300\340
!\262
\202\300\211\306V\262
\203\317\332\322	\"\262\320
!\262
\211\341\267\202\346\324D\202\332\322\324\nD\"\202	=\203\373=\203\373\326
D\202\3421\317\"0\202\210\313E\262
\206\n\203\253\203\253\343!\310
\205\246
\343	!\211\262=\205\246A@@=\203>\322\202J\344	A@!\306H\f\236A@\262A@
@=\203Z\322\202f\344A@!\306H\f\236A@\262


\330\"\331U\266\202\203\222\310	\262
\262\n\211\262	\262

\262\211\262\262
\262\262\316\317\332\"\"\317\n\335\"\"\"\266\202\206

\232\205\211\250\205\273\211\306Y\262
\205\211\250\205\311\211\306Y\262
\205
\345\267\202\351\324\316\"D\207\332\322\324\316\n\n\"D\"\207\316\"\262\3461\374\317\"0\207\210\313E\266\202\207" [math-simplifying math-combine-prod-e math-simplifying-units math-combining-units math-unit-prefixes float 0 math-zerop nil (frac float cplx polar hms date sdev intv mod vec) math-mul-or-div ^ math-looks-negp 2 math-mul math-pow math-neg math-combine-prod-trig 1 (frac float cplx polar) calcFunc-sqrt (frac 1 2) calcFunc-exp frac math-compare -1 math-div (frac 1 2) math-commutative-equal math-add Math-integerp (frac float) math-posp #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((frac 1 2) 725 (frac -1 2) 732)) (inexact-result) math-check-unit-name symbol-name #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((frac 1 2) 980 (frac -1 2) 989)) (inexact-result)] 16 (#$ . 80418)])
#@12 

(fn A B)
(defalias 'math-combine-prod-trig #[514 "
\242\300=\203\211\242\301=\203\302\303AA\"!\304U\203\305\207
\242\300=\203=\211\242\306=\203=\302\303AA\"!\304U\203=\307AB\207
\242\300=\203]\211\242\310=\203]\302\303AA\"!\304U\203]\311AB\207
\242\311=\203z\211\242\306=\203z\302\303AA\"!\304U\203z\305\207
\242\311=\203\232\211\242\301=\203\232\302\303AA\"!\304U\203\232\310AB\207
\242\311=\203\272\211\242\307=\203\272\302\303AA\"!\304U\203\272\300AB\207
\242\307=\203\327\211\242\310=\203\327\302\303AA\"!\304U\203\327\305\207
\242\307=\203\367\211\242\301=\203\367\302\303AA\"!\304U\203\367\306AB\207
\242\306=\203
\211\242\310=\203
\302\303AA\"!\304U\203
\301AB\207
\242\312=\2034
\211\242\313=\2034
\302\303AA\"!\304U\2034
\305\207
\242\312=\203T
\211\242\314=\203T
\302\303AA\"!\304U\203T
\315AB\207
\242\312=\203t
\211\242\316=\203t
\302\303AA\"!\304U\203t
\317AB\207
\242\317=\203\221
\211\242\314=\203\221
\302\303AA\"!\304U\203\221
\305\207
\242\317=\203\261
\211\242\313=\203\261
\302\303AA\"!\304U\203\261
\316AB\207
\242\317=\203\321
\211\242\315=\203\321
\302\303AA\"!\304U\203\321
\312AB\207
\242\315=\203\356
\211\242\316=\203\356
\302\303AA\"!\304U\203\356
\305\207
\242\315=\203\211\242\313=\203\302\303AA\"!\304U\203\314AB\207
\242\314=\203.\211\242\316=\203.\302\303AA\"!\304U\203.\313AB\207\320\207" [calcFunc-sin calcFunc-csc math-simplify math-sub 0 1 calcFunc-sec calcFunc-tan calcFunc-cot calcFunc-cos calcFunc-sinh calcFunc-csch calcFunc-sech calcFunc-tanh calcFunc-coth calcFunc-cosh nil] 6 (#$ . 83534)])
#@22 

(fn A B AINV BINV)
(defalias 'math-mul-or-div #[1028 "\211\242\300=\262
\204\211\242\300=\262
\203A\301\2030
\203(\302\303\304\"E\202?\302E\202?
\203;\302E\202?\305E!\207
\203W\211\203R\303\211\304\"\"\207\303\"\207\211\203`\303\"\207\306\"\207" [vec math-normalize / math-div 1 * math-mul] 9 (#$ . 85164)])
#@12 

(fn A B)
(defalias 'math-commutative-equal #[514 "
\242\301>\203Y\211\242\302>\205\\\303\211\211\304\303\"\210\262\303\304\303\"\210
GGU\205W
\203U\262
\211\203D
@
@\232\204D\211A\262
\2021\211\203U\305
@\"
A\262\202*
?)\207

\232\207" [math-com-bterms (+ -) (+ -) nil math-commutative-collect delq] 8 (#$ . 85514)])
#@14 

(fn B NEG)
(defalias 'math-commutative-collect #[514 "
\242\301=\203\302A@\"\210\302\3038\"\207
\242\304=\203+\302A@\"\210\302\3038?\"\207\211\2035\305!\2026
B\211\207" [math-com-bterms + math-commutative-collect 2 - math-neg] 5 (#$ . 85860)])
(provide 'calc-arith)