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



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

(fn ARG)
(defalias 'calc-alg-evaluate #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "	\303>?\205	\304\305\300!\210\306\307\310\311\307!#*\207" [V0 calc-simplify-mode math-simplify-only (none num) nil calc-modify-simplify-mode calc-enter-result 1 "dsmp" calc-top] 5]] 5 (#$ . 156) "p"])
#@12 

(fn ARG)
(defalias 'calc-modify-simplify-mode #[257 "\301
!\302U\203
\303\202\301
!\304Y\203\305\211\306W\205!C\211\207" [calc-simplify-mode math-abs 2 alg 3 ext 0] 3 (#$ . 465)])
(defalias 'calc-simplify #[0 "\300\301`\"\207" [calc-do #[0 "\301\302!\303 \203\304\305\306!!)\262
\307 \203!\304\305\310!!)\262
\311>?\205)\312\302\313\314!#)\207" [calc-simplify-mode calc-top-n 1 calc-is-inverse nil math-normalize math-trig-rewrite calc-is-hyperbolic math-hyperbolic-trig-rewrite (none num) calc-enter-result "simp" math-simplify] 6]] 3 nil nil])
(defalias 'calc-simplify-extended #[0 "\300\301`\"\207" [calc-do #[0 "\301>?\205\302\303\304\305\306\303!!#)\207" [calc-simplify-mode (none num) calc-enter-result 1 "esmp" math-simplify-extended calc-top-n] 6]] 3 nil nil])
#@12 

(fn ARG)
(defalias 'calc-expand-formula #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "	\304>?\205	\305\306\300!\210\307\310\311\300\312V\203!\313\314\310!)\202-\314\310!\315
!\206+\211\262
#*\207" [V0 calc-simplify-mode math-simplify-only math-expand-formulas (none num) nil calc-modify-simplify-mode calc-enter-result 1 "expf" 0 t calc-top-n math-expand-formula] 6]] 5 (#$ . 1269) "p"])
#@12 

(fn ARG)
(defalias 'calc-factor #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303 \203\304\202\f\305\300#\207" [V0 calc-unary-op "fctr" calc-is-hyperbolic calcFunc-factors calcFunc-factor] 4]] 5 (#$ . 1685) "P"])
#@10 

(fn N)
(defalias 'calc-expand #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\304\305\306\302!D\300\205\307\300!C\"#\207" [V0 calc-enter-result 1 "expa" append calcFunc-expand calc-top-n prefix-numeric-value] 7]] 5 (#$ . 1930) "P"])
#@13 

(fn EXPR)
(defalias 'calcFunc-powerexpand #[257 "\300\301\302\"!\207" [math-normalize math-map-tree math-powerexpand] 5 (#$ . 2196)])
#@13 

(fn EXPR)
(defalias 'math-powerexpand #[257 "\211\242\300=\203^\301
8\211\250\2030\211\302V\2030\303A@A@W\203/\304
\"\262
T\262\202\207\211\250\203\\\211\302W\203\\\305\306A@\305\"\306A@\305\"V\203[\304\"\262
S\262\202H\207
\207\207" [^ 2 0 1 math-mul -1 math-pow] 8 (#$ . 2339)])
(defalias 'calc-powerexpand #[0 "\300\301`\"\207" [calc-do #[0 "\300\301\302\303\304\301!!#\207" [calc-enter-result 1 "pexp" calcFunc-powerexpand calc-top-n] 6]] 3 nil nil])
#@22 

(fn &optional VAR)
(defalias 'calc-collect #[256 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\300\301\232\204\300\302\232\204\300\204\303\304\305\306\307\304!B#\207\310\300!\211\242\311=\203+\311\312A@\"\210\303\313\305\306\314\313!E#\207" [V0 "" "$" calc-enter-result 2 "clct" calcFunc-collect calc-top-list-n math-read-expr error "Bad format in expression: %s" 1 calc-top-n] 7]] 5 (#$ . 2827) "sCollect terms involving: "])
#@12 

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

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

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

(fn ARG)
(defalias 'calc-poly-div #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\302\303\304\305\300#\210	\205N\300?\205N\306\307!\210\310	\311\"\210	\211:\2039\211@\312=\2031\211A@\313=\262
\202>\314
!\262
\202>\211\313=\262
\204K\315\316\317	\313\"\"\202N\315\320!)\207" [V0 calc-poly-div-remainder nil calc-binary-op "pdiv" calcFunc-pdiv calc-clear-command-flag clear-message calc-record "prem" float 0 math-zerop message "(Remainder was %s)" math-format-flat-expr "(No remainder)"] 5]] 5 (#$ . 3843) "P"])
#@12 

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

(fn ARG)
(defalias 'calc-poly-div-rem #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302\303\304\300#\207\302\303\305\300#\207" [V0 calc-is-hyperbolic calc-binary-op "pdvr" calcFunc-pdivide calcFunc-pdivrem] 4]] 5 (#$ . 4570) "P"])
#@34 

(fn &optional OLDNAME NEWNAME)
(defalias 'calc-substitute #[512 "\211C\300\301\302#`\"\207" [calc-do make-closure #[0 "\302\211\303\302\300\304\232\204\300\305\232\204\300\204)\306\303!\262\306\307!\262\306\310!\262
\310\262\202\252\301\242\204<\311\303!\210\301\312\313\300\314Q\300\"\240\210\301\242\304\232\204O\301\242\305\232\204O\301\242\204_\306\303!\262\306\307!\262
\307\262\202\203\301\242;\203l\315\301\242!\202n\301\242\262\242\316=\203~\316\317A@\"\210\306\303!\262
\300;\203\216\315\300!\202\217\300\262\242\316=\203\237\316\317A@\"\210\320
\"\204\252\316\321!\210\322\323\324##\207" [V0 V1 nil 1 "" "$" calc-top-n 2 3 calc-unread-command read-string "Substitute old: " ", new: " math-read-expr error "Bad format in expression: %s" math-expr-contains "No occurrences found" calc-enter-result "sbst" math-expr-subst] 11]] 8 (#$ . 4833) "sSubstitute old: "])
#@13 

(fn NAME)
(defalias 'calc-has-rules #[257 "\300
!\262
\211:\205\211@\301>\205\211\207" [calc-var-value (vec calcFunc-assign calcFunc-condition)] 3 (#$ . 5750)])
(defalias 'math-recompile-eval-rules #[0 "\303\304!\205	\305\306!\307\236\310\304!\211\207" [math-eval-rules-cache math-eval-rules-cache-other math-eval-rules-cache-tag calc-has-rules var-EvalRules math-compile-rewrites (var EvalRules var-EvalRules) nil calc-var-value] 2])
#@13 

(fn EXPR)
(defalias 'math-expand-formula #[257 "\211:\205.\211@9\205.\211@\301N\204\211@\302N\205.\303\304
@A\")\211\242@=?\205,\211\262
\207" [math-expand-formulas calc-user-defn math-expandable t apply] 4 (#$ . 6202)])
#@12 

(fn A B)
(defalias 'math-beforep #[514 "
\211:?\206\211@\300>\262
\203C\211\211:?\206\211@\300>\262
\203C\301\"\211\302=\206B\211\303=\205B\232?\205B\242\304>G\242\305>GV\207\211\306\232\203K\307\207
\310\267\202U\311\207\307\207\211\312\232\203]\311\207
\211:?\206h\211@\300>\262
\203\226\211\242\313=\203\224\314
!\203\224\315\3168\"\204\222
\3168\301\"\303U\266\202\205\225\311\207\311\207\211\211:?\206\241\211@\300>\262
\203\276
\242\313=\205\275\314!\205\325
\315\3168\"\205\275\311\207
@\313=\203<
\211@\313=\203<
\314!\203<
\314
!\203<
\301\3168\3168\"\211\317\267\202\352\311\207\307\207A@\320>\203\374
A@\321>\203\374\311\207A@\322>\203

A@\323>\203
\307\207\301\3248\3248\"\211\262\302=\203 
\311\207\211\325=\203(
\307\207A@\326>\203:

A@\327>\203:
\311\207\307\207
\211:?\206G
\211@\330>\262
?
\211:?\206U
\211@\330>\262
?=\204h

\211:?\206g
\211@\330>\207
@\331=\203\215
\211@\331=\203~

A@
A@\231\207\211\211:?\206\211
\211@\332>\262
?\207\211@\331=\203\240

\211:?\206\237
\211@\332>\207
@
@=\203\320

A\262\211A\211\262\203\300

\203\300

@
@\232\204\250
\211\205\325

?\206\317
\315@@\"\207
@
@\231\207" [(frac float) math-compare -1 0 (nil frac float) (nil frac float) (neg (var inf var-inf)) nil #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((neg (var inf var-inf)) 81 (var inf var-inf) 83)) t (var inf var-inf) intv math-intv-constp math-beforep 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (-1 230 1 232)) (2 3) (0 1) (0 1) (2 3) 3 1 (0 2) (1 3) (frac float cplx polar hms date sdev intv mod) var (frac float cplx polar)] 7 (#$ . 6440)])
#@10 

(fn A)
(defalias 'math-simplify-extended #[257 "\301\302
!)\207" [math-living-dangerously t math-simplify] 3 (#$ . 8147)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\301\"\207" [function-put math-simplify-extended speed -1 put byte-optimizer byte-compile-inline-expand defalias calcFunc-esimplify] 5)
#@73 Rewrite trigonometric functions in terms of sines and cosines.

(fn FN)
(defalias 'math-trig-rewrite #[257 "\211:\204\207\211\242\300=\203\301\302\303\304A!BE\207\211\242\305=\203(\301\302\306\304A!BE\207\211\242\307=\203<\304
A!\301\306B\303BE\207\211\242\310=\203P\304
A!\301\303B\306BE\207\311\304\"\207" [calcFunc-sec / 1 calcFunc-cos math-trig-rewrite calcFunc-csc calcFunc-sin calcFunc-tan calcFunc-cot mapcar] 6 (#$ . 8473)])
#@68 Rewrite hyperbolic functions in terms of sinhs and coshs.

(fn FN)
(defalias 'math-hyperbolic-trig-rewrite #[257 "\211:\204\207\211\242\300=\203\301\302\303\304A!BE\207\211\242\305=\203(\301\302\306\304A!BE\207\211\242\307=\203<\304
A!\301\306B\303BE\207\211\242\310=\203P\304
A!\301\303B\306BE\207\311\304\"\207" [calcFunc-sech / 1 calcFunc-cosh math-hyperbolic-trig-rewrite calcFunc-csch calcFunc-sinh calcFunc-tanh calcFunc-coth mapcar] 6 (#$ . 8926)])
#@14 

(fn INPUT)
(defalias 'calc-input-angle-units #[257 "\300
\301\"\203	\302\207\300
\303\"\203\304\207\300
\305\"\203\306\207\307\207" [math-expr-contains (var deg var-deg) deg (var rad var-rad) rad (var hms var-hms) hms nil] 4 (#$ . 9402)])
#@17 

(fn TOP-EXPR)
(defalias 'math-simplify #[257 "\306\307!\203\310\202\f	:\311\312\313!\205\314\n\205!\312\315!\205!\316\205,\312\317!\205,\320\f\2057\312\321!\2057\322$\323
\203l
\324\325!!\262\326\325!\262\211\203h\327@\330#\262\211A\262
\202T\210\202\252	\331>?\205t	
\325!\262?\205\236\211\203\224\327@\"\262\211A\262
\202\202\324!\211\262\232?\262
\203\251\211\262\202u)+\266\207" [calc-angle-mode calc-simplify-mode math-living-dangerously math-simplifying-units math-integrating math-top-only t calc-input-angle-units rad append calc-has-rules var-AlgSimpRules ((var AlgSimpRules var-AlgSimpRules)) var-ExtSimpRules ((var ExtSimpRules var-ExtSimpRules)) var-UnitSimpRules ((var UnitSimpRules var-UnitSimpRules)) var-IntegSimpRules ((var IntegSimpRules var-IntegSimpRules)) nil math-simplify-step math-normalize (nil) math-rewrite (neg (var inf var-inf)) (none num) math-simplifying math-normalize-error] 11 (#$ . 9654)])
(defalias 'calcFunc-simplify 'math-simplify)
#@10 

(fn A)
(defalias 'math-simplify-step #[257 "\211\211:?\206\211@\301>\262
\203\207\204\211@\302>\203 \211\202(\211@\303\304A\"B\211@9\203R\211@\305N\211\203Q\211\203Q\211@!\206B
\211\262\232\203Q\211A\262
\2026\210\207" [math-top-only (frac float cplx polar hms date mod var) (calcFunc-quote calcFunc-condition calcFunc-evalto) mapcar math-simplify-step math-simplify] 5 (#$ . 10688)])
#@210 Define the simplification code for functions FUNCS.
Code can refer to the expression to simplify via lexical variable `expr'
and should return the simplified expression to use (or nil).

(fn FUNCS &rest CODE)
(defalias 'math-defsimplify '(macro . #[385 "\300\301\302\303\"9\203C\202\"B\207" [progn mapcar make-closure #[257 "\301\302D\303\304\305\302D\306BB\307\310\311\300BBDEF\207" [V0 put quote 'math-simplify nconc get ('math-simplify) list lambda (expr)] 10 "\n\n(fn FUNC)"]] 7 (#$ . 11101)]))
(byte-code "\300\301\302\303#\304\301\305\306#\210\304\307\310\307\310N\311C\244#\210\304\312\310\312\310N\313C\244#\210\304\314\310\314\310N\315C\244#\210\304\316\310\316\310N\317C\244#\207" [function-put math-defsimplify lisp-indent-function 1 put edebug-form-spec (sexp body) + math-simplify #[257 "\211A@\242\300>\203W\301
A@8\211:?\206\211@\302>\262
\203W\301
8\211:?\206*\211@\302>\262
\204W\301
8
@AA\301A@8\240\210\211A@@\240\210A@AA\240\210A@
\240\266\202\223\211@\303=\203\223\211A@\211:?\206k\211@\302>\262
\203\223\301
8\211:?\206}\211@\302>\262
\204\223\301
8
AAA@\240\210
A
\240\266\211\304\211A@\211\262\242\305>\203\323\306\3018\3018@\307=@\307=\310%\211\262\203\313AA
\240\210\303\240\210
AA\311\240\210A@\262\202\226\306\3018\304@\307=\310%\211\262\203\366AA
\240\210\303\240\210A\311\240\210\207" [#1=(+ -) 2 #2=(frac float cplx polar) + nil #3=(+ -) math-combine-sum - t 0] 10 "\n\n(fn EXPR)"] - #[257 "\211A@\242\300>\203W\301
A@8\211:?\206\211@\302>\262
\203W\301
8\211:?\206*\211@\302>\262
\204W\301
8
@AA\301A@8\240\210\211A@@\240\210A@AA\240\210A@
\240\266\202\223\211@\303=\203\223\211A@\211:?\206k\211@\302>\262
\203\223\301
8\211:?\206}\211@\302>\262
\204\223\301
8
AAA@\240\210
A
\240\266\211\304\211A@\211\262\242\305>\203\323\306\3018\3018@\307=@\307=\310%\211\262\203\313AA
\240\210\303\240\210
AA\311\240\210A@\262\202\226\306\3018\304@\307=\310%\211\262\203\366AA
\240\210\303\240\210A\311\240\210\207" [#1# 2 #2# + nil #3# math-combine-sum - t 0] 10 "\n\n(fn EXPR)"] * #[257 "\300
8\242\301=\203A\302\3008A@A@\"\203o\303
A@\304\"\204*\303\3008A@\304\"\203o\211A@
A\3008A@\240\210\3008A
\240\266\202o\302\3008A@\"\203o\303
A@\304\"\204^\303\3008\304\"\203o\300
8
AAA@\240\210
A
\240\266\211\305\211\304\303A@!A@\211:?\206\205\211@\306=\262
\203\255\307\3008!\211\262\203\255AA\310\3008\"\240\210A\311A@\"\240\210\3008\211\262\242\301=\203\355
\203\355\312A@A@\305\211\304%\211\262\203\331A\240\210A\313\240\210\211\206\343\303A@\304\"\262\3008\262\202\255\312A@\305\211\304%\211\262\203\f

\203\f
A\240\210AA\313\240\210A@\242\306=\2034
A@A@\314>\2034
\315\311\3008A@A@\"\300A@8\"\207\207" [2 * math-beforep math-known-scalarp t nil frac math-common-constant-factor math-cancel-common-factor math-mul math-combine-prod 1 (1 -1) math-div] 12 "\n\n(fn EXPR)"] / #[257 "\300
!\207" [math-simplify-divide] 3 "\n\n(fn EXPR)"]] 6)
#@13 

(fn EXPR)
(defalias 'math-simplify-divide #[257 "\211A\302@\303=\204\3048\211:?\206\211@\305>\262
?\205\"\306\3048!\302\211\203\351@\303=\204BA@\211:?\206<\211@\305>\262
?\205H\306A@!\262\242\307=\203\254A@\310=\203\254
\204\254\242\311=\203zA@\242\312=\203z\313\3048A@\"\203\351A\314\3048A@\"\240\210AA\315\3048\"\240\210\316!\203\351@\236\211\262\203\351
A@\240\210\202\351
\203\351\317\"\211\262\310=\204\351A\315A@\"\240\210AA\315\3048\"\240\210\316!\203\351@\236\211\262\203\351
A@\240\210@\242\303=\203>
\320\3048\321\"\203>
A@A\262@\211\262\242\322=\203*
\320\3048\321\"\203\"
\323AAA\302\321$\210
AA\262\202
\323AA\302\321$\210\321\262A@AA\262@\211\262\242\322=\203f
\320\3048\321\"\203^
\323AAA\321$\210
AA\262\202>
\323AA\321$\210)\207" [calc-tweak-eqn-table math--simplify-divide-expr nil / 2 (frac float) math-common-constant-factor frac 1 calcFunc-eq var math-expr-contains math-mul math-cancel-common-factor math-negp math-frac-gcd math-known-scalarp t * math-simplify-divisor] 11 (#$ . 14141)])
#@26 

(fn NP DP NOVER DOVER)
(defalias 'math-simplify-divisor #[1028 "@\242\304=\203&\305@A$\210\306@A@\307\"\205\241\305@AA?$\207@\304=\204[\310@!\211\311>\206E@\312>\203D\211\313=\206E	\262
\204[@\211:?\206V\211@\314>\262
\205\241\315\307\306@!
@\211\262\242\316=\203\224\203\224\317	A\"\210\211\206\212\306A@\307\"\262AA\262\202h\205\236\317		\"*\266\205\207" [math--simplify-divide-expr math-living-dangerously math-simplify-divisor-dover math-simplify-divisor-nover / math-simplify-divisor math-known-scalarp t math-possible-signs (1 4) (calcFunc-eq calcFunc-neq) 5 (frac float cplx polar) nil * math-simplify-one-divisor] 12 (#$ . 15263)])
#@14 

(fn NP DP)
(defalias 'math-simplify-one-divisor #[514 "\304@@	\305%\306
\203?\n@\307>\204,\310@!\203,\n@\236\211\262\203,\n
A@\240\210\2038\311\312\"\2029\240\210\312\240\207	\205t?\205t\n@\313=\205t@\242\314=\205t\315@A@!\205t\316@\314@A@D\"\240\210\211@A@\240\207" [math-simplify-divisor-nover math-simplify-divisor-dover math--simplify-divide-expr calc-tweak-eqn-table math-combine-prod t nil (/ calcFunc-eq calcFunc-neq) math-known-negp math-div 1 / calcFunc-sqrt Math-integerp math-mul] 9 (#$ . 15960)])
#@13 

(fn EXPR)
(defalias 'math-common-constant-factor #[257 "\211\211:?\206\211@\300>\262
\203D\211\211:?\206\211@\301=\262
\203+\211\302>?\205C\303
!\207\304
!\211\262\211:?\206;\211@\301=\262
\205C\305
!\207\211@\306>\203l\305
A@!\305\3078!
\205k\211\205k\310\"\211\262\311=?\205k
\207\211@\312>\203y\305
A@!\207\211@\313=\205\230\305
A@!\206\230\314\3078!\205\230\301\311\303\3078!E\207" [(frac float) frac (0 1 -1) math-abs math-to-simple-fraction math-common-constant-factor (+ - cplx sdev) 2 math-frac-gcd 1 (* polar) / Math-integerp] 6 (#$ . 16507)])
#@17 

(fn EXPR VAL)
(defalias 'math-cancel-common-factor #[514 "
\242\300>\203
A\301A@\"\240\210
AA\301\3028\"\240\210
\207
\242\303=\2031\304\301A@\"\3028\"\207\305\"\207" [(+ - cplx sdev) math-cancel-common-factor 2 * math-mul math-div] 6 (#$ . 17092)])
#@12 

(fn A B)
(defalias 'math-frac-gcd #[514 "
\211:\203\211@\300=\203\211A@\301=\262
\202$\302
!\262
\202$\211\301=\262
\203(\207\211\211:\203G\211@\300=\203?\211A@\301=\262
\202L\302
!\262
\202L\211\301=\262
\203Q
\207\303!\203b\303
!\203b\304\"\207\303!\203n\305\306E\262\303
!\203z\305
\306E\262
\307\304A@A@\"\304\3108\3108\"\"\207" [float 0 math-zerop Math-integerp math-gcd frac 1 math-make-frac 2] 8 (#$ . 17362)])
(byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\210\300\306\302\306\302N\307C\244#\210\300\310\302\310\302N\311C\244#\210\300\312\302\312\302N\313C\244#\210\300\314\302\314\302N\315C\244#\210\300\316\302\316\302N\317C\244#\207" [put % math-simplify #[257 "\301
8\211:?\206
\211@\302>\262
\205
\301
8\211:\2039\211@\303>\2031\211A@\211\250\205,\211\304V\266\202\202>\305
!\262
\202>\211\304V\262
\205
\306
A@!\307
\203}\310@!\204b
@\3018\311\"\312U\266\202\204}\313\314\315A@\3018\"\316@\3018\"E\3018E\206

\203\331\317A@\320\"\204\331\321A@!\203\331\321\3018!\203\331\322A@\3018\"\211\262\203\331\317
\320\"\204\331\323
\313\314\315\324A@\"\3018\"\325\324@\")E\324\3018\"EE\206
\317\3018\320\"\205
\326\203\362\315A@\3018\"\202\365A@!\205

\203
\316@\320\"\207\304\266\202\207" [calc-prefer-frac 2 (frac float) (frac float) 0 math-posp math-is-linear nil math-negp math-compare -1 % + math-mul math-mod math-equal-int 1 math-num-integerp calcFunc-gcd * math-div t math-known-integerp] 11 "\n\n(fn EXPR)"] calcFunc-eq #[257 "\211G\300U\205\n\301
!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-neq #[257 "\211G\300U\205\n\301
!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-lt #[257 "\211G\300U\205\n\301
!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-gt #[257 "\211G\300U\205\n\301
!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-leq #[257 "\211G\300U\205\n\301
!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"] calcFunc-geq #[257 "\211G\300U\205\n\301
!\207" [3 math-simplify-ineq] 3 "\n\n(fn EXPR)"]] 5)
#@13 

(fn EXPR)
(defalias 'math-simplify-ineq #[257 "\211A\300
@\211\262\242\301>\203#\302
AAAA@\303=\300$\210\211A\262\202\302AA\300A=$\210\304!\210\305\303AB!@\306=\203Q\211\307=\203I\310\207\211\311>\203\304\312\207@\313=\203h\211\307=\203`\312\207\211\314>\203\304\310\207@\315=\203\211\310=\203w\310\207\211\316>\203\304\312\207@\317=\203\226\211\320=\203\216\310\207\211\321>\203\304\312\207@\322=\203\255\211\320=\203\245\312\207\211\323>\203\304\310\207@\324=\203\304\211\310=\203\274\312\207\211\325>\203\304\310\207\207" [nil (+ -) math-simplify-add-term - math-simplify-divide math-possible-signs calcFunc-eq 2 1 (1 4 5) 0 calcFunc-neq (1 4 5) calcFunc-lt (2 4 6) calcFunc-gt 4 (1 2 3) calcFunc-leq (1 2 3) calcFunc-geq (2 4 6)] 9 (#$ . 19459)])
#@27 

(fn NP DP MINUS LPLAIN)
(defalias 'math-simplify-add-term #[1028 "@\211\242\300=\262
\206\310\301\302\211\211@\262@\211\262\242\303>\203\201\302\262\304\3058@\306=\301%\211\262\203z\204C\307
!=\203_\203P\310!\202Q
\211\262\240\210
AA\311\240\210\202z\311\240\210
AA@\306=\203t\310!\202u
\211\262\240\210
A\262\202\304\301\211%\211\262\205\306\204\240\204\270\307
!=\203\270\203\255\310!\202\256
\211\262\240\210\311\240\207\311\240\210\310!\211\262\240\266\204\207" [vec t nil (+ -) math-combine-sum 2 + math-looks-negp math-neg 0] 14 (#$ . 20258)])
(byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\210\300\306\302\306\302N\307C\244#\210\300\310\302\310\302N\311C\244#\207" [put calcFunc-sin math-simplify #[257 "\211A@\242\301=\203\211A@A@\206\314\302
A@!\203%\303\304\303A@!D!\206\314\305=\203C\306
A@\307\"\211\205>\310
@A@\311\312$\262
\206\314\313=\203`\314
A@!\211\205[\310
@A@\315\312$\262
\206\314\211A@\242\316=\203x\317\320\321\322A@A@!\"D\206\314\211A@\242\323=\203\230\324
A@A@\317\325\321\322A@A@!\"D\"\206\314\326
A@!\211\205\312\211@\250\205\312\211@
A@\327\330\304\330SED\331DE\330\331\330SED\304DEE\266\202\262
\207" [calc-angle-mode calcFunc-arcsin math-looks-negp math-neg calcFunc-sin rad math-linear-in (var pi var-pi) math-known-sin 120 0 deg math-integer-plus (frac 2 3) calcFunc-arccos calcFunc-sqrt math-sub 1 math-sqr calcFunc-arctan math-div math-add math-should-expand-trig + * calcFunc-cos] 11 "\n\n(fn EXPR)"] calcFunc-cos #[257 "\211A@\242\301=\203\211A@A@\206\306\302
A@!\203#\303\304A@!D\206\306\305=\203A\306
A@\307\"\211\205<\310
@A@\311\312$\262
\206\306\313=\203^\314
A@!\211\205Y\310
@A@\315\312$\262
\206\306\211A@\242\316=\203v\317\320\321\322A@A@!\"D\206\306\211A@\242\323=\203\222\324\321\317\325\321\322A@A@!\"D\"\206\306\326
A@!\211\205\304\211@\250\205\304\211@
A@\327\330\303\330SED\303DE\330\331\330SED\331DEE\266\202\262
\207" [calc-angle-mode calcFunc-arccos math-looks-negp calcFunc-cos math-neg rad math-linear-in (var pi var-pi) math-known-sin 120 300 deg math-integer-plus (frac 2 3) calcFunc-arcsin calcFunc-sqrt math-sub 1 math-sqr calcFunc-arctan math-div math-add math-should-expand-trig - * calcFunc-sin] 11 "\n\n(fn EXPR)"] calcFunc-sec #[257 "\301
A@!\203\302\303A@!D\206\246\304=\203:\305
A@\306\"\211\2055\307
@A@\310\311$\211\2053\312\313\"\262
\262
\206\246\314=\203a\315
A@!\211\205\\\307
@A@\316\311$\211\205Z\312\313\"\262
\262
\206\246\211A@\242\317=\203}\312\313\320\321\313\322A@A@!\"D\"\206\246\211A@\242\323=\203\221\312\313A@A@\"\206\246\211A@\242\324=\205\246\320\325\313\322A@A@!\"D\207" [calc-angle-mode math-looks-negp calcFunc-sec math-neg rad math-linear-in (var pi var-pi) math-known-sin 120 300 math-div 1 deg math-integer-plus (frac 2 3) calcFunc-arcsin calcFunc-sqrt math-sub math-sqr calcFunc-arccos calcFunc-arctan math-add] 8 "\n\n(fn EXPR)"] calcFunc-csc #[257 "\301
A@!\203\302\303\302A@!D!\206\257\304=\203<\305
A@\306\"\211\2057\307
@A@\310\311$\211\2055\312\313\"\262
\262
\206\257\314=\203c\315
A@!\211\205^\307
@A@\316\311$\211\205\\\312\313\"\262
\262
\206\257\211A@\242\317=\203w\312\313A@A@\"\206\257\211A@\242\320=\203\223\312\313\321\322\313\323A@A@!\"D\"\206\257\211A@\242\324=\205\257\312\321\325\313\323A@A@!\"DA@A@\"\207" [calc-angle-mode math-looks-negp math-neg calcFunc-csc rad math-linear-in (var pi var-pi) math-known-sin 120 0 math-div 1 deg math-integer-plus (frac 2 3) calcFunc-arcsin calcFunc-arccos calcFunc-sqrt math-sub math-sqr calcFunc-arctan math-add] 8 "\n\n(fn EXPR)"]] 5)
#@31 

(fn X &optional HYPERBOLIC)
(defalias 'math-should-expand-trig #[513 "\302!\205D\211\205D\211@\250\203\211@\303V\204\211@\304\232\205D	\204C\211A@\242\203/\305\2020\306>\204C\211A@\242\307=\205D
\310=\205D\211\207" [math-living-dangerously math-integrating math-is-multiple 1 (frac 1 2) (calcFunc-arcsinh calcFunc-arccosh calcFunc-arctanh) (calcFunc-arcsin calcFunc-arccos calcFunc-arctan) calcFunc-ln exp] 5 (#$ . 23979)])
#@23 

(fn PLUS N MUL OFF)
(defalias 'math-known-sin #[1028 "\301\"\262\302!\205f\303\304\305!\"\306\"\211\262\205f\307Y\2033\310\307Z\311\312$\211\262\205f\313!\207\314V\203>\307Z\262\315!\203S\204N\316>\205f\317\236A\207\320\267\202e\321\322D!\207\321\323D!\207\324\207" [calc-symbolic-mode math-mul math-num-integerp math-mod math-add math-trunc 240 120 math-known-sin 1 0 math-neg 60 math-zerop (0 20 60) ((0 . 0) (10 / (calcFunc-sqrt (- 2 (calcFunc-sqrt 3))) 2) (12 / (- (calcFunc-sqrt 5) 1) 4) (15 / (calcFunc-sqrt (- 2 (calcFunc-sqrt 2))) 2) (20 / 1 2) (24 * (^ (/ 1 2) (/ 3 2)) (calcFunc-sqrt (- 5 (calcFunc-sqrt 5)))) (30 / (calcFunc-sqrt 2) 2) (36 / (+ (calcFunc-sqrt 5) 1) 4) (40 / (calcFunc-sqrt 3) 2) (45 / (calcFunc-sqrt (+ 2 (calcFunc-sqrt 2))) 2) (48 * (^ (/ 1 2) (/ 3 2)) (calcFunc-sqrt (+ 5 (calcFunc-sqrt 5)))) (50 / (calcFunc-sqrt (+ 2 (calcFunc-sqrt 3))) 2) (60 . 1)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 89 60 95)) math-normalize calcFunc-sin calcFunc-cos nil] 9 (#$ . 24427)])
(byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\207" [put calcFunc-tan math-simplify #[257 "\211A@\242\301=\203\211A@A@\206\315\302
A@!\203%\303\304\303A@!D!\206\315\305=\203B\306
A@\307\"\211\205=\310
@A@\311#\262
\206\315\312=\203^\313
A@!\211\205Y\310
@A@\314#\262
\206\315\211A@\242\315=\203~\316
A@A@\317\320\321\322A@A@!\"D\"\206\315\211A@\242\323=\203\235\316\317\320\321\322A@A@!\"DA@A@\"\206\315\324
A@!\211\205\313\211@\325\232\203\277\316\320\321\326A@D\"\327A@D\"\202\313\316\327A@D\326A@D\"\262
\207" [calc-angle-mode calcFunc-arctan math-looks-negp math-neg calcFunc-tan rad math-linear-in (var pi var-pi) math-known-tan 120 deg math-integer-plus (frac 2 3) calcFunc-arcsin math-div calcFunc-sqrt math-sub 1 math-sqr calcFunc-arccos math-should-expand-trig (frac 1 2) calcFunc-cos calcFunc-sin] 8 "\n\n(fn EXPR)"] calcFunc-cot #[257 "\301
A@!\203\302\303\302A@!D!\206\261\304=\203;\305
A@\306\"\211\2056\307
@A@\310#\211\2054\311\312\"\262
\262
\206\261\313=\203a\314
A@!\211\205\\\307
@A@\315#\211\205Z\311\312\"\262
\262
\206\261\211A@\242\316=\203\200\311\317\320\312\321A@A@!\"DA@A@\"\206\261\211A@\242\322=\203\240\311
A@A@\317\320\312\321A@A@!\"D\"\206\261\211A@\242\323=\205\261\311\312A@A@\"\207" [calc-angle-mode math-looks-negp math-neg calcFunc-cot rad math-linear-in (var pi var-pi) math-known-tan 120 math-div 1 deg math-integer-plus (frac 2 3) calcFunc-arcsin calcFunc-sqrt math-sub math-sqr calcFunc-arccos calcFunc-arctan] 8 "\n\n(fn EXPR)"]] 5)
#@19 

(fn PLUS N MUL)
(defalias 'math-known-tan #[771 "\301\"\262\302!\205[\303\304!\305\"\211\262\205[
\306V\203/\307\305Z\310#\211\262\205[\311!\207\312!\203D\204?
\313>\205[
\314\236A\207
\315\267\202Z\316\317D!\207\316\320\321\317DE!\207\322\207" [calc-symbolic-mode math-mul math-num-integerp math-mod math-trunc 120 60 math-known-tan 1 math-neg math-zerop (0 30 60) ((0 . 0) (10 - 2 (calcFunc-sqrt 3)) (12 calcFunc-sqrt (- 1 (* (/ 2 5) (calcFunc-sqrt 5)))) (15 - (calcFunc-sqrt 2) 1) (20 / (calcFunc-sqrt 3) 3) (24 calcFunc-sqrt (- 5 (* 2 (calcFunc-sqrt 5)))) (30 . 1) (36 calcFunc-sqrt (+ 1 (* (/ 2 5) (calcFunc-sqrt 5)))) (40 calcFunc-sqrt 3) (45 + (calcFunc-sqrt 2) 1) (48 calcFunc-sqrt (+ 5 (* 2 (calcFunc-sqrt 5)))) (50 + 2 (calcFunc-sqrt 3)) (60 var uinf var-uinf)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 74 60 80)) math-normalize calcFunc-tan / -1 nil] 8 (#$ . 27076)])
(byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\210\300\306\302\306\302N\307C\244#\210\300\310\302\310\302N\311C\244#\210\300\312\302\312\302N\313C\244#\210\300\314\302\314\302N\315C\244#\210\300\316\302\316\302N\317C\244#\210\300\320\302\320\302N\321C\244#\210\300\322\302\322\302N\323C\244#\210\300\324\302\324\302N\325C\244#\210\300\326\302\326\302N\327C\244#\210\300\330\302\330\302N\331C\244#\210\300\332\302\332\302N\333C\244#\207" [put calcFunc-sinh math-simplify #[257 "\211A@\242\301=\203\211A@A@\206\240\302
A@!\203%\303\304\303A@!D!\206\240\211A@\242\305=\203A\203A\306\307\310A@A@!\311\"D\206\240\211A@\242\312=\203e\203e\313
A@A@\306\307\311\310A@A@!\"D\"\206\240\314
A@\315\"\211\205\236\211@\250\205\236\211@
A@
\311V\205\234\316\317\304\317SED\320DE\317\320\317SED\304DEE\266\202\262
\207" [math-living-dangerously calcFunc-arcsinh math-looks-negp math-neg calcFunc-sinh calcFunc-arccosh calcFunc-sqrt math-sub math-sqr 1 calcFunc-arctanh math-div math-should-expand-trig t + * calcFunc-cosh] 11 "\n\n(fn EXPR)"] calcFunc-cosh #[257 "\211A@\242\301=\203\211A@A@\206\232\302
A@!\203#\303\304A@!D\206\232\211A@\242\305=\203?\203?\306\307\310A@A@!\311\"D\206\232\211A@\242\312=\203_\203_\313\311\306\314\311\310A@A@!\"D\"\206\232\315
A@\316\"\211\205\230\211@\250\205\230\211@
A@
\311V\205\226\317\320\303\320SED\303DE\320\321\320SED\321DEE\266\202\262
\207" [math-living-dangerously calcFunc-arccosh math-looks-negp calcFunc-cosh math-neg calcFunc-arcsinh calcFunc-sqrt math-add math-sqr 1 calcFunc-arctanh math-div math-sub math-should-expand-trig t + * calcFunc-sinh] 11 "\n\n(fn EXPR)"] calcFunc-tanh #[257 "\211A@\242\301=\203\211A@A@\206\234\302
A@!\203%\303\304\303A@!D!\206\234\211A@\242\305=\203H\203H\306
A@A@\307\310\311A@A@!\312\"D\"\206\234\211A@\242\313=\203k\203k\306\307\314\311A@A@!\312\"DA@A@\"\206\234\315
A@\316\"\211\205\232\211@\317\232\203\216\306\314\320A@D\312\"\321A@D\"\202\232\306\321A@D\320A@D\"\262
\207" [math-living-dangerously calcFunc-arctanh math-looks-negp math-neg calcFunc-tanh calcFunc-arcsinh math-div calcFunc-sqrt math-add math-sqr 1 calcFunc-arccosh math-sub math-should-expand-trig t (frac 1 2) calcFunc-cosh calcFunc-sinh] 7 "\n\n(fn EXPR)"] calcFunc-sech #[257 "\301
A@!\203\302\303A@!D\206d\211A@\242\304=\2031\2031\305\306\307\310\311A@A@!\306\"D\"\206d\211A@\242\312=\203K\203K\305\306A@A@\"\203K\306\207\211A@\242\313=\205d\205d\307\314\306\311A@A@!\"D\207" [math-living-dangerously math-looks-negp calcFunc-sech math-neg calcFunc-arcsinh math-div 1 calcFunc-sqrt math-add math-sqr calcFunc-arccosh calcFunc-arctanh math-sub] 7 "\n\n(fn EXPR)"] calcFunc-csch #[257 "\301
A@!\203\302\303\302A@!D!\206k\211A@\242\304=\203,\203,\305\306A@A@\"\206k\211A@\242\307=\203K\203K\305\306\310\311\312A@A@!\306\"D\"\206k\211A@\242\313=\205k\205k\305\310\311\306\312A@A@!\"DA@A@\"\207" [math-living-dangerously math-looks-negp math-neg calcFunc-csch calcFunc-arcsinh math-div 1 calcFunc-arccosh calcFunc-sqrt math-sub math-sqr calcFunc-arctanh] 7 "\n\n(fn EXPR)"] calcFunc-coth #[257 "\301
A@!\203\302\303\302A@!D!\206o\211A@\242\304=\2037\2037\305\306\307\310A@A@!\311\"DA@A@\"\206o\211A@\242\312=\203Z\203Z\305
A@A@\306\313\310A@A@!\311\"D\"\206o\211A@\242\314=\205o\205o\305\311A@A@\"\207" [math-living-dangerously math-looks-negp math-neg calcFunc-coth calcFunc-arcsinh math-div calcFunc-sqrt math-add math-sqr 1 calcFunc-arccosh math-sub calcFunc-arctanh] 7 "\n\n(fn EXPR)"] calcFunc-arcsin #[257 "\301
A@!\203\302\303\302A@!D!\206_\211A@\304=\203\"\305\306!\206_\211A@\307\232\2033\310\311\306!\312\"\206_\203H\211A@\242\313=\203H\211A@A@\206_\205_\211A@\242\314=\205_\315\305\306!A@A@\"\207" [math-living-dangerously math-looks-negp math-neg calcFunc-arcsin 1 math-quarter-circle t (frac 1 2) math-div math-half-circle 6 calcFunc-sin calcFunc-cos math-sub] 5 "\n\n(fn EXPR)"] calcFunc-arccos #[257 "\211A@\301=\203\302\303!\206m\211A@\304=\203\305\303!\206m\211A@\306\232\203-\307\305\303!\310\"\206m\211A@\311\232\203A\307\312\305\303!\313\"\310\"\206m\203V\211A@\242\314=\203V\211A@A@\206m\205m\211A@\242\315=\205m\316\302\303!A@A@\"\207" [math-living-dangerously 0 math-quarter-circle t -1 math-half-circle (frac 1 2) math-div 3 (frac -1 2) math-mul 2 calcFunc-cos calcFunc-sin math-sub] 5 "\n\n(fn EXPR)"] calcFunc-arctan #[257 "\301
A@!\203\302\303\302A@!D!\2067\211A@\304=\203%\305\306\307!\310\"\2067\2057\211A@\242\311=\2057\211A@A@\207" [math-living-dangerously math-looks-negp math-neg calcFunc-arctan 1 math-div math-half-circle t 4 calcFunc-tan] 5 "\n\n(fn EXPR)"] calcFunc-arcsinh #[257 "\301
A@!\203\302\303\302A@!D!\2060\211A@\242\304=\2050\204+\305
A@A@!\2050\211A@A@\207" [math-living-dangerously math-looks-negp math-neg calcFunc-arcsinh calcFunc-sinh math-known-realp] 5 "\n\n(fn EXPR)"] calcFunc-arccosh #[257 "\211A@\242\301=\205\204\302
A@A@!\205\211A@A@\207" [math-living-dangerously calcFunc-cosh math-known-realp] 3 "\n\n(fn EXPR)"] calcFunc-arctanh #[257 "\301
A@!\203\302\303\302A@!D!\2060\211A@\242\304=\2050\204+\305
A@A@!\2050\211A@A@\207" [math-living-dangerously math-looks-negp math-neg calcFunc-arctanh calcFunc-tanh math-known-realp] 5 "\n\n(fn EXPR)"] calcFunc-sqrt #[257 "\300
!\207" [math-simplify-sqrt] 3 "\n\n(fn EXPR)"]] 5)
#@13 

(fn EXPR)
(defalias 'math-simplify-sqrt #[257 "\211A@\242\301=\203!\302\303\304A@A@\305A@8\"D\305A@8\"\206\211\306
A@!\2031\307
A@!\2026\310
A@!\211\205T\211\311=?\205T\304\312\303D!\312\303\313A@\"D!\"\262
\206\211\205\211\211A@\242\314=\203\277\315
A@A@\311\"\203\277\305
A@8\242\316=\203\277\315\305\211A@88\305\"\203\277\305
A@8A@\242\317=\203\244\320\305A@8A@A@D\206\211\305
A@8A@\242\320=\203\277\317\305A@8A@A@D\206\211\211A@\242\314=\203
\315\305A@8\311\"\203
\211A@A@\242\316=\203
\315\305A@A@8\305\"\203
\211A@A@A@\242\321=\203
\322
A@A@A@A@D\206\211\211A@\242\323=\203\231
\211A@A@\305A@8\315\311\"\203.
\211\262A@A@\211\262\2045
\315
\311\"\205\224

\242\316=\205\224
\315\3058\305\"\205\224

A@\242\322=\203X
\321A@A@D\206\224

A@\242\324=\203k
\325A@A@D\206\224

A@\242\326=\203\201
\327\311\320A@A@DE\206\224

A@\242\330=\205\224
\327\311\317A@A@DE\266\202\206\211\211A@\242\316=\203\264
\316
A@A@\302\305A@8\305\"E\206\211\211A@\242\303=\203\313
\316
A@A@\302\311\331\"E\206\211\211A@\242\332>\203\352
\211A@@\303A@A@D\303\305A@8DE\206\211\211A@\242\333>\205\211\334
A@!?\205\211\335\336A@!!\211\211\242\337=\262
\205\207\211G\305V\204\305
A@8\311V\205\207\311\211\211\340\211A\211\262\203m@A@\262\305@8\262
\211\311V\203N\304\341\305\245\"\"\262\211\305\246\262
\211\342V\203#
\242\343>\203d\344\"\262\202#\304\"\262\202#\311=\205v\345>?\205\205\304\303\304\"D\"\266\205\262
\207" [math-living-dangerously frac math-div calcFunc-sqrt math-mul 2 math-objectp math-squared-factor math-common-constant-factor 1 math-normalize math-cancel-common-factor - math-equal-int ^ calcFunc-sin calcFunc-cos calcFunc-cosh calcFunc-sinh + calcFunc-csch calcFunc-coth calcFunc-tan / calcFunc-cot 4 (* /) (+ -) math-any-floats calcFunc-factors calcFunc-expand vec nil math-pow 0 (+ -) math-mul-thru (1 -1)] 13 (#$ . 33488)])
#@10 

(fn X)
(defalias 'math-squared-factor #[257 "\300
!\2053\301\302\303\2030\304@\"\211\262A\305=\203)\211@\262\306@\"\262\202	A\262\202	
\266\203\207" [Math-integerp (4 9 25 49 121 169 289 361 529 841) 1 nil math-idivmod 0 math-mul] 7 (#$ . 35412)])
(byte-code "\300\301\302\301\302N\303C\244#\207" [put calcFunc-exp math-simplify #[257 "\300
A@!\207" [math-simplify-exp] 3 "\n\n(fn EXPR)"]] 5)
#@10 

(fn X)
(defalias 'math-simplify-exp #[257 "\211\242\302=\203
\211A@\206\271\203{\211\242\303=\203*\304
A@\305\304\306A@!\307\"D\"\206\271\211\242\310=\203C\304
A@\305\311\306A@!\307\"D\"\206\271\211\242\312=\203_\313\305\304\307A@\"D\305\311\307A@\"D\"\206\271\314
\315\"\211\205v\211@\250\205v\316\317A@D@E\262
\206\271	\205\271\320
!\205\271\321
!\322
\323\"\324\211\205\267\325@A@\326\327$\211\262\205\267\325@A@\326\330$\211\262\205\267\331
\332\333EE\266\204\207" [math-living-dangerously calc-symbolic-mode calcFunc-ln calcFunc-arcsinh math-add calcFunc-sqrt math-sqr 1 calcFunc-arccosh math-sub calcFunc-arctanh math-div math-should-expand-trig exp ^ calcFunc-exp math-known-imagp calcFunc-im math-linear-in (var pi var-pi) nil math-known-sin 120 0 300 + * (var i var-i)] 10 (#$ . 35828)])
(byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\210\300\306\302\306\302N\307C\244#\210\300\310\302\310\302N\311C\244#\210\300\312\302\312\302N\313C\244#\207" [put calcFunc-ln math-simplify #[257 "\211A@\242\302=\203\204\303
A@A@!\203\211A@A@\206\224\211A@\242\304=\203H\211A@A@\305\232\203H\204@\303\306A@8!\203H\306
A@8\206\224	\203a\307
A@!\203a\310\311\312A@!D\313\"\206\224	\205\224\314
A@!\205\224\315
A@!\316
!\211\317>\203\204\310\311D\320\"\206\222\211\321>\205\222\322\311\312!D\323\"\266\202\207" [math-living-dangerously calc-symbolic-mode calcFunc-exp math-known-realp ^ (var e var-e) 2 math-known-negp math-add calcFunc-ln math-neg (* (var pi var-pi) (var i var-i)) math-known-imagp calcFunc-im math-possible-signs (4 6) (/ (* (var pi var-pi) (var i var-i)) 2) (1 3) math-sub (/ (* (var pi var-pi) (var i var-i)) 2)] 7 "\n\n(fn EXPR)"] ^ #[257 "\203_\211A@\242\302=\203!\302
A@A@\303\3048\304A@8\"E\206\376
\211A@\242\305=\203:\302
A@A@\306\3048\304\"E\206\376
\211A@\242\307>\203_\211A@@\302A@A@\3048E\302\304A@8\3048EE\206\376
\310
A@\311\"\203y\304
8\242\312=\203y\304
8A@\206\376
\211A@\313\232\203\211\314\3048!\206\376
\211A@\242\315=\203\245	\204\245\315\303A@A@\3048\"D\206\376
\211A@\316\232\203\344\317 \203\344\320\3048!\203\344\321\322\3048!\323\"\211\324\267\202\336\325\202\337
A@\202\337\326\202\337\327A@!\202\337\330\262
\206\376
	\203A
\304
8\250\203A
\304
8\304Y\203A
\211A@\242\331=\203
\303\332A@\3048\304Z\"\333\325\334\335A@A@D!\"\"\206\376
\211A@\242\336=\203A
\303\332A@\3048\304Z\"\337\325\334\340A@A@D!\"\"\206\376
\304
8\242\341=\203\342
\211A@\211:?\206W
\211@\341=\262
\203\342
\211A@\211:\203\203
\211@\342>\203{
\211A@\211\250\205v
\211\343V\266\202\202\210
\344
!\262
\202\210
\211\343V\262
\203\342
\304
8\345\232\203\233
\305
A@D\202\337
\346\3048!\211\211:\203\277
\211@\347=\203\267
\211A@\343=\262
\202\304
\350
!\262
\202\304
\211\343=\262
?\205\335
\351\302A@E\302A@\333\3048\"EE\262
\206\376
\352\3048!\304=\205\376
\353
!\211\205\374
\302
\303\3048\304\"E\262
\207" [math-living-dangerously math-integrating ^ math-mul 2 calcFunc-sqrt math-div (* /) math-equal-int 10 calcFunc-log10 (var e var-e) math-simplify-exp calcFunc-exp (var i var-i) math-imaginary-i math-num-integerp math-mod math-trunc 4 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 200 1 204 2 210 3 214)) 1 -1 math-neg nil calcFunc-cos math-pow math-sub math-sqr calcFunc-sin calcFunc-cosh math-add calcFunc-sinh frac (frac float) 0 math-posp (frac 1 2) math-floor float math-zerop * math-quarter-integer math-simplify-sqrt] 9 "\n\n(fn EXPR)"] calcFunc-log10 #[257 "\211A@\242\301=\205'\302
A@A@\303\"\205'\204\"\304\305A@8!\205'\305
A@8\207" [math-living-dangerously ^ math-equal-int 10 math-known-realp 2] 4 "\n\n(fn EXPR)"] calcFunc-erf #[257 "\300
A@!\203\301\302\301A@!D!\206&\211A@\242\303=\205&\303\302A@A@DD\207" [math-looks-negp math-neg calcFunc-erf calcFunc-conj] 5 "\n\n(fn EXPR)"] calcFunc-erfc #[257 "\300
A@!\203\301\302\303\304A@!D\"\206'\211A@\242\305=\205'\305\303A@A@DD\207" [math-looks-negp math-sub 2 calcFunc-erfc math-neg calcFunc-conj] 6 "\n\n(fn EXPR)"]] 5)
#@35 

(fn EXPR TERM &optional ALWAYS)
(defalias 'math-linear-in #[770 "\301\"\203\302\303\304#\211A\205\211)\207\211\205\305D\207" [calc-prefer-frac math-expr-contains t math-is-polynomial 1 0] 7 (#$ . 39934)])
#@18 

(fn EXPR TERM)
(defalias 'math-multiple-of #[514 "\300\"\211\205\301
@!\205\211A@\207" [math-linear-in math-zerop] 5 (#$ . 40159)])
#@13 

(fn EXPR)
(defalias 'math-integer-plus #[257 "\300
!\203\n\301
D\207\211@\302>\2030\300
A@!\2030\211@\303=\203&\304
8\202+\305\3048!
A@D\207\211@\306>\203V\300\3048!\203V\211A@
@\303=\203O\3048\202T\305\3048!D\207\307\207" [Math-integerp 0 (+ -) + 2 math-neg (+ -) nil] 5 (#$ . 40305)])
#@30 

(fn EXPR &optional ALWAYS)
(defalias 'math-is-linear #[513 "\300\211\242\301=\203GA@\211:?\206\211@\302>\262
\203(A@\262\3038\262\202\215\3038\211:?\2065\211@\302>\262
\203\215\3038\262A@\262\202\215\242\304=\203\215A@\211:?\206[\211@\302>\262
\203oA@\262\305\3038!\262\202\215\3038\211:?\206|\211@\302>\262
\203\215\305\3038!\262A@\262\306\"\262

\203\247

@\206\236\307A@\206\245E\207\211\205\256\310
B\207" [nil + (frac float cplx polar hms date sdev intv mod) 2 - math-neg math-is-multiple 1 0] 7 (#$ . 40613)])
#@30 

(fn EXPR &optional ALWAYS)
(defalias 'math-is-multiple #[513 "
\242\300=\203#
A@\211:?\206\211@\301>\262
\203\273
A@\3028D\202\270
\242\303=\203\254
A@\211:?\2067\211@\301>\262
\203R\304A@\305\"\204R
A@\306\305\3028\"D\202\270\3028\211:?\206_\211@\301>\262
\203q\306\305\3028\"A@D\202\270\307A@!\211\203\213\211@\306\302A@8\3028\"D\202\247\307\3028!\262
\211\205\247\306\305@\"\306A@\302\21188\"D\262
\202\270
\242\310=\203\273\311A@D\206\334
\211:?\206\306\211@\312>\262
\203\325\211\305=\205\334
\305D\207\211\205\334\305D\207" [* (frac float cplx polar hms date sdev intv mod) 2 / math-equal-int 1 math-div math-is-multiple neg -1 (frac float cplx polar hms date sdev intv mod vec)] 9 (#$ . 41181)])
#@27 

(fn EXPR &optional VAR)
(defalias 'calcFunc-lin #[513 "\211\203\300\301#\211\204\302\303\"\210\304
@A@F\207\305\301\"\211\204(\302\303\"\210\304
B\207" [math-linear-in t math-reject-arg "Linear term expected" vec math-is-linear] 7 (#$ . 41932)])
#@27 

(fn EXPR &optional VAR)
(defalias 'calcFunc-linnt #[513 "\211\203\300\"\211\204\301\302\"\210\303
@A@F\207\304!\211\204&\301\302\"\210\303
B\207" [math-linear-in math-reject-arg "Linear term expected" vec math-is-linear] 7 (#$ . 42198)])
#@27 

(fn EXPR &optional VAR)
(defalias 'calcFunc-islin #[513 "
\211:?\206\211@\300>\262
\203\211\204\301\207\302\"\210\303\207" [(frac float cplx polar hms date sdev intv mod vec) 0 calcFunc-lin 1] 5 (#$ . 42456)])
#@27 

(fn EXPR &optional VAR)
(defalias 'calcFunc-islinnt #[513 "
\211:?\206\211@\300>\262
\203\301\207\302\"\210\303\207" [(frac float cplx polar hms date sdev intv mod vec) 0 calcFunc-linnt 1] 5 (#$ . 42682)])
#@19 

(fn EXPR THING)
(defalias 'math-expr-contains-count #[514 "

\232\203\300\207
\211:?\206\211@\301>\262
\203\302\207\303A\211\262\2033\211\304@\"\206-\303\\\262
\202\211\303V\205:\211\207" [1 (frac float cplx polar hms date mod var) nil 0 math-expr-contains-count] 7 (#$ . 42902)])
#@19 

(fn EXPR THING)
(defalias 'math-expr-contains #[514 "

\232\203\300\207
\211:?\206\211@\301>\262
\203\302\207
A\211\262\203*\303@\"\203
\207" [1 (frac float cplx polar hms date mod var) nil math-expr-contains] 5 (#$ . 43206)])
#@19 

(fn EXPR THING)
(defalias 'math-expr-depends #[514 "\211\211:?\206\211@\300>\262
\203\211\242\301=\205-\302\"\207\211A\211\262\203,\303@\"\203\211\207" [(frac float cplx polar hms date mod var) var math-expr-contains math-expr-depends] 5 (#$ . 43453)])
#@21 

(fn EXPR OLD NEW)
(defalias 'math-expr-subst #[771 "

\302!*\207" [math-expr-subst-new math-expr-subst-old math-expr-subst-rec] 5 (#$ . 43727)])
(defalias 'calcFunc-subst 'math-expr-subst)
#@13 

(fn EXPR)
(defalias 'math-expr-subst-rec #[257 "\211\232\203	\207\211\211:?\206\211@\302>\262
\203\207\211@\303>\203B\211G\304U\2036\211A@\232\2035\305
	C\"\207\207\211@
A@\306\3048!E\207\211@\307\306A\"B\207" [math-expr-subst-old math-expr-subst-new (frac float cplx polar hms date mod var) (calcFunc-deriv calcFunc-tderiv) 2 append math-expr-subst-rec mapcar] 6 (#$ . 43927)])
#@13 

(fn EXPR)
(defalias 'math-expr-weight #[257 "\211\211:?\206\211@\300>\262
\203\301\207\301
A\211\262\203&\211\302@!\\\262
\202\207" [(frac float cplx polar hms date mod var) 1 math-expr-weight] 5 (#$ . 44327)])
#@13 

(fn EXPR)
(defalias 'math-expr-height #[257 "\211\211:?\206\211@\300>\262
\203\301\207\301
A\211\262\203&\211\302@!]\262
\202\211T\207" [(frac float cplx polar hms date mod var) 0 math-expr-height] 5 (#$ . 44555)])
#@18 

(fn EXPR BASE)
(defalias 'calcFunc-collect #[514 "\300\301\302$\211A\203\303\304\305\"\"\207\211@\207" [math-is-polynomial 50 t math-build-polynomial-expr mapcar math-normalize] 7 (#$ . 44787)])
#@40 

(fn EXPR VAR &optional DEGREE LOOSE)
(defalias 'math-is-polynomial #[1026 "\211\203\211\305=\203\202\306\202\211
\307\f\"\203*\211GTX\205+\211,\207" [math-poly-base-variable math-var math-is-poly-loose math-is-poly-degree math-poly-neg-powers gen (var XXX XXX) math-is-poly-rec] 7 (#$ . 44996)])
#@20 

(fn EXPR NEGPOW)
(defalias 'math-is-poly-rec #[514 "\306\232\204\242\307=\203;
\310\211\232\204 \3118\262A@\262
	\310=\204\217\312\310\"\211@\242\313=\203i\211@A@\211:\203T\211@\314=\203L\211A@\315=\262
\202Y\316
!\262
\202Y\211\315=\262
\203i\311
@8\317A@\320\"D\262
	\203u	
A@\232\202z\211A@\211\205\213
\232\204\211	\310=\205\213\211@\262
\262
:\203\261\321!\262
\242\322=\203\261\n\203\261\211\232\203\261\323\n\3118\"\n\324>\204\275\317\n\"\262
\250\2056

\310U\203\326\211\232\203\326\315\310D\266\202\202a\325!\203
\211\232\203\350\315\310D\202\354\326
\327\"\310C\205
\203

GS_X\205

\310Y\203
\330
\"\262

S\262\202

\211\266\205\202a\2056
\326
\327\"\2056
\331
[\"\fB\211\2056
\307
EC\266\202\202a\211:?\206F
\211@\332>\262
\203P
C\202a@\333>\203\204
\326A@\"\211\205
\326\3118\"\211\205}
\334\310@\335=\203{
\310\202|
\336$\262
\262
\202a@\337=\203\227
\340\341\326A@\"\"\202a@\342=\203\315
\326A@\"\211\205\310
\326\3118\"\211\205\306
\203\302

G
G\\\311ZX\205\306
\330\"\262
\262
\202a@\343=\2030\344\3118\"\203\364

\203d\326\3118\327\"\203d\3118\fB\211\203d\3118\211:\203\211@\314=\203
\211A@\315=\262
\202\316
!\262
\202\211\315=\262
\204d\326A@\"\340\345\346\"\"\262
\202a@\347=\203I\350\232\203I\326\307A@E\"\202a@\351=\203`\n\203`\326\307A@\352E\"\202a\327\206y\344\"\203o
\205y@\353=?\205yC!\207" [math-var math-poly-mult-powers math-poly-frac-powers math-is-poly-degree math-poly-neg-powers math-is-poly-loose math-poly-simplify ^ 1 2 math-is-multiple cplx float 0 math-zerop math-mul (var i var-i) math-to-simple-fraction frac calcFunc-lcm (1 nil) natnump math-is-poly-rec nil math-poly-mul math-pow (frac float cplx polar hms date sdev intv mod) (+ -) math-poly-mix + -1 neg mapcar math-neg * / math-poly-depends make-closure #[257 "\301
\302\3008\"\207" [V0 math-div 2] 5 "\n\n(fn X)"] calcFunc-exp (var e var-e) calcFunc-sqrt (frac 1 2) vec] 11 (#$ . 45320)])
#@17 

(fn EXPR VAR)
(defalias 'math-polynomial-p #[514 "

\232\203\300\207
\211:?\206\211@\301>\262
\203\302\207
@\303>\203<\304A@\"\305
\205;\304\3068\"\211\262\205;

]\207
@\307=\203^\304A@\"\305
\205]\304\3068\"\211\262\205]

\\\207
@\310=\203l\304A@\"\207
@\311=\203\203\312\3068\"\204\203\304A@\"\207
@\313=\203\242\314\3068!\203\242\304A@\"\211\205\241\211\3068_\207\312\"\203\253\305\207\302\207" [1 (frac float cplx polar hms date mod var) 0 (+ -) math-polynomial-p nil 2 * neg / math-poly-depends ^ natnump] 7 (#$ . 47354)])
#@17 

(fn EXPR VAR)
(defalias 'math-poly-depends #[514 "\203	\301\"\207\302\"\207" [math-poly-base-variable math-expr-contains math-expr-depends] 5 (#$ . 47931)])
#@107 Find the variable (or sub-expression) which is the base of polynomial expr.

(fn TOP-EXPR &optional PRED)
(defalias 'math-polynomial-base #[513 "\211\206\302\303\"\304\305!)\206\306\305!))\207" [math-poly-base-pred math-poly-base-const-ok make-closure #[257 "\301\300\"\207" [V0 math-polynomial-p] 4 "\n\n(fn BASE)"] nil math-polynomial-base-rec t] 5 (#$ . 48103)])
#@17 

(fn MPB-EXPR)
(defalias 'math-polynomial-base-rec #[257 "\211\211:?\206\211@\302>\262
?\205d\211@\303>\203(\304
A@!\206d\304\3058!\206d\211@\306>\2037\304
A@!\206d\211@\307=\203F\304
A@!\206d\211@\310=\203S\304\311!\206d\204]\312
!\205d	
!\205d\211\207" [math-poly-base-const-ok math-poly-base-pred (frac float cplx polar hms date sdev intv mod vec) (+ - *) math-polynomial-base-rec 2 (/ neg) ^ calcFunc-exp (var e var-e) math-expr-contains-vars] 4 (#$ . 48486)])
#@60 Return non-nil if expr refers to any variables.

(fn EXPR)
(defalias 'math-expr-contains-vars #[257 "\211\242\300=\206(\211\211:?\206\211@\301>\262
?\205(\211A\211\262\203'\302
@!\203\211\207" [var (frac float cplx polar hms date mod var) math-expr-contains-vars] 4 (#$ . 48975)])
#@152 Simplify a polynomial in list form by stripping off high-end zeros.
This always leaves the constant part, i.e., nil->nil and non-nil->non-nil.

(fn P)
(defalias 'math-poly-simplify #[257 "\211\205p\211GS
8\211:\203'\211@\300=\203\211A@\301=\262
\202,\302
!\262
\202,\211\301=\262
\203o\303
!\211A\203n\211GS
8\211:\203Z\211@\300=\203R\211A@\301=\262
\202_\302
!\262
\202_\211\301=\262
\203n\211G\304Z
\233\305\241\210\2022\207\211\207" [float 0 math-zerop copy-sequence 2 nil] 5 (#$ . 49271)])
#@18 

(fn A AC B BC)
(defalias 'math-poly-mix #[1028 "\204
\205%\300\301@\206\302\"\301@\206\302\"\"\303AA$B\207" [math-add math-mul 0 math-poly-mix] 10 (#$ . 49785)])
#@10 

(fn A)
(defalias 'math-poly-zerop #[257 "\211?\206(\211A?\205(\211@\211:\203#\211@\300=\203\211A@\301=\207\302
!\207\211\301=\262
\207" [float 0 math-zerop] 4 (#$ . 49971)])
#@50 Multiply two polynomials in list form.

(fn A B)
(defalias 'math-poly-mul #[514 "
\205\211\205\300
@\301A\302B\"\303$\207" [math-poly-mix math-poly-mul 0 1] 9 (#$ . 50158)])
#@57 Build an expression from a polynomial list.

(fn P VAR)
(defalias 'math-build-polynomial-expr #[514 "
\203\207\211\211:?\206\211@\301>\262
\2038\302T\303!\211@
A\211\262\2033\304@\305\"\"\262
\202\262
)!\207\303!\211GS\305@\306\"\"A\211\262\203\206
S\262\307@!\204F\310@!\203d\311\202e\312
\305\310@!\203w\313@!\202y@\306\"\"E\262
\202F\207\314\207" [calc-internal-prec (frac float cplx polar) math-normalize reverse math-add math-mul math-pow math-zerop math-looks-negp - + math-neg 0] 12 (#$ . 50346)])
#@10 

(fn F)
(defalias 'math-to-simple-fraction #[257 "\211\242\300=\203@\301
8\302Y\203\303
A@\3018\"\206A\211A@\250\203@\211A@\304V\203@\211A@\305W\203@\306
A@\303\307\3018[\"\"\206A\211\207" [float 2 0 math-scale-int -1000 1000 math-make-frac 1] 7 (#$ . 50897)])
(provide 'calc-alg)