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



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

(fn VAR NUM)
(defalias 'calc-derivative #[514 "
C
C\300\301\302#`\"\207" [calc-do make-closure #[0 "\301\242\302W\203\303\304!\210\305 \203\306\202\307\310\211\300\242\311\232\204%\300\242\312\232\2036\313\262\314\313!\262
\300\314\315!\240\210\202U\300\316\300\242!\240\210\300\242\242\303=\203M\303\317\300\242A@\"\210\315\262\314\315!\262
\301\211\242S\240\302Y\203i
\300\242E\262
\202U\320\321#\207" [V0 V1 0 error "Order of derivative must be positive" calc-is-hyperbolic calcFunc-tderiv calcFunc-deriv nil "" "$" 2 calc-top-n 1 math-read-expr "Bad format in expression: %s" calc-enter-result "derv"] 7]] 9 (#$ . 156) "sDifferentiate with respect to: \np"])
#@26 

(fn VAR &optional ARG)
(defalias 'calc-integral #[513 "\211\203\300\301\302\303\304\304\211&\207\305\306\307\"`\"\207" [calc-tabular-command calcFunc-integ "Integration" "intg" nil calc-do make-closure #[0 "\300\301\232\204\f\300\302\232\203\303\304\305\306\307\304!\307\310!E#\207\311\300!\211\242\312=\203*\312\313A@\"\210\303\310\305\306\307\310!E#\207" [V0 "" "$" calc-enter-result 2 "intg" calcFunc-integ calc-top-n 1 math-read-expr error "Bad format in expression: %s"] 7]] 10 (#$ . 846) "sIntegration variable: \nP"])
#@43 

(fn &optional VARNAME LOWNAME HIGHNAME)
(defalias 'calc-num-integral #[768 "\300\301\302\303\304&\207" [calc-tabular-command calcFunc-ninteg "Integration" "nint" nil] 11 (#$ . 1391) "sIntegration variable: "])
#@47 

(fn ARG &optional VARNAME LOWNAME HIGHNAME)
(defalias 'calc-summation #[1025 "\300\301\302\303&\207" [calc-tabular-command calcFunc-sum "Summation" "sum"] 12 (#$ . 1616) "P\nsSummation variable: "])
#@47 

(fn ARG &optional VARNAME LOWNAME HIGHNAME)
(defalias 'calc-alt-summation #[1025 "\300\301\302\303&\207" [calc-tabular-command calcFunc-asum "Summation" "asum"] 12 (#$ . 1832) "P\nsSummation variable: "])
#@47 

(fn ARG &optional VARNAME LOWNAME HIGHNAME)
(defalias 'calc-product #[1025 "\300\301\302\303&\207" [calc-tabular-command calcFunc-prod "Index" "prod"] 12 (#$ . 2054) "P\nsIndex variable: "])
#@47 

(fn ARG &optional VARNAME LOWNAME HIGHNAME)
(defalias 'calc-tabulate #[1025 "\300\301\302\303&\207" [calc-tabular-command calcFunc-table "Index" "tabl"] 12 (#$ . 2262) "P\nsIndex variable: "])
#@56 

(fn FUNC PROMPT PREFIX ARG VARNAME LOWNAME HIGHNAME)
(defalias 'calc-tabular-command #[1799 "
C
C\300\301\302		&`\"\207" [calc-do make-closure #[0 "\307\211\211\211\211\211\310\307\303:\203\310\262\202\311\262\304\312\232\204&\304\313\232\204&\304\204B\314T!\262\314\315\\!\262\314\316\\!\262\317\\\262\202B
\304;\203M\320\304!\202N\304\262\242\321=\203`\321\322	A@\"\210\305\242\204o\305\323\301\324\304\325R!\240\210\305\242\312\232\204}\305\242\313\232\203\222\314T!\262\314\315\\!\262\316\\\262\202B
\305\242;\203\237\320\305\242!\202\241\305\242\262\242\321=\203\263\321\322A@\"\210\306\242\204\306\306\323\301\324\304\325\305\242\326\260!\240\210\306\242\312\232\204\324\306\242\313\232\203\342\314T!\262\315\\\262\202B
\306\242;\203\357\320\306\242!\202\361\306\242\262\242\321=\203
\321\322A@\"\210\303:\203B
\323\301\324\304\325\305\242\326\306\242\327\260!\262\312\232\204#
\313\232\203.
\314\310!\262\315\262\202B
\320!\262\242\321=\203B
\321\322A@\"\210\204\\
\303:\203S
\314\310!\262\202\\
\303\203\\
\330\303!\262\314!\262
\331\302\332\300


\257	\205w
	C\"#\207" [V0 V1 V2 V3 V4 V5 V6 nil 1 0 "" "$" calc-top-n 2 3 4 math-read-expr error "Bad format in expression: %s" read-string " variable: " ", from: " ", to: " ", step: " prefix-numeric-value calc-enter-result append] 17]] 19 (#$ . 2472)])
#@12 

(fn VAR)
(defalias 'calc-solve-for #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302 \203\303\202\304\202\302 \203\305\202\306\300\307\232\204(\300\310\232\2035\311\312\313\314\312!\314\315!E#\207\316\317\300\"\203L\320\321\300\"\204L\322\321\300\323Q!\202O\322\300!\211\242\324=\203]\324\325A@\"\210\311\315\313\314\315!E#\207" [V0 calc-is-inverse calc-is-hyperbolic calcFunc-ffinv calcFunc-finv calcFunc-fsolve calcFunc-solve "" "$" calc-enter-result 2 "solv" calc-top-n 1 string-match ",\\|[^ ] +[^ ]" string-search "[" math-read-expr "]" error "Bad format in expression: %s"] 8]] 5 (#$ . 3882) "sVariable(s) to solve for: "])
#@12 

(fn VAR)
(defalias 'calc-poly-roots #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\300\301\232\204\f\300\302\232\203\303\304\305\306\307\304!\307\310!E#\207\311\312\300\"\2030\313\314\300\"\2040\315\314\300\316Q!\2023\315\300!\211\242\317=\203A\317\320A@\"\210\303\310\305\306\307\310!E#\207" [V0 "" "$" calc-enter-result 2 "prts" calcFunc-roots calc-top-n 1 string-match ",\\|[^ ] +[^ ]" string-search "[" math-read-expr "]" error "Bad format in expression: %s"] 7]] 5 (#$ . 4564) "sVariable to solve for: "])
#@19 

(fn VAR NTERMS)
(defalias 'calc-taylor #[514 "\300\301\302#`\"\207" [calc-do make-closure #[0 "\302\300!\211\242\303=\203\303\304A@\"\210\305\306\307\310\311\306!\312\301!F#\207" [V0 V1 math-read-expr error "Bad format in expression: %s" calc-enter-result 1 "tylr" calcFunc-taylor calc-top-n prefix-numeric-value] 9]] 7 (#$ . 5104) "sTaylor expansion variable: \nNNumber of terms: "])
#@13 

(fn EXPR)
(defalias 'math-derivative #[257 "\211\232\203\305\207\211\211:?\206\211@\306>\262
\204C\211@\307=\204C\211@\310=\203E	\203C\311
!\204C\312 \210\313\3148\n\236\206=A@>\203E\315\207\211@\316=\203Y\317\320A@!\320\3148!\"\207\211@\321=\203m\322\320A@!\320\3148!\"\207\211@\323>\203\202\211@\320A@!\320\3148!E\207\211@\324=\203\221\325\320A@!!\207\211@\326=\203\260\317\327\3148\320A@!\"\327A@\320\3148!\"\"\207\211@\330=\203\327\322\331\320A@!\3148\"\331\327A@\320\3148!\"\332\3148!\"\"\207\211@\333=\203c
\320
A@!\320\3148!
\211:\203
\211@\334=\203\377\211A@\315=\262
\202\f
\335
!\262
\202\f
\211\315=\262
\204(
\327\3148\327\336\333A@\317\314\n8\337\"E!\"\"\262\211\211:\203G
\211@\334=\203?
\211A@\315=\262
\202L
\335
!\262
\202L
\211\315=\262
\204^
\327\336\340A@D!\327\"\"\262
\317\"\207\211@\341=\203p
\320
A@!\207\211@\342=\203|
\343\320\"\207\211@\344>\203\223
\211G\314U\203\223
\211@\320A@!D\207\211@\345>\203\300
\211G\346U\203\300
\320
A@!\211\211:?\206\261
\211@\347>\262
\203\270
\315\207
@
\3148E\207\211@9\203$\211G\314U\203\211@\320N\211\205\320A@!\211\211:\203\371
\211@\334=\203\361
\211A@\315=\262
\202\376
\335
!\262
\202\376
\211\315=\262
\203\211\202
\327A@!\"\262
\262
\202!\211@\350N\211\205\211!\262
\206@\f\351=\204G\352
!\211\205B\351\3532;\320!0)\206B\320
!\262
\206@\211\211:?\206R\211@\354>\262
\204d\211@\310=\204d\211@9\204z\f\203m\355\353\356\"\207	\203u\357\202v\360
E\207\315
\305\356A\211\262\203=\320@!\211\262\211:\203\253\211@\334=\203\243\211A@\315=\262
\202\260\335
!\262
\202\260\211\315=\262
\2046\361\362@!\363\305V\203\306\364!\202\307\365Q!G\314U\203\324\366\202\375G\346U\203\337\367\202\375G\370U\203\352\371\202\375G\372U\203\365\373\202\375G\374U\205\375\375\317\327N\203\211\203\376

A\"\206.\f\203(\377N\204(\355\353\356\"\202.\fAB\262
\"\"\262\266
T\262\202~\266\204\207" [math-deriv-var math-deriv-total math-decls-cache math-decls-all math-deriv-symb 1 (frac float cplx polar hms) sdev var math-const-var math-setup-declarations const 2 0 + math-add math-derivative - math-sub (calcFunc-eq calcFunc-neq calcFunc-lt calcFunc-gt calcFunc-leq calcFunc-geq) neg math-neg * math-mul / math-div math-sqr ^ float math-zerop math-normalize -1 calcFunc-ln % vec math-map-vec (calcFunc-conj calcFunc-re calcFunc-im) (calcFunc-subscr calcFunc-mrow calcFunc-mcol) 3 (frac float cplx polar) math-derivative-n pre-expand math-expand-formula math-deriv (frac float cplx polar hms date sdev intv mod vec) throw nil calcFunc-tderiv calcFunc-deriv intern symbol-name "'" int-to-string "" math-derivative-1 math-derivative-2 4 math-derivative-3 5 math-derivative-4 6 math-derivative-5 apply calc-user-defn] 15 (#$ . 5503)])
#@56 

(fn EXPR DERIV-VAR &optional DERIV-VALUE DERIV-SYMB)
(defalias 'calcFunc-deriv #[1026 "\211\303\3042\305!0\211\242\306=\204\211\203\307
!\262
\211\205/\203.\310
#\202/\211+\207" [math-deriv-var math-deriv-symb math-deriv-total nil math-deriv math-derivative calcFunc-deriv math-normalize math-expr-subst] 9 (#$ . 8323)])
#@56 

(fn EXPR DERIV-VAR &optional DERIV-VALUE DERIV-SYMB)
(defalias 'calcFunc-tderiv #[1026 "\303 \210\211\304\3052\306!0\211\242\307=\204!\211\203!\310
!\262
\211\2052\2031\311
#\2022\211+\207" [math-deriv-var math-deriv-symb math-deriv-total math-setup-declarations t math-deriv math-derivative calcFunc-tderiv math-normalize math-expr-subst] 9 (#$ . 8669)])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\321\322#\210\300\323\321\324#\210\300\325\302\326#\210\300\327\302\330#\210\300\331\302\332#\210\300\333\302\334#\210\300\335\302\336#\210\300\337\302\340#\210\300\341\302\342#\210\300\343\302\344#\210\300\345\302\346#\210\300\347\302\350#\210\300\351\302\352#\210\300\353\302\354#\210\300\355\302\356#\210\300\357\302\360#\210\300\361\302\362#\210\300\363\302\364#\210\300\365\302\366#\210\300\367\302\370#\210\300\371\302\372#\210\300\373\302\374#\210\300\375\321\376#\210\300\377\321\201@#\210\300\201A\321\201B#\210\300\201C\321\201D#\210\300\201E\321\201F#\210\300\201G\321\201H#\207" [put calcFunc-inv\' math-derivative-1 #[257 "\300\301\302\303!\"!\207" [math-neg math-div 1 math-sqr] 6 "\n\n(fn U)"] calcFunc-sqrt\' #[257 "\300\301\302\303\304D\"\"\207" [math-div 1 math-mul 2 calcFunc-sqrt] 7 "\n\n(fn U)"] calcFunc-deg\' #[257 "\300\301\302 \"\207" [math-div-float (float 18 1) math-pi] 4 "\n\n(fn _)"] calcFunc-rad\' #[257 "\300 \207" [math-pi-over-180] 2 "\n\n(fn _)"] calcFunc-ln\' #[257 "\300\301\"\207" [math-div 1] 4 "\n\n(fn U)"] calcFunc-log10\' #[257 "\300\211\301\302\303!\"\"\207" [math-div 1 math-normalize (calcFunc-ln 10)] 6 "\n\n(fn U)"] calcFunc-lnp1\' #[257 "\300\301\302\301\"\"\207" [math-div 1 math-add] 6 "\n\n(fn U)"] calcFunc-log\' math-derivative-2 #[514 "\211\211:\203\211@\300=\203\211A@\301=\262
\202$\302
!\262
\202$\211\301=\262
?\2057\303\304D!\305\306\307\"\"\262
\207" [float 0 math-zerop math-normalize calcFunc-ln math-div 1 math-mul] 8 "\n\n(fn X B)"] calcFunc-log\'2 #[514 "\300
D\301\302\303E\304\"\"!\207" [calcFunc-ln math-neg math-div calcFunc-log math-mul] 9 "\n\n(fn X B)"] calcFunc-exp\' #[257 "\300\301D!\207" [math-normalize calcFunc-exp] 4 "\n\n(fn U)"] calcFunc-expm1\' #[257 "\300\301D!\207" [math-normalize calcFunc-expm1] 4 "\n\n(fn U)"] calcFunc-sin\' #[257 "\300\301\302D!\303\"\207" [math-to-radians-2 math-normalize calcFunc-cos t] 5 "\n\n(fn U)"] calcFunc-cos\' #[257 "\300\301\302\303D!\304\"!\207" [math-neg math-to-radians-2 math-normalize calcFunc-sin t] 6 "\n\n(fn U)"] calcFunc-tan\' #[257 "\300\301\302\303D!!\304\"\207" [math-to-radians-2 math-sqr math-normalize calcFunc-sec t] 6 "\n\n(fn U)"] calcFunc-sec\' #[257 "\300\301\302\303D!\302\304D!\"\305\"\207" [math-to-radians-2 math-mul math-normalize calcFunc-sec calcFunc-tan t] 7 "\n\n(fn U)"] calcFunc-csc\' #[257 "\300\301\302\303\304D!\303\305D!\"\306\"!\207" [math-neg math-to-radians-2 math-mul math-normalize calcFunc-csc calcFunc-cot t] 8 "\n\n(fn U)"] calcFunc-cot\' #[257 "\300\301\302\303\304D!!\305\"!\207" [math-neg math-to-radians-2 math-sqr math-normalize calcFunc-csc t] 7 "\n\n(fn U)"] calcFunc-arcsin\' #[257 "\300\301\302\303\304\305\302\306!\"D!\"\307\"\207" [math-from-radians-2 math-div 1 math-normalize calcFunc-sqrt math-sub math-sqr t] 10 "\n\n(fn U)"] calcFunc-arccos\' #[257 "\300\301\302\303\304\305\306\307!\"D!\"\310\"\207" [math-from-radians-2 math-div -1 math-normalize calcFunc-sqrt math-sub 1 math-sqr t] 10 "\n\n(fn U)"] calcFunc-arctan\' #[257 "\300\301\302\303\302\304!\"\"\305\"\207" [math-from-radians-2 math-div 1 math-add math-sqr t] 8 "\n\n(fn U)"] calcFunc-sinh\' #[257 "\300\301D!\207" [math-normalize calcFunc-cosh] 4 "\n\n(fn U)"] calcFunc-cosh\' #[257 "\300\301D!\207" [math-normalize calcFunc-sinh] 4 "\n\n(fn U)"] calcFunc-tanh\' #[257 "\300\301\302D!!\207" [math-sqr math-normalize calcFunc-sech] 5 "\n\n(fn U)"] calcFunc-sech\' #[257 "\300\301\302\303D!\302\304D!\"!\207" [math-neg math-mul math-normalize calcFunc-sech calcFunc-tanh] 7 "\n\n(fn U)"] calcFunc-csch\' #[257 "\300\301\302\303D!\302\304D!\"!\207" [math-neg math-mul math-normalize calcFunc-csch calcFunc-coth] 7 "\n\n(fn U)"] calcFunc-coth\' #[257 "\300\301\302\303D!!!\207" [math-neg math-sqr math-normalize calcFunc-csch] 6 "\n\n(fn U)"] calcFunc-arcsinh\' #[257 "\300\301\302\303\304\305!\301\"D!\"\207" [math-div 1 math-normalize calcFunc-sqrt math-add math-sqr] 8 "\n\n(fn U)"] calcFunc-arccosh\' #[257 "\300\301\302\303\304\305!\306\"D!\"\207" [math-div 1 math-normalize calcFunc-sqrt math-add math-sqr -1] 8 "\n\n(fn U)"] calcFunc-arctanh\' #[257 "\300\301\302\301\303!\"\"\207" [math-div 1 math-sub math-sqr] 7 "\n\n(fn U)"] calcFunc-bern\'2 #[514 "\300\301\302\303\"E\"\207" [math-mul calcFunc-bern math-add -1] 8 "\n\n(fn N X)"] calcFunc-euler\'2 #[514 "\300\301\302\303\"E\"\207" [math-mul calcFunc-euler math-add -1] 8 "\n\n(fn N X)"] calcFunc-gammag\'2 #[514 "\300\301#\207" [math-deriv-gamma 1] 6 "\n\n(fn A X)"] calcFunc-gammaG\'2 #[514 "\300\301#\207" [math-deriv-gamma -1] 6 "\n\n(fn A X)"] calcFunc-gammaP\'2 #[514 "\300\301\302\303\304D!\"#\207" [math-deriv-gamma math-div 1 math-normalize calcFunc-gamma] 10 "\n\n(fn A X)"] calcFunc-gammaQ\'2 #[514 "\300\301\302\303\304D!\"#\207" [math-deriv-gamma math-div -1 math-normalize calcFunc-gamma] 10 "\n\n(fn A X)"]] 4)
#@18 

(fn A X SCALE)
(defalias 'math-deriv-gamma #[771 "\300
\300\301\302\303\"\"\304\305!D\"\"\207" [math-mul math-pow math-add -1 calcFunc-exp math-neg] 11 (#$ . 14119)])
(byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put calcFunc-betaB\' math-derivative-3 #[771 "\300\301$\207" [math-deriv-beta 1] 8 "\n\n(fn X A B)"] calcFunc-betaI\' #[771 "\300\301\302\303E\"$\207" [math-deriv-beta math-div 1 calcFunc-beta] 12 "\n\n(fn X A B)"]] 4)
#@20 

(fn X A B SCALE)
(defalias 'math-deriv-beta #[1028 "\300\211\301\302\303\"\"\301\304\305	\"\302\303\"\"\"\"\207" [math-mul math-pow math-add -1 math-sub 1] 12 (#$ . 14585)])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\307\310#\210\300\311\307\312#\210\300\313\314\315#\210\300\316\314\317#\210\300\320\314\321#\210\300\322\314\323#\210\300\324\314\325#\207" [put calcFunc-erf\' math-derivative-1 #[257 "\301\302\303\304\305!D\203\306\202\307 \"\"\207" [calc-symbolic-mode math-div 2 math-mul calcFunc-exp math-sqr (calcFunc-sqrt (var pi var-pi)) math-sqrt-pi] 7 "\n\n(fn X)"] calcFunc-erfc\' #[257 "\301\302\303\304\305!D\203\306\202\307 \"\"\207" [calc-symbolic-mode math-div -2 math-mul calcFunc-exp math-sqr (calcFunc-sqrt (var pi var-pi)) math-sqrt-pi] 7 "\n\n(fn X)"] calcFunc-besJ\'2 math-derivative-2 #[514 "\300\301\302\303\304\"E\302\303\305\"E\"\306\"\207" [math-div math-sub calcFunc-besJ math-add -1 1 2] 9 "\n\n(fn V Z)"] calcFunc-besY\'2 #[514 "\300\301\302\303\304\"E\302\303\305\"E\"\306\"\207" [math-div math-sub calcFunc-besY math-add -1 1 2] 9 "\n\n(fn V Z)"] calcFunc-sum math-derivative-n #[257 "\301\302AAB\"\203\303\304\305\"\207\306\307A@!AABB\207" [math-deriv-var math-expr-contains vec throw math-deriv nil calcFunc-sum math-derivative] 4 "\n\n(fn EXPR)"] calcFunc-prod #[257 "\301\302AAB\"\203\303\304\305\"\207\306
\307\310\311A@!A@\"AABB\"\207" [math-deriv-var math-expr-contains vec throw math-deriv nil math-mul calcFunc-sum math-div math-derivative] 7 "\n\n(fn EXPR)"] calcFunc-integ #[257 "\211G\301U\203 \302
8\232\203\211A@\207\303\304\305A@!\3028E!\207\211G\306U\205x\307
A@\3028\3018#\307A@\3028\3108#\311\312\313\305\3108!\"\313\305\301	8!\"\"\3028\232\203^\314\202u\303\304\305A@!\3028\301	8\310\n8\257!\"\266\202\207" [math-deriv-var 3 2 math-normalize calcFunc-integ math-derivative 5 math-expr-subst 4 math-add math-sub math-mul 0] 12 "\n\n(fn EXPR)"] calcFunc-if #[257 "\211G\300U\205\301
A@\302\3038!\302\3048!F\207" [4 calcFunc-if math-derivative 2 3] 7 "\n\n(fn EXPR)"] calcFunc-subscr #[257 "\211G\300U\205\301
A@\302\3038!E\207" [3 calcFunc-subscr math-derivative 2] 6 "\n\n(fn EXPR)"]] 4)
(defvar math-integ-var '(var X ---))
(defvar math-integ-var-2 '(var Y ---))
(defvar math-integ-vars (list 'f math-integ-var math-integ-var-2))
(defvar math-integ-var-list (list math-integ-var))
(defvar math-integ-var-list-list (list math-integ-var-list))
#@20 

(fn &rest PARTS)
(defalias 'math-tracing-integral '(macro . #[128 "\300\301\302\301\303\304\305B\306BBBBBE\207" [and trace-buffer with-current-buffer (goto-char (point-max)) (and (bolp) (insert (make-string (- math-integral-limit math-integ-level) 32) (format "%2d " math-integ-depth) (make-string math-integ-level 32))) insert ((sit-for 0))] 9 (#$ . 17083)]))
(defvar math-integral-cache nil)
(defvar math-integral-cache-state nil)
#@46 

(fn EXPR &optional SIMPLIFY SAME-AS-ABOVE)
(defalias 'math-integral #[769 "\306	\"\nT\307C\203:rq\210db\210n\203+\310\f
Z\311\"\312\313\n\"\310
\311\"\261\210\314\315\316\"\317\261\210\320\321!\210)\203\250\203mrq\210db\210n\203^\310\f
Z\311\"\312\313\n\"\310
\311\"\261\210\322\315A@\316\"\261\210\320\321!\210)A@:\203x\323!\210\203\250rq\210db\210n\203\230\310\f
Z\311\"\312\313\n\"\310
\311\"\261\210\324\315A@\316\"\325\261\210\320\321!\210)\203\303A@\307=\204\303A@\250\203A@
Y\204\326!\203\320\211\327\240\210\202\330\331\"\216\32756\332=\203\363\333\334!\210\312\335\336\321\"\"5\337\3405\"\210\203	
A\203
\341!\202
\342\240\210\202
\203
\341!\202
\342D\211	B\343=\203\267
\203I
rq\210db\210n\203A
\310\f
Z\311\"\312\313\n\"\310
\311\"\261\210\344c\210\320\321!\210)\345!\262\211\232\203\205
\203~
rq\210db\210n\203v
\310\f
Z\311\"\312\313\n\"\310
\311\"\261\210\346c\210\320\321!\210)\347!\202\262
\203\255
rq\210db\210n\203\245
\310\f
Z\311\"\312\313\n\"\310
\311\"\261\210\350c\210\320\321!\210)\351\352\353#\240\210\202\211\347!\240\204\352=\204\345!\211\232\204\203\372
rq\210db\210n\203\360
\310\f
Z\311\"\312\313\n\"\310
\311\"\261\210\354\355\261\210\320\321!\210)
\351\352\353#\240\210\210)6\332=\203\337\3405\"\210)\211\240\210\356
\242A@!\203+\211
\242A@\321H\240\210\202\211
\242A@\357>\203C
\242A\360\240\210\361\362\242E\202O
\242A@:\205O
\242A@\240\210\203\206rq\210db\210n\203q\310\f
Z\311\"\312\313\n\"\310
\311\"\261\210\363\315\316\"\364\315\242\316\"\325\261\210\320\321!\210)\211\242*\207" [math-cur-record math-integral-cache math-integ-depth trace-buffer math-integral-limit math-integ-level assoc cancelled make-string 32 format "%2d " "Integrating " math-format-value 1000 "...\n" sit-for 0 "Found " math-replace-integral-parts " => " "\n" math-integral-contains-parts nil make-closure #[0 "	A\300\242\206\n\204\204\f\202\305\240\207" [V0 math-cur-record math-enable-subst math-any-substs math-integ-level cancelled] 2] lots calc-set-command-flag clear-message "Working... Integrating %s" math-format-flat-expr message "%s" vector busy yes "Simplifying..." math-simplify " no change\n" math-do-integral " simplified\n" math-integral no t "Trying again after " "simplification...\n" vectorp (parts parts2) parts2 var PARTS "Integral of " "  is  " math-integ-msg calc-display-working-message] 12 (#$ . 17526)])
#@13 

(fn EXPR)
(defalias 'math-integral-contains-parts #[257 "\211\211:?\206\211@\300>\262
\203$\211\242\301=\2054\211A@\302=\2054\303
8<\207\211A\211\262\2033\304
@!\203$\211\207" [(frac float cplx polar hms date mod var) var PARTS 2 math-integral-contains-parts] 4 (#$ . 20009)])
#@13 

(fn EXPR)
(defalias 'math-replace-integral-parts #[257 "\211\211:?\206\211@\301>\262
\206c\211A\211\262\205c\211@:\203\211@@\302=\203[\211@A@\303=\203\304
@8:\203\304
@8A@<\203S\211\304@8A@\240\210\305\306B!\210\202A\307\240\210\202\305
@!\210\202\207" [math-cur-record (frac float cplx polar hms date mod var) var PARTS 2 math-replace-integral-parts foo cancelled] 4 (#$ . 20302)])
#@58 Non-nil means that a linear substitution has been tried.
(defvar math-linear-subst-tried t (#$ . 20715))
#@13 

(fn EXPR)
(defalias 'math-do-integral #[257 "\306\211\211\307
\"\204\310
\"\202\211\232\203#\311\312!\313\"\202\211@\314=\203E\315
A@!\211\203\315\3138!\211\203\316	\"\202\211@\317=\203g\315
A@!\211\203\315\3138!\211\203\320	\"\202\211@\321=\203~\315
A@!\211\203\322	!\202\211@\323=\203
\307
A@\"\204\241\315\3138!\211\203\310
A@	\"\202\307\3138\"\204\275\315
A@!\211\203\310	\3138\"\202\211A@\242\324>\203\347\315
A@@\310A@A@\3138\"\310\313A@8\3138\"E\325\326#\202\313
8\242\327>\203\315\3138@\310\3138A@A@\"\310\313\21188A@\"E\325\326#\202\211@\330=\2039\307
A@\"\204@
\331
A@\332\"\204@
\315\311\332\3138\"!\211\203\310
A@	\"\202\307\3138\"\204\\
\315
A@!\211\203\311	\3138\"\202\211A@\242\323=\203\214
\307
A@A@\"\204\214
\315\311\313A@8\3138\"!\211\203\310	A@A@\"\202\211A@\242\323=\203\274
\307\313A@8\"\204\274
\315\311A@A@\3138\"!\211\203\310	\313A@8\"\202\313
8\242\323=\203\354
\307\3138A@\"\204\354
\315\311A@\313\21188\"!\211\203\311	\3138A@\"\202\313
8\242\323=\203\307\313\21188\"\204\315\311A@\3138A@\"!\211\203\311	\313\21188\"\202\313
8\242\333=\203\315\310A@\333\322\3138A@!D\"!\202\211@\334=\203\307
A@\"\204~\335\3138\332#\211\203h\311
\310	A@\336\337A@D!\"\"\206\335\315\333\310\3138\336\337A@D!\"D\325\326#\202\307\3138\"\204\313
8\250\203\252\313
8\340W\203\252\315\330\332\341A@\3138[\"E\306\326#\202\335
A@\332#\211\203\322\316\3138\332\"\211\203\322\311\341A@\"\310	A@\"\"\206\335\313
8\211:\203\371\211@\342>\203\361\211A@\211\250\205\354\211\340W\266\202\202\376\343
!\262
\202\376\211\340W\262
\203\315\311\332\341A@\322\3138!\"\"\306\326#\206\335\335
\344#\211\203K\340\332	\203E\316\311\310	@\341\"\"\"\"\262	A\211\203\"\211T\262
\202\"
\266\202\206\335\211G\313U\203\201\211@9\203\272\211@\315N\211\203\272	\203w	@
A@!\211\204w	A\211\204e\203\272\336!\202\267\211G\345U\203\272\211@9\203\272\211@\346N\211\203\272	\203\260	@
A@\3138\"\211\204\260	A\211\204\233\203\272\336!\206\335\347
\"\203\326\350
\"\211\203\326	
\232\204\326\315	!\206\335\f\203?\351K\352E\306\211C\353\216\351\354M\210\355\356\332#\262\351
M\210
\232?\2059\211\357\360\"\240\2030\211\242G\361>\2059\362\363\364\"\242A\"\365@\326\3138\206&\366D\3458%\262
\2029\357\367\"?\2059
*\266\204\206\335\370\371\372@!\"\203\300\372
@!
\340\306\211T\262A\211\262\203\202@\232\203t
\203n\326\262
\202Q\262\202Q\307@\"\203Q\326\262
\202Q
\205\273\211?\205\273
\332U\203\225\371\202\231\373\374\"\375
\376P\"\205\271\377\340\211\224O\340\224G\\\306OP!AB\262
\266\205\206\335@\340V\203\317\201A
!\206\335\201B
!\211\205\333\315
!\262
+\207" [math-t2 math-t1 math-linear-subst-tried math-integ-var math-has-rules math-old-integ nil math-expr-contains math-mul math-div math-sqr 2 + math-integral math-add - math-sub neg math-neg * (+ -) yes t (+ -) / math-equal-int 1 calcFunc-exp ^ math-is-polynomial math-normalize calcFunc-ln 0 math-pow (frac float) math-negp 20 3 math-integral-2 math-ratpoly-p calcFunc-apart calcFunc-integ calcFunc-integtry #[0 "\301M\207" [math-old-integ calcFunc-integ] 2] math-sub-integration math-rewrite (var IntegRules var-IntegRules) math-expr-calls (calcFunc-integsubst) (3 4 5) mapcar make-closure #[257 "\302
\303\300\2428	#\207" [V0 math-integ-var math-expr-subst 2] 5 "\n\n(fn X)"] math-integrate-by-substitution calcFunc-integfailed (calcFunc-integtry calcFunc-integfailed) string-search "'" symbol-name format "'%d" string-match "\\('['0-9]*\\|$\\)" intern math-integ-level math-do-integral-methods math-expand-formula] 14 (#$ . 20826)])
#@24 

(fn EXPR &rest REST)
(defalias 'math-sub-integration #[385 "\211\203	W\203\211@\n=\203\304!\202-\305#	U\204*\306
\307\"?\205+\211\262
\2063\310D\207" [math-integ-level math-integral-limit math-integ-var math-old-integ math-integral apply math-expr-calls calcFunc-integ calcFunc-integfailed] 6 (#$ . 24605)])
#@19 

(fn INTEG-EXPR)
(defalias 'math-do-integral-methods #[257 "\211\306
\307\n!\206_
\310\n!\206_
\311\n!\211\262\211\2035\211@@\312>\2035\211@A@\232\2035\211A\262
\202\211?\262
\203U\313\n!\203I\314\n\315\"\206_
\316\n\317\320\321\"D\"\206_
\211\211\203r\211@@\322>\203r\211@A@\232\203r\211A\262
\202V\211?\262
\203\222\313\n!\203\206\314\n\315\"\206_
\316\n\323\320\321\"D\"\206_
\211\306\211\203\276\211@\232\204\267\211@@\324=\203\276\325
@\211A@\321#\211\203\276\211A\262
\202\225\211?\205\304\f\262
\203\\
\fAA\203U
\326\321\f8!\203
\327\330\321\f8!!\320\fA@\331\332\"\"\327\333\f@\334!\"!\316\n\335\336\333\331\"\"\"D\"\266\203\202Y
\327\321\f8!\320\fA@\331\321\"\"\337\f@\334!\"\326
!\203<
\316\n\340\336\333\331\"\"\327\330!!\"D\"\266\203\202Y
\316\n\341\336\333\331\"\"\327!\"D\"\266\203\202Y
\316\n
\"\206_
\314\n!*\207" [math-integ-var-list-list math-so-far math-integ-expr math-integ-var math-t1 math-t2 nil math-integ-try-linear-substitutions math-integ-try-substitutions math-expr-rational-in (calcFunc-sin calcFunc-cos calcFunc-tan calcFunc-sec calcFunc-csc calcFunc-cot) math-integ-parts-easy math-integ-try-parts t math-integrate-by-good-substitution calcFunc-tan math-div 2 (calcFunc-sinh calcFunc-cosh calcFunc-tanh calcFunc-sech calcFunc-csch calcFunc-coth calcFunc-exp) calcFunc-tanh calcFunc-sqrt math-is-polynomial math-guess-if-neg math-sqrt math-neg math-mul -2 math-add math-sqr calcFunc-arcsin math-div-thru math-sub calcFunc-arccosh calcFunc-arcsinh] 15 (#$ . 24938)])
#@13 

(fn EXPR)
(defalias 'math-integ-parts-easy #[257 "\211\211:?\206\211@\300>\262
\203\301\207\211@\302>\203'\303
A@!\205_\303\3048!\207\211@\305=\203<\303
A@!\205_\306\3048!\207\211@\307=\203Q\310\3048!\205_\303
A@!\207\211@\311=\203^\303
A@!\207\301\207" [(frac float cplx polar hms date mod var) t (+ - *) math-integ-parts-easy 2 / math-atomic-factorp ^ natnump neg] 4 (#$ . 26498)])
#@34 

(fn EXPR &optional GOOD-PARTS)
(defalias 'math-integ-try-parts #[513 "\211\303!\211\232?\205\304
!\262
\206\227
@\305=\203U\306A@	\"\206)\3078\n\232\211\2038\310A@\3078\"\206P\310\3078A@\"\206P\211?\205P\310A@\3078\"\262
\206\227
@\311=\203\312A@	\"\203\313\314\3078\"\310A@\"\206z\310
A@\"\262
\206\227
@\315=\205\227\310\316A@\317\3078\314\"\"A@\")\207" [math-good-parts math-integ-var math-prev-parts-v calcFunc-expand math-integral * math-polynomial-p 2 math-integrate-by-parts / math-expr-contains math-div 1 ^ math-pow math-sub] 8 (#$ . 26904)])
#@17 

(fn U VPRIME)
(defalias 'math-integrate-by-parts #[514 "\204\306	\"\203\n\202\nS\307\211\211\310Y\205\306\311\216A\312\240\210\f\203Xr\fq\210db\210n\203C\313
\nZ\314\"\315\316#\"\313\n\314\"\261\210\317\320\321\"\322\320\321\"\323\261\210\324\310!\210)\325!\211\262\205\305\326	\307\327$\211\262\205\305
$\325\330\"\331\")\211\262\205\305\332\330\"\"\211\262\205\305A@\312=\203\232\333
!\202\305\334\335E\262\307%\336\337\332\"\310\307$!)\262
\211\242\340=\205\275\341\3428!?\205\302\211\211\262))\207" [math-good-parts math-integ-var math-integ-level math-cur-record trace-buffer math-integral-limit math-polynomial-p nil 0 #[0 "A\301\240\207" [math-cur-record busy] 2] parts make-string 32 format "%2d " "Integrating by parts, u = " math-format-value 1000 ", v' = " "\n" sit-for math-integral calcFunc-deriv t math-mul yes math-sub calcFunc-expand var PARTS math-simplify-extended math-solve-for / math-zerop 2 math-integ-depth math-prev-parts-v calc-next-why] 12 (#$ . 27501)])
#@45 

(fn EXPR U &optional USER UINV UINVPRIME)
(defalias 'math-integrate-by-substitution #[1282 "\301V\205\302Z\301]\303%)\207" [math-integ-level 0 2 math-integrate-by-good-substitution] 11 (#$ . 28542)])
#@45 

(fn EXPR U &optional USER UINV UINVPRIME)
(defalias 'math-integrate-by-good-substitution #[1282 "\306\307\211\203\310	\n#\202\307\311\n	\307$)\211\262\205\265\f\203Sr\fq\210db\210n\203D\312
Z\313\"\314\315\"\312\313\"\261\210\316\317\320\"\321\261\210\322\323!\210)\324	\307	?$\211\262\203\325\310\211\211\326\f\"\n#		#\n	#\327\"\211\262\204\255\206\213\324\n		?$\211\262\205\265\325\330\310\211\211\f\f\n#	\n#\n	#\"\327\"\211\262\205\265\331\310	\n#!)\207" [math-living-dangerously math-integ-var math-integ-var-2 calc-next-why trace-buffer math-integral-limit t nil math-expr-subst math-solve-for make-string 32 format "%2d " "Integrating by substitution, u = " math-format-value 1000 "\n" sit-for 0 calcFunc-deriv math-integral math-div yes math-mul math-simplify-extended math-integ-level math-integ-depth] 16 (#$ . 28760)])
#@17 

(fn SUB-EXPR)
(defalias 'math-integ-try-linear-substitutions #[257 "\304\211\211:?\206
\211@\305>\262
?\205u\211@\306>\204_\211@\307=\203(\310
8\250\204_\311
	\"\203_\312
A\211\262\203Y\313@	\"\2030\314@\n\"\2040
@C\nB\315@\"\211\262\2030\211\262
\206u\312
A\211\262\203r\316@!\211\262\203`\211\262
\207" [math-linear-subst-tried math-integ-var math-so-far math-integ-expr t (frac float cplx polar hms date mod var) (+ - * / neg) ^ 2 math-expr-contains nil math-linear-in assoc math-integrate-by-substitution math-integ-try-linear-substitutions] 5 (#$ . 29650)])
#@37 

(fn SUB-EXPR &optional ALLOW-RAT)
(defalias 'math-integ-try-substitutions #[513 "
\211:?\206\211@\303>\262
?\205\221\304\"?\205\221\305	\"\205\221
@\306>\204<
@\307=\2035\3108\250\204<\311\211\262\202@\211\312\262\203u
\n=\204u\313\n\"\206\221
@\307=\203u\3108\250\203u\3108\314W\203u\315\316A@\3108[\"\311\"\206\221\312CBA\211\262\203\216\315@\"\211\262\203{\211\262
\207" [math-so-far math-integ-var math-integ-expr (frac float cplx polar hms date mod var) assoc math-expr-contains (+ - * / neg) ^ 2 t nil math-integrate-by-substitution 0 math-integ-try-substitutions math-pow] 7 (#$ . 30245)])
#@13 

(fn EXPR)
(defalias 'math-expr-rational-in #[257 "\301\302
!\210\303\304\")\207" [math-expr-parts nil math-expr-rational-in-rec mapcar car] 4 (#$ . 30887)])
#@13 

(fn EXPR)
(defalias 'math-expr-rational-in-rec #[257 "\211\211:?\206\211@\302>\262
\203%\211\232\205z\303
	\"?\205z\211C	B\211\207\211@\304>\204:\211@\305=\203L\306
8\250\203L\307
A@!\210\306
8\205z\307\3068!\207\211@\305=\203e\310\3068!\306=\203e\307\311A@D!\207\303
	\"?\205z\312
\"\205z\211C	B\211\207" [math-integ-var math-expr-parts (frac float cplx polar hms date mod var) assoc (+ - * / neg) ^ 2 math-expr-rational-in-rec math-quarter-integer calcFunc-sqrt math-expr-contains] 4 (#$ . 31054)])
#@42 

(fn EXPR FUNCS &optional ARG-CONTAINS)
(defalias 'math-expr-calls #[770 ":\205Z@>\204$@\300=\2031
@\301=\2031\302\3038!\303=\2031\211\203/\304\"\205Z\207\211:?\206<\211@\305>\262
?\205Z\306A\211\262\203W\307@#\211\262\203C\211\262
\207" [^ calcFunc-sqrt math-quarter-integer 2 math-expr-contains (frac float cplx polar hms date mod var) nil math-expr-calls] 8 (#$ . 31583)])
#@25 

(fn EXPR EXCEPT-VARS)
(defalias 'math-fix-const-terms #[514 "\300\"\204	\301\207
\211:?\206\211@\302>\262
\203
\207
@\303=\2031\304\305A@\"\305\3068\"\"\207
@\307=\203G\310\305A@\"\305\3068\"\"\207
\207" [math-expr-depends 0 (frac float cplx polar hms date mod var) + math-add math-fix-const-terms 2 - math-sub] 7 (#$ . 31992)])
#@22 

(fn &optional ARG)
(defalias 'calc-dump-integral-cache #[256 "p\302\303\"\216\304\305\306\307!!\210\310\307!q\210\311 \210\211\203O\211@\204&\312	!\210\313	@\314\"\315	A@9\203>\316\317	A@!\320Q\202D\313	A@\314\"\321\261\210\211A\262
\202eb)\262
)\207" [math-integral-cache math-cur-record make-closure #[0 "\300q\207" [V0] 1] nil display-buffer get-buffer-create "*Integral Cache*" get-buffer erase-buffer math-replace-integral-parts math-format-flat-expr 0 " --> " "(" symbol-name ")" "\n"] 8 (#$ . 32346) "P"])
#@13 

(fn EXPR)
(defalias 'math-try-integral #[257 "\306\307\310\311\211\211\312\313!\314
\315\"\206D\203/\311\211\203/\314
\315\"\206DV\205D\211\211\205D\314
\315\".\207" [math-integral-limit math-has-rules calc-symbolic-mode calc-prefer-frac math-integrating math-cur-record 0 "Working...done" nil t calc-has-rules var-IntegRules math-integral yes math-integ-msg math-integ-depth math-integ-level math-any-substs math-enable-subst math-max-integral-limit] 11 (#$ . 32879)])
(defvar var-IntegLimit nil)
#@36 

(fn EXPR VAR &optional LOW HIGH)
(defalias 'calcFunc-integ #[1026 "\242\306=\203\307\310A@$\310\3118$\"\207\242\312=\203<\313\310A@$\310\3118$\"\207\242\314=\203N\315\310A@$!\207\242\316=\203p\317A@\"\204p\320A@\310\3118$\"\207\242\316=\203\217\317\3118\"\204\217\320\310A@$\3118\"\207\242\321=\203\275\317A@\"\204\275\322A@\323\"\204\275\320A@\310\324\323\311	8\"$\"\207\242\321=\203\334\317\3118\"\204\334\324\310A@$\3118\"\207\242\321=\203
A@\242\316=\203
\317A@A@\"\204
\320A@A@\310\324\311A@8\311	8\"$\"\207\242\321=\203J
A@\242\316=\203J
\317\311A@8\"\204J
\320\311A@8\310\324A@A@\311	8\"$\"\207\242\321=\203
\3118\242\316=\203
\317\3118A@\"\204
\324\310\324A@\311\211	88\"$\3118A@\"\207\242\321=\203\265
\3118\242\316=\203\265
\317\311\21188\"\204\265
\324\310\324A@\3118A@\"$\311\21188\"\207\242\325=\203\315
\325\326\327\330$A\"B\207	\331\332!\331\333!F\211\n\232\204\340
\211\334\210\335\f!\203\353
\f\206\354
\336\3235\3376#\340\341!78\342=?\20588\3439\334\211:;\334<7\203Sp\344 \327\345#\216\3467!\203/\347\3467!!\2107q\210db\210\350\351 \236\204D\352\353!\210\336+\354c\210
q\210\355!)\266\202\202V\355
!\211\203\242\356\357!\203f\360
\361\"\262
\362\203\202\203\202\313\3376#\3376	#\"\202\236\363=\"\262\203\227\3376#\202\236\3376#!\202\266\364\310E\205\257C\205\265C#.\207" [calc-angle-mode calc-internal-prec math-integral-cache-state math-integral-cache var-IntegLimit math-max-integral-limit + math-add calcFunc-integ 2 - math-sub neg math-neg * math-expr-contains math-mul / math-equal-int 1 math-div vec mapcar make-closure #[257 "\303
\300\301\302$\207" [V0 V1 V2 calcFunc-integ] 6 "\n\n(fn X)"] calc-var-value var-IntegRules var-IntegSimpRules nil natnump 3 math-expr-subst get-buffer "*Trace*" big t selected-window #[0 "\302\301!\210\300q\207" [V0 V1 select-window] 2] get-buffer-window select-window scroll-stop buffer-local-variables make-local-variable scroll-step "\n\n\n" math-try-integral calc-has-rules var-IntegAfterRules math-rewrite (var IntegAfterRules var-IntegAfterRules) math-simplify math-fix-const-terms append math-integral-limit math-integ-var trace-buffer calc-language math-any-substs math-enable-subst math-prev-parts-v math-good-parts math-integ-vars] 14 (#$ . 33416)])
(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\327\326\327N\330C\244#\210\300\331\302\331\302N\332C\244#\210\300\333\302\333\302N\334C\244#\210\300\335\302\335\302N\336C\244#\210\300\337\302\337\302N\340C\244#\210\300\341\302\341\302N\342C\244#\210\300\343\302\343\302N\344C\244#\210\300\345\302\345\302N\346C\244#\210\300\347\302\347\302N\350C\244#\210\300\351\302\351\302N\352C\244#\210\300\353\302\353\302N\354C\244#\210\300\355\302\355\302N\356C\244#\210\300\357\302\357\302N\360C\244#\210\300\361\302\361\302N\362C\244#\210\300\363\302\363\302N\364C\244#\210\300\365\302\365\302N\366C\244#\210\300\367\302\367\302N\370C\244#\210\300\371\302\371\302N\372C\244#\210\300\373\302\373\302N\374C\244#\210\300\375\327\375\327N\376C\244#\207" [put calcFunc-inv math-integral #[257 "\300\301\302\"!\207" [math-integral math-div 1] 5 "\n\n(fn U)"] calcFunc-conj #[257 "\300
!\211\205\n\301
D\207" [math-integral calcFunc-conj] 4 "\n\n(fn U)"] calcFunc-deg #[257 "\300
!\211\205\n\301
D\207" [math-integral calcFunc-deg] 4 "\n\n(fn U)"] calcFunc-rad #[257 "\300
!\211\205\n\301
D\207" [math-integral calcFunc-rad] 4 "\n\n(fn U)"] calcFunc-re #[257 "\300
!\211\205\n\301
D\207" [math-integral calcFunc-re] 4 "\n\n(fn U)"] calcFunc-im #[257 "\300
!\211\205\n\301
D\207" [math-integral calcFunc-im] 4 "\n\n(fn U)"] calcFunc-sqrt #[257 "\211\232\205\301\302\303\304\305\"D\"\207" [math-integ-var math-mul (frac 2 3) calcFunc-sqrt math-pow 3] 7 "\n\n(fn U)"] calcFunc-exp #[257 "\211\232\203\f\301
D\206a\302
\303#\303
8\205_\304\305\3038!!\306\307\211\306\310\311D\"\312\301\306\313\307\n@\303\f8\"\306\314\fA@!\315\"\"\303\n8\"D!\"\316\313\307\"\306A@\307\303\n\"\"\"D\"\303\"\262
\262
\207" [math-integ-var calcFunc-exp math-is-polynomial 2 math-sqrt math-neg math-div math-mul calcFunc-sqrt (var pi var-pi) math-normalize math-sub math-sqr 4 calcFunc-erf] 15 "\n\n(fn U)"] calcFunc-ln #[257 "\211\232\203\301\302\303D\"\"\206U\211@\304=\203*\305\306\303A@D\303\3078D\"!\206U\211@\310=\203B\305\301\303A@D\303\3078D\"!\206U\211@\311=\205U\305\302\3078\303A@D\"!\207" [math-integ-var math-sub math-mul calcFunc-ln * math-integral math-add 2 / ^] 7 "\n\n(fn U)"] calcFunc-log10 #[257 "\211\232\205\301\302\303D\"\304\303\305D\"\"\207" [math-integ-var math-sub math-mul calcFunc-ln math-div 10] 7 "\n\n(fn U)"] calcFunc-log math-integral-2 #[514 "\300\301\302D\302D\"!\207" [math-integral math-div calcFunc-ln] 7 "\n\n(fn U V)"] calcFunc-sin #[257 "\211\232\203\301\302\303D!!\206!\304\305\304#8\205!\306\307\310D!!\207" [math-integ-var math-neg math-from-radians-2 calcFunc-cos 2 math-is-polynomial math-integral math-to-exponentials calcFunc-sin] 6 "\n\n(fn U)"] calcFunc-cos #[257 "\211\232\203\301\302D!\206\303\304\303#8\205\305\306\307D!!\207" [math-integ-var math-from-radians-2 calcFunc-sin 2 math-is-polynomial math-integral math-to-exponentials calcFunc-cos] 6 "\n\n(fn U)"] calcFunc-tan #[257 "\211\232\205
\301\302\303DD!\207" [math-integ-var math-from-radians-2 calcFunc-ln calcFunc-sec] 5 "\n\n(fn U)"] calcFunc-sec #[257 "\211\232\205\301\302\303\304D\305D\"D!\207" [math-integ-var math-from-radians-2 calcFunc-ln math-add calcFunc-sec calcFunc-tan] 7 "\n\n(fn U)"] calcFunc-csc #[257 "\211\232\205\301\302\303\304D\305D\"D!\207" [math-integ-var math-from-radians-2 calcFunc-ln math-sub calcFunc-csc calcFunc-cot] 7 "\n\n(fn U)"] calcFunc-cot #[257 "\211\232\205
\301\302\303DD!\207" [math-integ-var math-from-radians-2 calcFunc-ln calcFunc-sin] 5 "\n\n(fn U)"] calcFunc-arcsin #[257 "\211\232\205\301\302\303D\"\304\305\306\307\310!\"D!\"\207" [math-integ-var math-add math-mul calcFunc-arcsin math-from-radians-2 calcFunc-sqrt math-sub 1 math-sqr] 9 "\n\n(fn U)"] calcFunc-arccos #[257 "\211\232\205\301\302\303D\"\304\305\301\306\307!\"D!\"\207" [math-integ-var math-sub math-mul calcFunc-arccos math-from-radians-2 calcFunc-sqrt 1 math-sqr] 9 "\n\n(fn U)"] calcFunc-arctan #[257 "\211\232\205\301\302\303D\"\304\305\306\307\310\311!\"D\312\"!\"\207" [math-integ-var math-sub math-mul calcFunc-arctan math-from-radians-2 math-div calcFunc-ln math-add 1 math-sqr 2] 10 "\n\n(fn U)"] calcFunc-sinh #[257 "\211\232\205	\301
D\207" [math-integ-var calcFunc-cosh] 3 "\n\n(fn U)"] calcFunc-cosh #[257 "\211\232\205	\301
D\207" [math-integ-var calcFunc-sinh] 3 "\n\n(fn U)"] calcFunc-tanh #[257 "\211\232\205\301\302DD\207" [math-integ-var calcFunc-ln calcFunc-cosh] 4 "\n\n(fn U)"] calcFunc-sech #[257 "\211\232\205\301\302DD\207" [math-integ-var calcFunc-arctan calcFunc-sinh] 4 "\n\n(fn U)"] calcFunc-csch #[257 "\211\232\205\301\302\303\304\"DD\207" [math-integ-var calcFunc-ln calcFunc-tanh math-div 2] 6 "\n\n(fn U)"] calcFunc-coth #[257 "\211\232\205\301\302DD\207" [math-integ-var calcFunc-ln calcFunc-sinh] 4 "\n\n(fn U)"] calcFunc-arcsinh #[257 "\211\232\205\301\302\303D\"\304\305\306!\307\"D\"\207" [math-integ-var math-sub math-mul calcFunc-arcsinh calcFunc-sqrt math-add math-sqr 1] 7 "\n\n(fn U)"] calcFunc-arccosh #[257 "\211\232\205\301\302\303D\"\304\301\305\306!\"D\"\207" [math-integ-var math-sub math-mul calcFunc-arccosh calcFunc-sqrt 1 math-sqr] 8 "\n\n(fn U)"] calcFunc-arctanh #[257 "\211\232\205\301\302\303D\"\304\305\306\307\310!\"D\311\"\"\207" [math-integ-var math-sub math-mul calcFunc-arctan math-div calcFunc-ln math-add 1 math-sqr 2] 9 "\n\n(fn U)"] / #[514 "\300\"\207" [math-integral-rational-funcs] 5 "\n\n(fn U V)"]] 5)
#@12 

(fn U V)
(defalias 'math-integral-rational-funcs #[514 "\301\302#\302\303\205k\3042k\242\305=\203(\306\3078!\203(\3078\262A@\262\301\307#\211\262\205j\310@\311@A@\3078	%\"A\203g\312
\310A@\313@A@\307	8\f%\"\"\262
\211\262
0\207" [math-integ-var math-is-polynomial 1 nil int-rat ^ natnump 2 math-mul-thru math-integral-q02 math-add math-integral-q12] 16 (#$ . 41699)])
#@21 

(fn A B C V VPOW)
(defalias 'math-integral-q12 #[1285 "\302\204e
\303U\203!\304\305\"\306\305	\307\n!\"\310D\"\"\207
\311U\2039\305\312\310D\305	\"\"\307!\"\207\304\303\"\304\311\"\305\304\305\n\306\313	\"\"\"\305\303\306\313\f	\"\"\"\"\307	!\"\207\314\304\306\315\306\n	\"\"\307!\"\211\262!\203\232\305\306\311\"\"\316\313\"\317\303\302\312\"	\311_%\"\207
\303U\203\365\211\211:?\206\253\211@\320=\262
\203\322\321
!\203\322\322\323\324!!\211:?\206\307\211@\320=\262
)\203\322\325\326\302\"\210\304\305\310D\306\311\"\"\316\305\306\311\n\"\"\327\n\n\n\n\303%\"\"\207
S\304\324\305\312\306\n\"\306\311
\"\"\306\306\313\f\n\"\"\"\"!\316\305\306\n\311_S\"\306\"\"\327	%\"\"\207" [math-integ-var calc-symbolic-mode nil 1 math-sub math-div math-mul math-sqr calcFunc-ln 2 math-add math-pow math-zerop 4 math-mul-thru math-integral-q12 frac math-negp t math-sqrt math-neg throw int-rat math-integral-q02] 18 (#$ . 42112)])
#@21 

(fn A B C V VPOW)
(defalias 'math-integral-q02 #[1285 "\301\211\211\204)\302U\203\303\304D\"\207\303\305\302Z\"\306\302Z\n\"\"\207\307\310\306\311\306\f\"\"\312\n!\"\211\262!\203`\303\306\313	\"\"\314\305\"\315\302\301\316\"\313_%\"\207\316\306\313\306	\"\"\"\262
\302V\203\251S\316\303\306\306	\305
	\"\"\"\"\314\303\306\311_\313Z\f\"\306\n\"\"\315



	%\"\"\207\317!\203\304\320\321!D\262\303\306\322\323\303\"D\"\"\207\320D\262\303\306\313\324\325\303\"D!\"\"\207" [math-integ-var nil 1 math-div calcFunc-ln math-pow math-mul math-zerop math-sub 4 math-sqr 2 math-mul-thru math-integral-q02 math-add math-guess-if-neg calcFunc-sqrt math-neg -2 calcFunc-arctanh math-to-radians-2 calcFunc-arctan] 19 (#$ . 43127)])
(byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\207" [put calcFunc-erf math-integral #[257 "\211\232\205\301\302\303D\"\304\305\302\306\307!D\310\311D\"\"\"\207" [math-integ-var math-add math-mul calcFunc-erf math-div 1 calcFunc-exp math-sqr calcFunc-sqrt (var pi var-pi)] 9 "\n\n(fn U)"] calcFunc-erfc #[257 "\211\232\205\301\302\303D\"\304\305\302\306\307!D\310\311D\"\"\"\207" [math-integ-var math-sub math-mul calcFunc-erfc math-div 1 calcFunc-exp math-sqr calcFunc-sqrt (var pi var-pi)] 9 "\n\n(fn U)"]] 5)
(defvar math-tabulate-initial nil)
(defvar math-tabulate-function nil)
#@41 

(fn EXPR VAR &optional LOW HIGH STEP)
(defalias 'calcFunc-table #[1282 "\204\306\307	\204\310\311!\204\"\311	!\203*\211\204*\312!\210\211\2039\313
!\2039\314
\315\"\210\211:?\206D\211@\316>\262
\203M\310\202N\317	\211:?\206Y\211@\316>\262
\203b\310\202c\317\\
\203x
\211:?\206s\211@\316>\262
\203|\310\202}\317\\\320
\321U\204\311	\322\232\204\311\323\324	\"\206\225\310\"\262
\211\211:?\206\243\211@\316>\262
\204\255\325
!\262
\211\211:\205\277\211@\326=\205\277\321
8\317Y\262
\203\311\327
!\262
\211\211:\203\356\211@\330>\203\346\211A@\211\250\205\341\211\317W\266\202\202\363\331
!\262
\202\363\211\317W\262
\203\371\332\262
\211\250\203e
\333T\317
+\334\335\n\n\336#!\262	\317Y\203R
\fT+,\337\267\2029
\340
\334!\"\202?
\341
\334!\"\202?
\334	!
B\262
\340\206I
\310\"S\262\202
,\203[
\211\202_
\342
\237B+\266\204\202\344
\343
!\203s
\344\345	\"\210\202\300
\211\250\206\212
\211:\205\212
\211@\326=\205\212
\321
8\317Y\262
\203\273
	\211\250\206\246
\211:\205\246
\211@\326=\205\246
\321
8\317Y\262
\203\263
\344\346\"\210\202\300
\344\346	\"\210\202\300
\344\346\"\210\347,\206\307
\350\nE\351\232\205\324
	\352\232?\205\333
	D\205\341
C#\266\202+\207" [calc-low calc-high math-var math-tabulate-initial math-working-step math-working-step-2 (neg (var inf var-inf)) (var inf var-inf) 1 math-infinitep math-scan-for-limits math-zerop math-reject-arg nonzerop (frac float cplx polar hms date sdev intv mod) 0 (var inf var-inf) 2 (var inf var-inf) math-div math-sub math-simplify float math-trunc (frac float) math-negp -1 nil math-evaluate-expr math-expr-subst (var DUMMY var-DUMMY) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (calcFunc-sum 293 calcFunc-prod 303)) math-add math-mul vec Math-integerp calc-record-why fixnump integerp append calcFunc-table (neg (var inf var-inf)) (var inf var-inf) var-DUMMY math-tabulate-function] 14 (#$ . 44553)])
#@10 

(fn X)
(defalias 'math-scan-for-limits #[257 "\211\211:?\206\211@\304>\262
\206z\211@\305=\203j\211A@\211\242\306=\262
\203j\307\3108\"\203j\311\312\3108\313\311$\312\3108A@GS\311$\311
\314\"\315U\266\202\203Y\262

\262\211\262\316\n\317!\"\320\321!\"\211)\207\211A\211\262\205z\322
@!\210\202j\207" [math-var calc-next-why calc-low calc-high (frac float cplx polar hms date mod var) calcFunc-subscr vec math-expr-contains 2 nil math-solve-for 1 math-compare -1 math-max math-ceiling math-min math-floor math-scan-for-limits] 9 (#$ . 46543)])
(defvar math-disable-sums nil)
#@41 

(fn EXPR VAR &optional LOW HIGH STEP)
(defalias 'calcFunc-sum #[1282 "\203\302 \210	\303\\\304%)\305\306
!)\207" [math-disable-sums calc-internal-prec math-reject-arg 2 math-sum-rec t math-normalize] 11 (#$ . 47154)])
#@41 

(fn EXPR VAR &optional LOW HIGH STEP)
(defalias 'math-sum-rec #[1282 "\204\n\302\262\303\262\203
\204\262\304\262\305\211\211\306\"\204<\307\310\311\312	\"\2065\304\"\304\"\"\202B\203\262\313\304\"\204\262\314!\203^\315	\316	!%\202B\317\311\"!\320
!\203\212\315\321\322\307\n\"#!	\317\311\"!$\202\255\315\321\322\310\307\"
\"#!	\323\317\311\312\f\"\"!$\262
\202B\324\"\211\262\325>\203\325\323=\203\321\322#\202B\323\202B\326\327#\211\262\203#
\305\323\203\377\330\304\331!@$\262\211T\262
A\262\202\344\332\"\262
\304U\203
\211\266\202\202B\312
\332\312\f\304\"\"\"\266\202\202B@\333>\203b
\315A@$\262\315\334	8$\211\262\203b
\335\336\"\203Y
\335\337\"\204b
@E\202B@\340=\203\207
\341\"\211\262\203\207
\307@\315A\n\n\n$\"\202B@\340=\203\306
A@\242\342>\203\306
\315\343\307\nA@A@\334\f8\"\307\334\fA@8\334
8\"\305\fA@@\344=$$\202B@\340=\203\3348\242\345>\203\315\343\307\nA@\334\f8A@\"\307A@\334\21188\"\305\334
8@\344=$$\202B@\346=\203<\347A@!\204<\341A@\"\211\262\203<\307@\315\311A\334
8\"\n\n\n$\"\202B@\346=\203j\341\334	8\"\211\262\203j\311\315\311\nA@A\"			$@\"\202B@\350=\203\203\316\315	A@			$!\202B@\351=\203\323\306A@\"\204\323\326\334	8\304#\211\262\203\323\352A@A@\"\311\307\312\352\310\304\f\"\"\352\f\"\"\352\fA@@\"\"\312\304\"\"\262
\202B\353!\211\262\203\371\315$\211\262\203\371\335\354\"\204\371\355!\202B@\356>\203@\357	A@			$D\202B@\360=\205BG\361U\205B\306\334	8\"?\205B\360\357	A@			$\334\n8E\262
\211\362\232\203M\305\262
\211\206`\323\363\364$*\207" [math-tabulate-initial math-tabulate-function (neg (var inf var-inf)) (var inf var-inf) 1 nil math-expr-contains math-mul math-add math-div math-sub math-equal-int math-negp math-sum-rec math-neg math-simplify math-known-num-integerp math-normalize math-expr-subst 0 math-compare (0 1) math-is-polynomial 20 math-poly-mix math-sum-integer-power math-build-polynomial-expr (+ -) 2 math-expr-calls (calcFunc-sum) (calcFunc-sum) * math-sum-const-factors (+ -) math-add-or-sub - (+ -) / math-primp neg ^ math-pow math-to-exponentials (calcFunc-sum) math-to-exps (calcFunc-ln calcFunc-log10) calcFunc-prod calcFunc-log 3 (var nan var-nan) calcFunc-sum calcFunc-table] 18 (#$ . 47390)])
#@53 

(fn EXPR VAR LOW &optional HIGH STEP NO-MUL-FLAG)
(defalias 'calcFunc-asum #[1539 "\204\n\262\300\262
\203\301\300\"\204\302!\2033\303\304\305\"\306	\307	!\310&\"\207\311\312\"!\313
!\203[\306\314\315		\303\f\"#!\311\312		\"!$\207\306\314\315		\316\303	
\"\"#!\317\311\312\320\n\f\"	\"!$\207\303
\203\210\300\202\215\304\305\"\321\303\304\305\n\"\n\"$\"\207" [1 math-equal-int math-negp math-mul math-pow -1 calcFunc-asum math-neg t math-simplify math-div math-num-integerp math-normalize math-expr-subst math-add 0 math-sub calcFunc-sum] 16 (#$ . 49873)])
#@17 

(fn EXPR VAR)
(defalias 'math-sum-const-factors #[514 "\300\211\211\242\301=\203,\302
A@\"\203\211A@B\262\202$\211A@B\262\303
8\262
\202\302
\"\203;\211B\262\202@\211B\262\205w@A\211\262\203X\301@E\262
\202F\211\262
@\206a\304A\211\262\203s\301@E\262
\202a\211\262
B\207" [nil * math-expr-contains 2 1] 10 (#$ . 50497)])
(defvar math-sum-int-pow-cache (list '(0 1)))
#@12 

(fn POW)
(defalias 'math-sum-integer-power #[257 "\302G
\211X\203X\303\211D\211S8A\304\303\305\203=\306@\"\262
\307
\"B\262\310\"\262T\262A\262\202\311\312\307\n\"\"\240\210\237C\244T\266\207\2028)\207" [math-sum-int-pow-cache calc-prefer-frac t 0 2 nil math-div math-mul math-add math-sub 1] 15 (#$ . 50908)])
#@13 

(fn EXPR)
(defalias 'math-to-exponentials #[257 "\211:\205\306\211G\302U\205\306\211A@\203\303\202\304 \203!\305\202\"\306@\307=\203.\310\311E\207@\312=\203a	\313=\204D\314\315E\316E\262\314\317\310\320\315EE\310\321\322\315	EDEE\315\302EE\207@\323=\203\221	\313=\204w\314\315E\316E\262\314\324\310\325\315EE\310\326\322\315	EDEE\302E\207@\327=\203\252\314\317\310\330E\310\331\322DEE\302E\207@\332=\203\303\314\324\310\333E\310\334\322DEE\302E\207\266\335\207" [calc-symbolic-mode calc-angle-mode 2 (var pi var-pi) math-pi (var i var-i) (cplx 0 1) calcFunc-exp ^ (var e var-e) calcFunc-sin rad / * 180 - (var e var-e) (var e var-e) neg calcFunc-cos + (var e var-e) (var e var-e) calcFunc-sinh (var e var-e) (var e var-e) calcFunc-cosh (var e var-e) (var e var-e) nil] 13 (#$ . 51265)])
#@13 

(fn EXPR)
(defalias 'math-to-exps #[257 "\203\207\211\211:?\206\211@\301>\262
\203\211\302\232\203\303 \207\207\211@\304=\2034\211A@\305\232\2034\306\3078D\207\211@\310\311A\"B\207" [calc-symbolic-mode (frac float cplx polar hms date mod var) (var e var-e) math-e ^ (var e var-e) calcFunc-exp 2 mapcar math-to-exps] 5 (#$ . 52113)])
(defvar math-disable-prods nil)
#@41 

(fn EXPR VAR &optional LOW HIGH STEP)
(defalias 'calcFunc-prod #[1282 "\203\302 \210	\303\\\304%)\305\306
!)\207" [math-disable-prods calc-internal-prec math-reject-arg 2 math-prod-rec t math-normalize] 11 (#$ . 52499)])
#@41 

(fn EXPR VAR &optional LOW HIGH STEP)
(defalias 'math-prod-rec #[1282 "\204\n\302\262\303\262\203
\204\304\262\305\211\211\211\306		\"\204:\307	\310\311\312\n\f\"	\2063\313\"\313\"\"\202e\203\260\314\313\"\204\260\315!\203\\\316		\n\317\n!%\202e\320\311\"!\321
!\203\210\316\322\323\f\f\324\"#!\n\320\311\f\f\"!$\202\253\316\322\323\f\f\310\324\f\"\"#!\n\325\320\311\312
\"\f\"!$\262
\202e@\326>\203\357\316	A@			$\262\316\327\n8			$\211\262\203\357\330\331\"\203\346\330\332\"\204\357@E\202e@\333=\203
\306\327\n8	\"\204
\307\316\nA@\n\n\n$\3278\"\202e@\333=\203?
\306	A@	\"\204?
\307	A@\334\327\f8$\"\202e@\335=\203[
\322\336\337A@\257D!\202e@\340=\203\200
\324\307\341\310\312\n\f\"\313\"\"\316A@$\"\202e@\342=\203\231
\342\334\nA@\n\n\n$D\202e\343		\313#\211\262\205e\314A@\313\"\203\311
\320\310@\"!\262\320\310@\"!\211\262\204\355
\314A@\341\"\203V\262\320\312@\"!\262\320\312@\"!\211\262\203V\344!\204\373
\344!\203\377
\325\202^\315!\204
\315!\203F\345!\204\345!\203F\346!\203&\325\202^\324\307\341\310\211\"\313\"\"\347\350\317!D\350\312\341\f\"DE\"\202^\347\350D\350\312\n\313\"DE\202^\314A@\327\"\203\320\310\324	\327\"@\"!\262\320\310\324\327\"@\"!\211\262\204\246\314A@\351\"\205^\320\312@\324	\327\"\"!\262\320\312@\324\n\327\"\"!\211\262\205^\352!\204\320\353!\203\273\354!\211\262\204\320\352!\204\320\353!\205^\354!\211\262\205^\344!\204\334\344!\203\340\325\202^\355!\204\354\355!\203#\315!\204\370\315!\203\346!\203\325\202^\347\356\317!D\356\312\351\"DE\202^\347\356D\356\312\327\"DE\202^\315!\203L\357\333\341\347\360\211E\327E\327EE\347\356\317!D\356\312\351\"DEE\202^\346!\205^\347\356D\356\312\327\"DE\211\262\205e\262
\211\361\232\203p\305\262
\211\206\203\313\337\362				$*\207" [math-tabulate-initial math-tabulate-function (neg (var inf var-inf)) (var inf var-inf) (var inf var-inf) nil math-expr-contains math-pow math-add math-div math-sub 1 math-equal-int math-negp math-prod-rec math-neg math-simplify math-known-num-integerp math-normalize math-expr-subst math-mul 0 (* /) 2 math-expr-calls (calcFunc-prod) (calcFunc-prod) ^ calcFunc-sum sqrt calcFunc-sqrt calcFunc-prod neg -1 calcFunc-exp math-is-polynomial math-zerop math-num-integerp math-posp / calcFunc-fact -2 math-integerp math-messy-integerp math-trunc math-evenp calcFunc-dfact * - (var nan var-nan) calcFunc-table] 19 (#$ . 52738)])
(defvar math-solve-ranges nil)
#@61 

(fn SOLVE-LHS SOLVE-RHS &optional TRY-SOLVE-SIGN NO-POLY)
(defalias 'math-try-solve-for #[1026 "\306\211\211\211@\232\203eAB\307=\203a\310\311\f!D\306\211\211C\203YC@\262
\211@\262\310C\262\211A\211\262\203M\312@#A\244\262\2027\262CA\211C\204*\313!\266\204\202\332\f\202\332
\211:?\206p\211@\314>\262
\203y\306\202\332
@\315=\203

A@\242\316
8\242=\203
\f\211:\203\253\211@\317=\203\243\211A@\320=\262
\202\260\321
!\262
\202\260\211\320=\262
\203

A@G\316U\203
\316
8G\316U\203

A@@\322N\211\203
\n\323!\211\203
\324	\325\"\326=\203
\327	!\211\203
\330\331
A@A@\312	\316
8A@#\"\320\"\211\203
\n\202\332
@\332=\203
\330
A@\333\f!\205
[#\202\332B\334=\204)
\335 \206\332\211\204\351
\336
@\337\f$\211\203\351
	A@ACC\nG\340U\203R
\341\342	@\n#\202\301
\nG\343U\203b
\341\344	@\n#\202\301
\nG\345U\203r
\341\346	@\n#\202\301
\nG\316U\203\203
\341\347	@\n$\202\301
\nG\326U\203\236
\316	8\326=?\205\301
\330\316	8\320\306\334$\202\301
B\203\253
\350	@\n\"\202\301
D\203\264
\306\202\301
\330	@\351\352\n!\320\334#\306\334$)\211\203\341
\316	8\326=\203\323
\n\202\332\353\n\330\316	8\320\306\334$\"\202\332\354\355!\210\306\202\332\356
\306\"\203)\324
\n\"\326=\203)\330\357\331\204\360	!\203
\361\n	\"\202\333\361\n	\"!\362\331\313\312
\n\320#!\f\"	@#\"!\320\"\202\332
@\363=\203c\364
A@@\"\204I\330\316
8\331\f
A@\"#\202\332\364\316
8@\"?\205\332\330
A@\331\f\316
8\"#\202\332
@\365=\203z\330\331
A@\316
8\"\f$\202\332
@\315=\203\367
A@\242\366=\203\223\316
8\242\367=\204\245
A@\242\367=\203\277\316
8\242\366=\203\277\330\331
A@
A@@\331\370\334!\316
8A@\"D\"\f\"\202\332\364
A@@\"\204\335\330\316
8\331
A@\f\"\205\331[#\202\332\364\316
8@\"?\205\332\330
A@\371\f\316
8\"#\202\332B\334=\203\335 \206\332
@\372=\203$\364\316
8@\"\204$\330
A@\371\f\373\316
8!\"\"\202\332
@\374=\203_\364\316
8@\"\204C\330
A@\361\316
8\f\"\"\202\332\364
A@@\"?\205\332\330\316
8\361
A@\375\326\f\"\"\"\202\332
G\316U\203\244
@9\203\244
@\322N\211\203\244\n\f!\211\203\244
@\376N\330
A@\313	!\205\240\n\205\240\n\250\203\234\n_\202\240\n
\"#\202\332
@9\203\300
@\377N\211\203\300\n
\f\"\211\203\300	\202\332\201E
!\211\203\322\330\n\f#\202\332\354\201F
\"\210\306.\207" [math-t3 math-t2 math-t1 math-try-solve-sign math-solve-rhs math-solve-lhs nil all vec math-evaluate-expr math-expr-subst math-normalize (frac float cplx polar hms date mod var) - 2 float 0 math-zerop math-inverse (var SOLVEDUM SOLVEDUM) math-expr-contains-count (var SOLVEDUM SOLVEDUM) 1 math-solve-above-dummy math-try-solve-for math-sub neg math-neg t math-try-solve-prod math-decompose-poly 15 5 apply math-solve-quartic 4 math-solve-cubic 3 math-solve-quadratic math-solve-linear math-poly-all-roots math-poly-any-root reverse math-solve-prod calc-record-why "*Unable to find a symbolic solution" math-solve-find-root-term math-simplify math-evenp math-pow math-expand-power + math-expr-contains calcFunc-eq calcFunc-sin calcFunc-cos math-quarter-circle math-add % math-solve-get-int calcFunc-log math-div math-inverse-sign math-inverse-n math-solve-var math-solve-sign math-solve-full math-solve-ranges calc-symbolic-mode math-expand-formula "*No inverse known"] 16 (#$ . 55399)])
(defalias 'math-try-solve-prod #[0 "@\306=\203v\307A@	\"\204\"\310\3118\312\nA@\"\313A@\"#\207\307\3118	\"\204=\310A@\312\n\3118\"\313\3118\"#\207\n\211:\203\\\211@\314=\203T\211A@\315=\262
\202a\316
!\262
\202a\211\315=\262
\2058\317\f\310\3118\315\")\310A@\315\"\"\207@\320=\203\310\307A@	\"\204\230\310\3118\312A@\n\"\313A@\"#\207\307\3118	\"\204\263\310A@\321\n\3118\"\313\3118\"#\207\310\322A@\321\3118\n\"\"\315\"\211\2058
\207@\323=\2037\307A@	\"\204\372\310\3118\324\325\326\nA@E!\312\321\311\321\327\330\331!\"\"\325\332A@D!\"\"\"\207\307\3118	\"?\2058\3118\250\203j
\3118\311Y\203j
\333\3118!\211\203j
\n/0\334=\203J
\335A@!\203J

S\211\315Y\203A
\336/D/\202/
\337/!/\202`

S\211\315Y\203`
\337\325\336/D!!/\202J
\310A@\325/!\"\207\340\3118!\203\203
\310\323A@\341\3118!E\312\342\n\"\"\2070\334=\203\310
\343\3118!\203\310
\335A@!\203\310
\325\344\n\3118E!\345\3118!\203\257
\337
!\310A@
\205\306
\346\3118!\205\306
\313\3118\"#\207\310A@\321\325\347\3118\211:?\206\334
\211@\350>\262
\203\376
\312\321\351\330\352\3118\250\205\362
\353\3118!\"\"\312\3118\311\"\"\202\312\321\311\321\354\330\355\3118\250\205\353\3118!\"\"\"\3118\"D!\325\344\n\3118E!\"\2055\346\3118!\2055\313\3118\"#\207\356\207" [math-solve-lhs math-solve-var math-solve-rhs math-try-solve-sign math-solve-ranges math-t1 * math-expr-contains math-try-solve-for 2 math-div math-solve-sign float 0 math-zerop math-solve-prod / math-mul math-sub ^ math-add math-normalize calcFunc-log (var pi var-pi) math-solve-get-int (var i var-i) calcFunc-ln math-integer-log2 t math-known-realp calcFunc-sqrt math-solve-get-sign math-looks-negp math-neg 1 Math-integerp calcFunc-nroot math-evenp math-oddp calcFunc-exp (frac float) (var pi var-pi) (var i var-i) math-abs (var pi var-pi) (var i var-i) nil math-t2 math-solve-full] 15])
#@20 

(fn LSOLN RSOLN)
(defalias 'math-solve-prod #[514 "
\204\207\211\204
\207\301=\203\302\303AA\"B\207\203)\304\305\306\307!\310EF\207
\207" [math-solve-full all vec append calcFunc-if calcFunc-gt math-solve-get-sign 1 0] 6 (#$ . 60601)])
#@16 

(fn SUB-RHS)
(defalias 'math-solve-poly-funny-powers #[257 "\n\306
\203$\307@\206\310\"\262
\311	\"\311\f\"
A\262\202\266\211\203/\312	\f\"\306\311\2067\310\313\314\310\")\"\315\316\317	!!\320#\211)\207" [math-solve-lhs math-t1 math-poly-neg-powers math-poly-mult-powers math-solve-rhs calc-prefer-frac nil math-pow 1 math-mul math-sub t math-div math-is-polynomial math-simplify calcFunc-expand 50 math-poly-frac-powers math-t2 math-solve-b] 6 (#$ . 60858)])
#@19 

(fn MAX-DEGREE)
(defalias 'math-solve-crunch-poly #[257 "\303\2037@\211:\203%\211@\304=\203\211A@\303=\262
\202*\305
!\262
\202*\211\303=\262
\2037A\211T\262
\202
\205\316GS\211\211\306V\203\274	@\306U\203\274

\246\303U\203\265\303\307\310\203\250\211\203\250\246\303U\203r
@C\244\262\202\235@\211:\203\222\211@\304=\203\212\211A@\303=\262
\202\227\305
!\262
\202\227\211\303=\262
\204\235\307\262
A\262T\262\202X\211\203\263	AB
\266\211S\262
\202?\311	@\n\"\311\n\"DGSX\266\202\207" [math-t1 math-t3 math-t2 0 float math-zerop 1 nil t math-mul] 11 (#$ . 61354)])
#@34 

(fn EXPR VAR &optional DEGREE)
(defalias 'calcFunc-poly #[770 "\211\203\300
!\204\301
\302\"\210\202\303\262
\304\305$\211\203,\211\306\232\203(\307C\207\307
B\207\301\310\"\207" [natnump math-reject-arg fixnatnump 50 math-is-polynomial gen (0) vec "Expected a polynomial"] 8 (#$ . 61976)])
#@34 

(fn EXPR VAR &optional DEGREE)
(defalias 'calcFunc-gpoly #[770 "\211\203\301
!\204\302
\303\"\210\202\304\262

\305\306$\211\203'\307
B\202+\302\310\")\207" [math-poly-base-variable natnump math-reject-arg fixnatnump 50 math-decompose-poly nil vec "Expected a polynomial"] 8 (#$ . 62287)])
#@43 

(fn SOLVE-LHS SOLVE-VAR DEGREE SUB-RHS)
(defalias 'math-decompose-poly #[1028 "\206\306\307\211\211\310
\311\312#\"\211\205<\313	@\"\314\nB\2032\313	A@\"\202;\315\313	A@\"\"E.\207" [math-t3 math-t2 math-t1 math-solve-rhs math-solve-var math-solve-lhs 1 nil math-polynomial-base make-closure #[257 "\211\306\307\310\311\211\232?\205u\242\312>\203\301\205u\313\310\314\315#\211\205u
\316\232\203Y\f\317>\203Y\310=\203Y\301\203Y\320@\"AB\211\202\\\321\301!\205u\322\300!\205u\323\"\206u\323@\"-\207" [V0 V1 math-poly-exp-base math-poly-frac-powers math-poly-mult-powers math-poly-neg-powers (1) nil 1 t (+ -) (1 0) math-is-polynomial 50 (1) (nil 1) math-sub math-solve-poly-funny-powers math-solve-crunch-poly math-expr-contains math-solve-b math-solve-lhs math-t3 math-t2 math-t1 math-solve-rhs math-solve-var] 7 "\n\n(fn SOLVE-B)"] math-pow vec math-div] 11 (#$ . 62598)])
#@21 

(fn VAR SIGN B A)
(defalias 'math-solve-linear #[1028 "\300\301\302!\"\303\"\304$\207" [math-try-solve-for math-div math-neg math-solve-sign t] 10 (#$ . 63551)])
#@18 

(fn VAR C B A)
(defalias 'math-solve-quadratic #[1028 "\300\301!\203-\302\303\"\302\304\305!\306\307\310\304\311!\312\305!
\"\"D!!\"\"\262
\202Q\302\304\305!\306\307\310\304\311!\312\313\312\305!\"\"\"D!!\"\312\303\"\"\314\315$\207" [math-try-solve-for math-looks-evenp math-div 2 math-add math-neg math-solve-get-sign math-normalize calcFunc-sqrt math-sqr math-mul 4 nil t] 19 (#$ . 63727)])
#@20 

(fn VAR D C B A)
(defalias 'math-solve-cubic #[1285 "\301\"\301\"\301\"\302!\303\301\304\"\"\305\301\303\306\307\306\f\"\"\306\310\306\f\f\"\"\"\311\"\"\312\211:\203Q\211@\313=\203I\211A@\314=\262
\202V\315
!\262
\202V\211\314=\262
\203m\316\317\305\301\304\"\"\304\"\320!\312\321$\207
\211:\203\214\211@\313=\203\204\211A@\314=\262
\202\221\315
!\262
\202\221\211\314=\262
\203\264\316\306\305\301\304\"\"\305\302\305\301\304\"\"!\"\"\314\312\321$\207\306\307\322\301\323\"D\"\262
\316\f\303\324\306\325\301\303\326\301\306\304\"\306\"\"D\306\307\306\305\327\330\327\304\"\"\331!\"\"\"\304\"D\"!\301\304\"\"\312\321$\207" [calc-symbolic-mode math-div math-sqr math-sub 3 math-add math-mul 2 9 27 nil float 0 math-zerop math-try-solve-for math-pow math-neg t calcFunc-sqrt -3 math-normalize calcFunc-cos calcFunc-arccos 1 math-solve-get-int math-half-circle] 30 (#$ . 64150)])
#@23 

(fn VAR D C B A AA)
(defalias 'math-solve-quartic #[1542 "\303\"\262\303\"\262\303\"\262\303\"\262\304\305!\303
\306\"\307\211\310\n\311\211\312\306\312
\"\"\312\"\"\305\f!\"\311\312\n
\"\312\306\"\"\313!\314%*\315\311\n\"\"\316
D\317\314!\316\315\311\312\320	\"\312\321\"\"\211:\203\216\211@\322=\203\206\211A@\323=\262
\202\223\324
!\262
\202\223\211\323=\262
\203\255\312\321\312\316\311\305
!\312\306\"\"D\"\"\202\323\311\312\303\311\211\312\306\312\"\"\312\325\"\"\312\"\"\312\306\"\"\"\"\"D\326\311\315\312\303\321\"\"\317\303\321\"!\"\303\306\"\"!\266\207\307\327$\207" [calc-next-why math-solve-full math-solve-var math-div math-try-solve-for math-sqr 4 nil math-solve-cubic math-sub math-mul math-neg 1 math-add calcFunc-sqrt math-solve-get-sign 3 2 float 0 math-zerop 8 math-normalize t] 28 (#$ . 65090)])
(defvar math-symbolic-solve nil)
(defvar math-int-coefs nil)
#@39 

(fn VAR P &optional MATH-FACTORING)
(defalias 'math-poly-all-roots #[770 "\3062\307GS\310!\307\211\307\211\307.\211\2035\211@\211:?\206)\211@\311=\262
\2035\211A\262
\202\211\203I\204A	\203m\312\306\307\"\210\202m
@\313\314\315	\"
/\316\317\"!\320\321\".\320\322B\"A)\266\323V\203*
\307\211\324!/
\203\243
@\211:?\206\217\211@\325>\262
\203\233
A\262\202\312\306\307\"\210\202	\203\255\326\202\256\323V\203\"
\327
\330\307#\307\211\211\242\331=\203\321\332\3268A@\"\203\321\333!\262\f\204\334\fB\262\f\211:?\206\347\211@\325>\262
\204\361\334!\262\262
@\262\211A\211\262\203
\211@\262\211\240\210\335\317\"\"\262\202\370A\262\nS\262\266\202\243\310
!\262\n*\266\336V\203n
\337\307\211\3400123G\nGU\203I
\310\n!\262\341\314\326U\203U
\342\202`
\343U\203_
\344\202`
\3453	#A\"\262,\202\203
\346V\203\203
\320\347@!A@\"B\262\203\237
\203\227
\350@!\210A\262\202\207

\n\237E\202\377
\307\203\330
@0\205\254
\3400\351
!\203\273
\327\313#\262
\341\352\307\313$\206\313
\312\306\307\"A\"\262)\210A\262\202\240
\322
\237B\262
	\203\347
\353
!\262
0\313=\203\374
\354
\355\336GS\336#E\202\375
\211\262
.\266\2040\207" [calc-symbolic-mode math-symbolic-solve math-int-coefs math-int-scale math-double-roots math-int-factors ouch nil reverse frac throw t apply math-lcm-denoms math-abs math-mul math-div (float 5 -2) vec 4 copy-sequence (frac float cplx polar) 2 math-poly-any-root (float 0 0) cplx math-nearly-zerop calcFunc-re math-evaluate-expr math-add 1 (var DUMMY var-DUMMY) all append math-solve-quadratic 3 math-solve-cubic math-solve-quartic 0 math-neg math-poly-integer-root math-floatp math-try-solve-for math-normalize calcFunc-subscr math-solve-get-int math-int-threshold calc-prefer-frac math-solve-full math-solve-ranges math-solve-sign math-solve-var] 20 (#$ . 66046)])
#@20 

(fn &rest FRACS)
(defalias 'math-lcm-denoms #[128 "\300
\203
@\242\301=\203\302
\303@8\"\262

A\262\202
\207" [1 frac calcFunc-lcm 2] 6 (#$ . 67962)])
#@19 

(fn P X POLISH)
(defalias 'math-poly-any-root #[771 "\301!\203\302\303\304#\202\302\304#\301
A!\203\211@\202D\305
A\306\"\2033
\2043\302@\307#\262
\301
A!\203?\211@\202D\310#\203S\311
!\203S\312\313\314\"\210\207" [math-symbolic-solve math-zerop math-poly-newton-root (cplx (float 123 -6) (float 1 -4)) 4 math-lessp (float 1 -3) 30 math-poly-laguerre-root math-floatp throw ouch nil] 8 (#$ . 68128)])
#@18 

(fn P X ITERS)
(defalias 'math-poly-newton-root #[771 "\305\211\n\305\211S\211\262\306V\203\227\307=\203 \310\311\"\210@\262\306\262\211A\211\262\203H\312\313\"\"\262\312\313\"@\"\262\202(\314!?\262
\203\227\315\"\262\316\"\262\203\204\317!\320
\f\"\203\203\321!\211\203\211\262\306\262\266\202\204\305\262\210\210\306=\204\224\322\317!\"\203\306\262\314!\203\243\323\202\254\315\317!\317	!\"*B\207" [calc-prefer-frac calc-symbolic-mode math-int-coefs calc-display-working-message math-int-threshold nil 0 lots math-do-working "newton" math-add math-mul math-zerop math-div math-sub math-abs-approx math-lessp math-poly-integer-root math-nearly-zerop 1] 13 (#$ . 68560)])
#@10 

(fn X)
(defalias 'math-poly-integer-root #[257 "\306\307\310!!\"\205'
	\205'
\311\312
!\313!\314!\314!\306
\315\316\"\"\203f\317\320\321\"!\"	\211@\322A\211\262\203P

B\262
\323@\321\"\"\262\2025\324!\205a\211\237\325!C\fB\266\204\202$
\317\320\321\321\326\"\"!\"\314!\317\320\321\323\"\"!\"	@	A\211@\322\327\330
!E
\"\322
\203\251\331
\"\332\262\332\262\202\321A\211\262\203\321\262
B\262\333\321\f\"\"\262\333@\321\n\"\"\262\202\251\324!\205\"
\324!\205\"
\317	\326\"\204
\334!\n\335!EC
B\nB\fB\323
 !\321\336\333\314!
\"!\335!\203
\316\202
\337\")\"\262
\266\211)\266\204\207" [calc-internal-prec math-int-coefs calc-prefer-frac math-int-scale math-int-factors math-double-roots math-lessp calcFunc-xpon math-abs-approx t calcFunc-re calcFunc-im math-sqr calcFunc-scf -1 math-div math-round math-mul nil math-add math-zerop math-neg -2 assoc math-posp delq 0 math-sub reverse math-negp math-sqrt 1 math-symbolic-solve calc-symbolic-mode] 22 (#$ . 69306)])
#@19 

(fn P X POLISH)
(defalias 'math-poly-laguerre-root #[771 "\303\211\304GS?\303\211\211\211\211\211T\211\262\n\305W\204#\306\307\"\203\256
\310\f@!\310\f!
\211@\262	\304\262\304\262\211A\211\262\203t\311\312	\"	\"\262\311\312\n\"\n\"\262\311\312\"@\"\262	\311\310\n!\312\"\"\262\2028\313\314\315\nZ\"\310!\"\266\203\203\256
\316!\203\241\316!\203\241\317\320!\321\322E\"\262\202\256
\323\"\324
!\325
\312\326\323\n
\"\"\"\327\312\fS\325\312\"\"\"!\311\"\325\"\313\330!\330!\"\203\334\211\262\323\"\262\325	\"\262	\f\203F
\313\310	!\314\310!\331\"\"\203F
\332\n\333#\303\262\316
A!\203
\211@\262\262\n\210\202F
\313
A\334\"\203E
\332@\335#\316
A!\203@
\211@\262\262\266\202F

@\262\210\210	=\206T
\336\n\"?\266\206\203\256
\310!\262\f	\337X\206\223
\313
\"\206\223
\n\203\222
\340\323\310!\"!\341\342!\210\343
!\203\221
\344
]\345
!\262
)\210\303
\262\262
\203\256
	\204\313\314\310
!\n[\"\"\204\346!\203\274
\347!\206\276
\n*\207" [calc-prefer-frac calc-symbolic-mode calc-internal-prec nil 0 50 math-reject-arg "*Laguerre's method failed to converge" math-abs-approx math-add math-mul math-lessp calcFunc-scf -2 math-zerop math-pow math-neg frac 1 math-div math-sqr math-sub 2 math-sqrt calcFunc-abssqr -3 math-poly-newton-root 7 (float 1 -6) 20 math-nearly-equal 6 calcFunc-xpon calc-record-why "*Could not attain full precision" natnump 3 math-normalize math-floatp math-poly-integer-root] 24 (#$ . 70364)])
#@10 

(fn X)
(defalias 'math-solve-above-dummy #[257 "\211\211:?\206\211@\300>\262
?\2057\211A@\301\232\203!\211G\302U\203!\207\303
A\211\262\2034\304@!\211\262\203\"\211\262
\207" [(frac float cplx polar hms date mod var) (var SOLVEDUM SOLVEDUM) 2 nil math-solve-above-dummy] 4 (#$ . 71907)])
#@14 

(fn X NEG)
(defalias 'math-solve-find-root-term #[514 "\302!\203\f\211
\211\207
\242\303>\205.\304A@\"\206.\304\3058@\306=\203,?\202-\"\207" [math-t3 math-t1 math-solve-find-root-in-prod (+ -) math-solve-find-root-term 2 -] 6 (#$ . 72213)])
#@10 

(fn X)
(defalias 'math-solve-find-root-in-prod #[257 "\211:\205p\302
\"\205p\211@\303=\203\304\211\206p\211@\305=\203I\306\3048!\307>\2030\304\211\206p\304
8\242\310=\203I\304\21188\311=\203I\311\211\206p\211@\312>\205p\302
A@\"\204a\313\3048!\206p\302\3048\"?\205p\313
A@!\207" [math-solve-var math-t2 math-expr-contains calcFunc-sqrt 2 ^ math-quarter-integer (1 2 3) frac 3 (* /) math-solve-find-root-in-prod] 4 (#$ . 72476)])
#@36 

(fn EXPRS SOLVE-VARS SOLVE-FULL)
(defalias 'math-solve-system #[771 "

\303\304\211\242\305=\262
\203A\202C\"\262	\211\242\305=\262
\203)	A\202+	C\306\307	\306#)\206?\310\307	\306#)*\207" [math-solve-full math-solve-vars math-solve-simplifying mapcar list vec nil math-solve-system-rec t] 8 (#$ . 72938)])
#@32 

(fn EQN-LIST VAR-LIST SOLNS)
(defalias 'math-solve-system-rec #[771 "
\203\277
\304\211\203\274\211@	\242\305=\211\203	A@
\203\255
@\304\211\211\203\\@=\2034\211\206;\306@\307	\n$\211\262\203\\@\262\n\310=\203P\211A\202R\211CBA\262\202%\203h\304\211\266\203\202\243\237\311\312\313\314@\315!\"\"\314@\315\f!\"\304\312\316\f\"
\203\222\211\202\232	\317\320\"B
B)\266\202#\211?\266\203\203\255
A\262\202)?\266\202\203\274\211A\262
\202)\207\321
\322\"\262
\n\310=\203\342\323\324\325\203\331\312\326\"\202\336\312\327\"B!!\207\324\325\203\357\312\330\"\202\364\312\331\"B!\207" [math-solve-system-res math-solve-system-vv math-solve-full math-solve-simplifying nil calcFunc-elim math-solve-for 0 all math-solve-system-rec mapcar math-solve-system-subst delq copy-sequence #[257 "\211@\300A!B\207" [math-solve-system-subst] 4 "\n\n(fn X)"] apply append sort #[514 "
@
@>>?\207" [math-solve-vars] 5 "\n\n(fn X Y)"] math-transpose math-normalize vec #[257 "\300
AB\207" [vec] 3 "\n\n(fn X)"] #[257 "\300
B\207" [vec] 3 "\n\n(fn X)"] #[257 "\300
B\207" [calcFunc-eq] 3 "\n\n(fn X)"] car] 19 (#$ . 73270)])
#@10 

(fn X)
(defalias 'math-solve-system-subst #[257 "\211C\301\242\203#
\302\303\304\"@\"\244\262\211\242A\240\210\211A\262
\202
\207" [math-solve-system-res nil mapcar make-closure #[257 "	\203\303\304\300\242@\n#!\207\304\300\242@\n#\207" [V0 math-solve-simplifying math-solve-system-vv math-simplify math-expr-subst] 6 "\n\n(fn R)"]] 9 (#$ . 74451)])
#@13 

(fn NAME)
(defalias 'math-get-from-counter #[257 "\211\236\211\203\211
AT\241\210\202
\301B\262
\211B\211A\207" [calc-command-flags 1] 4 (#$ . 74823)])
#@12 

(fn VAL)
(defalias 'math-solve-get-sign #[257 "\303
!\262
\211\242\304=\203)\211A@\211:?\206\211@\305>\262
\203)\304
A@\306\3078!E\207\211\242\310=\203L\211A@\242\311=\203L\312\311A@A@\313\307A@8\307\"E!\262
\203\235\314\301!\203z	\211\250\205_\211\315Y\262
\203z\316=\204z\317\320	D\"\321	\322\"\323\301!\210\207\324\325\326\327!!P\330\331!\331\332P!E\316=\203\230\211\322\333E\nB\317
\"\207\334\335!\210\207" [math-solve-full var-GenCount math-solve-ranges math-simplify * (frac float cplx polar) math-solve-get-sign 2 calcFunc-sqrt ^ math-normalize math-div calc-var-value 0 all math-mul calcFunc-as math-add 1 calc-refresh-evaltos "s" int-to-string math-get-from-counter solve-sign var intern "var-" -1 calc-record-why "*Choosing positive solution"] 7 (#$ . 74990)])
#@34 

(fn VAL &optional RANGE FIRST)
(defalias 'math-solve-get-int #[769 "\203\\\303\301!\203.	\211\250\205\211\304Y\262
\203.\305=\204.\306\307	D\"\310	\311\"\312\301!\210\207\313\314\315\316!!P\317\320!\320\321P!E\203W\305=\203W\211\322\206Q\304\"AB\nB\306\"\207\323\324!\210\304\207" [math-solve-full var-GenCount math-solve-ranges calc-var-value 0 all math-mul calcFunc-an math-add 1 calc-refresh-evaltos "n" int-to-string math-get-from-counter solve-int var intern "var-" calcFunc-index calc-record-why "*Choosing 0 for arbitrary integer in solution"] 9 (#$ . 75793)])
#@18 

(fn SIGN EXPR)
(defalias 'math-solve-sign #[514 "
\205\300
!\211\301\267\202\202[\202\302\262
\207" [math-possible-signs #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 13 6 13 1 17 3 17)) nil] 5 (#$ . 76391)])
#@13 

(fn EXPR)
(defalias 'math-looks-evenp #[257 "\300
!\203\n\301
!\207\211@\302>\205\303
A@!\207" [Math-integerp math-evenp (* /) math-looks-evenp] 3 (#$ . 76660)])
#@52 

(fn LHS RHS SOLVE-VAR SOLVE-FULL &optional SIGN)
(defalias 'math-solve-for #[1284 "\304\"\203\305\306\"\307$\202k\304\"\205k\310\nT	\311#\312=\203e\313	!\203e\211G\314\315\314\316\317\"\"\262G\262
\211W\203c\320
\321U\203[\322\202a\323\324Z\"!\210\266)\211\262
)!*\207" [math-solve-full math-solve-var calc-internal-prec math-poly-base-variable math-expr-contains math-solve-for math-sub 0 math-normalize math-try-solve-for all math-known-realp nil delq mapcar #[257 "\211\242\300>?\205	\211\207" [(cplx polar)] 3 "\n\n(fn X)"] calc-record-why 1 "*All solutions were complex" format "*Omitted %d complex solutions"] 14 (#$ . 76833)])
#@22 

(fn EXPR VAR FULL)
(defalias 'math-solve-eqn #[771 "\242\301>\203M\302\303AB\304@\305=?\205\306%\211\205L\306=\203*@E\207\307=\2036@
E\207@\305=\204A\310\311!\210@\312>\205L\305E\207\302\304$\211\205[\313E\207" [math-solve-sign (calcFunc-neq calcFunc-lt calcFunc-gt calcFunc-leq calcFunc-geq) math-solve-for - 0 calcFunc-neq 1 -1 calc-record-why "*Can't determine direction of inequality" (calcFunc-neq calcFunc-lt calcFunc-gt) calcFunc-eq] 10 (#$ . 77515)])
#@22 

(fn EXPR VAR FUNC)
(defalias 'math-reject-solution #[771 "\301\"\203@\302\232\204\303\304!\210\211E\207" [calc-next-why math-expr-contains (* "Unable to find a symbolic solution") calc-record-why "*Unable to find a solution"] 6 (#$ . 78013)])
#@17 

(fn EXPR VAR)
(defalias 'calcFunc-solve #[514 "
\211\242\300=\262
\204\211\211\242\300=\262
\203\301\302#\202!\303\302#\206)\304\305#\207" [vec math-solve-system nil math-solve-eqn math-reject-solution calcFunc-solve] 6 (#$ . 78273)])
#@17 

(fn EXPR VAR)
(defalias 'calcFunc-fsolve #[514 "
\211\242\300=\262
\204\211\211\242\300=\262
\203\301\302#\202!\303\302#\206)\304\305#\207" [vec math-solve-system t math-solve-eqn math-reject-solution calcFunc-fsolve] 6 (#$ . 78528)])
#@17 

(fn EXPR VAR)
(defalias 'calcFunc-roots #[514 "\301
\211\242\302=\262
\204\211\211\242\302=\262
\203\303\304#\202$\305\306\304$\206,\307\310#)\207" [math-solve-ranges nil vec math-solve-system all math-solve-for 0 math-reject-solution calcFunc-roots] 7 (#$ . 78783)])
#@17 

(fn EXPR VAR)
(defalias 'calcFunc-finv #[514 "\301\302$\211\203\303\304#!\207\305\306#\207" [math-integ-var math-solve-for nil math-normalize math-expr-subst math-reject-solution calcFunc-finv] 8 (#$ . 79072)])
#@17 

(fn EXPR VAR)
(defalias 'calcFunc-ffinv #[514 "\301\302$\211\203\303\304#!\207\305\306#\207" [math-integ-var math-solve-for t math-normalize math-expr-subst math-reject-solution calcFunc-finv] 8 (#$ . 79301)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\314\304\316#\210\300\317\302\320#\210\300\317\304\316#\210\300\321\302\322#\210\300\321\304\316#\210\300\323\302\324#\210\300\323\304\316#\210\300\325\302\326#\210\300\325\304\316#\210\300\327\302\330#\210\300\327\304\316#\210\300\331\302\332#\210\300\331\304\316#\210\300\333\302\334#\210\300\335\302\336#\210\300\337\302\340#\210\300\341\302\342#\210\300\343\302\344#\210\300\345\302\346#\210\300\347\302\350#\210\300\347\304\316#\210\300\351\302\352#\210\300\353\302\354#\210\300\353\304\316#\210\300\355\302\356#\210\300\355\304\316#\210\300\357\302\360#\210\300\361\302\362#\210\300\361\304\316#\207" [put calcFunc-inv math-inverse #[257 "\300\301\"\207" [math-div 1] 4 "\n\n(fn X)"] math-inverse-sign -1 calcFunc-sqrt #[257 "\300
!\207" [math-sqr] 3 "\n\n(fn X)"] calcFunc-conj #[257 "\300
D\207" [calcFunc-conj] 3 "\n\n(fn X)"] calcFunc-abs #[257 "\300
!\207" [math-solve-get-sign] 3 "\n\n(fn X)"] calcFunc-deg #[257 "\300
D\207" [calcFunc-rad] 3 "\n\n(fn X)"] 1 calcFunc-rad #[257 "\300
D\207" [calcFunc-deg] 3 "\n\n(fn X)"] calcFunc-ln #[257 "\300
D\207" [calcFunc-exp] 3 "\n\n(fn X)"] calcFunc-log10 #[257 "\300
D\207" [calcFunc-exp10] 3 "\n\n(fn X)"] calcFunc-lnp1 #[257 "\300
D\207" [calcFunc-expm1] 3 "\n\n(fn X)"] calcFunc-exp #[257 "\300\301\302D!\303\304\303\305\306\307!\"\"\"\207" [math-add math-normalize calcFunc-ln math-mul 2 (var pi var-pi) math-solve-get-int (var i var-i)] 9 "\n\n(fn X)"] calcFunc-expm1 #[257 "\300\301\302D!\303\304\303\305\306\307!\"\"\"\207" [math-add math-normalize calcFunc-lnp1 math-mul 2 (var pi var-pi) math-solve-get-int (var i var-i)] 9 "\n\n(fn X)"] calcFunc-sin #[257 "\300\301!\302\303\304\305D!\306\307\"\"\303\310\311!\"\"\207" [math-solve-get-int 1 math-add math-mul math-normalize calcFunc-arcsin math-pow -1 math-half-circle t] 8 "\n\n(fn X)"] calcFunc-cos #[257 "\300\301\302\303D!!\304\305\306!!\"\207" [math-add math-solve-get-sign math-normalize calcFunc-arccos math-solve-get-int math-full-circle t] 6 "\n\n(fn X)"] calcFunc-tan #[257 "\300\301\302D!\303\304\305!!\"\207" [math-add math-normalize calcFunc-arctan math-solve-get-int math-half-circle t] 6 "\n\n(fn X)"] calcFunc-arcsin #[257 "\300\301D!\207" [math-normalize calcFunc-sin] 4 "\n\n(fn X)"] calcFunc-arccos #[257 "\300\301D!\207" [math-normalize calcFunc-cos] 4 "\n\n(fn X)"] calcFunc-arctan #[257 "\300\301D!\207" [math-normalize calcFunc-tan] 4 "\n\n(fn X)"] calcFunc-sinh #[257 "\300\301!\302\303\304\305D!\306\307\"\"\303\310\311!\303\312\"\"\"\207" [math-solve-get-int 1 math-add math-mul math-normalize calcFunc-arcsinh math-pow -1 math-half-circle t (var i var-i)] 9 "\n\n(fn X)"] calcFunc-cosh #[257 "\300\301\302\303D!!\304\305\306!\307\310!\"\"\207" [math-add math-solve-get-sign math-normalize calcFunc-arccosh math-mul math-full-circle t math-solve-get-int (var i var-i)] 7 "\n\n(fn X)"] calcFunc-tanh #[257 "\300\301\302D!\303\304\305!\306\307!\"\"\207" [math-add math-normalize calcFunc-arctanh math-mul math-half-circle t math-solve-get-int (var i var-i)] 7 "\n\n(fn X)"] calcFunc-arcsinh #[257 "\300\301D!\207" [math-normalize calcFunc-sinh] 4 "\n\n(fn X)"] calcFunc-arccosh #[257 "\300\301D!\207" [math-normalize calcFunc-cosh] 4 "\n\n(fn X)"] calcFunc-arctanh #[257 "\300\301D!\207" [math-normalize calcFunc-tanh] 4 "\n\n(fn X)"]] 4)
#@21 

(fn EXPR VAR NUM)
(defalias 'calcFunc-taylor #[771 "\300\211\242\301>\203\"@\302=\203\303\3048!\202\3048\262A@\262
\211\242\305=\203\230\306\"\203\230\307!\203\230\310#@\311=\203I\312AB\202J\300\313T\211\262X\203\214\314
\315\316$\211\262\203\214\317
!\262
\320\"\262\321\322\320\323\"\310\f#\"\"\"\262\202N\211\205\223\324!\266\205\206\235\325F\207" [0 (+ - calcFunc-eq) + math-neg 2 var math-expr-contains natnump math-expr-subst calcFunc-eq - 1 calcFunc-deriv nil t math-simplify math-mul math-add math-div math-pow math-normalize calcFunc-taylor] 19 (#$ . 82970)])
(provide 'calcalg2)