ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/calc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/calc/calcalg2.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-derivative #[(var num) "\300\301`\"\207" [calc-do #[nil "\305W\203\n \306\307!\210\310 \203 \311\202 \312\313\211\f\314\232\204% \f\315\232\2032 \316\317\316!\317\320!\202J \321\f!\211\242\306=\203D \306\322\fA@\"\210\320\317\320!S\211\305Y\203[ \fE\202J \323\n\324 #+\207" [num expr n func var 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"] 5]] 3 nil "sDifferentiate with respect to: \np"])
(defalias 'calc-integral #[(var &optional arg) "\203 \302\303\304\305\306 \306\211&\207\307\310`\"\207" [arg var calc-tabular-command calcFunc-integ "Integration" "intg" nil calc-do #[nil "\301\232\204\f \302\232\203 \303\304\305\306\307\304!\307\310!E#\207\311!\211\242\312=\203+ \312\313A@\"\210\303\310\305\306\307\310!E#)\207" [var "" "$" calc-enter-result 2 "intg" calcFunc-integ calc-top-n 1 math-read-expr error "Bad format in expression: %s"] 8]] 8 nil "sIntegration variable: \nP"])
(defalias 'calc-num-integral #[(&optional varname lowname highname) "\303\304\305\306\307 \n&\207" [varname lowname highname calc-tabular-command calcFunc-ninteg "Integration" "nint" nil] 8 nil "sIntegration variable: "])
(defalias 'calc-summation #[(arg &optional varname lowname highname) "\304\305\306\307 \n &\207" [arg varname lowname highname calc-tabular-command calcFunc-sum "Summation" "sum"] 8 nil "P\nsSummation variable: "])
(defalias 'calc-alt-summation #[(arg &optional varname lowname highname) "\304\305\306\307 \n &\207" [arg varname lowname highname calc-tabular-command calcFunc-asum "Summation" "asum"] 8 nil "P\nsSummation variable: "])
(defalias 'calc-product #[(arg &optional varname lowname highname) "\304\305\306\307 \n &\207" [arg varname lowname highname calc-tabular-command calcFunc-prod "Index" "prod"] 8 nil "P\nsIndex variable: "])
(defalias 'calc-tabulate #[(arg &optional varname lowname highname) "\304\305\306\307 \n &\207" [arg varname lowname highname calc-tabular-command calcFunc-table "Index" "tabl"] 8 nil "P\nsIndex variable: "])
(defalias 'calc-tabular-command #[(func prompt prefix arg varname lowname highname) "\300\301`\"\207" [calc-do #[nil "\306\211\211\211\211\211\307\306 :\203 \307\202 \310 \311\232\2042 \312\232\2042 \204L \313\nT!\313\n\314\\!\313\n\315\\!\n\316\\\202G ;\203Y \317 !\202[ \211\242\320=\203l \320\321A@\"\210 \204| \322 \323 \324R! \311\232\204\212 \312\232\203\235 \313\nT!\313\n\314\\!\n\315\\\202G ;\203\252 \317 !\202\254 \211\242\320=\203\275 \320\321A@\"\210 \204\321 \322 \323 \324 \325\260! \311\232\204\337 \312\232\203\353 \313\nT!\n\314\\\202G ;\203\370 \317 !\202\372 \211\242\320=\203 \320\321
A@\"\210 :\203G\322 \323 \324 \325 \326\260!\211\311\232\204, \312\232\2035\313\307!\314\202G\317 !\211\242\320=\203G\320\321\fA@\"\210\f\204b :\203X\313\307!\202b \203b\327 !\313 !\330 !\331\"
\257\f\205{\fC\"#.\207" [expr num stepnum stepname step high 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 low var arg varname lowname prompt highname prefix func] 10]] 3])
(defalias 'calc-solve-for #[(var) "\300\301`\"\207" [calc-do #[nil "\302 \203 \303 \203 \304\202 \305\202 \303 \203 \306\202 \307 \310\232\204) \311\232\2038 \312\313\314\315\313!\315\316!E#\202l \317\320 \"\203O \317\321 \"\204O \322\323 \324Q!\202R \322 !\211\242\325=\203a \325\326 A@\"\210\312\316\314\315\316! E#))\207" [func var 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 ",\\|[^ ] +[^ ]" "\\[" math-read-expr "[" "]" error "Bad format in expression: %s"] 8]] 3 nil "sVariable(s) to solve for: "])
(defalias 'calc-poly-roots #[(var) "\300\301`\"\207" [calc-do #[nil "\301\232\204\f \302\232\203 \303\304\305\306\307\304!\307\310!E#\207\311\312\"\2030 \311\313\"\2040 \314\315\316Q!\2023 \314!\211\242\317=\203B \317\320A@\"\210\303\310\305\306\307\310!E#)\207" [var "" "$" calc-enter-result 2 "prts" calcFunc-roots calc-top-n 1 string-match ",\\|[^ ] +[^ ]" "\\[" math-read-expr "[" "]" error "Bad format in expression: %s"] 8]] 3 nil "sVariable to solve for: "])
(defalias 'calc-taylor #[(var nterms) "\300\301`\"\207" [calc-do #[nil "\302!\211\242\303=\203 \303\304A@\"\210\305\306\307\310\311\306!\312 !F#)\207" [var nterms math-read-expr error "Bad format in expression: %s" calc-enter-result 1 "tylr" calcFunc-taylor calc-top-n prefix-numeric-value] 9]] 3 nil "sTaylor expansion variable: \nNNumber of terms: "])
(defalias 'math-derivative #[(expr) " \232\203 \306\207\211:?\206 \n@\307>)\204C @\310=\204C @\311=\203E \203C \312!\204C \313 \210\314\3158\f\236\206=
A@>\203E \316\207@\317=\203Y \320\321A@!\321\3158!\"\207@\322=\203m \323\321A@!\321\3158!\"\207@\324>\203\202 @\321A@!\321\3158!E\207@\325=\203\221 \326\321A@!!\207@\327=\203\257 \320\330\3158\321A@!\"\330A@\321\3158!\"\"\207@\331=\203\324 \323\332\321A@!\3158\"\332\330A@\321\3158!\"\333\3158!\"\"\207@\334=\203p\321A@!\321\3158! @\211 A\211:\203
\n@\335>?\205\n@\336=\203\nA@\316=\202\337\n!\202\n\316=)\204,\330\3158\330\340\334A@\320\3158\341\"E!A\"\"A@\211:\203Q\n@\335>?\205T\n@\336=\203K\nA@\316=\202T\337\n!\202T\n\316=)\204h\330\340\342A@D!\330@\"\"@\320A@\"*\207@\343=\203}\321A@!\207@\344=\203\211\345\321\"\207@\346>\203\240G\315U\203\240@\321A@!D\207@\347>\203\312G\350U\203\312\321A@! B\351B!\203\300\316\202\310@B\3158E)\207@9\2039G\315U\203'@\321N\211 C\205#\321A@!\211 D\211:\203\f\n@\335>?\205\n@\336=\203\nA@\316=\202\337\n!\202\n\316=)\203D\202\"\330CA@!D\"))\2026@\352N\211 C\2055C!)\206wE\353=\204`\354!\211 F\205\\\353 E\3552T\321!0)\206\\\321F!)\206w\211:?\206l\n@\356>)\204}@\311=\204}@9\204\224E\203\207\357\355\360\"\207 \203\217\361\202\220\362 E\207\316\306\360 G H I JIA\211I\203t\321I@!\211G\211:\203\324\n@\335>?\205\327\n@\336=\203\316\nA@\316=\202\327\337\n!\202\327\n\316=)\204l\363\364@!\365H\306V\203\357\366H!\202\360\367Q!G\315U\203\375\370\202&G\350U\203\371\202&G\372U\203\373\202&G\374U\203 \375\202&G\376U\205&\377 K L\320J\330GLKN CK\203LC\203L\201M CA\"\206fE\203aL\201N N\204a\357\355\360\"\202fLAB)\"\"J*HTH\202\240J,\207" [expr math-deriv-var a math-deriv-total math-decls-cache math-decls-all 1 (bigpos bigneg 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 ^ (bigpos bigneg) 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 math-numberp math-derivative-n pre-expand math-expand-formula math-deriv (bigpos bigneg 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 dv du d handler deriv math-deriv-symb exp derv n arg accum prop func apply calc-user-defn] 10])
(defalias 'calcFunc-deriv #[(expr math-deriv-var &optional deriv-value math-deriv-symb) "\305\3062\n \307 !0\211\242\310=\204 \n\203 \311\n!\n\205+ \203* \312\n\f #\202+ \n*\207" [math-deriv-total expr res deriv-value math-deriv-var nil math-deriv math-derivative calcFunc-deriv math-normalize math-expr-subst] 5])
(defalias 'calcFunc-tderiv #[(expr math-deriv-var &optional deriv-value math-deriv-symb) "\305 \210\306\3072
\310 !0\211\242\311=\204 \n\203 \312\n!\n\205. \203- \313\n\f #\202. \n*\207" [math-deriv-total expr res deriv-value math-deriv-var math-setup-declarations t math-deriv math-derivative calcFunc-tderiv math-normalize math-expr-subst] 5])
(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 #[(u) "\301\302\303\304!\"!\207" [u math-neg math-div 1 math-sqr] 5] calcFunc-sqrt\' #[(u) "\301\302\303\304\305D\"\"\207" [u math-div 1 math-mul 2 calcFunc-sqrt] 6] calcFunc-deg\' #[(u) "\300\301\302 \"\207" [math-div-float (float 18 1) math-pi] 3] calcFunc-rad\' #[(u) "\300 \207" [math-pi-over-180] 1] calcFunc-ln\' #[(u) "\301\302\"\207" [u math-div 1] 3] calcFunc-log10\' #[(u) "\301\211\302\303\304!\"\"\207" [u math-div 1 math-normalize (calcFunc-ln 10)] 5] calcFunc-lnp1\' #[(u) "\301\302\303\302\"\"\207" [u math-div 1 math-add] 5] calcFunc-log\' math-derivative-2 #[(x b) "\211:\203$ @\304>?\205' @\305=\203 A@\306=\202' \307 !\202' \306=)?\205: \310\311D!\312\313\314\n \"\")\207" [b a lnv x (bigpos bigneg) float 0 math-zerop math-normalize calcFunc-ln math-div 1 math-mul] 6] calcFunc-log\'2 #[(x b) "\303D\304\305\306\nE\307 \"\"!)\207" [b lnv x calcFunc-ln math-neg math-div calcFunc-log math-mul] 6] calcFunc-exp\' #[(u) "\301\302D!\207" [u math-normalize calcFunc-exp] 3] calcFunc-expm1\' #[(u) "\301\302D!\207" [u math-normalize calcFunc-expm1] 3] calcFunc-sin\' #[(u) "\301\302\303D!\304\"\207" [u math-to-radians-2 math-normalize calcFunc-cos t] 4] calcFunc-cos\' #[(u) "\301\302\303\304D!\305\"!\207" [u math-neg math-to-radians-2 math-normalize calcFunc-sin t] 5] calcFunc-tan\' #[(u) "\301\302\303\304D!!\305\"\207" [u math-to-radians-2 math-sqr math-normalize calcFunc-sec t] 5] calcFunc-sec\' #[(u) "\301\302\303\304D!\303\305D!\"\306\"\207" [u math-to-radians-2 math-mul math-normalize calcFunc-sec calcFunc-tan t] 6] calcFunc-csc\' #[(u) "\301\302\303\304\305D!\304\306D!\"\307\"!\207" [u math-neg math-to-radians-2 math-mul math-normalize calcFunc-csc calcFunc-cot t] 7] calcFunc-cot\' #[(u) "\301\302\303\304\305D!!\306\"!\207" [u math-neg math-to-radians-2 math-sqr math-normalize calcFunc-csc t] 6] calcFunc-arcsin\' #[(u) "\301\302\303\304\305\306\303\307!\"D!\"\310\"\207" [u math-from-radians-2 math-div 1 math-normalize calcFunc-sqrt math-sub math-sqr t] 9] calcFunc-arccos\' #[(u) "\301\302\303\304\305\306\307\310!\"D!\"\311\"\207" [u math-from-radians-2 math-div -1 math-normalize calcFunc-sqrt math-sub 1 math-sqr t] 9] calcFunc-arctan\' #[(u) "\301\302\303\304\303\305!\"\"\306\"\207" [u math-from-radians-2 math-div 1 math-add math-sqr t] 7] calcFunc-sinh\' #[(u) "\301\302D!\207" [u math-normalize calcFunc-cosh] 3] calcFunc-cosh\' #[(u) "\301\302D!\207" [u math-normalize calcFunc-sinh] 3] calcFunc-tanh\' #[(u) "\301\302\303D!!\207" [u math-sqr math-normalize calcFunc-sech] 4] calcFunc-sech\' #[(u) "\301\302\303\304D!\303\305D!\"!\207" [u math-neg math-mul math-normalize calcFunc-sech calcFunc-tanh] 6] calcFunc-csch\' #[(u) "\301\302\303\304D!\303\305D!\"!\207" [u math-neg math-mul math-normalize calcFunc-csch calcFunc-coth] 6] calcFunc-coth\' #[(u) "\301\302\303\304D!!!\207" [u math-neg math-sqr math-normalize calcFunc-csch] 5] calcFunc-arcsinh\' #[(u) "\301\302\303\304\305\306!\302\"D!\"\207" [u math-div 1 math-normalize calcFunc-sqrt math-add math-sqr] 7] calcFunc-arccosh\' #[(u) "\301\302\303\304\305\306!\307\"D!\"\207" [u math-div 1 math-normalize calcFunc-sqrt math-add math-sqr -1] 7] calcFunc-arctanh\' #[(u) "\301\302\303\302\304!\"\"\207" [u math-div 1 math-sub math-sqr] 6] calcFunc-bern\'2 #[(n x) "\302\303\304\305\" E\"\207" [n x math-mul calcFunc-bern math-add -1] 6] calcFunc-euler\'2 #[(n x) "\302\303\304\305\" E\"\207" [n x math-mul calcFunc-euler math-add -1] 6] calcFunc-gammag\'2 #[(a x) "\302 \303#\207" [a x math-deriv-gamma 1] 4] calcFunc-gammaG\'2 #[(a x) "\302 \303#\207" [a x math-deriv-gamma -1] 4] calcFunc-gammaP\'2 #[(a x) "\302 \303\304\305\306D!\"#\207" [a x math-deriv-gamma math-div 1 math-normalize calcFunc-gamma] 8] calcFunc-gammaQ\'2 #[(a x) "\302 \303\304\305\306D!\"#\207" [a x math-deriv-gamma math-div -1 math-normalize calcFunc-gamma] 8]] 4)
(defalias 'math-deriv-gamma #[(a x scale) "\303\303\304 \305\n\306\"\"\307\310 !D\"\"\207" [scale x a math-mul math-pow math-add -1 calcFunc-exp math-neg] 8])
(byte-code "\300\301\302\303#\210\300\304\302\305#\207" [put calcFunc-betaB\' math-derivative-3 #[(x a b) "\303 \n\304$\207" [x a b math-deriv-beta 1] 5] calcFunc-betaI\' #[(x a b) "\303 \n\304\305\306 \nE\"$\207" [x a b math-deriv-beta math-div 1 calcFunc-beta] 9]] 4)
(defalias 'math-deriv-beta #[(x a b scale) "\304\211\305\306 \307\"\"\305\310\311\"\306\n\307\"\"\" \"\207" [x a b scale math-mul math-pow math-add -1 math-sub 1] 8])
(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 #[(x) "\302\303\304\305\306!D \203 \307\202 \310 \"\"\207" [x calc-symbolic-mode math-div 2 math-mul calcFunc-exp math-sqr (calcFunc-sqrt (var pi var-pi)) math-sqrt-pi] 6] calcFunc-erfc\' #[(x) "\302\303\304\305\306!D \203 \307\202 \310 \"\"\207" [x calc-symbolic-mode math-div -2 math-mul calcFunc-exp math-sqr (calcFunc-sqrt (var pi var-pi)) math-sqrt-pi] 6] calcFunc-besJ\'2 math-derivative-2 #[(v z) "\302\303\304\305\306\" E\304\305\307\" E\"\310\"\207" [v z math-div math-sub calcFunc-besJ math-add -1 1 2] 7] calcFunc-besY\'2 #[(v z) "\302\303\304\305\306\" E\304\305\307\" E\"\310\"\207" [v z math-div math-sub calcFunc-besY math-add -1 1 2] 7] calcFunc-sum math-derivative-n #[(expr) "\302\303AAB \"\203 \304\305\306\"\207\307\310A@!AABB\207" [expr math-deriv-var math-expr-contains vec throw math-deriv nil calcFunc-sum math-derivative] 3] calcFunc-prod #[(expr) "\302\303AAB \"\203 \304\305\306\"\207\307\310\311\312A@!A@\"AABB\"\207" [expr math-deriv-var math-expr-contains vec throw math-deriv nil math-mul calcFunc-sum math-div math-derivative] 6] calcFunc-integ #[(expr) "G\304U\203 \3058 \232\203 A@\207\306\307\310A@!\3058E!\207G\311U\205s \312A@\3058\3048#\312A@\3058\3138#\314\315\316\n\310\3138!\"\316 \310\3048!\"\"\3058 \232\203^ \317\202q \306\307\310A@!\3058\3048\3138\257!\"*\207" [expr math-deriv-var upper lower 3 2 math-normalize calcFunc-integ math-derivative 5 math-expr-subst 4 math-add math-sub math-mul 0] 9] calcFunc-if #[(expr) "G\301U\205 \302A@\303\3048!\303\3058!F\207" [expr 4 calcFunc-if math-derivative 2 3] 6] calcFunc-subscr #[(expr) "G\301U\205 \302A@\303\3048!E\207" [expr 3 calcFunc-subscr math-derivative 2] 5]] 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))
(defalias 'math-tracing-integral '(macro . #[(&rest parts) "\301\302\303\302\304\305\306B\307BBBBBE\207" [parts 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))] 8]))
(defvar math-integral-cache nil)
(defvar math-integral-cache-state nil)
(defalias 'math-integral #[(expr &optional simplify same-as-above) "\306\n \"\fT \307 4\203? r4q\210db\210n\2031 \31056Z\311\"\312\313\f\"\3106\311\"\261\210\314\315\n\316\"\317\261\210\320\321!\210)\203\267 4\203w r4q\210db\210n\203h \31056Z\311\"\312\313\f\"\3106\311\"\261\210\322\315A@\316\"\261\210\320\321!\210)A@:\203\202 \323!\2104\203\267 r4q\210db\210n\203\247 \31056Z\311\"\312\313\f\"\3106\311\"\261\210\324\315A@\316\"\325\261\210\320\321!\210)\203\323 A@\307=\204\323 A@\250\203,A@6Y\204,\326\n!\203\336 \327\202,\330\216\327 78\331=\203\375 \332\333!\210\312\334\335\n\321\"\"7\336\3377\"\210\203A9\203\340 !\202\341\240\210\202'\n9\203 \340 !\202!\341D\211 B:\342=\203\3164\203[r4q\210db\210n\203S\31056Z\311\"\312\313\f\"\3106\311\"\261\210\343c\210\320\321!\210)\344\n!\211\n\232\203\2304\203\222r4q\210db\210n\203\212\31056Z\311\"\312\313\f\"\3106\311\"\261\210\345c\210\320\321!\210)\346\n!\202\3124\203\305r4q\210db\210n\203\275\31056Z\311\"\312\313\f\"\3106\311\"\261\210\347c\210\320\321!\210)\350 \351\352#\202 \346\n!\211\204 :\351=\204 \344\n!\211\n\232\204 4\203r4q\210db\210n\203\f\31056Z\311\"\312\313\f\"\3106\311\"\261\210\353\354\261\210\320\321!\210)\350 \351\352#))8\331=\203+\336\3377\"\210)\355
A@!\203?
A@\321H\202.
A@\356>\203S
A\357\240\210\360\361
E\202]
A@:\205]
A@4\203\226r4q\210db\210n\203\203\31056Z\311\"\312\313\f\"\3106\311\"\261\210\362\315\n\316\"\363\315
\316\"\325\261\210\320\321!\210)
,\207" [math-cur-record simp expr math-integral-cache math-integ-depth val 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 #[nil "A \206 \n\204 \204 \f\202 \305\240\207" [math-cur-record val 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 " trace-buffer math-integral-limit math-integ-level math-integ-msg calc-display-working-message same-as-above simplify] 7])
(defalias 'math-integral-contains-parts #[(expr) "\211:?\206\f @\302>)\203$ \242\303=\2053 A@\304=\2053 \3058<\207A\211\2032 \306@!\203$ \207" [expr a (bigpos bigneg frac float cplx polar hms date mod var) var PARTS 2 math-integral-contains-parts] 3])
(defalias 'math-replace-integral-parts #[(expr) "\211:?\206\f @\303>)\206b A\211\205b @:\203 @@\304=\203Z @A@\305=\203 \306@8:\203 \306@8A@<\203R \306@8A@\240\210\307\310B!\210\202 \nA\311\240\210\202 \307@!\210\202 \207" [expr a math-cur-record (bigpos bigneg frac float cplx polar hms date mod var) var PARTS 2 math-replace-integral-parts foo cancelled] 4])
#@58 Non-nil means that a linear substitution has been tried.
(defvar math-linear-subst-tried t (#$ . 19722))
(defalias 'math-do-integral #[(expr) "\306\211\211\307 \f\"\204 \310 \f\"\202 \f\232\203# \311\312 !\313\"\202 @\314=\203E \315 A@!\211\203#\315\313 8!\211\203#\316 \"\202 @\317=\203g \315 A@!\211\203#\315\313 8!\211\203#\320 \"\202 @\321=\203~ \315 A@!\211\203#\322 !\202 @\323=\203\307 A@\f\"\204\241 \315\313 8!\211\203#\310 A@ \"\202 \307\313 8\f\"\204\275 \315 A@!\211\203#\310 \313 8\"\202 A@\242\324>\203\346 \315 A@@\310 A@A@\313 8\"\310\313 A@8\313 8\"E\325\326#\202 \313 8\242\327>\203#\315\313 8@\310\313 8A@ A@\"\310\313\211 88 A@\"E\325\326#\202 @\330=\2036\307 A@\f\"\204>\331 A@\332\"\204>\315\311\332\313 8\"!\211\203#\310 A@ \"\202 \307\313 8\f\"\204Z\315 A@!\211\203#\311 \313 8\"\202 A@\242\323=\203\212\307 A@A@\f\"\204\212\315\311\313 A@8\313 8\"!\211\203#\310 A@A@\"\202 A@\242\323=\203\272\307\313 A@8\f\"\204\272\315\311 A@A@\313 8\"!\211\203#\310 \313 A@8\"\202 \313 8\242\323=\203\352\307\313 8A@\f\"\204\352\315\311 A@\313\211 88\"!\211\203#\311 \313 8A@\"\202 \313 8\242\323=\203\307\313\211 88\f\"\204\315\311 A@\313 8A@\"!\211\203#\311 \313\211 88\"\202 \313 8\242\333=\203#\315\310 A@\333\322\313 8A@!D\"!\202 @\334=\203#\307 A@\f\"\204y\335\313 8\f\332#\211\203d\311 \310 A@\336\337 A@D!\"\"\206\315\333\310\313 8\336\337 A@D!\"D\325\326#\202 \307\313 8\f\"\204#\313 8\250\203\244\313 8\340W\203\244\315\330\332\341 A@\313 8[\"E\306\326#\202 \335 A@\f\332#\211\203\314\316\313 8\332\"\211\203\314\311\341 A@\"\310 A@\"\"\206\313 8\211 :\203
@\342=\206
@\343=?\205
@\344>\203
A@\211 :\203\373
@\342=\202\376
\340W)\202 \345
!\202
\340W)\203#\315\311\332\341 A@\322\313 8!\"\"\306\326#\206\335 \f\346#\211\203_\340\332 @ A \203Y\316A\311\310 @\341\f@\"\"@\"\"A A\211\2033@T@\2023A*\206 G\313U\203\225 @9\203\316 @\315N\211\203\316 \203\213 @ A@!\211\204\213 A\211\204y\203\316\336!\202\313 G\347U\203\316 @9\203\316 @\350N\211\203\316 \203\304 @ A@\313 8\"\211\204\304 A\211\204\257\203\316\336!\206\351 \f\"\203\352\352 \f\"\211\203\352 \232\204\352\315 !\206B\203^\353K\354 \fE\306\211 C D E F\355\216\353\356M\210\357E\360\332#D\353FM\210DE\232?\205Z\361D\362\"\211C\203OCG\363>\205Z\364\365CA\" G\366 G@\326\313G8\206F\367\fD\347G8%)\202Z\361D\370\"?\205ZD-\206\371\372\373 @!\"\203\364\373 @! \340\306\211 H I @ J K@T@JA\211J\203\261J@\f\232\203\242I\203\233\326H\202z@I\202z\307J@\f\"\203z\326H\202zI\205\360H?\205\360I\332U\203\307\372\202\314\374\375I\" L\371L\376PK\"\205\357\377K\340\211\224OK\340\224LG\\\306OP! AB)-\206M\340V\203\201N !\206\201O !\211 D\205\315D!)+\207" [math-t2 math-t1 math-linear-subst-tried expr math-integ-var a 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 bigneg bigpos (frac float) math-negp 20 3 math-integral-2 math-ratpoly-p calcFunc-apart calcFunc-integ calcFunc-integtry #[nil "\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 #[(x) "\303\304 8\n#\207" [x part math-integ-var math-expr-subst 2] 4] math-integrate-by-substitution calcFunc-integfailed (calcFunc-integtry calcFunc-integfailed) string-match "'" symbol-name format "'%d" "\\('['0-9]*\\|$\\)" intern n accum math-has-rules part res input math-old-integ parts bad which p name prime math-integ-level math-do-integral-methods math-expand-formula] 9])
(defalias 'math-sub-integration #[(expr &rest rest) "\203 \nW\203 @ =\203 \306\f!\2020 \307
\f# \nU\204- \310 \311\"?\205/ )\2066 \312\fD\207" [rest math-integ-level math-integral-limit math-integ-var expr math-old-integ math-integral apply math-expr-calls calcFunc-integ calcFunc-integfailed res] 4])
(defalias 'math-do-integral-methods #[(math-integ-expr) "\306\307 !\206t\310 !\206t\311 !\211\211 \2032 \f@@\312>\2032 \f@A@
\232\2032 \fA\211\204 \f)\204P \313 !\203D \314 \315\"\206t\316 \317\320
\321\"D\"\206t \211 \203n \f@@\322>\203n \f@A@
\232\203n \fA\211\204V \f)\204\214 \313 !\203\200 \314 \315\"\206t\316 \323\320
\321\"D\"\206t \306\"\f\203\274 \f@
\232\204\265 \f@@\324=\203\274 \325\f@\211#A@
\321#\211\"\203\274 \fA\211\204\225 \f?\205\303 \")\203q\"AA\203i\326\321\"8!\203\327\330\321\"8!! $\320\"A@\331\332$\"\" %\327\333\"@\334%!\"! &\316 \335\336\333\331$
\"%\"&\"D\"+\202n\327\321\"8! $\320\"A@\331\321$\"\" %\337\"@\334%!\" '\326'!\203Q\316 \340\336\333\331$
\"%\"\327\330'!!\"D\"\202e\316 \341\336\333\331$
\"%\"\327'!\"D\"+\202n\316 #\"\206t\314 !*\207" [math-integ-var-list-list rat-in math-so-far math-integ-expr p math-integ-var 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 math-t1 math-t2 c d a aa] 9])
(defalias 'math-integ-parts-easy #[(expr) "\211:?\206\f @\302>)\203 \303\207@\304>\203' \305A@!\205_ \305\3068!\207@\307=\203< \305A@!\205_ \310\3068!\207@\311=\203Q \312\3068!\205_ \305A@!\207@\313=\203^ \305A@!\207\303\207" [expr a (bigpos bigneg frac float cplx polar hms date mod var) t (+ - *) math-integ-parts-easy 2 / math-atomic-factorp ^ natnump neg] 4])
(defalias 'math-integ-try-parts #[(expr &optional math-good-parts) "\306!\211\232?\205 \307 !)\206\224 @\310=\203S \311A@\n\"\206' \3128 \232\211 \2037 \313A@\3128\"\206O \313\3128A@\"\206O \f?\205O \313A@\3128\")\206\224 @\314=\203} \315A@\n\"\203} \316\317\3128\" \313A@
\"\206y \313
A@\")\206\224 @\320=\205\224 \313\321A@\322\3128\317\"\"A@\"\207" [expr exp math-integ-var math-prev-parts-v first-bad recip calcFunc-expand math-integral * math-polynomial-p 2 math-integrate-by-parts / math-expr-contains math-div 1 ^ math-pow math-sub] 7])
(defalias 'math-integrate-by-parts #[(u vprime) "\204 \306 \n\"\203 \202 S\307\310\211 #\211\311Y\205\310 \312\216$A\313\240\210%\203_ r%q\210db\210n\203K \314& Z\315\"\316\317'\"\314 \315\"\261\210\320\321 \322\"\323\321(\322\"\324\261\210\325\311!\210)\326(!\211\205\307 \327 \n\310\307$\211\205\307
)\326\330
\f\"\331\")\211\205\307 \332\330
\"\f\"\211\205\307 $A@\313=\203\236 \333\f!\202\307 \334\335$E\310 *\336\337\332
\f\"\311
\310$!)\211\242\340=\205\300 \341\342\f8!?\205\305 \f\211),\207" [math-good-parts u math-integ-var math-integ-level temp v math-polynomial-p t nil 0 #[nil "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 math-mul yes math-sub calcFunc-expand var PARTS math-simplify-extended math-solve-for / math-zerop 2 math-doing-parts math-cur-record trace-buffer math-integral-limit math-integ-depth vprime math-prev-parts-v calc-next-why] 7])
(defalias 'math-integrate-by-substitution #[(expr u &optional user uinv uinvprime) "\306V\205 \307Z\306]\310 \n \f
%)\207" [math-integ-level expr u user uinv uinvprime 0 2 math-integrate-by-good-substitution] 6])
(defalias 'math-integrate-by-good-substitution #[(expr u &optional user uinv uinvprime) "\306\307\211 \203 \310 \f
#\202 \307 \311
\f\307$)\211\205\263 \203W r q\210db\210n\203H \312 Z\313\"\314\315 \"\312 \313\"\261\210\316\317\320\"\321\261\210\322\323!\210)\324\f\307 ?$\211\203 \325\310\211\211\326! \"
#\f #
\f#\327\"\211\204\253 \"\206\214 \324
\f ?$\211\205\263 \325\330\310\211\211!
#\f #
\f# \"\327\"\211\205\263 \331\310\f#!+\207" [temp deriv math-living-dangerously uinv math-integ-var math-integ-var-2 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 calc-next-why u trace-buffer math-integral-limit math-integ-level math-integ-depth user expr uinvprime] 8])
(defalias 'math-integ-try-linear-substitutions #[(sub-expr) "\306 \211:?\206 \n@\307>)?\205r @\310>\204^ @\311=\203( \312 8\250\204^ \313 \"\203^ \314 A\211\203Y \315 @ \"\2031 \316 @
\"\2041 @C
B\317 @\"\211\2031 \f)\206r \314 A\211\203p \320 @!\211\203` \f)\207" [math-linear-subst-tried sub-expr a math-integ-var res math-so-far t (bigpos bigneg 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 math-integ-expr] 4])
(defalias 'math-integ-try-substitutions #[(sub-expr &optional allow-rat) "\211:?\206\f @\306>)?\205\220 \307\n\"?\205\220 \310 \"\205\220 @\311>\204; @\312=\2035 \3138\250\204; \314\211\202> \f\315\203s
=\204s \316
\"\206\220 @\312=\203s \3138\250\203s \3138\317W\203s \320\321A@\3138[\"\314\"\206\220 \315 C\nBA\211\203\215 \320@\f\"\211\203{ )\207" [sub-expr a math-so-far math-integ-var allow-rat math-integ-expr (bigpos bigneg 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 res] 6])
(defalias 'math-expr-rational-in #[(expr) "\302\303 !\210\304\305\")\207" [math-expr-parts expr nil math-expr-rational-in-rec mapcar car] 3])
(defalias 'math-expr-rational-in-rec #[(expr) "\211:?\206\f @\304>)\203% \n\232\205z \305 \"?\205z C B\211\207@\306>\204: @\307=\203L \3108\250\203L \311A@!\210\3108\205z \311\3108!\207@\307=\203e \312\3108!\310=\203e \311\313A@D!\207\305 \"?\205z \314\n\"\205z C B\211\207" [expr a math-integ-var math-expr-parts (bigpos bigneg 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])
(defalias 'math-expr-calls #[(expr funcs &optional arg-contains) ":\205X @ >\204$ @\305=\2031 @\306=\2031 \307\3108!\310=\2031 \n\203/ \311\n\"\205X \207\211:?\206= @\312>)?\205X \313 A\211\203V \314@ \n#\211\203D \f)\207" [expr funcs arg-contains a res ^ calcFunc-sqrt math-quarter-integer 2 math-expr-contains (bigpos bigneg frac float cplx polar hms date mod var) nil math-expr-calls] 5])
(defalias 'math-fix-const-terms #[(expr except-vars) "\303 \"\204 \304\207\211:?\206 \n@\305>)\203 \207@\306=\2031 \307\310A@ \"\310\3118 \"\"\207@\312=\203G \313\310A@ \"\310\3118 \"\"\207\207" [expr except-vars a math-expr-depends 0 (bigpos bigneg frac float cplx polar hms date mod var) + math-add math-fix-const-terms 2 - math-sub] 6])
(defalias 'calc-dump-integral-cache #[(&optional arg) "p\305\216 \306\307\310\311!!\210\312\311!q\210\313 \210 \203N @\f\204% \314\n!\210\315\n@\316\"\317\nA@9\203= \320\321\nA@!\322Q\202C \315\nA@\316\"\323\261\210 A\211\204 eb,\207" [buf math-integral-cache math-cur-record p arg #[nil "q\207" [buf] 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"] 6 nil "P"])
(defalias 'math-try-integral #[(expr) "\306\307\310\311\211\211\312\313! \314\315\"\206G \2031 \311\211\2031 \314\315\"\206G V\205G \211\211\205G \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 expr math-any-substs math-enable-subst math-max-integral-limit] 10])
(defvar var-IntegLimit nil)
(defalias 'calcFunc-integ #[(expr var &optional low high) "\242\306=\203 \307\310A@ \n $\310\3118 \n $\"\207\242\312=\2034 \313\310A@ \n $\310\3118 \n $\"\207\242\314=\203F \315\310A@ \n $!\207\242\316=\203d \317A@ \"\204d \320A@\310\3118 \n $\"\207\242\316=\203\202 \317\3118 \"\204\202 \320\310A@ \n $\3118\"\207\242\321=\203\254 \317A@ \"\204\254 \322A@\323\"\204\254 \320A@\310\324\323\3118\" \n $\"\207\242\321=\203\312 \317\3118 \"\204\312 \324\310A@ \n $\3118\"\207\242\321=\203\374 A@\242\316=\203\374 \317A@A@ \"\204\374 \320A@A@\310\324\311A@8\3118\" \n $\"\207\242\321=\203.A@\242\316=\203.\317\311A@8 \"\204.\320\311A@8\310\324A@A@\3118\" \n $\"\207\242\321=\203`\3118\242\316=\203`\317\3118A@ \"\204`\324\310\324A@\311\21188\" \n $\3118A@\"\207\242\321=\203\222\3118\242\316=\203\222\317\311\21188 \"\204\222\324\310\324A@\3118A@\" \n $\311\21188\"\207\242\325=\203\241\325\326\327A\"B\207\f
\330\331!\330\332!F\211 45\232\204\27245\3336)\3347!\203\3077\206\310\335 8\323 9\336 :# ;\337\340! <=\341=?\205\344= =\342 >\333\211 ? @\333\211 A B<\2035p\343 C D\344\216\345<!\203\346\345<!!\210<q\210db\210\347\350 \236\204&\351\352!\210\335*\353c\210Dq\210\354;!+\2029\354;!\211 E\203\211\355\356!\203L\357E\360\"E\361\n\203h \203h\313\336E: #\336E:\n#\"\202\205\362EF\"E\n\203~\336E:\n#\202\205\336E: #!\202\233\363\310 E\n\205\224\nC \205\232 C#. \207" [expr var low high calc-angle-mode calc-internal-prec + math-add calcFunc-integ 2 - math-sub neg math-neg * math-expr-contains math-mul / math-equal-int 1 math-div vec mapcar #[(x) "\304 \n $\207" [x var low high calcFunc-integ] 5] calc-var-value var-IntegRules var-IntegSimpRules nil natnump 3 math-expr-subst get-buffer "*Trace*" big t selected-window #[nil "\302!\210 q\207" [calcwin calcbuf 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 state math-integral-cache-state math-integral-cache var-IntegLimit math-max-integral-limit math-integral-limit math-integ-var sexpr trace-buffer calc-language math-any-substs math-enable-subst math-prev-parts-v math-doing-parts math-good-parts calcwin calcbuf res math-integ-vars] 8])
(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 #[#1=(u) "\301\302\303\"!\207" [u math-integral math-div 1] 4] calcFunc-conj #[#1# "\302!\211\205 \303 D)\207" [u int math-integral calcFunc-conj] 3] calcFunc-deg #[#1# "\302!\211\205 \303 D)\207" [u int math-integral calcFunc-deg] 3] calcFunc-rad #[#1# "\302!\211\205 \303 D)\207" [u int math-integral calcFunc-rad] 3] calcFunc-re #[#1# "\302!\211\205 \303 D)\207" [u int math-integral calcFunc-re] 3] calcFunc-im #[#1# "\302!\211\205 \303 D)\207" [u int math-integral calcFunc-im] 3] calcFunc-sqrt #[#1# " \232\205 \302\303\304\305\306\"D\"\207" [u math-integ-var math-mul (frac 2 3) calcFunc-sqrt math-pow 3] 6] calcFunc-exp #[#1# " \232\203\f \304D\206Z \305 \306#\306\n8\205Y \307\310\306\n8!!\311\312\211\311\313\314D \"\315\304\311\316\312\n@\306\n8\"\311\317\nA@!\320\"\"\306\n8\"D!\"\321\316\312 \"\311\nA@\312\306 \"\"\"D\"\306\"))\207" [u math-integ-var p sqa 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] 12] calcFunc-ln #[#1# " \232\203 \302\303\304D\"\"\206U @\305=\203* \306\307\304A@D\304\3108D\"!\206U @\311=\203B \306\302\304A@D\304\3108D\"!\206U @\312=\205U \306\303\3108\304A@D\"!\207" [u math-integ-var math-sub math-mul calcFunc-ln * math-integral math-add 2 / ^] 6] calcFunc-log10 #[#1# " \232\205 \302\303\304D\"\305\304\306D\"\"\207" [u math-integ-var math-sub math-mul calcFunc-ln math-div 10] 6] calcFunc-log math-integral-2 #[#2=(u v) "\302\303\304D\304 D\"!\207" [u v math-integral math-div calcFunc-ln] 5] calcFunc-sin #[#1# " \232\203 \302\303\304D!!\206! \305\306 \305#8\205! \307\310\311D!!\207" [u math-integ-var math-neg math-from-radians-2 calcFunc-cos 2 math-is-polynomial math-integral math-to-exponentials calcFunc-sin] 5] calcFunc-cos #[#1# " \232\203 \302\303D!\206 \304\305 \304#8\205 \306\307\310D!!\207" [u math-integ-var math-from-radians-2 calcFunc-sin 2 math-is-polynomial math-integral math-to-exponentials calcFunc-cos] 5] calcFunc-tan #[#1# " \232\205
\302\303\304DD!\207" [u math-integ-var math-from-radians-2 calcFunc-ln calcFunc-sec] 4] calcFunc-sec #[#1# " \232\205 \302\303\304\305D\306D\"D!\207" [u math-integ-var math-from-radians-2 calcFunc-ln math-add calcFunc-sec calcFunc-tan] 6] calcFunc-csc #[#1# " \232\205 \302\303\304\305D\306D\"D!\207" [u math-integ-var math-from-radians-2 calcFunc-ln math-sub calcFunc-csc calcFunc-cot] 6] calcFunc-cot #[#1# " \232\205
\302\303\304DD!\207" [u math-integ-var math-from-radians-2 calcFunc-ln calcFunc-sin] 4] calcFunc-arcsin #[#1# " \232\205 \302\303\304D\"\305\306\307\310\311!\"D!\"\207" [u math-integ-var math-add math-mul calcFunc-arcsin math-from-radians-2 calcFunc-sqrt math-sub 1 math-sqr] 8] calcFunc-arccos #[#1# " \232\205 \302\303\304D\"\305\306\302\307\310!\"D!\"\207" [u math-integ-var math-sub math-mul calcFunc-arccos math-from-radians-2 calcFunc-sqrt 1 math-sqr] 8] calcFunc-arctan #[#1# " \232\205 \302\303\304D\"\305\306\307\310\311\312!\"D\313\"!\"\207" [u math-integ-var math-sub math-mul calcFunc-arctan math-from-radians-2 math-div calcFunc-ln math-add 1 math-sqr 2] 9] calcFunc-sinh #[#1# " \232\205 \302D\207" [u math-integ-var calcFunc-cosh] 2] calcFunc-cosh #[#1# " \232\205 \302D\207" [u math-integ-var calcFunc-sinh] 2] calcFunc-tanh #[#1# " \232\205 \302\303DD\207" [u math-integ-var calcFunc-ln calcFunc-cosh] 3] calcFunc-sech #[#1# " \232\205 \302\303DD\207" [u math-integ-var calcFunc-arctan calcFunc-sinh] 3] calcFunc-csch #[#1# " \232\205 \302\303\304\305\"DD\207" [u math-integ-var calcFunc-ln calcFunc-tanh math-div 2] 5] calcFunc-coth #[#1# " \232\205 \302\303DD\207" [u math-integ-var calcFunc-ln calcFunc-sinh] 3] calcFunc-arcsinh #[#1# " \232\205 \302\303\304D\"\305\306\307!\310\"D\"\207" [u math-integ-var math-sub math-mul calcFunc-arcsinh calcFunc-sqrt math-add math-sqr 1] 6] calcFunc-arccosh #[#1# " \232\205 \302\303\304D\"\305\302\306\307!\"D\"\207" [u math-integ-var math-sub math-mul calcFunc-arccosh calcFunc-sqrt 1 math-sqr] 7] calcFunc-arctanh #[#1# " \232\205 \302\303\304D\"\305\306\307\310\311!\"D\312\"\"\207" [u math-integ-var math-sub math-mul calcFunc-arctan math-div calcFunc-ln math-add 1 math-sqr 2] 8] / #[#2# "\302 \"\207" [u v math-integral-rational-funcs] 3]] 5)
(defalias 'math-integral-rational-funcs #[(u v) "\306 \307#\307\310\211 \205e \3112e
\242\312=\203) \313\314
8!\203) \314
8
A@\306
\314#\211\205d \315\f@\316\n@\nA@\314\n8
%\" \fA\203a \317\315\fA@\320\n@\nA@\314\n8
%\"\")0+\207" [u math-integ-var pv vpow pu v math-is-polynomial 1 nil int-rat ^ natnump 2 math-mul-thru math-integral-q02 math-add math-integral-q12 int] 11])
(defalias 'math-integral-q12 #[(a b c v vpow) "\306 \204k \n\307U\203! \310\311 \f\"\312\311
\313\f!\"\314 D\"\"\202 \n\315U\203: \311\316\314 D\311
\"\"\313\f!\"\202 \310\n\307\"\310\n\315\" \311\310\311
\312 \317 \"\"\"\311\307\312 \317 \"\"\"\"\313\f!\"*\202 \320\310\312\321\312
\"\"\313\f!\"\211!\203\237 \311\f\312\315 \"\" \322\317 \n\"\323 \307\306\316 \"\n\315_%\")\202 \n\307U\203\344 \324!\203\304 \325!\203\304 \326 \324\327\330!!!)\203\304 \331\332\306\"\210\310\311\314 D\312\315 \"\"\322\311\f\312\315 \"\"\333
\f \307%\"\"\202 \nS !\310\330\311\316\312\f \"\312\315
\"\"\312!\312\317 !\"\"\"\"!\322\311\312\f!\315_S\"\312!\"\"\333
\f !%\"\"))\207" [q c vpow math-integ-var b a 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 math-ratp math-negp t math-sqrt math-neg throw int-rat math-integral-q02 v nm2 nm1 part calc-symbolic-mode n] 11])
(defalias 'math-integral-q02 #[(a b c v vpow) "\306\211\211 \204, \f\307U\203 \310\311
D\"\202\326 \310\312
\307\fZ\"\313\307\fZ\"\"\202\326 \314\315\313\316\313 \"\"\317!\"\211!\203a \310\313\320 \"\"\321\312 \f\"\322\307\306\323 \"\f\320_%\")\202\326 \323\313\320\313 \"\"\"\f\307V\203\251 \fS \323\310\313 \313\n\312
\"\"\"\"\321\310\313 \316_\320Z \"\313 \n\"\"\322
%\"\")\202\326 \324\n!\203\304 \325\326\n!D\310\313\327\330\310 \"D\" \"\202\326 \325\nD\310\313\320\331\332\310 \"D!\" \"+\207" [part rq q c vpow v 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 b a math-integ-var n] 10])
(byte-code "\300\301\302\301\302N\303C\244#\210\300\304\302\304\302N\305C\244#\207" [put calcFunc-erf math-integral #[#1=(u) " \232\205 \302\303\304D\"\305\306\303\307\310!D\311\312D\"\"\"\207" [u math-integ-var math-add math-mul calcFunc-erf math-div 1 calcFunc-exp math-sqr calcFunc-sqrt (var pi var-pi)] 8] calcFunc-erfc #[#1# " \232\205 \302\303\304D\"\305\306\303\307\310!D\311\312D\"\"\"\207" [u math-integ-var math-sub math-mul calcFunc-erfc math-div 1 calcFunc-exp math-sqr calcFunc-sqrt (var pi var-pi)] 8]] 5)
(defvar math-tabulate-initial nil)
(defvar math-tabulate-function nil)
(defalias 'calcFunc-table #[(expr math-var &optional calc-low calc-high step) "\204 \306\307 \204 \310\311!\204 \311 !\203$ \n\204$ \312 !\210\n\2033 \313\n!\2033 \314\n\315\"\210\316\211 :?\206@ \f@\317>)\203H \310\202I \320 \211 :?\206U \f@\317>)\203] \310\202^ \320\n\203r \n\211 :?\206n \f@\317>)\203v \310\202w \320#\321\322 /\211 0\323U\204\314 \324\232\204\314 \325\326 \"\n\206\225 \310\"\211/\211 :?\206\244 \f@\317>)\204\256 \327/!//\211 :\205\302 \f@\330=\205\302 \323\f8\320Y)\203\314 \331/!//\211 :\203\f@\332=\206\n\f@\333=?\205\n\f@\334>\203\fA@\211 :\203\372 \f@\332=\202\375 \f\320W)\202\n\335\f!\202\n\f\320W)\203\336//\250\203\206\3221/T\320 2 3 4\337\340 5\341#!/\320Y\203u2T246\342=\203M\343
\337 !\"\202b6\344=\203]\345
\337 !\"\202b\337 !
B\343\n\206j\310\"/S\211/\20206\203~
\202\202\305
\237B,\202/\211 :?\206\223\f@\346>)\203\237\347\350 \"\210\202\362\211 :?\206\272\f@\351>\206\272\f@\330=\205\272\323\f8\320Y)\203\355 \211 :?\206\331\f@\351>\206\331\f@\330=\205\331\323\f8\320Y)\203\345\347\352\n\"\210\202\362\347\352 \"\210\202\362\347\352\"\210\3536\206\371\354 5E\355\232\205 \356\232?\205
D\n\205\nC#+\207" [calc-low calc-high step expr a vec (neg (var inf var-inf)) (var inf var-inf) 1 math-infinitep math-scan-for-limits math-zerop math-reject-arg nonzerop + (bigpos bigneg frac float cplx polar hms date sdev intv mod) 0 (var inf var-inf) nil 2 (var inf var-inf) math-div math-sub math-simplify float math-trunc bigneg bigpos (frac float) math-negp -1 math-evaluate-expr math-expr-subst (var DUMMY var-DUMMY) calcFunc-sum math-add calcFunc-prod math-mul (bigpos bigneg) calc-record-why fixnump (bigpos bigneg) integerp append calcFunc-table (neg (var inf var-inf)) (var inf var-inf) count known math-tabulate-initial math-working-step math-working-step-2 var-DUMMY math-var math-tabulate-function] 6])
(defalias 'math-scan-for-limits #[(x) "\211:?\206\f @\306>)\206\232 @\307=\203\213 A@\211:\205$ @\310=)\203\213 \311\3128\n\"\203\213 \313\314\3128\315\n\313$ \314\3128A@GS\n\313$ \313 \f\203^ \316\f!\203^
\203^ \316
!\210
\f \317 \"\320U*\203v \f
\321\322\f!\"\323\324
!\"\211,\207A\211\205\232 \325@!\210\202\213 \207" [x a math-var calc-next-why low-val high-val (bigpos bigneg frac float cplx polar hms date mod var) calcFunc-subscr vec math-expr-contains 2 nil math-solve-for 1 math-realp math-compare -1 math-max math-ceiling math-min math-floor math-scan-for-limits temp b calc-low calc-high] 6])
(defvar math-disable-sums nil)
(defalias 'calcFunc-sum #[(expr var &optional low high step) "\203 \306 \210 \307\\\310\n \f
%) \f\311\312\f!*\207" [math-disable-sums calc-internal-prec expr var low high math-reject-arg 2 math-sum-rec t math-normalize step res] 6])
(defalias 'math-sum-rec #[(expr var &optional low high step) "\204 \306\307\203 \204 \310\311\211\211 \312
9\"\2047 \313
\314\315\316 \":\2060 \310\"\310\"\"\202\354:\203\251 \317:\310\"\204\251 \320:!\203Y \321
9 \322:!%\202\354\323\315:\"! ;\324;!\203\206 \321\325\326
9\313:9\"#!9;\323\315 :\"!$\202\245 \321\325\326
9\314\313:9\"\"#!9\327\323\315\316 \":\"!$)\202\354\330 \"\211\331>\203\307 \f\327=\203\303 \326
9#\202\354\327\202\354\332
9\333#\211\203\311\327 < =\f\203\365 \334=\310\335<!\f@$=<T<\fA\211\204\334 \336= \"<\310U\203<\202\316<\336=\316\310\"\"\"*\202\354
@\337>\203L\321
A@9 $\321\340
89 $\211\203L\341\f\342\"\203D\341 \343\"\204L
@\f E\202\354
@\344=\203l\345
9\"\211\203l\313\f@\321\fA9 $\"\202\354
@\344=\203\242
A@\242\346>\203\242\321\347\313
A@A@\340
8\"\313\340
A@8\340
8\"\311
A@@\350=$9 $\202\354
@\344=\203\330\340
8\242\351>\203\330\321\347\313
A@\340
8A@\"\313
A@\340\211
88\"\311\340
8@\350=$9 $\202\354
@\352=\203\353
A@!\204\345
A@9\"\211\203\313\f@\321\315\fA\340
8\"9 $\"\202\354
@\352=\203.\345\340
89\"\211\203.\315\321\315
A@\fA\"9 $\f@\"\202\354
@\354=\203C\322\321
A@9 $!\202\354
@\355=\203\216\312
A@9\"\204\216\332\340
89\310#\211\203\216\356
A@\fA@\" >\315\313\316\356>\314\310 \"\"\356>\"\"\356
A@\f@\"\"\316>\310\"\")\202\354\357
!\211\203\257\321\f9 $\211\203\257\341\f\360\"\204\257\361\f!\202\354
@\362>\203\305
@\363
A@9 $D\202\354
@\364=\205\354
G\365U\205\354\312\340
89\"?\205\354\364\363
A@9 $\340
8E\211\366\232\203\365\311\n\206\327 ?\367 @\370
9 $*+\207" [low high val t2 t1 expr (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 var step lo n poly x math-tabulate-initial math-tabulate-function] 10])
(defalias 'calcFunc-asum #[(expr var low &optional high step no-mul-flag) "\204 \306\n\203k \307\n\306\"\204k \310\n!\203+ \311\312\313 \"\314 \f \315\n!\316&\"\207\317\320 \n\"! \321
!\203O \314\322\323 \f\311\n\f\"#!\f
\317\320\n\"!$\202i \314\322\323 \f\324\311\n\f\" \"#!\f\325\317\320\326 \"\n\"!$)\207\311\203u \306\202y \312\313 \"\327\311\312\313\f\" \"\f $\"\207" [high low step expr var lo 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 no-mul-flag] 9])
(defalias 'math-sum-const-factors #[(expr var) "\306\211 \242\307=\203- \310 A@\f\"\203 A@\nB\202% A@ B\311 8\211\202 \310 \f\"\203; \nB\202? B \205r @ A\211\203V \307 @
E\202F
)\n@\206^ \312 \nA\211\203o \307\n@
E\202_
)B+\207" [expr p not-const const var temp nil * math-expr-contains 2 1] 5])
(defvar math-sum-int-pow-cache (list '(0 1)))
(defalias 'math-sum-integer-power #[(pow) "\306G X\203f \307\211D\211 S8A \310 \307 \311 \203M \312@\"\313 \"\fB\314\"TA\211\204&
\315\316\313 \"\"\240\210\f\237C\244 T.\202 8*\207" [math-sum-int-pow-cache n calc-prefer-frac pow new lin t 0 2 nil math-div math-mul math-add math-sub 1 pp p sum q] 7])
(defalias 'math-to-exponentials #[(expr) ":\205\304 G\306U\205\304 A@ \203 \307\202 \310 \203! \311\202\" \312 @\313=\2033 \314\315\fE\202\303 @\316=\203c
\317=\204H \320\321\f E\322E\320\323\314\324\321\f\nEE\314\325\326\321\f\nEDEE\321\306\nEE\202\303 @\327=\203\220
\317=\204x \320\321\f E\322E\320\330\314\331\321\f\nEE\314\332\326\321\f\nEDEE\306E\202\303 @\333=\203\251 \320\323\314\334\fE\314\335\326\fDEE\306E\202\303 @\336=\203\302 \320\330\314\337\fE\314\340\326\fDEE\306E\202\303 \341+\207" [expr calc-symbolic-mode i pi x 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] 9])
(defalias 'math-to-exps #[(expr) "\203 \207 \211:?\206 \n@\303>)\203! \304\232\203 \305 \207 \207 @\306=\2036 A@\307\232\2036 \310\311 8D\207 @\312\313 A\"B\207" [calc-symbolic-mode expr a (bigpos bigneg 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])
(defvar math-disable-prods nil)
(defalias 'calcFunc-prod #[(expr var &optional low high step) "\203 \306 \210 \307\\\310\n \f
%) \f\311\312\f!*\207" [math-disable-prods calc-internal-prec expr var low high math-reject-arg 2 math-prod-rec t math-normalize step res] 6])
(defalias 'math-prod-rec #[(expr var &optional low high step) "\204 \306\307\203 \204 \310\311\211\211\211 \31278\"\2049 \3137\314\315\316 \"9\2062 \317\"\317\"\"\202#9\203\256 \3209\317\"\204\256 \3219!\203\\ \32278 \3239!%\202#\324\3159\"! :\325:!\203\212 \322\326\32778\33098\"#!8:\324\315 9\"!$\202\252 \322\326\32778\314\33098\"\"#!8\331\324\315\316 \"9\"!$)\202#7@\332>\203\347 \3227A@8 $\322\333788 $\211\203\347 \334
\335\"\203\336 \334\f\336\"\204\347 7@
\fE\202#7@\337=\203
\312\333788\"\204
\313\3227A@8 $\33378\"\202#7@\337=\2033\3127A@8\"\2043\3137A@\340\333788 $\"\202#7@\341=\203M\326\342\3437A@8 \257D!\202#7@\344=\203n\330\313\345\314\316 \"\317\"\"\3227A@8 $\"\202#7@\346=\203\205\346\3407A@8 $D\202#\34778\317#\211\205#\320
A@\317\"\203\256\324\314
@\"!\324\314
@\"!\211\204\315\320
A@\345\"\203)\324\316
@ \"!\324\316
@\f\"!\211\203)\350!\204\331\350 !\203\335\331\202 \321!\204\351\321 !\203\351!\204\365\351 !\203\352 !\203\377\331\202 \330\313\345\314\211 \"\317\"\"\353\354\323!D\354\316\345 \"DE\"\202 \353\354 D\354\316\317\"DE\202 \320
A@\333\"\203L\324\314\330\333\"
@\"!\324\314\330 \333\"
@\"!\211\204o\320
A@\355\"\205 \324\316
@\330 \333\"\"!\324\316
@\330\333\"\"!\211\205 \356\f!\204\227\357\f!\203\203\360\f!\211\204\227\356 !\204\227\357 !\205 \360 !\211\205 \350\f!\204\243\350 !\203\247\331\202 \361\f!\204\263\361 !\203\347\321\f!\204\277\321 !\203\331\352 !\203\311\331\202 \353\362\323\f!D\362\316\355 \"DE\202 \353\362 D\362\316\f\333\"DE\202 \321 !\203\f\363\337\345\353\364\211\f E\333E\333EE\353\362\323\f!D\362\316\355 \"DEE\202 \352\f!\205 \353\362 D\362\316\f\333\"DE\211\205#\f\211\365\232\203,\311\n\206?\317 ;\343 <\36678 $*,\207" [low high val t3 t2 t1 (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 expr var step lo math-tabulate-initial math-tabulate-function] 10])
(defvar math-solve-ranges nil)
(defalias 'math-try-solve-for #[(math-solve-lhs math-solve-rhs &optional math-try-solve-sign no-poly) "\306\211\211 \f\232\203n
@A\307=\203i \310\311B!D\306\211\211 C D E F\203a F@\211C@D\310CECA\211C\203T E\312DC@#A\244E\2029 EFA\211F\204, \313!,\202\337B\202\337 \211 G:?\206| G@\314>)\203\204 \306\202\337 @\315=\203 A@\242\316 8\242=\203B\211 G:\203\301 G@\317>?\205\305 G@\320=\203\272 GA@\321=\202\305 \322G!\202\305 G\321=)\203 A@G\316U\203\316 8G\316U\203 A@@\323N\211\203\n\324!\211\203\325 \326\"\327=\203\330 !\211\203\331\332 A@A@\312 \316 8A@#\"\321\"\211\203\n\202\337 @\333=\2034\331 A@\334B!
\2050
[#\202\337A\335=\204@\336 \206\337H\204\346\337 \f\340B$\211\203\346 A@AF F\nG\341U\203j\342\343 @\n#\202\276\nG\344U\203z\342\345 @\n#\202\276\nG\346U\203\212\342\347 @\n#\202\276\nG\316U\203\233\342\350 @
\n$\202\276A\203\250\351 @\n\"\202\276I\203\261\306\202\276\331 @\352\353\n!\321\335#\306\335$)\211\203\336\316 8\327=\203\320\n\202\337\354\n\331\316 8\321\306\335$\"\202\337\355\356!\210\306\202\337\357 \306\"\203&\325 \n\"\327=\203&\331\360\332\204\361 !\203\n\362\n \"\202\334\362\n \"!\363\332\313\312 \n\321#!B\" \f#\"!\321\"\202\337 @\364=\203`\365 A@\f\"\204F\331\316 8\332B A@\"
#\202\337\365\316 8\f\"?\205\337\331 A@\332B\316 8\"
#\202\337 @\366=\203y\331\332 A@\316 8\"B
H$\202\337 @\315=\203\367 A@\242\367=\203\222\316 8\242\370=\204\244 A@\242\370=\203\277\316 8\242\367=\203\277\331\332 A@ A@@\332\371\335!\316 8A@\"D\"B\"\202\337\365 A@\f\"\204\335\331\316 8\332 A@B\"
\205\331
[#\202\337\365\316 8\f\"?\205\337\331 A@\372B\316 8\"
#\202\337A\335=\203\336 \206\337 @\373=\203$\365\316 8\f\"\204$\331 A@\372B\374\316 8!\"\"\202\337 @\375=\203_\365\316 8\f\"\204C\331 A@\362\316 8B\"\"\202\337\365 A@\f\"?\205\337\331\316 8\362 A@\376\327B\"\"\"\202\337 G\316U\203\245 @9\203\245 @\323N\211\203\245\nB!\211\203\245 @\377N\331 A@\313 !
\205\241\n\205\241\n\250\203\235\n
_\202\241\n
\"#\202\337 @9\203\304 @\201J N\211\203\304\n B\"\211\203\304 \202\337\201K !\211\203\327\331\nB
#\202\337\355\201L \"\210\306+\207" [math-t3 math-t2 math-t1 math-solve-lhs math-solve-var math-try-solve-sign nil all vec math-evaluate-expr math-expr-subst math-normalize (bigpos bigneg frac float cplx polar hms date mod var) - 2 (bigpos bigneg) 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-solve-sign math-solve-full math-solve-rhs p var newvec math-solve-ranges a no-poly calc-symbolic-mode math-inverse-n math-expand-formula "*No inverse known"] 12])
(defalias 'math-try-solve-prod #[nil "@\306=\203z \307A@ \"\204\" \310\3118\312\nA@\"\313 A@\"#\207\307\3118 \"\204= \310A@\312\n\3118\"\313 \3118\"#\207\n\211 :\203a \f@\314>?\205d \f@\315=\203[ \fA@\316=\202d \317\f!\202d \f\316=)\205Q\320
\310\3118\316\")\310A@\316\"\"\207@\321=\203\316 \307A@ \"\204\234 \310\3118\312A@\n\"\313 A@\"#\207\307\3118 \"\204\267 \310A@\322\n\3118\"\313 \3118\"#\207\310\323A@\322\3118\n\"\"\316\"\2110\205Q0\207@\324=\203P\307A@ \"\204 \310\3118\325\326\327\nA@E!\312\322\311\322\330\331\332!\"\"\326\333A@D!\"\"\"\207\307\3118 \"?\205Q\3118\250\203u\3118\311Y\203u\334\3118!\2110\203u\n12\335=\203S\336A@!\203S0S\2110\316Y\203J\3371D1\2026\3401!1\202k0S\2110\316Y\203k\340\326\3371D!!1\202S\310A@\3261!\"\207\341\3118!\203\216\310\324A@\342\3118!E\312\343\n\"\"\2072\335=\203\341\3118\211 :?\206\243\f@\344>)\203\341\336A@!\203\341\326\345\n\3118E!0\346\3118!\203\307\3400!0\310A@0 \205\337\347\3118!\205\337\313 \3118\"#\207\310A@\322\326\350\3118\211 :?\206\366\f@\351>)\203\312\322\352\331\353\3118\250\205 \354\3118!\"\"\312\3118\311\"\"\2021\312\322\311\322\355\331\356\3118\250\205*\354\3118!\"\"\"\3118\"D!\326\345\n\3118E!\" \205N\347\3118!\205N\313 \3118\"#\207\357\207" [math-solve-lhs math-solve-var math-solve-rhs math-try-solve-sign a math-solve-ranges * math-expr-contains math-try-solve-for 2 math-div math-solve-sign (bigpos bigneg) 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 (bigpos bigneg) calcFunc-nroot math-evenp math-oddp calcFunc-exp (bigpos bigneg frac float) (var pi var-pi) (var i var-i) math-abs (var pi var-pi) (var i var-i) nil math-t1 math-t2 math-solve-full] 16])
(defalias 'math-solve-prod #[(lsoln rsoln) "\204 \207 \204\f \207\n\303=\203 \304\305A A\"B\207\n\203* \306\307\310\311!\312E F\207\207" [lsoln rsoln math-solve-full all vec append calcFunc-if calcFunc-gt math-solve-get-sign 1 0] 4])
(defalias 'math-solve-poly-funny-powers #[(sub-rhs) "\n\306\211 \203' \307\f@
\206 \310\"\311 \"\311 \"\fA\211\204\n *\2033 \312 \"\306\311
\206; \310\313 \314\310\")\"\315\316\317 !!\320#\211)\207" [math-solve-lhs math-t1 math-poly-neg-powers fac pp math-poly-mult-powers nil math-pow 1 math-mul math-sub t math-div math-is-polynomial math-simplify calcFunc-expand 50 math-solve-rhs sub-rhs calc-prefer-frac math-poly-frac-powers math-t2 math-solve-b] 6])
(defalias 'math-solve-crunch-poly #[(max-degree) "\306 \203; @\211:\203+ \n@\307>?\205. \n@\310=\203% \nA@\306=\202. \311\n!\202. \n\306=)\203; AT\202 \205\353 GS\211\211 \312V\203\327
@\312U\203\327 \f\246\306U\203\320 \306\313\314 \203\302 \203\302 \f\246\306U\203\205 @C\244\202\265 @\211:\203\253 \n@\307>?\205\256 \n@\310=\203\245 \nA@\306=\202\256 \311\n!\202\256 \n\306=)\204\265 \313AT\202f \203\317 \f
AB,\fS\211\202F \315
@\"\315\"D GSX*)\207" [count math-t1 a degree scale math-t3 0 (bigpos bigneg) float math-zerop 1 nil t math-mul okay new-t1 n p math-t2 max-degree] 5])
(defalias 'calcFunc-poly #[(expr var &optional degree) "\203 \304!\204 \305\306\"\210\202 \307\310 \n\311$\211\2030 \312\232\203* \313C\2024 \313 B\2024 \305 \314\")\207" [degree expr var p natnump math-reject-arg fixnatnump 50 math-is-polynomial gen (0) vec "Expected a polynomial"] 6])
(defalias 'calcFunc-gpoly #[(expr var &optional degree) "\203 \305!\204 \306\307\"\210\202 \310 \311 \312$\211 \203' \313\fB\202+ \306 \314\"*\207" [degree var math-poly-base-variable expr d natnump math-reject-arg fixnatnump 50 math-decompose-poly nil vec "Expected a polynomial"] 6])
(defalias 'math-decompose-poly #[(math-solve-lhs math-solve-var degree sub-rhs) "\206 \306\307\211\211 \310
\311\"\211\2054 \312\n @\"\313 B\203* \312\n A@\"\2023 \314\312\n A@\"\f\"E,\207" [sub-rhs math-t3 math-t2 math-t1 math-solve-rhs math-solve-lhs 1 nil math-polynomial-base #[(math-solve-b) "\306\307\310\311\f
\232?\205q \f\242\312>\203 \205q \313\310\314
\f\315#\211\205q \316\232\203T \n\317>\203T \310=\203T \203T \320@\"AB\211\202X \321!\205q \322!\205q \323\f\"\206q \323@\",\207" [math-poly-exp-base math-poly-frac-powers math-poly-mult-powers math-poly-neg-powers math-solve-b math-solve-lhs (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 sub-rhs math-t3 math-t2 math-t1 math-solve-rhs degree math-solve-var] 4] math-pow vec math-div] 7])
(defalias 'math-solve-linear #[(var sign b a) "\304\305\306 !\n\"\307 \n\"\310$\207" [var b a sign math-try-solve-for math-div math-neg math-solve-sign t] 6])
(defalias 'math-solve-quadratic #[(var c b a) "\305\306 !\203* \307 \310\"\307\311\312\n!\313\314\315\311\316\n!\317\312 !\f\"\"D!!\"\f\")\202I \307\311\312 !\313\314\315\311\316 !\317\320\317\312 !\f\"\"\"D!!\"\317\310\f\"\"\321\322$\207" [var b halfb c a 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] 15])
(defalias 'math-solve-cubic #[(var d c b a) "\306 \"\306 \" \306
\" \307\n! !\310\f\306!\311\"\" \"\312 \306\310\313\314\313!\n\"\"\313\315\313\n\f\"\"\"\316\"\" #\317 $\"\211:\203a @\320>?\205d @\321=\203[ A@\322=\202d \323 !\202d \322=)\203~ \324\325\312%\306\n\311\"\"\311\"\326#!\317\327$\202#\211:\203\243 @\320>?\205\246 @\321=\203\235 A@\322=\202\246 \323 !\202\246 \322=)\203\312 \324\313\312%\306\n\311\"\"\312\307\312%\306\n\311\"\"!\"\"\"\322\317\327$\202\313\314\330\306\"\331\"D\"$\324%\310\332\313$\333\306\310\334\306\313\311#\"\313\"$\"\"D\313\314\313\312\335\336\335\311\"\"\337&!\"\"\"\311\"D\"!\306\n\311\"\"\317\327$.\207" [b a p c q d math-div math-sqr math-sub 3 math-add math-mul 2 9 27 nil (bigpos bigneg) 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 r psqr aa bb m var calc-symbolic-mode] 19])
(defalias 'math-solve-quartic #[(var d c b a aa) "\306 \"\306\n \"\306 \"\306\f \"\307
\310! \306 \311\" \312\211 \313 \314\211\315\311\315\n\f\"\"\315 \f\"\"\310 !\"\314\315 \"\315\311\f\"\"\316\n!\317%* !\320\314 \n\"!\" \"\321\"D #\322\317! $\321\320\314\315\323 \"\315\324\n\"\"\"\211:\203\230 @\325>?\205\233 @\326=\203\222 A@\327=\202\233 \330!\202\233 \327=)\203\265 \315\324\315$\321\314\310!!\315\311\f\"\"D\"\"\202\330 \314\315$\306\314\211\315\311\315\n\"\"\315\331 \"\"\315 \"\"\315\311#\"\"\"\"\"\"D %\332\314\320\315$\306#\324\"\"\322\306%\324\"!\"\306\311\"\"!.\312\333$\207" [a aa b c d 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 (bigpos bigneg) float 0 math-zerop 8 math-normalize t asqr asqr4 calc-next-why math-solve-full math-solve-var y rsqr r sign1 de] 17])
(defvar math-symbolic-solve nil)
(defvar math-int-coefs nil)
(defalias 'math-poly-all-roots #[(var p &optional math-factoring) "\30622\307 GS \310 ! \307\211 / 0\307\211 1 2\307 3 \211 4\203C 4@\211 5:?\2066 5@\311>)\203C 4A\2114\204& 4\203Y 6\204Q \203\202 \312\306\307\"\210\202\202
@\313\314\315 \" 7 8 9\316\31779\"!0\320\3210\"3\320\322
B9\"A/+\f\323V\203N\307\211 \324
! : 4 84\203\277 4@\211 5:?\206\252 5@\325>)\203\267 4A\2114\202\227 \312\306\307\"\210\202\225 \f \203\310 \326\202\311 \323V\203H\327:\330\307# ;\307\211 < =\307 4;\242\331=\203\371 \332\326;8;A@\"\203\371 \333;!;6\204;\nB\334;!\204\335;!;:4:@<4A\2114\203<4@=4<\240\210\336\317;<\"=\"<\202:A:\fS,\202\277 \310:!,\f\337V\203\221\340\307\211\341 > ? @ A G/GU\203n\310/!\342\314\f\326U\203z\343\202\205\f\344U\203\204\345\202\205\346A #A\n\",\202\243\f\347V\203\243\320\350 @! A@\"\nB6\203\303\n\203\270\351\n@!\210\nA\211\204\2542/\2370E\202/\307\211 B \n\203\n@>\205\325\341 > C\352C!\203\350\327
C\313#C\342\353DC\307\313$\206\372\312\306\307\"A\"*\nA\211\204\315\322\237B \203\354!>\313=\203,\355\356\337
GS\337#E\202.*.\n0\207" [calc-symbolic-mode math-symbolic-solve roots p deg orig-p ouch nil reverse (bigpos bigneg frac) throw t apply math-lcm-denoms math-abs math-mul math-div (float 5 -2) vec 4 copy-sequence (bigpos bigneg frac float cplx polar) 2 math-poly-any-root (float 0 0) cplx math-nearly-zerop calcFunc-re math-numberp 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-coefs math-int-scale math-double-roots math-int-factors math-int-threshold pp a math-factoring scale calc-prefer-frac lead def-p x b c math-solve-full math-solve-ranges math-solve-sign math-solve-var res root var] 8])
(defalias 'math-lcm-denoms #[(&rest fracs) "\302 \203 @\242\303=\203 \304\305 @8\" A\211\204 )\207" [den fracs 1 frac calcFunc-lcm 2] 5])
(defalias 'math-poly-any-root #[(p x polish) "\306!\203 \307 \310\311#\202 \307 \311#\306\nA!\203 \n@\202D \312\nA\313\"\2033 \2043 \307 \n@\314#\306\nA!\203? \n@\202D \315 #
\203T \316\f!\203T \317\320\321\"\210\f*\207" [x p newt polish res 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] 4])
(defalias 'math-poly-newton-root #[(p x iters) "\306\211\n\f \306\211 S\211\307V\203\240 \310=\203) \311\312\f\"\210@\307A\211\203T \313\314\f\"\"\313\314\f\"@\"\2021 \315!)\204\240 \316\"\317\f
\" \203\217 \320
! \321 \"\203\216 \322\f!\211 \203\213 \307\202\215 \306))
\307=\204\236 \323
\320\f!\"\203 \307\f\315\f!\203\253 \324\202\263 \316\320
!\320\f!\".B\207" [calc-prefer-frac calc-symbolic-mode math-int-coefs try-integer x dx 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 b d iters p pp calc-display-working-message adx math-int-threshold iroot] 6])
(defalias 'math-poly-integer-root #[(x) "\306\307\310!! \"\205j\n\205j\311\312! \313! \314\f! \314
! !\306!\315 \316\"\"\203\201 \317\320\321\f\"\"!\"\" #\n\211 $@ %\322 &$A\211$\203f %&B&\323$@\321%#\"\"%\202F \324%!\205} &\237\325#!C'B'#,\202i\317\320\321\f\321\326\"\"\"!\"\" (\314\"! )\317\320\321\323 !\")\"!)\" *\n@ +\nA\211 $@ ,\322 &\327*(\330
!E-\" .\322 /.\203\337 \331.-\"-\332\211,+\202$A\211$\203+/+&B&\333,\321/(\"\"+\333$@\321/*\"\",\202\337 \324,!\205g\324+!\205g\317(\326\" 0.\204F\334&!*(\335
!EC-B-*(B'B'\32301 2\321\336\333\3140!*\"!\335
!\203b\316\202c\337\")\"). -\207" [x calc-internal-prec math-int-coefs calc-prefer-frac xre xim 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 xresq ximsq math-int-scale rnd icp rem newcoef math-int-factors rnd1 sqscale rnd0 rem1 rem0 math-double-roots found this aa math-symbolic-solve calc-symbolic-mode] 8])
(defalias 'math-poly-laguerre-root #[(p x polish) "\306\211\307 GS
? ,\306\211 - .\306\211 / 0\306\211 1 2\306 3\nT\211\310W\2044 \3114\312\"\203\360\313 @!\3134! 5 6 7 @.\307\211/05A\2115\203\214 \314\31540\"/\"0\314\3154/\".\"/\314\3154.\"5@\".\314\313.!\31567\"\"7\202M \316\3177\3208Z\"\313.!\"+\203\360\321/!\203\273 \3210!\203\273 \322\323.!\324\325\fE\"4\202\360\326/.\" 9\3279! :\330:\315\331\3260.\"\"\" ;\332\315\fS\330\315\f;\":\"\"! <\3149<\" =\3309<\" >\316\333=!\333>!\"\203\n>=\326\f=\"2\33042\"1,\203{\316\3132!\317\3134!\334\"\"\203{\335 1\336# ?\337-\306,\321?A!\203O?@\21141\202z\316?A\340\"\203z\335 ?@\341# @\321@A!\203t@@\21141\202y?@4))41=\206\211\34241\".\204\360\3132! A14\306-\n\343X\206\324\316A3\"\206\324
\203\323\344\326\3134!A\"! B\345\346!\210\347B!\203\322\350B] 8\3514!4))\306A3)\203\360
\204# \316\317\3134!8[\"3\"\204# \3524!\203\376\3534!\206 4.\f\207" [calc-prefer-frac calc-symbolic-mode iters p m polish 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 t (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 try-newt tried-newt b d f x1 dx dxold x pp abx err calc-internal-prec g g2 h sq gp gm newt newt2 cdx digs] 8])
(defalias 'math-solve-above-dummy #[(x) "\211:?\206\f @\303>)?\2056 A@\304\232\203\" G\305U\203\" \207\306A\211\2034 \307@!\211\203$ \n)\207" [x a res (bigpos bigneg frac float cplx polar hms date mod var) (var SOLVEDUM SOLVEDUM) 2 nil math-solve-above-dummy] 3])
(defalias 'math-solve-find-root-term #[(x neg) "\304!\203\f \211\207\242\305>\205. \306A@ \"\206. \306\3078@\310=\203, ?\202- \"\207" [x neg math-t3 math-t1 math-solve-find-root-in-prod (+ -) math-solve-find-root-term 2 -] 4])
(defalias 'math-solve-find-root-in-prod #[(x) ":\205p \303 \"\205p @\304=\203 \305\211\206p @\306=\203I \307\3058!\310>\2030 \305\211\206p \3058\242\311=\203I \305\21188\312=\203I \312\211\206p @\313>\205p \303A@ \"\204a \314\3058!\206p \303\3058 \"?\205p \314A@!\207" [x 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] 3])
(defalias 'math-solve-system #[(exprs math-solve-vars math-solve-full) "\304\305\211:\205
@\306=)\203 A\202 C\"\n\211:\205% @\306=)\203. \nA\2020 \nC\307\310\n\307#)\206D \311\310\n\307#)\207" [exprs a math-solve-vars math-solve-simplifying mapcar list vec nil math-solve-system-rec t] 5])
(defalias 'math-solve-system-rec #[(eqn-list var-list solns) "\203\316 \306\211\203\313 \n@\f \242\307=\211 \203 A@
\203\277
@\306\211 \306 \203r @ =\203B \206K \310 @\311 $\211 \203r @ \312=\203c A\202f C B A\211 \2044 \203} \306\211\202\264 \237\313\314\315\316
@\317\f!\"\"\316\n@\317!\"\306\314\320!\" \" # \203\246 \"\202\257 \321\322 \"B\"B*#\211?+\203\277
A\211\204# +\204\313 \nA\211\204\f *\207\323!\324\"! \312=\203\364 \325\326\327!\203\354 \314\330!\"\202\360 \314\331\f\"B!!\207\326\327!\203\314\332!\"\202\314\333\f\"B!\207" [var-list math-solve-system-res v math-solve-system-vv eqn-list e nil calcFunc-elim math-solve-for 0 all math-solve-system-rec mapcar math-solve-system-subst delq copy-sequence #[(x) "@\301A!B\207" [x math-solve-system-subst] 3] apply append sort #[(x y) "@ @\n>>?\207" [x y math-solve-vars] 3] math-transpose math-normalize vec #[(x) "\301AB\207" [x vec] 2] #[(x) "\301B\207" [x vec] 2] #[(x) "\301B\207" [x calcFunc-eq] 2] car elim res2 eprev e2 math-solve-full solns s math-solve-simplifying] 8])
(defalias 'math-solve-system-subst #[(x) "\304 \203 \n\305\306 @\"\244 A A\202 \n*\207" [math-solve-system-res res2 accum x nil mapcar #[(r) "\203
\304\305 @\n #!\207\305 @\n #\207" [math-solve-simplifying x math-solve-system-vv r math-simplify math-expr-subst] 5]] 4])
(defalias 'math-get-from-counter #[(name) " \236\211\203 \n\211AT\241\210\202 \303B\211 B\nA)\207" [name calc-command-flags ctr 1] 3])
(defalias 'math-solve-get-sign #[(val) "\306!\211\242\307=\203( A@\211:?\206 @\310>)\203( \307A@\311\3128!E\207\242\313=\203J A@\242\314=\203J \315\314A@A@\316\312A@8\312\"E!\n\203\247 \317\303!\203 \211:\203b @\320=\202e \321Y)\203 \n\322=\204 \323\324 D\"\325 \326\"\327\303!\210\207\330\331\332\333!!P \304\334\f!\334\335\fP!E \n\322=\203\241
\326\336E!B!\323
\"*\207\337\340!\210\207" [val a math-solve-full var-GenCount var var2 math-simplify * (bigpos bigneg frac float cplx polar) math-solve-get-sign 2 calcFunc-sqrt ^ math-normalize math-div calc-var-value bigpos 0 all math-mul calcFunc-as math-add 1 calc-refresh-evaltos "s" int-to-string math-get-from-counter solve-sign intern "var-" -1 calc-record-why "*Choosing positive solution" math-solve-ranges] 7])
(defalias 'math-solve-get-int #[(val &optional range first) "\203k \306\301!\2035 \211:\203 \n@\307=\202 \n\310Y)\2035 \311=\2045 \312 \313 D\"\314 \315\"\316\301!\210\207\317\320\321\322!!P \304\323\f!\323\324\fP!E \203e \311=\203e
\325\206] \310\"ABB\312
\"*\207\326\327!\210\310\207" [math-solve-full var-GenCount a val var var2 calc-var-value bigpos 0 all math-mul calcFunc-an math-add 1 calc-refresh-evaltos "n" int-to-string math-get-from-counter solve-int intern "var-" calcFunc-index calc-record-why "*Choosing 0 for arbitrary integer in solution" range first math-solve-ranges] 6])
(defalias 'math-solve-sign #[(sign expr) "\205 \303 !\211\304>\203 \202 \n\305>\205 [)\207" [sign expr s1 math-possible-signs (4 6) (1 3)] 3])
(defalias 'math-looks-evenp #[(expr) "\211:?\206\f @\302>)\203 \303!\207@\304>\205 \305A@!\207" [expr a (bigpos bigneg) math-evenp (* /) math-looks-evenp] 3])
(defalias 'math-solve-for #[(lhs rhs math-solve-var math-solve-full &optional sign) "\306 \"\203 \307\310\n\"\311 $\207\306\n \"\205j \312\fT \313\n# \314=\203f \315 !\203f G\316 \317\316\320\321\"\"\211G\211W\203e \322\323U\203[ \324\202c \325\326Z\"!\210*+!\207" [rhs math-solve-var lhs math-solve-full 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 #[(x) "\242\301>?\205 \207" [x (cplx polar)] 2] calc-record-why 1 "*All solutions were complex" format "*Omitted %d complex solutions" sign res new-len old-len] 7])
(defalias 'math-solve-eqn #[(expr var full) "\242\305>\203R \306\307AB\310 \n@\311=?\205 \312%\211\205P \f\312=\203, @ E\202P \f\313=\203: @ E\202P @\311=\204E \314\315!\210@\316>\205P \311 E)\207\306\310 \n$\211\205a \317 E)\207" [expr var full res 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] 8])
(defalias 'math-reject-solution #[(expr var func) "\304 \"\203 \n@\305\232\204 \306\307!\210 E\207" [expr var calc-next-why func math-expr-contains (* "Unable to find a symbolic solution") calc-record-why "*Unable to find a solution"] 3])
(defalias 'calcFunc-solve #[(expr var) "\211:\205 @\303=)\204 \n\211:\205 @\303=)\203& \304\n\305#\202+ \306\n\305#\2063 \307\n\310#\207" [expr a var vec math-solve-system nil math-solve-eqn math-reject-solution calcFunc-solve] 5])
(defalias 'calcFunc-fsolve #[(expr var) "\211:\205 @\303=)\204 \n\211:\205 @\303=)\203& \304\n\305#\202+ \306\n\305#\2063 \307\n\310#\207" [expr a var vec math-solve-system t math-solve-eqn math-reject-solution calcFunc-fsolve] 5])
(defalias 'calcFunc-roots #[(expr var) "\304 \211:\205
\n@\305=)\204 \211:\205 \n@\305=)\203( \306 \307#\202. \310 \311 \307$\2066 \312 \313#)\207" [math-solve-ranges expr a var nil vec math-solve-system all math-solve-for 0 math-reject-solution calcFunc-roots] 6])
(defalias 'calcFunc-finv #[(expr var) "\304 \n\305$\211\203 \306\307 \n#!\202 \310\n\311#)\207" [expr math-integ-var var res math-solve-for nil math-normalize math-expr-subst math-reject-solution calcFunc-finv] 6])
(defalias 'calcFunc-ffinv #[(expr var) "\304 \n\305$\211\203 \306\307 \n#!\202 \310\n\311#)\207" [expr math-integ-var var res math-solve-for t math-normalize math-expr-subst math-reject-solution calcFunc-finv] 6])
(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 #[(x) "\301\302\"\207" [x math-div 1] 3] math-inverse-sign -1 calcFunc-sqrt #[(x) "\301!\207" [x math-sqr] 2] calcFunc-conj #[(x) "\301D\207" [x calcFunc-conj] 2] calcFunc-abs #[(x) "\301!\207" [x math-solve-get-sign] 2] calcFunc-deg #[(x) "\301D\207" [x calcFunc-rad] 2] 1 calcFunc-rad #[(x) "\301D\207" [x calcFunc-deg] 2] calcFunc-ln #[(x) "\301D\207" [x calcFunc-exp] 2] calcFunc-log10 #[(x) "\301D\207" [x calcFunc-exp10] 2] calcFunc-lnp1 #[(x) "\301D\207" [x calcFunc-expm1] 2] calcFunc-exp #[(x) "\301\302\303D!\304\305\304\306\307\310!\"\"\"\207" [x math-add math-normalize calcFunc-ln math-mul 2 (var pi var-pi) math-solve-get-int (var i var-i)] 8] calcFunc-expm1 #[(x) "\301\302\303D!\304\305\304\306\307\310!\"\"\"\207" [x math-add math-normalize calcFunc-lnp1 math-mul 2 (var pi var-pi) math-solve-get-int (var i var-i)] 8] calcFunc-sin #[(x) "\302\303!\304\305\306\307 D!\310\311\"\"\305\312\313!\"\")\207" [n x math-solve-get-int 1 math-add math-mul math-normalize calcFunc-arcsin math-pow -1 math-half-circle t] 6] calcFunc-cos #[(x) "\301\302\303\304D!!\305\306\307!!\"\207" [x math-add math-solve-get-sign math-normalize calcFunc-arccos math-solve-get-int math-full-circle t] 5] calcFunc-tan #[(x) "\301\302\303D!\304\305\306!!\"\207" [x math-add math-normalize calcFunc-arctan math-solve-get-int math-half-circle t] 5] calcFunc-arcsin #[(x) "\301\302D!\207" [x math-normalize calcFunc-sin] 3] calcFunc-arccos #[(x) "\301\302D!\207" [x math-normalize calcFunc-cos] 3] calcFunc-arctan #[(x) "\301\302D!\207" [x math-normalize calcFunc-tan] 3] calcFunc-sinh #[(x) "\302\303!\304\305\306\307 D!\310\311\"\"\305\312\313!\305\314\"\"\")\207" [n x math-solve-get-int 1 math-add math-mul math-normalize calcFunc-arcsinh math-pow -1 math-half-circle t (var i var-i)] 7] calcFunc-cosh #[(x) "\301\302\303\304D!!\305\306\307!\310\311!\"\"\207" [x math-add math-solve-get-sign math-normalize calcFunc-arccosh math-mul math-full-circle t math-solve-get-int (var i var-i)] 6] calcFunc-tanh #[(x) "\301\302\303D!\304\305\306!\307\310!\"\"\207" [x math-add math-normalize calcFunc-arctanh math-mul math-half-circle t math-solve-get-int (var i var-i)] 6] calcFunc-arcsinh #[(x) "\301\302D!\207" [x math-normalize calcFunc-sinh] 3] calcFunc-arccosh #[(x) "\301\302D!\207" [x math-normalize calcFunc-cosh] 3] calcFunc-arctanh #[(x) "\301\302D!\207" [x math-normalize calcFunc-tanh] 3]] 4)
(defalias 'calcFunc-taylor #[(expr var num) "\306\242\307>\203\" @\310=\203 \311\3128!\202 \3128A@ \242\300=\203\236 \313 \"\203\236 \314\f!\203\236 \315 \n#@\316=\203I \317AB\202J \306\320 T\211 \fX\203\222 \321
\322\323$\211\203\222 \324
!\325 \"\326 \327\325\330 \"\315
\n#\"\"\" \202V
\205\232 \331 !-\206\243 \332 \fF*\207" [var v x0 expr num fprime 0 (+ - calcFunc-eq) + math-neg 2 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 nfac n var2 accum] 9])
(provide 'calcalg2)
Kontol Shell Bypass