Aurora
Adminer
Auto Root
WP Admin
cPanel Reset
Anti Backdoor
Root
usr
share
emacs
27.2
lisp
calc
Upload
New Folder
New File
Name
Size
Permissions
Actions
..
-
-
-
Upload File
Select File
New Folder
Folder Name
New File
File Name
Add WordPress Admin
Database Host
Database Name
Database User
Database Password
Admin Username
Admin Password
cPanel Password Reset
Email Address
Edit: calcalg2.elc
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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 \211@\307>\262\204C @\310=\204C @\311=\203E \n\203C \312!\204C \313 \210\314\3158 \236\206= \fA@>\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=\203c\321A@!\321\3158! \211 @\211:\203\211@\335=\203\377 \211A@\316=\262\202\f\336!\262\202\f\211\316=\262\204'\330\3158\330\337\334A@\320\3158\340\"E!@\"\"@ \211:\203F\211@\335=\203>\211A@\316=\262\202K\336!\262\202K\211\316=\262\204\\\330\337\341A@D!\330 \"\"\320@ \"*\207@\342=\203p\321A@!\207@\343=\203|\344\321\"\207@\345>\203\223G\315U\203\223@\321A@!D\207@\346>\203\306G\347U\203\306\321A@!\211 A\211:?\206\263\211@\350>\262\203\274\316\202\304@A\3158E)\207@9\2031G\315U\203 @\321N\211 B\205\321A@!\211 C\211:\203\211@\335=\203\373\211A@\316=\262\202\336!\262\202\211\316=\262\203C\202\330BA@!C\"))\202.@\351N\211 B\205-B!)\206iD\352=\204X\353!\211 E\205T\352 D\3542L\321!0)\206T\321E!)\206i\211:?\206c\211@\355>\262\204u@\311=\204u@9\204\214D\203\356\354\357\"\207\n\203\207\360\202\210\361 E\207\316\306\357 F G H IHA\211H\203f\321H@!\211F\211:\203\307\211@\335=\203\277\211A@\316=\262\202\314\336!\262\202\314\211\316=\262\204^\362\363@!\364G\306V\203\343\365G!\202\344\366Q!G\315U\203\361\367\202G\347U\203\374\370\202G\371U\203\372\202G\373U\203\374\202G\375U\205\376 J K\320I\330FKJN BJ\203>B\203>\377BA\"\206XD\203SK\201L N\204S\356\354\357\"\202XKAB)\"\"I*GTG\202\230I,\207" [expr math-deriv-var math-deriv-total math-decls-cache math-decls-all dv 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 du d handler deriv math-deriv-symb exp derv n arg accum prop func 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 \211@\303=\203 \211A@\304=\262\202$ \305!\262\202$ \211\304=\262?\2056 \306\307D!\310\311\312 \n\"\")\207" [b lnv x float 0 math-zerop math-normalize calcFunc-ln math-div 1 math-mul] 5] 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 \211@\301>\262\203$ \242\302=\2053 A@\303=\2053 \3048<\207A\211\2032 \305@!\203$ \207" [expr (frac float cplx polar hms date mod var) var PARTS 2 math-integral-contains-parts] 3]) (defalias 'math-replace-integral-parts #[(expr) "\211:?\206 \211@\302>\262\206b A\211\205b @:\203 @@\303=\203Z @A@\304=\203 \305@8:\203 \305@8A@<\203R \305@8A@\240\210\306\307B!\210\202 A\310\240\210\202 \306@!\210\202 \207" [expr math-cur-record (frac float cplx polar hms date mod var) var PARTS 2 math-replace-integral-parts foo cancelled] 3]) #@58 Non-nil means that a linear substitution has been tried. (defvar math-linear-subst-tried t (#$ . 19695)) (defalias 'math-do-integral #[(expr) "\306\211\211\307 \f\"\204 \310 \f\"\202\f \f\232\203# \311\312 !\313\"\202\f @\314=\203E \315 A@!\211\203\315\313 8!\211\203\316 \"\202\f @\317=\203g \315 A@!\211\203\315\313 8!\211\203\320 \"\202\f @\321=\203~ \315 A@!\211\203\322 !\202\f @\323=\203\307 A@\f\"\204\241 \315\313 8!\211\203\310 A@ \"\202\f\307\313 8\f\"\204\275 \315 A@!\211\203\310 \313 8\"\202\f A@\242\324>\203\346 \315 A@@\310 A@A@\313 8\"\310\313 A@8\313 8\"E\325\326#\202\f\313 8\242\327>\203\315\313 8@\310\313 8A@ A@\"\310\313\211 88 A@\"E\325\326#\202\f @\330=\2036\307 A@\f\"\204>\331 A@\332\"\204>\315\311\332\313 8\"!\211\203\310 A@ \"\202\f\307\313 8\f\"\204Z\315 A@!\211\203\311 \313 8\"\202\f A@\242\323=\203\212\307 A@A@\f\"\204\212\315\311\313 A@8\313 8\"!\211\203\310 A@A@\"\202\f 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\f\313 8\242\323=\203\352\307\313 8A@\f\"\204\352\315\311 A@\313\211 88\"!\211\203\311 \313 8A@\"\202\f\313 8\242\323=\203\307\313\211 88\f\"\204\315\311 A@\313 8A@\"!\211\203\311 \313\211 88\"\202\f\313 8\242\333=\203\315\310 A@\333\322\313 8A@!D\"!\202\f @\334=\203\307 A@\f\"\204y\335\313 8\f\332#\211\203d\311 \310 A@\336\337 A@D!\"\"\206\365\315\333\310\313 8\336\337 A@D!\"D\325\326#\202\f\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\f\335 A@\f\332#\211\203\314\316\313 8\332\"\211\203\314\311\341 A@\"\310 A@\"\"\206\365\313 8\211:\203\363\211@\342>\203\353\211A@\211\250\205\346\211\340W\266\202\202\370\343!\262\202\370\211\340W\262\203\315\311\332\341 A@\322\313 8!\"\"\306\326#\206\365\335 \f\344#\211\203F\340\332 @ \203@\316@\311\310 @\341\f \"\" \"\"@ A\211\203 T\202 @*\206\365 G\313U\203| @9\203\265 @\315N\211\203\265 \203r @ A@!\211\204r A\211\204`\203\265\336!\202\262 G\345U\203\265 @9\203\265 @\346N\211\203\265 \203\253 @ A@\313 8\"\211\204\253 A\211\204\226\203\265\336!\206\365\347 \f\"\203\321\350 \f\"\211\203\321 \232\204\321\315 !\206\365A\203E\351K\352 \fE\306\211 B C D E\353\216\351\354M\210\355D\356\332#C\351EM\210CD\232?\205A\357C\360\"\211B\2036BG\361>\205A\362\363BA\" F\364 F@\326\313F8\206-\365\fD\345F8%)\202A\357C\366\"?\205AC-\206\365\367\370\371 @!\"\203\330\371 @! \340\306\211 G H I J TIA\211I\203\224I@\f\232\203\205H\203\326G\202` H\202`\307I@\f\"\203`\326G\202`H\205\324G?\205\324H\332U\203\252\370\202\257\372\373H\" K\367K\374PJ\"\205\323\375\376J\340\211\224#\376J\340\224KG\\\"P! AB)-\206\365L\340V\203\345\377 !\206\365\201M !\211 C\205\364\315C!)+\207" [math-t2 math-t1 math-linear-subst-tried expr math-integ-var n 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 #[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 substring math-do-integral-methods accum math-has-rules part res input math-old-integ parts bad which p name prime math-integ-level 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 \211@\301>\262\203 \302\207@\303>\203' \304A@!\205_ \304\3058!\207@\306=\203< \304A@!\205_ \307\3058!\207@\310=\203Q \311\3058!\205_ \304A@!\207@\312=\203^ \304A@!\207\302\207" [expr (frac float cplx polar hms date mod var) t (+ - *) math-integ-parts-easy 2 / math-atomic-factorp ^ natnump neg] 3]) (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 \211@\307>\262?\205q @\310>\204] @\311=\203( \312 8\250\204] \313 \n\"\203] \314 A\211\203X \315 @\n\"\2031 \316 @\f\"\2041 @C\fB\317 @\"\211\2031 )\206q \314 A\211\203o \320 @!\211\203_ )\207" [math-linear-subst-tried sub-expr math-integ-var res 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] 3]) (defalias 'math-integ-try-substitutions #[(sub-expr &optional allow-rat) "\211:?\206 \211@\306>\262?\205\215 \307 \"?\205\215 \310\n\"\205\215 @\311>\204; @\312=\2035 \3138\250\204; \314\211\202> \315\203s \f=\204s \316\f\"\206\215 @\312=\203s \3138\250\203s \3138\317W\203s \320\321A@\3138[\"\314\"\206\215 \315 C BA\211\203\213 \320@ \"\211\203z )\207" [sub-expr math-so-far math-integ-var allow-rat math-integ-expr res (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] 5]) (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 \211@\303>\262\203% \232\205z \304\n\"?\205z C\nB\211\207@\305>\204: @\306=\203L \3078\250\203L \310A@!\210\3078\205z \310\3078!\207@\306=\203e \311\3078!\307=\203e \310\312A@D!\207\304\n\"?\205z \313 \"\205z C\nB\211\207" [expr 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] 3]) (defalias 'math-expr-calls #[(expr funcs &optional arg-contains) ":\205X @ >\204$ @\304=\2031 @\305=\2031 \306\3078!\307=\2031 \n\203/ \310\n\"\205X \207\211:?\206< \211@\311>\262?\205X \312A\211\203V \313@ \n#\211\203D )\207" [expr funcs arg-contains res ^ calcFunc-sqrt math-quarter-integer 2 math-expr-contains (frac float cplx polar hms date mod var) nil math-expr-calls] 4]) (defalias 'math-fix-const-terms #[(expr except-vars) "\302 \"\204 \303\207\211:?\206 \211@\304>\262\203 \207@\305=\2031 \306\307A@ \"\307\3108 \"\"\207@\311=\203G \312\307A@ \"\307\3108 \"\"\207\207" [expr except-vars math-expr-depends 0 (frac float cplx polar hms date mod var) + math-add math-fix-const-terms 2 - math-sub] 5]) (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\"\"\2024\n\315U\203: \311\316\314 D\311 \"\"\313\f!\"\2024\310\n\307\"\310\n\315\" \311\310\311 \312 \317 \"\"\"\311\307\312 \317 \"\"\"\"\313\f!\"*\2024\320\310\312\321\312 \"\"\313\f!\"\211!\203\237 \311\f\312\315 \"\" \322\317 \n\"\323 \307\306\316 \"\n\315_%\")\2024\n\307U\203\370 \211:?\206\260 \211@\324=\262\203\330 \325!\203\330 \326 \327\330!!\211:?\206\315 \211@\324=\262)\203\330 \331\332\306\"\210\310\311\314 D\312\315 \"\"\322\311\f\312\315 \"\"\333 \f \307%\"\"\2024\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 frac 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? \211@\317>\262\203H \310\202I \320 \211:?\206T \211@\317>\262\203] \310\202^ \320\n\203r \n\211:?\206m \211@\317>\262\203v \310\202w \320#\321\322 \211 +\323U\204\305 \324\232\204\305 \325\326 \"\n\206\224 \310\"\211\211:?\206\241 \211@\317>\262\204\252 \327 ! \211:\205\274 \211@\330=\205\274 \3238\320Y\262\203\305 \331 ! \211:\203\352 \211@\332>\203\342 \211A@\211\250\205\335 \211\320W\266\202\202\357 \333!\262\202\357 \211\320W\262\203\364 \334 \250\203]\322, T\320 - . /\335\336 0\337#! \320Y\203L-T-/1\340\267\2026\341\f\335 !\"\202;\342\f\335 !\"\202;\335 !\fB\341\n\206C\310\" S\211\2021\203U\f\202Y\304\f\237B,\202\332\343 !\203k\344\345 \"\210\202\270\211\250\206\202\211:\205\202\211@\330=\205\202\3238\320Y\262\203\263 \211\250\206\236\211:\205\236\211@\330=\205\236\3238\320Y\262\203\253\344\346\n\"\210\202\270\344\346 \"\210\202\270\344\346\"\210\3471\206\277\350 0E\351\232\205\314 \352\232?\205\323 D\n\205\331\nC#+\207" [calc-low calc-high step expr vec count (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) nil 2 (var inf var-inf) math-div math-sub math-simplify float math-trunc (frac float) math-negp -1 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 292 calcFunc-prod 301)) math-add math-mul Math-integerp calc-record-why fixnump integerp append calcFunc-table (neg (var inf var-inf)) (var inf var-inf) known math-tabulate-initial math-working-step math-working-step-2 var-DUMMY math-var math-tabulate-function] 7]) (defalias 'math-scan-for-limits #[(x) "\211:?\206 \211@\306>\262\206\242 @\307=\203\223 A@\211\242\310=\262\203\223 \311\3128 \"\203\223 \313\314\3128\315 \313$\314\3128A@GS \313$ \313 \203k \211:?\206U \211@\316>\262\203k \f\203k \f\211:?\206i \211@\316>\266\f \317\"\320U\266\202\203~ \f \321\322 !\"\323\324\f!\"\211,\207A\211\205\242 \325@!\210\202\223 \207" [x math-var calc-next-why low-val high-val temp (frac float cplx polar hms date mod var) calcFunc-subscr vec math-expr-contains 2 nil math-solve-for 1 (frac float) math-compare -1 math-max math-ceiling math-min math-floor math-scan-for-limits calc-low calc-high] 5]) (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 \211@\302>\262\203! \303\232\203 \304 \207 \207 @\305=\2036 A@\306\232\2036 \307\310 8D\207 @\311\312 A\"B\207" [calc-symbolic-mode expr (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] 4]) (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\357B\202\357 \211:?\206y \211@\314>\262\203\202 \306\202\357 @\315=\203 A@\242\316 8\242=\203B\211:\203\265 \211@\317=\203\255 \211A@\320=\262\202\272 \321!\262\202\272 \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\357 @\332=\203(\330 A@\333B! \205$ [#\202\357A\334=\2044\335 \206\357G\204\366\336 \f\337B$\211\203\366 A@AF F\nG\340U\203^\341\342 @\n#\202\316\nG\343U\203n\341\344 @\n#\202\316\nG\345U\203~\341\346 @\n#\202\316\nG\316U\203\217\341\347 @ \n$\202\316\nG\326U\203\253\350\316 8\326\"?\205\316\330\316 8\320\306\334$\202\316A\203\270\351 @\n\"\202\316H\203\301\306\202\316\330 @\352\353\n!\320\334#\306\334$)\211\203\356\316 8\326=\203\340\n\202\357\354\n\330\316 8\320\306\334$\"\202\357\355\356!\210\306\202\357\357 \306\"\2036\324 \n\"\326=\2036\330\360\331\204\361 !\203\362\n \"\202 \333\362\n \"!\363\331\313\312 \n\320#!B\" \f#\"!\320\"\202\357 @\364=\203p\365 A@\f\"\204V\330\316 8\331B A@\" #\202\357\365\316 8\f\"?\205\357\330 A@\331B\316 8\" #\202\357 @\366=\203\211\330\331 A@\316 8\"B G$\202\357 @\315=\203 A@\242\367=\203\242\316 8\242\370=\204\264 A@\242\370=\203\317\316 8\242\367=\203\317\330\331 A@ A@@\331\371\334!\316 8A@\"D\"B\"\202\357\365 A@\f\"\204\355\330\316 8\331 A@B\" \205\351 [#\202\357\365\316 8\f\"?\205\357\330 A@\372B\316 8\" #\202\357A\334=\203\335 \206\357 @\373=\2034\365\316 8\f\"\2044\330 A@\372B\374\316 8!\"\"\202\357 @\375=\203o\365\316 8\f\"\204S\330 A@\362\316 8B\"\"\202\357\365 A@\f\"?\205\357\330\316 8\362 A@\376\326B\"\"\"\202\357 G\316U\203\265 @9\203\265 @\322N\211\203\265\nB!\211\203\265 @\377N\330 A@\313 ! \205\261\n\205\261\n\250\203\255\n _\202\261\n \"#\202\357 @9\203\324 @\201I N\211\203\324\n B\"\211\203\324 \202\357\201J !\211\203\347\330\nB #\202\357\355\201K \"\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 (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 eql 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 no-poly calc-symbolic-mode math-inverse-n math-expand-formula "*No inverse known"] 12]) (defalias 'math-try-solve-prod #[nil "@\306=\203v \307A@ \"\204\" \310\3118\312\nA@\"\313 A@\"#\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\"\313 A@\"#\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]) (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 \2037 @\211:\203& \211@\307=\203 \211A@\306=\262\202+ \310!\262\202+ \211\306=\262\2037 AT\202 \205\337 GS\211\211\311V\203\313 \f@\311U\203\313 \n \246\306U\203\304 \306\312\313 \203\267 \203\267 \246\306U\203 @C\244 \202\252 @\211:\203\240 \211@\307=\203\230 \211A@\306=\262\202\245 \310!\262\202\245 \211\306=\262\204\252 \312AT\202a \203\303 \fAB , S\211\202B \314\f@\"\314\"D GSX*)\207" [count math-t1 degree scale math-t3 okay 0 float math-zerop 1 nil t math-mul 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:\203\\ \211@\320=\203T \211A@\321=\262\202a \322!\262\202a \211\321=\262\203z \323\324\312$\306\n\311\"\"\311\"\325\"!\317\326$\202\"\211:\203\232 \211@\320=\203\222 \211A@\321=\262\202\237 \322!\262\202\237 \211\321=\262\203\302 \323\313\312$\306\n\311\"\"\312\307\312$\306\n\311\"\"!!\"\"\321\317\326$\202\313\314\327\306!\330\"D\"#\323$\310\331\313#\332\306\310\333\306\313\311\"\"\313!#\"\"D\313\314\313\312\334\335\334\311\"\"\336%!\"\"\"\311\"D\"!\306\n\311\"\"\317\326$.\207" [b a p c q d 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 r psqr aa bb m var calc-symbolic-mode] 18]) (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\223 \211@\325=\203\213 \211A@\326=\262\202\230 \327!\262\202\230 \211\326=\262\203\261 \315\324\315#\321\314\310 !\315\311\f\"\"D\"\"\202\324 \314\315#\306\314\211\315\311\315\n\"\"\315\330 \"\"\315\"\"\315\311\"\"\"\"!\"\"D $\331\314\320\315#\306\"\324\"\"\322\306$\324\"!\"\306\311\"\"!.\312\332$\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 float 0 math-zerop 8 math-normalize t asqr asqr4 calc-next-why math-solve-full math-solve-var y rsqr r sign1 de] 16]) (defvar math-symbolic-solve nil) (defvar math-int-coefs nil) (defalias 'math-poly-all-roots #[(var p &optional math-factoring) "\30628\307 GS \310 ! \307\211 . /\307\211 0 1\307 2 \211 3\203A 3@\211:?\2063 \211@\311=\262\203A 3A\2113\204& 3\203W 4\204O \203\200 \312\306\307\"\210\202\200 @\313\314\315 \" 5 6 7\316\31757\"!/\320\321/\"2\320\322 B7\"A.+\f\323V\203T\307\211 \324 ! 8 3 63\203\273 3@\211:?\206\245 \211@\325>\262\203\263 3A\2113\202\225 \312\306\307\"\210\202\223 \f \203\304 \326\202\305 \323V\203N\3278\330\307# 9\307\211 : ;\307 39\242\331=\203\365 \332\326989A@\"\203\365 \3339!94\204\377 9\nB9\211:?\206 \211@\325>\262\204\3349!9838@:3A\2113\203B3@;3:\240\210\335\3179:\";\":\202 8A8\fS,\202\273 \3108!,\f\336V\203\227\337\307\211\340 < = > ? G.GU\203t\310.!\341\314\f\326U\203\200\342\202\213\f\343U\203\212\344\202\213\345? #A\n\",\202\251\f\346V\203\251\320\347 @! A@\"\nB4\203\311\n\203\276\350\n@!\210\nA\211\204\2621.\237/E\2025\307\211 @ \n\203\f\n@<\205\333\340 < A\351A!\203\356\327 A\313#A\341\352BA\307\313$\206 \312\306\307\"A\"*\nA\211\204\323\322\237B \203 \353!<\313=\2032\354\355\336 GS\336#E\2024*.\n0\207" [calc-symbolic-mode math-symbolic-solve roots p deg orig-p 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-coefs math-int-scale math-double-roots math-int-factors math-int-threshold pp 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 \211@\302>\262?\2056 A@\303\232\203\" G\304U\203\" \207\305A\211\2034 \306@!\211\203$ )\207" [x res (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) "\303\304\211\242\305=\262\203 A\202 C\" \211\242\305=\262\203$ A\202& C\306\307 \306#)\206: \310\307 \306#)\207" [exprs 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 \211@\310>\262\203( \307A@\311\3128!E\207\242\313=\203J A@\242\314=\203J \315\314A@A@\316\312A@8\312\"E! \203\236 \317\302!\203x \n\211\250\205] \211\320Y\262\203x \321=\204x \322\323\nD\"\324\n\325\"\326\302!\210\207\327\330\331\332!!P\303\333 !\333\334 P!E \321=\203\230 \f\325\335E B\322\f\"*\207\336\337!\210\207" [val math-solve-full var-GenCount var var2 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 intern "var-" -1 calc-record-why "*Choosing positive solution"] 7]) (defalias 'math-solve-get-int #[(val &optional range first) "\203b \306\301!\203. \211\250\205 \211\307Y\262\203. \310=\204. \311\n\312 D\"\313 \314\"\315\301!\210\207\316\317\320\321!!P\303\322 !\322\323 P!E \203\\ \310=\203\\ \f\324 \206T \307\"ABB\311\n\f\"*\207\325\326!\210\307\207" [math-solve-full var-GenCount val var var2 range 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 intern "var-" calcFunc-index calc-record-why "*Choosing 0 for arbitrary integer in solution" first math-solve-ranges] 5]) (defalias 'math-solve-sign #[(sign expr) "\205 \303 !\211\304\267\202 \202 [\202 \305)\207" [sign expr s1 math-possible-signs #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 14 6 14 1 18 3 18)) nil] 3]) (defalias 'math-looks-evenp #[(expr) "\301!\203\n \302!\207@\303>\205 \304A@!\207" [expr Math-integerp math-evenp (* /) math-looks-evenp] 2]) (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\242\302=\262\204 \211\242\302=\262\203 \303 \304#\202! \305 \304#\206) \306 \307#\207" [expr var vec math-solve-system nil math-solve-eqn math-reject-solution calcFunc-solve] 4]) (defalias 'calcFunc-fsolve #[(expr var) "\211\242\302=\262\204 \211\242\302=\262\203 \303 \304#\202! \305 \304#\206) \306 \307#\207" [expr var vec math-solve-system t math-solve-eqn math-reject-solution calcFunc-fsolve] 4]) (defalias 'calcFunc-roots #[(expr var) "\303 \211\242\304=\262\204 \n\211\242\304=\262\203 \305 \n\306#\202$ \307 \310\n\306$\206, \311 \n\312#)\207" [math-solve-ranges expr var nil vec math-solve-system all math-solve-for 0 math-reject-solution calcFunc-roots] 5]) (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)