| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-math.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:44 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-math.el
;;; in Emacs version 24.3.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)
#@41 The number of digits in an Emacs float.
(defvar math-emacs-precision (byte-code "\303\304\211\305\306[\"\304_\\ \nU\204& T\n\211\305\306[\"\304_\\\202 S+\207" [n x xx 1 9 expt 10] 5) (#$ . 629))
#@65 The largest exponent which Calc will convert to an Emacs float.
(defvar math-largest-emacs-expt (byte-code "\302\303\203 \304W\203 \305_\306\307\310\217\211\204 \306\311\312\217\211\2036 \313W\2036 T\306\314\315\217\211\204$ S*\207" [pow x 1 100.0 1.0e+INF 2 nil (byte-code "\301\302\303_\"\207" [x expt 10.0 2] 4) ((error)) (byte-code "\301\302T\"\207" [x expt 10.0] 3) ((error)) 1.0e+INF (byte-code "\301\302T\"\207" [x expt 10.0] 3) ((error))] 4) (#$ . 841))
#@66 The smallest exponent which Calc will convert to an Emacs float.
(defvar math-smallest-emacs-expt (byte-code "\301\302\303\304\217\203 \305_\202 \305\245\302\306\307\217\203! S\202 \305\\)\207" [x -1 nil (byte-code "\301\302\"\303V\207" [x expt 10.0 0.0] 3) ((error)) 2 (byte-code "\301\302\"\303V\207" [x expt 10.0 0.0] 3) ((error))] 3) (#$ . 1328))
#@100 Use the native Emacs function FN to evaluate the Calc number X.
If this can't be done, return NIL.
(defalias 'math-use-emacs-fn #[(fn x) " X\205- \306\n!\205- \307\n!\310\n8\311\nA@!S\\
\fX\205, \f
X\205, \312\313\314\217*\207" [calc-internal-prec math-emacs-precision x fx xpon math-smallest-emacs-expt math-realp math-float 2 math-numdigs nil (byte-code "\306\307\310\311\312\313 D\312\314 \315\316!!-!!!!\207" [fn calc-internal-prec calc-point-char calc-group-digits calc-float-format calc-twos-complement-mode math-read-number number-to-string string-to-number 10 nil float "." math-format-number math-float calc-number-radix x] 9) ((error)) math-largest-emacs-expt] 3 (#$ . 1699)])
(defalias 'calc-sqrt #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "^2" calcFunc-sqr "sqrt" calcFunc-sqrt] 4]] 3 nil "P"])
(defalias 'calc-isqrt #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "^2" calcFunc-sqr "isqt" calcFunc-isqrt] 4]] 3 nil "P"])
(defalias 'calc-hypot #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "hypt" calcFunc-hypot] 4]] 3 nil "P"])
(defalias 'calc-ln #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-exp] 2 nil "P"])
(defalias 'calc-log10 #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-ln] 2 nil "P"])
(defalias 'calc-log #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-binary-op "alog" calcFunc-alog "log" calcFunc-log] 4]] 3 nil "P"])
(defalias 'calc-ilog #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-binary-op "alog" calcFunc-alog "ilog" calcFunc-ilog] 4]] 3 nil "P"])
(defalias 'calc-lnp1 #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-expm1] 2 nil "P"])
(defalias 'calc-exp #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302 \203 \303\304\305#\207\303\306\307#\207\302 \203! \303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "lg10" calcFunc-log10 "10^" calcFunc-exp10 "ln" calcFunc-ln "exp" calcFunc-exp] 4]] 3 nil "P"])
(defalias 'calc-expm1 #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "ln+1" calcFunc-lnp1 "ex-1" calcFunc-expm1] 4]] 3 nil "P"])
(defalias 'calc-pi #[nil "\300\301`\"\207" [calc-do #[nil "\301 \203, \302 \203 \203 \303\304\305\306#\207\303\304\305\307 #\207\203% \303\304\310\311#\207\303\304\310\312 #\207\302 \203B \203; \303\304\313\314#\207\303\304\313\315 #\207\203L \303\304\316\317#\207\303\304\316\320 #\207" [calc-symbolic-mode calc-is-inverse calc-is-hyperbolic calc-pop-push-record 0 "phi" (var phi var-phi) math-phi "gmma" (var gamma var-gamma) math-gamma-const "e" (var e var-e) math-e "pi" (var pi var-pi) math-pi] 4]] 3 nil nil])
(defalias 'calc-sin #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302 \203 \303\304\305#\207\303\306\307#\207\302 \203! \303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "asnh" calcFunc-arcsinh "sinh" calcFunc-sinh "asin" calcFunc-arcsin "sin" calcFunc-sin] 4]] 3 nil "P"])
(defalias 'calc-arcsin #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-sin] 2 nil "P"])
(defalias 'calc-sinh #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-sin] 2 nil "P"])
(defalias 'calc-arcsinh #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-sin] 2 nil "P"])
(defalias 'calc-sec #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "sech" calcFunc-sech "sec" calcFunc-sec] 4]] 3 nil "P"])
(defalias 'calc-sech #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-sec] 2 nil "P"])
(defalias 'calc-cos #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302 \203 \303\304\305#\207\303\306\307#\207\302 \203! \303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "acsh" calcFunc-arccosh "cosh" calcFunc-cosh "acos" calcFunc-arccos "cos" calcFunc-cos] 4]] 3 nil "P"])
(defalias 'calc-arccos #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-cos] 2 nil "P"])
(defalias 'calc-cosh #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-cos] 2 nil "P"])
(defalias 'calc-arccosh #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-cos] 2 nil "P"])
(defalias 'calc-csc #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "csch" calcFunc-csch "csc" calcFunc-csc] 4]] 3 nil "P"])
(defalias 'calc-csch #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-csc] 2 nil "P"])
(defalias 'calc-sincos #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203 \301\302\303\304\305\302!D#\207\301\302\306\307\305\302!D#\207" [calc-is-inverse calc-enter-result 1 "asnc" calcFunc-arcsincos calc-top-n "sncs" calcFunc-sincos] 6]] 3 nil nil])
(defalias 'calc-tan #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302 \203 \303\304\305#\207\303\306\307#\207\302 \203! \303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "atnh" calcFunc-arctanh "tanh" calcFunc-tanh "atan" calcFunc-arctan "tan" calcFunc-tan] 4]] 3 nil "P"])
(defalias 'calc-arctan #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-tan] 2 nil "P"])
(defalias 'calc-tanh #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-tan] 2 nil "P"])
(defalias 'calc-arctanh #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-tan] 2 nil "P"])
(defalias 'calc-cot #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "coth" calcFunc-coth "cot" calcFunc-cot] 4]] 3 nil "P"])
(defalias 'calc-coth #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-cot] 2 nil "P"])
(defalias 'calc-arctan2 #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!B#\207" [calc-enter-result 2 "atn2" calcFunc-arctan2 calc-top-list-n] 6]] 3 nil nil])
(defalias 'calc-conj #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "conj" calcFunc-conj] 4]] 2 nil "P"])
(defalias 'calc-imaginary #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!!#\207" [calc-pop-push-record 1 "i*" math-imaginary calc-top-n] 6]] 3 nil nil])
(defalias 'calc-to-degrees #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op ">deg" calcFunc-deg] 4]] 2 nil "P"])
(defalias 'calc-to-radians #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op ">rad" calcFunc-rad] 4]] 2 nil "P"])
(defalias 'calc-degrees-mode #[(arg) "\301U\203\n \302\303!\207\304U\203 \305 \207\306U\203 \307 \207\310\311!\207" [arg 1 calc-do #[nil "\300\301\302\"\210\303\304!\207" [calc-change-mode calc-angle-mode deg message "Angles measured in degrees"] 3] 2 calc-radians-mode 3 calc-hms-mode error "Prefix argument out of range"] 2 nil "p"])
(defalias 'calc-radians-mode #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\"\210\303\304!\207" [calc-change-mode calc-angle-mode rad message "Angles measured in radians"] 3]] 2 nil nil])
(defalias 'math-isqrt #[(a) "\211:\203$ @\301>?\205' @\302=\203 A@\303=\202' \304!\202' \303=)\203- \207\305!\2048 \306\307\"\207\250\203A \310!\207\311\312\313A!AB!\207" [a (bigpos bigneg) float 0 math-zerop math-natnump math-reject-arg natnump math-isqrt-small math-normalize bigpos math-isqrt-bignum] 5])
(defalias 'calcFunc-isqrt #[(a) "\301!\203\f \302\303!!\207\303\304!!\207" [a math-realp math-isqrt math-floor math-sqrt] 3])
(defalias 'math-isqrt-bignum #[(a) "G\211\304\246\305U\203+ \304Z\233\306\307\310\311\nA@ _\n@\\!T! \304\245S\"\")\202> S8\306\307\311\n!TC \304\245\"\"))\207" [a len top math-bignum-digit-size 2 0 math-isqrt-bignum-iter math-scale-bignum-digit-size math-bignum-big math-isqrt-small] 8])
(defalias 'math-isqrt-bignum-iter #[(a guess) "\306=\203
\307\310\311 B\"\210\312\n \"\313 @ \" \314\f! \315
\"\211 \316W\203/ \317\n
\"\202E \316U\205C \320 A!\205C \f@\321\246\316U B,\207" [calc-display-working-message guess a q s g2 lots math-do-working "isqrt" bigpos math-div-bignum math-add-bignum math-div2-bignum math-compare-bignum 0 math-isqrt-bignum-iter math-zerop-bignum 2 comp] 5])
(defalias 'math-zerop-bignum #[(a) "@\301=\205 A\211@\301=\204 ?\207" [a 0] 2])
(defalias 'math-scale-bignum-digit-size #[(a n) "\302V\203 \302 BS\211\202 \207" [n a 0] 3])
(defalias 'math-isqrt-small #[(a) "\303Y\203\n \304\202 \304Y\203 \305\202 \306Y\203 \306\202 \307\310\211\n\245\\\311\245\211\nW\2036 \211\202# \n*\207" [a g2 g 1000000 10000 1000 100 10 nil 2] 4])
(defalias 'math-sqrt #[(a) "\211:\203$ @\306>?\205' @\307=\203 A@\310=\202' \311!\202' \310=)\203/ \206\325\312!\203? \313\314\315!!!\206\325\250\203j \316!\211\211_U\203T \202f \n\203^ \317D\202f \320\321!\321 !\")\206\325\242\322=\203\234 \323A!\324\322 AB! @\203\206 \202\230 \n\203\220 \317D\202\230 \320\321!\321 !\"*\206\325\242\325=\2039\323A@\211:\203\261 \202\264 \326!)A! \324\322\fAB! \323\3278\211:\203\315 \202\320 \326!)A! 9\324\3229AB! :\f@\203\361 9@\203\361 \325
:E\2025\n\203)\f@\204 9@\203#\330\f@\203\n
\202\317A@D9@\203:\202 \317\3278D\"\2025\317D\2025\320\321!\330\321
!:\"\",\206\325\242\307=\203\215\n\203\207\3278\327\246\310U\203\200\323A@\211:\203\\\202_\326!)A!\211@\203x\331\324\322 AB!\3278\327\245\"\202|\332\333\334\")\202\212\332\333\334\"\202\212\320!\206\325\242\335=\203\322\324;\327\\ ;\336! <\314\337\340<A@\"\341\"! =\335\314\337\342<A@\"\343\"!\344\3278!\203\312\315=!\202\314=E+!\206\325\242\345=\203\351\345\314A@!\337\3278\346\"E\206\325\242\347=\203\314A@!\350 \330\3278\337 \327\"\"\")\206\325\242\351=\203'\344\3278!\204'\352A@\314\3278!\314\3538!#\206\325\242\354=\203M\355A@!\204>\355\3278!\203M\337\314A@!\314\3278!\"\206\325\242\356=\203\216\355\3278!\203k\330\314A@!\314\3278!\"\206\325\355A@!\203\216\357A@\360\"\204\216\337\314A@!\314\330\360\3278\"!\"\206\325\242\361=\203\265\362\3278!\203\265\363A@!\203\265\336\364A@\330\3278\327\"\"!\206\325\365!\211 >\205\311\337\314\366>\"!>\")\206\325\367\370\"\210\317D\207" [a sqrt calc-symbolic-mode res num-res num-sqrt (bigpos bigneg) float 0 math-zerop math-known-nonposp math-imaginary math-sqrt math-neg math-isqrt-small calcFunc-sqrt math-sqrt-float math-float bigpos math-isqrt-bignum math-normalize frac math-bignum 2 math-div math-make-float signal inexact-result nil cplx math-abs math-mul math-sub (float 5 -1) math-add (float 5 -1) math-negp polar (float 5 -1) sdev math-make-sdev intv math-make-intv 3 * math-known-nonnegp / math-equal-int 1 ^ math-known-evenp math-known-realp math-pow math-infinitep math-infinite-dir calc-record-why numberp den-res den-sqrt calc-internal-prec d imag inf] 8])
(defalias 'calcFunc-sqrt 'math-sqrt)
(defalias 'math-infinite-dir #[(a &optional inf) "\204 \302 !\303\304 \305#!\207" [inf a math-infinitep math-normalize math-expr-subst 1] 5])
(defalias 'math-sqrt-float #[(a &optional guess) "\203 \304\305\306\"\207\307 T\310\n \")!\207" [calc-symbolic-mode calc-internal-prec a guess signal inexact-result nil math-normalize math-sqrt-raw] 4])
(defalias 'math-sqrt-raw #[(a &optional guess) "\211:\203: @\303=\206= @\304=?\205= @\305>\2034 A@\211:\203- @\303=\2020 \306V)\202= \307!\202= \306V)\204E \310!\207\311\312\"\206 \204{ \313A@!\314Z\3158\n\\\315\246\306U\204g \nT\316\317\320A@\n[\"!\3158\n\\\315\245\")\321 \"\207" [a guess ldiff bigpos bigneg (frac float) 0 math-posp math-sqrt math-use-emacs-fn sqrt math-numdigs 6 2 math-make-float math-isqrt-small math-scale-int math-sqrt-float-iter] 6])
(defalias 'math-sqrt-float-iter #[(a guess) "\304=\203 \305\306 \"\210\307\310 \311\n \"\"\312\"\313 \"\203! \202% \314\n \")\207" [calc-display-working-message guess a g2 lots math-do-working "sqrt" math-mul-float math-add-float math-div-float (float 5 -1) math-nearly-equal-float math-sqrt-float-iter] 6])
(defalias 'math-nearly-equal-float #[(a b) "\3048\304 8Z\211\305U\203W \306A@\211:\203- @\307=\203& \310AB\202/ \307AB\202/ [) A@\"\211\305=\206\354 \n:?\205\354 \n\311W\205\354 \n\312V\205\354 \313A@! U\202\354 \n\314U\203\243 \306 A@\211:\203| @\307=\203u \310AB\202~ \307AB\202~ [)\315A@\314\"\"\211:?\205\354 \n\311W\205\354 \n\312V\205\354 \313 A@! U\202\354 \n\316U\205\354 \306A@\211:\203\310 @\307=\203\301 \310AB\202\312 \307AB\202\312 [)\315 A@\314\"\"\211:?\205\354 \n\311W\205\354 \n\312V\205\354 \313A@! U)\207" [a b ediff calc-internal-prec 2 0 math-add bigpos bigneg 10 -10 math-numdigs 1 math-scale-int -1] 6])
(defalias 'math-nearly-equal #[(a b) "\302!\302 !@\303=\203 \304! @\303=\203 \304 !@\305=\203| @\305=\203l \306A@ A@\"\204M \307A@\3108\"\205{ \307 A@\310 8\"\205{ \306\3108\310 8\"\206\227 \307\3108A@\"\205\227 \307\310 8 A@\"\207\306A@ \"\205{ \307\3108 \"\207 @\305=\203\223 \306 A@\"\205\227 \307\310 8\"\207\306 \"\207" [a b math-float polar math-complex cplx math-nearly-equal-float math-nearly-zerop-float 2] 4])
(defalias 'math-nearly-zerop-float #[(a b) "A@\303=\206 \304A@!\3058\\\304 A@!\305 8\\\nZTX\207" [a b calc-internal-prec 0 math-numdigs 2] 4])
(defalias 'math-nearly-zerop #[(a b) "\302!\302 !@\303=\203 \304A@ \"\2051 \304\3058 \"\207@\306=\203- \304A@ \"\207\304 \"\207" [a b math-float cplx math-nearly-zerop-float 2 polar] 3])
(defalias 'math-hypot #[(a b) "\211:\203$ @\303>?\205' @\304=\203 A@\305=\202' \306!\202' \305=)\203/ \307 !\207 \211:\203S @\303>?\205V @\304=\203M A@\305=\202V \306!\202V \305=)\203^ \307!\207\211:?\206j @\310>)\204\220 \311!\203\206 \311 !\203\204 \232\203\202 \207\312\207\207\313\314\"\210\315 E\207 \211:?\206\234 @\310>)\204\262 \311 !\203\250 \207\313\314 \"\210\315 E\207\211:?\206\276 @\316>)\203\343 \211:?\206\316 @\316>)\203\343 \317\nT\320\321\322!\322 !\"!)!\207\242\323=\203 \242\323=\203\376 \324\325\326\327\"\326 \327\"\"!\207\324\325\326\327\" \"!\207 \242\323=\203\324\325\326 \327\"\"!\207\330\207" [a b calc-internal-prec (bigpos bigneg) float 0 math-zerop math-abs (bigpos bigneg frac float cplx polar hms) math-infinitep (var nan var-nan) calc-record-why scalarp calcFunc-hypot (bigpos bigneg frac float cplx polar) math-normalize math-sqrt math-add calcFunc-abssqr hms math-to-hms math-hypot math-from-hms deg nil] 7])
(defalias 'calcFunc-hypot 'math-hypot)
(defalias 'calcFunc-sqr #[(x) "\301\302\"\207" [x math-pow 2] 3])
(defalias 'math-nth-root #[(a n) "\306U\203\n \307 !\207 \211:\203. @\310>?\2051 @\311=\203( A@\312=\2021 \313 !\2021 \312=)\2037 \207 \211:\203q @\314=\206t @\315=?\205t @\316>\203k A@\211:\203d @\314=\202g \312W)\202t \317 !\202t \312W)\203z \320\207 \211:?\206\206 @\321>)\203\252 \322 \"\211@\203\231 \nA\202\250 ?\205\250 \323\324 !\324\nA!#)\207 \242\325=\203\351 \322 A@\" \322\306 8\" \f@\203\322
@\203\322 \325\fA
AE\202\347 ?\205\347 \323\324 !\326\324\fA!\324
A!\"#*\207 \242\311=\203\372 ?\205\323 \"\207 \242\327=\203\330 A@\"\211\205\327\n\331\306 8\"E)\207\320\207" [n a root calc-symbolic-mode num-root den-root 2 math-sqrt (bigpos bigneg) float 0 math-zerop bigneg bigpos (frac float) math-negp nil (bigpos bigneg) math-nth-root-integer math-nth-root-float math-float frac math-div-float polar math-nth-root math-div] 8])
(defalias 'math-nth-root-float #[(a math-nrf-n &optional guess) "\306 \210\307T\310 !\310 S!\311\f
\206( \312\313\314\315\fA@!\316\f8 \316\245# \245\"\"+!\207" [calc-internal-prec math-nrf-n math-nrf-nfm1 math-nrf-nf a guess math-inexact-result math-normalize math-float math-nth-root-float-iter math-make-float 1 + math-numdigs 2] 10])
(defalias 'math-nth-root-float-iter #[(a guess) "\306=\203 \307\310 \"\210\311\312\313\n \"\311 \314 \fS\"\"\"
\" \315 \"\203+ \2020 \316 \")\207" [calc-display-working-message guess math-nrf-nfm1 a math-nrf-n math-nrf-nf lots math-do-working "root" math-div-float math-add-float math-mul math-ipow math-nearly-equal-float math-nth-root-float-iter g2] 8])
(defalias 'math-nth-root-integer #[(a math-nri-n &optional guess) "\303 \206 \304\305\306!\nS\\\n\245\"\"\207" [a guess math-nri-n math-nth-root-int-iter math-scale-int 1 math-numdigs] 6])
(defalias 'math-nth-root-int-iter #[(a guess) "\306=\203 \307\310 \"\210\311\n\312 S\"\" \313\f@\314 S \"\" \311
\"\211 @ \211:\203A :\205K \315\nAA\"\316U\202K :\206K \nW*\203X \317\n@\"\202n @ \232\205l \fA\320=\205l A\320= B+\207" [calc-display-working-message guess a math-nri-n q s lots math-do-working "root" math-idivmod math-ipow math-add math-mul math-compare-bignum -1 math-nth-root-int-iter 0 g2 b] 6])
(defalias 'calcFunc-nroot #[(x n) "\302 \250\203 \303\304 \"\202 \305\304 \"\"\207" [x n calcFunc-pow math-make-frac 1 math-div] 5])
(defalias 'math-to-radians #[(a) "\242\302=\203\f \303\304\"\207 \305>\203 \306\307 \"\207\207" [a calc-angle-mode hms math-from-hms rad (deg hms) math-mul math-pi-over-180] 3])
(defalias 'math-from-radians #[(a) "\302=\203 \303 !\203 \304 \305 \"\207\306 D\207\307=\203! \310 \311\"\207 \207" [calc-angle-mode a deg math-constp math-div math-pi-over-180 calcFunc-deg hms math-to-hms rad] 3])
(defalias 'math-to-radians-2 #[(a) "\242\303=\203\f \304\305\"\207 \306>\203$ \n\203 \307\310\311\"\312\"\207\310\313 \"\207\207" [a calc-angle-mode calc-symbolic-mode hms math-from-hms rad (deg hms) math-div math-mul (var pi var-pi) 180 math-pi-over-180] 4])
(defalias 'math-from-radians-2 #[(a) "\303>\203 \203 \304\305\306\n\"\307\"\207\304\n\310 \"\207\n\207" [calc-angle-mode calc-symbolic-mode a (deg hms) math-div math-mul 180 (var pi var-pi) math-pi-over-180] 4])
(defalias 'calcFunc-sin #[(x) "\250\203\" \306=\203 \307\246\310U\202 \310U\203\" \311\312\307\245\313\"H\207\211:?\206. \n@\314>)\203A \315 \316\\\317\320\321!!!)!\207@\322=\203\210 \323!\203v \315 \316\\\320\321A@!! \320\321\3168!! \324\f! !\325!@\326
!A\"\",!\207\325\327A@!\326\3168\330A@!\"\"\207@\331=\203\236 \332!\203\236 \330\333\334\335!\"!\207\336\232\203\246 \207\337\340\"\210\327D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 0 [0 1 0 -1] math-mod 4 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-sin-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-make-sdev math-mul calcFunc-sin calcFunc-cos intv math-intv-constp math-sub math-quarter-circle nil (var nan var-nan) calc-record-why scalarp sc] 7])
(defalias 'calcFunc-cos #[(x) "\250\203\" \306=\203 \307\246\310U\202 \310U\203\" \311\312\307\245\313\"H\207\211:?\206. \n@\314>)\203A \315 \316\\\317\320\321!!!)!\207@\322=\203\210 \323!\203v \315 \316\\\320\321A@!! \320\321\3168!! \324\f! *\325*A\326
*@\"\",!\207\325\327A@!\326\3168\330A@!\"\"\207@\331=\203\332!\203\315 \316\\\320\321!! \333\334\316\f8\335 \"! +\333\334\336\f8\335 \"! ,\337,+\"\211 -\340>\203 \341A@\317\316\f8!\317\336\f8!# .-\342=\203\343+!\203\363 \344\345A@\316\"\346\336.8#\202\344\345A@\342\"\316.8\342#\202.)\202\331\336\346\342F-!\207\347\232\203\207\350\351\"\210\327D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 0 [1 0 -1 0] math-mod 4 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-cos-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-make-sdev math-mul calcFunc-cos calcFunc-sin intv math-intv-constp math-floor math-div math-pi 3 math-sub (0 1) math-sort-intv 1 math-evenp math-make-intv logior -1 (var nan var-nan) calc-record-why scalarp sc na nb span int] 8])
(defalias 'calcFunc-sincos #[(x) "\211:?\206\f @\304>)\203& \305\n\306\\\307\310\311!!!\312 A @E*!\207\312\313!\314!E\207" [x a calc-internal-prec sc (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-sin-cos-raw math-to-radians math-float vec calcFunc-sin calcFunc-cos] 6])
(defalias 'calcFunc-tan #[(x) "\250\203 \306=\203 \307\246\310U\202 \310U\203 \310\207\211:?\206' \n@\311>)\203: \312 \313\\\314\315\316!!!)!\207@\317=\203\241 \320!\203\215 \312 \313\\\315\316A@!! \315\316\3138!! \321\f! &\322&A!\203x '\204x \323\324!\210\325D\202\212 \326\327&@&A\"\327
\330&A!\"\",!\207\326\325A@!\331\3138\330\332A@!!\"\"\207@\333=\203\365 \334!\203\365 \312 \313\\\315\316!! \335\331\336\313\f8\337 \"\340 \"! (\335\331\336\341\f8\337 \"\340 \"! )()\232\205\356 \342A@\314\313\f8!\314\341\f8!#,!\206\343\207\344\232\203\375 \207\323\345\"\210\325D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 180 0 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-tan-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-tan math-make-sdev math-div-float math-sqr math-div calcFunc-cos intv math-intv-constp math-floor math-sub math-pi-over-2 math-pi 3 math-sort-intv (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var nan var-nan) scalarp sc calc-infinite-mode na nb] 8])
(defalias 'calcFunc-sec #[(x) "\250\203 \306=\203 \307\246\310U\203 \311\246\310U\203 \312\207\313\207\250\2032 \314=\2032 \310U\2032 \312\207\211:?\206> \n@\315>)\203Q \316 \317\\\320\321\322!!!)!\207@\323=\203\302 \324!\203\247 \316 \317\\\321\322A@!! \321\322\3178!! \325\f! 1\3261A!\203\217 2\204\217 \327\330!\210\331D\202\244 \332\333\3341A\"\333\335
1@\"\3361A!\"\",!\207\332\331A@!\337\335\3178\340A@!\"\336\341A@!!\"\"\207@\342=\203p\343!\203p\316 \317\\\321\322!! \344\337\345\317\f8\346 \"\347 \"! 3\344\337\345\350\f8\346 \"\347 \"! 4\344\337\317\f8\346 \"! 5\344\337\350\f8\346 \"! 6\34565\" 734\232\204\"\351\202l\352A@\320\317\f8!\320\350\f8!# 87\312=\203i\353\337\3545\312\"\317\"!\203X\355\3568A@\317\"\312\35088#\202k\355\3568A@\312\"\31788\313#\202k8).!\207\357\232\203x\207\327\360\"\210\331D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 180 0 360 1 -1 rad (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-sec-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-sec math-make-sdev math-div-float (float 1 0) math-mul math-sqr math-div calcFunc-sin calcFunc-cos intv math-intv-constp math-floor math-sub math-pi-over-2 math-pi 3 (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv math-evenp math-add math-make-intv logior (var nan var-nan) scalarp sc calc-infinite-mode na nb naa nbb span int] 8])
(defalias 'calcFunc-csc #[(x) "\250\203# \306=\203# \307Z\310\246\311U\203# \307Z\312\246\311U\203! \313\207\314\207\211:?\206/ \n@\315>)\203B \316 \317\\\320\321\322!!!)!\207@\323=\203\263 \324!\203\230 \316 \317\\\321\322A@!! \321\322\3178!! \325\f! 0\3260@!\203\200 1\204\200 \327\330!\210\331D\202\225 \332\333\3340@\"\333\335
0A\"\3360@!\"\",!\207\332\331A@!\337\335\3178\340A@!\"\336\341A@!!\"\"\207@\342=\203V\343!\203V\316 \317\\\321\322!! \344\337\317\f8\345 \"! 2\344\337\346\f8\345 \"! 3\344\337\317\f8\347 \"! 4\344\337\346\f8\347 \"! 5\35054\" 623\232\204 \351\202R\352A@\320\317\f8!\320\346\f8!# 76\313=\203O\353\3374\317\"!\203>\354\3557A@\317\"\313\34678#\202Q\354\3557A@\313\"\31778\314#\202Q7).!\207\356\232\203^\207\327\357\"\210\331D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 180 0 360 1 -1 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-csc-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-csc math-make-sdev math-div-float (float 1 0) math-mul math-sqr math-div calcFunc-cos calcFunc-sin intv math-intv-constp math-floor math-pi 3 math-pi-over-2 math-sub (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv math-evenp math-make-intv logior (var nan var-nan) scalarp sc calc-infinite-mode na nb naa nbb span int] 8])
(defalias 'calcFunc-cot #[(x) "\250\203 \306=\203 \307Z\310\246\311U\202 \311U\203 \311\207\211:?\206) \n@\312>)\203< \313 \314\\\315\316\317!!!)!\207@\320=\203\243 \321!\203\217 \313 \314\\\316\317A@!! \316\317\3148!! \322\f! %\323%@!\203z &\204z \324\325!\210\326D\202\214 \327\330%A%@\"\330
\331%@!\"\",!\207\327\326A@!\332\3148\331\333A@!!\"\"\207@\334=\203\357 \335!\203\357 \313 \314\\\316\317!! \336\332\314\f8\337 \"! '\336\332\340\f8\337 \"! ('(\232\205\350 \341A@\315\314\f8!\315\340\f8!#,!\206\377 \342\207\343\232\203\367 \207\324\344\"\210\326D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 180 0 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-cot-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-cot math-make-sdev math-div-float math-sqr math-div calcFunc-sin intv math-intv-constp math-floor math-pi 3 math-sort-intv (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var nan var-nan) scalarp sc calc-infinite-mode na nb] 8])
(defalias 'math-sin-raw #[(x &optional orgx) "@\306=\2032 \307\3108!\311\312 \"\313A@!\306\314 @\314\315 \n\"\316\"\"\314 A\314\317 \n\"\320\"\"E+\207@\321=\203A \322\323\324!!!\207A@\211 :\203Q \f@\325=\202T \f\326W)\203i \327\323\327!
\203e
\202f \"!\207\330\331\"\203\201 \323\332\333 \"
\203~
\202 \"\207\334
\203\213
\202\214 \"\207" [x expx expmx sc a orgx cplx math-exp-raw 2 math-div-float (float 1 0) math-sin-cos-raw math-mul-float math-add-float (float 5 -1) math-sub-float (float 5 -1) polar math-polar math-sin-raw math-complex bigneg 0 math-neg-float math-lessp-float (float 7 0) math-mod math-two-pi math-sin-raw-2] 9])
(defalias 'math-cos-raw #[(x) "\242\301=\203 \302\303\304!!!\207\305\306\307 \"\"\207" [x polar math-polar math-cos-raw math-complex math-sin-raw math-sub math-pi-over-2] 4])
(defalias 'math-sec-raw #[(x) "@\306=\203c \307\310\"\311\3128!\313\314 \"\315\316 \n\"\317\"\315\320 \n\"\321\" \322A@! \320\315\323
@!\323 !\"\315\323
A!\323\f!\"\"\211 A@\324=?\205` \306\313\315
A\f\" \"\313\315
@ \" \"E.\207@\325=\203r \326\327\330!!!\207\331!\211 \324=\203\204 \332\333\324\"\202\211 \313\334 \")\207" [x expx expmx sh ch sc cplx math-mul (float 1 0) math-exp-raw 2 math-div-float (float 1 0) math-mul-float math-sub-float (float 5 -1) math-add-float (float 5 -1) math-sin-cos-raw math-sqr 0 polar math-polar math-sec-raw math-complex math-cos-raw math-div 1 (float 1 0) d cs] 7])
(defalias 'math-csc-raw #[(x) "@\306=\203c \307\310\"\311\3128!\313\314 \"\315\316 \n\"\317\"\315\320 \n\"\321\" \322A@! \320\315\323
@!\323\f!\"\315\323
A!\323 !\"\"\211 A@\324=?\205` \306\313\315
@\f\" \"\313\315
A \" \"E.\207@\325=\203r \326\327\330!!!\207\331!\211 \324=\203\204 \332\333\324\"\202\211 \313\334 \")\207" [x expx expmx sh ch sc cplx math-mul (float 1 0) math-exp-raw 2 math-div-float (float 1 0) math-mul-float math-sub-float (float 5 -1) math-add-float (float 5 -1) math-sin-cos-raw math-sqr 0 polar math-polar math-csc-raw math-complex math-sin-raw math-div 1 (float 1 0) d sn] 7])
(defalias 'math-cot-raw #[(x) "@\306=\203Z \307\310\"\311\3128!\313\314 \"\315\316 \n\"\317\"\315\320 \n\"\321\" \322A@! \320\323
@!\323 !\"\211 A@\324=?\205W \306\313\315
@
A\"\"\325\313\315 \f\"\"!E.\207@\326=\203i \327\330\331!!!\207\322!\211 @A@\324=\203~ \332
A\324\"\202\204 \313
A
@\")\207" [x expx expmx sh ch sc cplx math-mul (float 1 0) math-exp-raw 2 math-div-float (float 1 0) math-mul-float math-sub-float (float 5 -1) math-add-float (float 5 -1) math-sin-cos-raw math-sqr 0 math-neg polar math-polar math-cot-raw math-complex math-div d] 8])
(defalias 'math-sin-cos-raw #[(x) "\301!\302!B\207" [x math-sin-raw math-cos-raw] 3])
(defalias 'math-tan-raw #[(x) "@\305=\203E \306\307\"\310\3118!\312\313 \"\314A@!\315 A\316\315 \n\"\317\"\"\211 A@\320=?\205C \305\312 @\f\"\312\316\321 \n\"\322\"\f\"E-\207@\323=\203T \324\325\326!!!\207\314!\211AA@\320=\203i \327 @\320\"\202o \312 @ A\")\207" [x expx expmx sc d cplx math-mul (float 2 0) math-exp-raw 2 math-div-float (float 1 0) math-sin-cos-raw math-add-float math-mul-float (float 5 -1) 0 math-sub-float (float 5 -1) polar math-polar math-tan-raw math-complex math-div] 8])
(defalias 'math-sin-raw-2 #[(x orgx) "\306\307 \"\211A@\211:\203 \n@\310=\202 \n\311W)\203* \312\313\306\314 \" \"!\202~ \315\316 \"\2039 \317 \"\202~ \315\320\316 !\"\203P \320\317\321\307 \" \"!\202~ \322\fS \323 \")!\203a \324\202~ \325\326\"\206~
\203s \327\330\331\"\202~ \332\333\334\312\335!!%)\207" [x xmpo2 a orgx calc-internal-prec calc-symbolic-mode math-sub-float math-pi-over-2 bigneg 0 math-neg-float math-sin-raw-2 math-pi math-lessp-float math-pi-over-4 math-cos-raw-2 math-neg math-add math-normalize math-nearly-zerop-float (float 0 0) math-use-emacs-fn sin signal inexact-result nil math-sin-series 6 4 math-sqr-float] 9])
(defalias 'math-cos-raw-2 #[(x orgx) "\305S\306 \n\")!\203 \307\207\310\311 \"\2063 \203 \312\313\314\"\207\315\316 !! \317\320\321\322\f\323\"\"\324\325\f\211%)\207" [calc-internal-prec x orgx calc-symbolic-mode xnegsqr math-normalize math-nearly-zerop-float (float 1 0) math-use-emacs-fn cos signal inexact-result nil math-neg-float math-sqr-float math-sin-series math-add-float (float 1 0) math-mul-float (float 5 -1) 24 5] 6])
(defalias 'math-sin-series #[(sum nfac n x xnegsqr) "\306=\203 \307\310 \"\210\311\n \" \312 \313\f\314
!\"\" \315 \"\203' \2029 \316\317
\211T_\"\320\\\f %*\207" [calc-display-working-message sum x xnegsqr nextx nfac lots math-do-working "sin" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-sin-series math-mul 2 nextsum n] 6])
(defalias 'calcFunc-arcsin #[(x) "\305=\203 \305\207\306=\203 \307=\203 \310\207\311=\203$ \307=\203$ \312\207\n\203- \313\314\315\"\207\211:?\2069 @\316>)\203L \317\f\320\\ \321\322\323!!!)!\207@\324=\203l \325\326A@!\321\327\3208\330\331\306\332A@!\"!\"!\"\207@\333=\203\203 \334A@\326\3208!\326\3358!#\207\336\232\203\213 \207\337\340\"\210\326D\207" [x calc-angle-mode calc-symbolic-mode a calc-internal-prec 0 1 deg 90 -1 -90 signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize 2 math-from-radians math-arcsin-raw math-float sdev math-make-sdev calcFunc-arcsin math-div math-sqrt math-sub math-sqr intv math-sort-intv 3 (var nan var-nan) calc-record-why numberp] 11])
(defalias 'calcFunc-arccos #[(x) "\305=\203 \306\207\306=\203 \307=\203 \310\207\311=\203$ \307=\203$ \312\207\n\203- \313\314\315\"\207\211:?\2069 @\316>)\203L \317\f\320\\ \321\322\323!!!)!\207@\324=\203l \325\326A@!\321\327\3208\330\331\305\332A@!\"!\"!\"\207@\333=\203\203 \334A@\326\3208!\326\3358!#\207\336\232\203\213 \207\337\340\"\210\326D\207" [x calc-angle-mode calc-symbolic-mode a calc-internal-prec 1 0 deg 90 -1 180 signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize 2 math-from-radians math-arccos-raw math-float sdev math-make-sdev calcFunc-arccos math-div math-sqrt math-sub math-sqr intv math-sort-intv 3 (var nan var-nan) calc-record-why numberp] 11])
(defalias 'calcFunc-arctan #[(x) "\304=\203 \304\207\305=\203 \306=\203 \307\207\310=\203$ \306=\203$ \311\207\211:?\2060 \n@\312>)\203C \313 \314\\\315\316\317!!!)!\207@\320=\203a \321\322A@!\315\323\3148\324\305\325A@!\"\"!\"\207@\326=\203x \327A@\322\3148!\322\3308!#\207\331\232\203\202 \332\333!\207\334\232\203\216 \335\332\333!!\207\336\232\203\226 \207\337\340\"\210\322D\207" [x calc-angle-mode a calc-internal-prec 0 1 deg 45 -1 -45 (bigpos bigneg frac float cplx polar) math-normalize 2 math-from-radians math-arctan-raw math-float sdev math-make-sdev calcFunc-arctan math-div math-add math-sqr intv math-sort-intv 3 (var inf var-inf) math-quarter-circle t (neg (var inf var-inf)) math-neg (var nan var-nan) calc-record-why numberp] 10])
(defalias 'math-arcsin-raw #[(x) "\303\304\305\306!\"!@\307>\204 @\310>\203- \311\n\312\\\313\314\315\316\313\317\" \"!\")!\2021 \320 \")\207" [x a calc-internal-prec math-sqrt-raw math-sub (float 1 0) math-sqr (cplx polar) (cplx polar) math-normalize 2 math-mul (cplx 0 -1) math-ln-raw math-add (cplx 0 1) math-arctan2-raw] 8])
(defalias 'math-arccos-raw #[(x) "\301\302 \303!\"\207" [x math-sub math-pi-over-2 math-arcsin-raw] 4])
(defalias 'math-arctan-raw #[(x) "@\304>\203& \305 \306\\\307\310\311\312\313\314\315\"\"!\311\312\313\314\316\"\"!\"\317\")!\207A@\211:\2036 \n@\320=\2029 \n\321W)\203E \322\323\322!!!\207\324!\203M \207\325\326\"\206\255 \203] \327\330\331\"\207\332\313\"\203g \333 \207\332\334\"\203s \335\333 !\207\336\337\"\203\243 \336\340\"\203\217 \341\342\343 \344\"\323\345\346\"!\"\207\341\342\343 \347\"\323\345\341\350\"\351\352\"\"!\"\207\353\354\322\355!!$\207" [x calc-internal-prec a calc-symbolic-mode (cplx polar) math-normalize 2 math-div math-sub math-ln-raw math-add 1 math-mul (cplx 0 1) (cplx 0 -1) (cplx 0 2) bigneg 0 math-neg-float math-arctan-raw math-zerop math-use-emacs-fn atan signal inexact-result nil math-equal-int math-pi-over-4 -1 math-neg math-lessp-float (float 414214 -6) (float 1 0) math-sub-float math-mul-float math-pi (float 5 -1) math-div-float (float 1 0) (float 25 -2) (float 1 0) math-add-float (float 1 0) math-arctan-series 3 math-sqr-float] 11])
(defalias 'math-arctan-series #[(sum n x xnegsqr) "\306=\203 \307\310 \"\210\311\n \" \312 \313\f\314
!\"\" \315 \"\203' \2020 \316
\317\\\f $*\207" [calc-display-working-message sum x xnegsqr nextx n lots math-do-working "arctan" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-arctan-series 2 nextsum] 6])
(defalias 'calcFunc-arctan2 #[(y x) "\211:?\206\f @\304>)\203< \n\211:?\206 @\304>)\2032 \305 \306\\\307\310\311!\311\n!\"!)!\207\312\313\n\"\210\314\nE\207\315\n!\204H \316\n!\203\237 \315!\204T \316!\203\237 \317\n!\203_ \320\202r \321\n!\203j \322\202r \323\n!\204r \324\317!\203} \320\202\220 \321!\203\210 \322\202\220 \323!\204\220 \324\203\235 \n\203\235 \314\n\"\207\325\207\312\313\"\210\314\nE\207" [y a x calc-internal-prec (bigpos bigneg frac float hms) math-normalize 2 math-from-radians math-arctan2-raw math-float calc-record-why anglep calcFunc-arctan2 math-infinitep math-anglep math-posp 1 math-negp -1 math-zerop nil (var nan var-nan)] 7])
(defalias 'math-arctan2-raw #[(y x) "\302!\203 \303 !\203 \304 \207\305 !\204 \305!\203 \306\207\307\207\302 !\2033 \310!\203. \311 \207\312\311 !\207\310 !\203@ \313\314 \"!\207\310!\203Q \315\313\314 \"!\304 \"\207\316\313\314 \"!\304 \"\207" [y x math-zerop math-negp math-pi math-floatp (float 0 0) 0 math-posp math-pi-over-2 math-neg math-arctan-raw math-div-float math-add-float math-sub-float] 5])
(defalias 'calcFunc-arcsincos #[(x) "\211:\205 @\302=)\203 G\303U\203 \304\3058A@\"\207\306\307\"\207" [x a vec 3 calcFunc-arctan2 2 math-reject-arg "*Two-element vector expected"] 4])
(defalias 'calcFunc-exp #[(x) "\305=\203 \306\207\307>\203 \203 \306=\203 \310\207\311\306\312\"\207\211:?\206+ \n@\313>)\203< \314 \315\\\316\317!!)!\207\242\320=\203T \321A@! \322\f\323\3158\f\"\")\207\242\324=\203k \325A@\321\3158!\321\3268!#\207\327\232\203s \207\330\232\203{ \305\207\331\232\203\203 \207\332\333\"\210\321D\207" [x calc-symbolic-mode a calc-internal-prec ex 0 1 (1 -1) (var e var-e) math-div (var e var-e) (bigpos bigneg frac float cplx polar) math-normalize 2 math-exp-raw math-float sdev calcFunc-exp math-make-sdev math-mul intv math-make-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 7])
(defalias 'calcFunc-expm1 #[(x) "\305=\203 \305\207\306!\203 \307\207 \203 \310\311\312\"\207\211:?\206% \n@\313>)\203V \314 \315\\\316!\211@\317=\203M \320\321\"\203M \320\322\"\203M \323!\202S \324\325!\326\"*!\207\242\327=\203\211 \330!\203w \331A@! \332\f\333\3158\324\f\334\"\"\")\207\332\331A@!\333\3158\335A@!\"\"\207\242\336=\203\240 \337A@\331\3158!\331\3408!#\207\341\232\203\250 \207\342\232\203\260 \326\207\343\232\203\270 \207\344\345\"\210\331D\207" [x calc-symbolic-mode a calc-internal-prec ex 0 math-zerop (float 0 0) signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize 2 math-float float math-lessp-float (float 1 0) (float -1 0) math-exp-minus-1-raw math-add math-exp-raw -1 sdev math-constp calcFunc-expm1 math-make-sdev math-mul 1 calcFunc-exp intv math-make-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 8])
(defalias 'calcFunc-exp10 #[(x) "\301=\203 \302\207\303\304\"\207" [x 0 1 math-pow (float 1 1)] 3])
(defalias 'math-exp-raw #[(x) "\306!\203 \307\207 \203 \310\311\312\"\207@\313=\2032 \314A@!\315\3168!\313\317 \nA\"\317 \n@\"E*\207@\320=\203K \321! \320\314\fA@!\322\316\f8!E)\207\323\324\"\206\251 \325\326\"\204` \325\327\"\203\243 \325\330\"\203m \331 \210\202w \325\332\"\203w \333 \210\317\334\" \335
A@\316
8\" '\336\317\337'!\340\"\" (\317\341\342 '\"\343\344\345(!\"\"+\207\343\346\345!\"\207" [x calc-symbolic-mode sc expx xc two-x math-zerop (float 1 0) signal inexact-result nil cplx math-exp-raw math-sin-cos-raw 2 math-mul-float polar math-complex math-from-radians math-use-emacs-fn exp math-lessp-float (float 5 -1) (float -5 -1) (float 921035 1) math-overflow (float -921035 1) math-underflow (float 2 0) math-scale-int math-sub-float math-float (float 5 -1) math-ipow math-sqrt-e math-add-float (float 1 0) math-exp-minus-1-raw (float 1 0) hint hfrac] 6])
(defalias 'math-exp-minus-1-raw #[(x) "\301\302\303\211%\207" [x math-exp-series 2 3] 6])
(defalias 'math-exp-series #[(sum nfac n xpow x) "\306=\203 \307\310 \"\210\311\n \" \312 \313\f\314
!\"\" \315 \"\203' \2025 \316\317
\"T\f %*\207" [calc-display-working-message sum xpow x nextx nfac lots math-do-working "exp" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-exp-series math-mul nextsum n] 6])
(defalias 'calcFunc-ln #[(x) "\304!\203 \203\f \305\207\306\307\"\207\310=\203 \311\207\211:?\206% \n@\312>)\2036 \313 \314\\\315\316!!)!\207\242\317=\203M \320\321A@!\322\3148A@\"\"\207\242\323=\203\335 \3148\211:\203\220 \n@\324=\206\223 \n@\325=?\205\223 \n@\326>\203\212 \nA@\211:\203\203 \n@\324=\202\206 \n\311V)\202\223 \327\n!\202\223 \n\311V)\204\312 \3148\211:\203\275 \n@\330>?\205\300 \n@\331=\203\267 \nA@\311=\202\300 \304\n!\202\300 \n\311=)\204\312 \332!\204\335 \333\334A@\321\3148!\321\3358!#)\207\336\232\203\345 \310\207\242\337=\203 A@\340\232\203 \341\3148!\203 \3148\207\342!\203\343\232\203\207\344\207\345\346\"\210\321D\207" [x calc-infinite-mode a calc-internal-prec math-zerop (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" 1 0 (bigpos bigneg frac float cplx polar) math-normalize 2 math-ln-raw math-float sdev math-make-sdev calcFunc-ln math-div intv bigpos bigneg (frac float) math-posp (bigpos bigneg) float math-intv-constp t math-make-intv 3 (var e var-e) ^ (var e var-e) math-known-realp math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp] 7])
(defalias 'calcFunc-log10 #[(x) "\306\307\"\203 \310!\203 \311\207\312\207\211:?\206 @\313>)\203; \314!\203; \315\316\"\211@\2055 \nA\211)\203; \207\242\317=\203a A@\307=\203a \315\3208\316\"\211@\205[ \nA[\211)\203a \207\321!\203r \203m \322\207\323\324\"\207\f\203{ \325\326\327\"\207\211:?\206\207 @\330>)\203\376 \331
\320\\ \332!\211 3A@\312=\203\242 \323\324\"\2103A@\211:\203\263 @\333=\202\266 \312V)\203\363 3A@\307=\203\314 \332\32038!\202\373 \3343A@!S 4\335\336\337\3403A@4[E!\341 \"\332\320384\\!\")\202\373 \342\3433!\341 \"*!\207\242\344=\203\345\346A@!\342\3208\347A@\341 \"\"\"\207\242\350=\203y\3208\211:\203\\ @\333=\206_ @\351=?\205_ @\352>\203V A@\211:\203O @\333=\202R \312V)\202_\314 !\202_ \312V)\204i\353!\204y\354A@\346\3208!\346\3558!#\207\356!\203\211\357\232\203\207\207\360\207\361\362\"\210\346D\207" [x a res calc-infinite-mode calc-symbolic-mode calc-internal-prec math-equal-int 1 math-floatp (float 0 0) 0 (bigpos bigneg) math-posp math-integer-log 10 frac 2 math-zerop (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize math-float bigpos math-numdigs math-add-float math-div-float math-ln-raw-2 float math-ln-10 math-div calcFunc-ln sdev math-make-sdev calcFunc-log10 math-mul intv bigneg (frac float) math-intv-constp math-make-intv 3 math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp xf xdigs] 8])
(defalias 'calcFunc-log #[(x &optional b) "\203\n \306\232\203 \307\310 D!\207\311=\204 \312\232\203\" \307\313 D!\207\314 !\203: \n\2035 \315\310 !\310!\"\207\316 \317\"\207\314!\203R \n\203M \315\310 !\310!\"\207\316\317\"\207\320\321\"\203i \n\203d \315\310 !\322\"\207\316\323\"\207\320 \321\"\203z \324!\203x \325\207\322\207 \211:?\206\206 @\326>)\203#\211:?\206\226 @\326>)\203#\327 !\203#\327!\203#\321 \330 \321 \331 \"\332U*\203\274 \202\302 \332\315\321 \" 2\321\331 \"\332U*\203\326 \202\335 \f[\315\321\" 323\331 \"\332U*\203\372 \33332\"\211\202 \33323\"\211 4@\205
\203\315\321\f4A_\"\202\f4A_\211-\203# \2075\203-\334\335\330\"\207 \211:?\2069 @\336>)\203a\211:?\206I @\336>)\203a\3076\337\\ 6\315\340\341 !!\342!\")!\207 \242\343=\203\216\211:?\206t @\336>)\203\216\344\345 A@\"\315\337 8\346 A@\342!\"\"\"\207 \242\347=\203\366\337 8\211:\203\321 @\350=\206\324 @\351=?\205\324 @\352>\203\313 A@\211:\203\304 @\350=\202\307 \322V)\202\324\327 !\202\324 \322V)\204\336\353 !\204\366\354!\203\366\355 A@\345\337 8\"\345\356 8\"#\207 \242\347=\204\242\347=\203
\315\310 !\310!\"\207\357 !\204\357!\203\"\315\310 !\310!\"\207\211:?\206. @\336>)\203:\360\361 \"\210\202?\360\361\"\210\345 E\207" [b x calc-infinite-mode a sign inv (var e var-e) math-normalize calcFunc-ln 10 (float 1 1) calcFunc-log10 math-zerop math-div math-reject-arg "*Logarithm of zero" math-equal-int 1 0 "*Logarithm base one" math-floatp (float 0 0) (bigpos bigneg frac) math-posp nil math-compare -1 math-integer-log signal inexact-result (bigpos bigneg frac float cplx polar) 2 math-ln-raw math-float math-log-base-raw sdev math-make-sdev calcFunc-log math-mul intv bigpos bigneg (frac float) math-intv-constp math-realp math-make-intv 3 math-infinitep calc-record-why numberp xx bb res calc-symbolic-mode calc-internal-prec] 9])
(defalias 'calcFunc-alog #[(x &optional b) "\203\n \302\232\203 \303\304 D!\207\305 \"\207" [b x (var e var-e) math-normalize calcFunc-exp math-pow] 3])
(defalias 'calcFunc-ilog #[(x b) "\303!\203P \304=\204P \303 !\203P \304=\204P \305=\203# \306\307\"\207 \211:\203< :\205D \310\nA A\"\311U\202D :\206D \n W*\203J \304\207\312 \"A\207\313\314 \"!\207" [x b a math-natnump 0 1 math-reject-arg "*Logarithm base one" math-compare-bignum -1 math-integer-log math-floor calcFunc-log] 5])
(defalias 'math-integer-log #[(x b) "C\306!\307\211\211 \f \310\"\311U*\204) \f
B\306\f!\202
\312\313
GS\"\211
@
A\211\203q \f \310\"\311U*\203q \314\245\315\f
@\" \310\"\311U*\2045 \n \\\2025 \f\232\n-B\207" [b n sum next pow pows math-sqr nil math-compare -1 lsh 1 2 math-mul x a] 6])
(defvar math-log-base-cache nil)
(defalias 'math-log-base-raw #[(b) "@ \232\203 A@\n=\204 \n\303\304 !!E\3058\207" [math-log-base-cache b calc-internal-prec math-ln-raw math-float 2] 5])
(defalias 'calcFunc-lnp1 #[(x) "\306\211 =\206# \n:\205# \n@\307=\205# \nA@ =\205# \310\n8\311U*\2032 \203- \312\207\313\314\"\207\311=\203: \311\207\315!\203B \316\207\f\203K \317\320\321\"\207\211:?\206W \n@\322>)\203\210 \323
\310\\ \324!\211@\307=\203 \325\326\"\203 \325\327\"\203 \330!\202\205 \331\332\333\"!*!\207\242\334=\203\242 \335\336A@!\337\3108\340A@\341\"\"\"\207\242\342=\203\3108\211:\203\345 \n@\343=\206\350 \n@\344=?\205\350 \n@\345>\203\337 \nA@\211:\203\330 \n@\343=\202\333 \n\311V)\202\350 \346\n!\202\350 \n\311V)\204\362 \347!\204\350A@\336\3108!\336\3518!#\207\352!\203\353\232\203\207\354\207\355\356\"\210\336D\207" [x b a calc-infinite-mode calc-symbolic-mode calc-internal-prec -1 float 2 0 (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" math-zerop (float 0 0) signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize math-float math-lessp-float (float 5 -1) (float -5 -1) math-ln-plus-1-raw math-ln-raw math-add-float (float 1 0) sdev math-make-sdev calcFunc-lnp1 math-div math-add 1 intv bigpos bigneg (frac float) math-posp math-intv-constp math-make-intv 3 math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp] 8])
(defalias 'math-ln-raw #[(x) "\242\306=\203# \306\307\310\311\312A@!\312\3138!\"!\314\"\315\3138A@\"E\207@\316=\2039 \317\306\310A@!\320\3138!E!\207\321\211 =\206\\ \n:\205\\ \n@\322=\205\\ \nA@ =\205\\ \313\n8\323U*\203b \324\207 \203k \325\326\327\"\207\330A@!\203\231 \331\332\"\206\277 \333A@!S \311\334\322A@\f[E!\307\335\3138\f\\!\336 \"\")\207\337!\203\244 \340\341\"\207
\316=\203\266 \317\306\310\342!!\343 E!\207\306\310\342!!\343 E\207" [x b a calc-symbolic-mode xdigs calc-complex-mode cplx math-mul-float math-ln-raw math-add-float math-sqr-float 2 (float 5 -1) math-arctan2-raw polar math-polar math-to-radians 1 float 0 (float 0 0) signal inexact-result nil math-posp math-use-emacs-fn log math-numdigs math-ln-raw-2 math-float math-ln-10 math-zerop math-reject-arg "*Logarithm of zero" math-neg-float math-pi] 9])
(defalias 'math-ln-raw-2 #[(x) "\301\302\"\203 \303\304\305\306\"!\307 \"\207\310\311\312\313\"\303\314\"\"!\207" [x math-lessp-float (float 14 -1) math-add-float math-ln-raw-2 math-mul-float (float 5 -1) math-ln-2 math-ln-raw-3 math-div-float math-sub-float (float 1 0) (float 1 0)] 6])
(defalias 'math-ln-raw-3 #[(x) "\301\302\303\304!$\305\"\207" [x math-mul-float math-ln-raw-series 3 math-sqr-float (float 2 0)] 7])
(defalias 'math-ln-raw-series #[(sum n x xsqr) "\306=\203 \307\310 \"\210\311\n \" \312 \313\f\314
!\"\" \315 \"\203' \2020 \316
\317\\\f $*\207" [calc-display-working-message sum x xsqr nextx n lots math-do-working "log" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-ln-raw-series 2 nextsum] 6])
(defalias 'math-ln-plus-1-raw #[(x) "\301\302\303!$\207" [x math-lnp1-series 2 math-neg] 6])
(defalias 'math-lnp1-series #[(sum n xpow x) "\306=\203 \307\310 \"\210\311\n \" \312 \313\f\314
!\"\" \315 \"\203' \202/ \316
T\f $*\207" [calc-display-working-message sum xpow x nextx n lots math-do-working "lnp1" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-lnp1-series nextsum] 6])
#@30 An approximation for ln(10).
(defconst math-approx-ln-10 (math-read-number-simple "2.302585092994045684018") (#$ . 49218))
(defvar math-ln-10-cache-prec (byte-code ":\203 \301A@!\207\203 \301\302!!A@\207\303\207" [math-approx-ln-10 math-numdigs eval -100] 3))
(defvar math-ln-10-cache (byte-code ":\203 \207\203 \301!\207\207" [math-approx-ln-10 eval] 2))
(defvar math-ln-10-last-prec -100)
(defvar math-ln-10-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-ln-10-cache-prec math-ln-10-last-prec] 3)
(defalias 'math-ln-10 #[nil " U\204 \305\n Y\204 \306\\\307\310!) \311\\ ! \f\207" [math-ln-10-last-prec calc-internal-prec math-ln-10-cache-prec math-ln-10-cache math-ln-10-last math-normalize 4 math-ln-raw-2 (float 1 1) 2] 3])
#@29 An approximation for ln(2).
(defconst math-approx-ln-2 (math-read-number-simple "0.693147180559945309417") (#$ . 49993))
(defvar math-ln-2-cache-prec (byte-code ":\203 \301A@!\207\203 \301\302!!A@\207\303\207" [math-approx-ln-2 math-numdigs eval -100] 3))
(defvar math-ln-2-cache (byte-code ":\203 \207\203 \301!\207\207" [math-approx-ln-2 eval] 2))
(defvar math-ln-2-last-prec -100)
(defvar math-ln-2-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-ln-2-cache-prec math-ln-2-last-prec] 3)
(defalias 'math-ln-2 #[nil " U\204! \305\n Y\204 \306\\\307\310\311!!) \312\\ ! \f\207" [math-ln-2-last-prec calc-internal-prec math-ln-2-cache-prec math-ln-2-cache math-ln-2-last math-normalize 4 math-ln-raw-3 math-float (frac 1 3) 2] 4])
(defalias 'calcFunc-sinh #[(x) "\306=\203 \306\207 \203 \307\310\311\312D\312\313DDE\314E!\207\211:?\206( \n@\315>)\203M \2035 \316\317\320\"\210\307\f\314\\ \321\322!! \323\324
\325\326
\"\"\327\"*!\207\242\330=\203f \331\332A@!\323\3148\333A@!\"\"\207@\334=\203} \335A@\332\3148!\332\3368!#\207\337\232\204\217 \340\232\204\217 \341\232\203\221 \207\342\343\"\210\332D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 math-normalize / - calcFunc-exp neg 2 (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-mul math-add math-div -1 (float 5 -1) sdev math-make-sdev calcFunc-sinh calcFunc-cosh intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 8])
(put 'calcFunc-sinh 'math-expandable t)
(defalias 'calcFunc-cosh #[(x) "\306=\203 \307\207 \203 \310\311\312\313D\313\314DDE\315E!\207\211:?\206( \n@\316>)\203M \2035 \317\320\321\"\210\310\f\315\\ \322\323!! \324\325
\326\307
\"\"\327\"*!\207\242\330=\203f \331\332A@!\324\3158\333A@!\"\"\207@\334=\203\207 \335!\203\207 \336!\337A@\332\3158!\332\3408!#\207\341\232\204\231 \342\232\204\231 \343\232\203\235 \336!\207\344\345\"\210\332D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 1 math-normalize / + calcFunc-exp neg 2 (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-mul math-add math-div (float 5 -1) sdev math-make-sdev calcFunc-cosh calcFunc-sinh intv math-intv-constp math-abs math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 8])
(put 'calcFunc-cosh 'math-expandable t)
(defalias 'calcFunc-tanh #[(x) "\306=\203 \306\207 \203& \307\310D\310\311DD\307\312\313 \nE\314 \nEE!*!\207\211 :?\2062 \f@\315>)\203^
\203? \316\317\320\"\210\307%\321\\ %\310\322!!\323\324 \"\323\325 \n\"\326 \n\"\"+!\207\242\327=\203y \330\331A@!\323\3218\332\333A@!!\"\"\207@\334=\203\220 \335A@\331\3218!\331\3368!#\207\337\232\203\230 \324\207\340\232\203\240 \341\207\342\232\203\250 \207\343\344\"\210\331D\207" [x math-expand-formulas expmx expx a calc-symbolic-mode 0 math-normalize calcFunc-exp neg / - + (bigpos bigneg frac float cplx polar) signal inexact-result nil 2 math-float math-div 1 math-sub math-add sdev math-make-sdev calcFunc-tanh math-sqr calcFunc-cosh intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) -1 (var nan var-nan) calc-record-why numberp calc-internal-prec] 8])
(put 'calcFunc-tanh 'math-expandable t)
(defalias 'calcFunc-sech #[(x) "\306=\203 \307\207 \203 \310\311\312\313\314D\314\315DDEE!\207\211:?\206( \n@\316>)\203M \2035 \317\320\321\"\210\310\f\312\\ \322\323!! \324\325\326
\324\307
\"\"\"*!\207\242\327=\203m \330\331A@!\332\3128\332\331A@!\333A@!\"\"\"\207@\334=\203\216 \335!\203\216 \336!\337A@\331\3128!\331\3408!#\207\341\232\204\232 \342\232\203\234 \306\207\343\232\203\244 \207\344\345\"\210\331D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 1 math-normalize / 2 + calcFunc-exp neg (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-div (float 2 0) math-add sdev math-make-sdev calcFunc-sech math-mul calcFunc-tanh intv math-intv-constp math-abs math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 9])
(put 'calcFunc-sech 'math-expandable t)
(defalias 'calcFunc-csch #[(x) "\306=\203 \307\310\306\"\207 \203 \311\312\313\314\315D\315\316DDEE!\207\211:?\206+ \n@\317>)\203P \2038 \320\321\322\"\210\311\f\313\\ \323\324!! \307\325\326
\307\327
\"\"\"*!\207\242\330=\203p \331\332A@!\333\3138\333\332A@!\334A@!\"\"\"\207@\335=\203\3138\211:\203\263 \n@\336=\206\266 \n@\337=?\205\266 \n@\340>\203\255 \nA@\211:\203\246 \n@\336=\202\251 \n\306W)\202\266 \341\n!\202\266 \n\306W)\203\377 \3428\211:\203\366 \n@\337=\206\371 \n@\336=?\205\371 \n@\343>\203\360 \nA@\211:\203\351 \n@\337=\202\354 \n\306V)\202\371 \344\n!\202\371 \n\306V)\203\377 \345\207\346A@\332\3138!\332\3428!#\207\347\232\204\350\232\203 \306\207\351\232\203%\207\352\353\"\210\332D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 math-div 1 math-normalize / 2 - calcFunc-exp neg (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float (float 2 0) math-add -1 sdev math-make-sdev calcFunc-csch math-mul calcFunc-coth intv bigneg bigpos (frac float) math-negp 3 (frac float) math-posp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 9])
(put 'calcFunc-csch 'math-expandable t)
(defalias 'calcFunc-coth #[(x) "\306=\203 \307\310\306\"\207 \203) \311\312D\312\313DD\311\314\315 \nE\316 \nEE!*!\207\211 :?\2065 \f@\317>)\203a
\203B \320\321\322\"\210\311,\323\\ ,\312\324!!\307\310 \"\307\325 \n\"\326 \n\"\"+!\207\242\327=\203| \330\331A@!\307\3238\332\333A@!!\"\"\207@\334=\203\3238\211 :\203\277 \f@\335=\206\302 \f@\336=?\205\302 \f@\337>\203\271 \fA@\211 :\203\262 \f@\335=\202\265 \f\306W)\202\302 \340\f!\202\302 \f\306W)\203 \3418\211 :\203\f@\336=\206\f@\335=?\205\f@\342>\203\374 \fA@\211 :\203\365 \f@\336=\202\370 \f\306V)\202\343\f!\202\f\306V)\203 \344\207\345A@\331\3238!\331\3418!#\207\346\232\203#\310\207\347\232\203+\350\207\351\232\2033\207\352\353\"\210\331D\207" [x math-expand-formulas expmx expx a calc-symbolic-mode 0 math-div 1 math-normalize calcFunc-exp neg / + - (bigpos bigneg frac float cplx polar) signal inexact-result nil 2 math-float math-add math-sub sdev math-make-sdev calcFunc-coth math-sqr calcFunc-sinh intv bigneg bigpos (frac float) math-negp 3 (frac float) math-posp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv (var inf var-inf) (neg (var inf var-inf)) -1 (var nan var-nan) calc-record-why numberp calc-internal-prec] 8])
(put 'calcFunc-coth 'math-expandable t)
(defalias 'calcFunc-arcsinh #[(x) "\305=\203 \305\207 \203 \306\307\310\311\310\312\313E\314EDED!\207\211:?\206) \n@\315>)\203K \2036 \316\317\320\"\210\306\f\313\\ \321\322\323\322\324!\325\"!\"!)!\207\242\326=\203i \327\330A@!\331\3138\332\322\324A@!\314\"!\"\"\207@\333=\203\200 \334A@\330\3138!\330\3358!#\207\336\232\204\222 \337\232\204\222 \340\232\203\224 \207\341\342\"\210\330D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec 0 math-normalize calcFunc-ln + calcFunc-sqrt ^ 2 1 (bigpos bigneg frac float cplx polar) signal inexact-result nil math-ln-raw math-add math-sqrt-raw math-sqr (float 1 0) sdev math-make-sdev calcFunc-arcsinh math-div math-sqrt intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 10])
(put 'calcFunc-arcsinh 'math-expandable t)
(defalias 'calcFunc-arccosh #[(x) "\306=\203 \307\207\310=\203 \203 \311\207\307=\203& \203& \312\313\314\315\"\316\"\207\n\203; \317\320\321\322\323\324\316E\306EDED!\207\211:?\206G @\325>)\203\241 \203T \326\327\330\"\210\310 \211\f=\206w :\205w @\331=\205w A@\f=\205w \316 8\307U*\203\200 \332\333 !\207\317
\316\\ \334\306\" .\335\334\313.\336\312\337\340\".\"!\"\"!*!\207\242\341=\203\277 \342\343A@!\312\3168\344\334\345A@!\310\"!\"\"\207@\346=\203\326 \347A@\343\3168!\343\3508!#\207\351\232\204\350 \352\232\204\350 \353\232\203\352 \207\354\355\"\210\343D\207" [x calc-symbolic-mode math-expand-formulas a b calc-internal-prec 1 0 -1 (var pi var-pi) math-div math-mul (var pi var-pi) (var i var-i) 2 math-normalize calcFunc-ln + calcFunc-sqrt - ^ (bigpos bigneg frac float cplx polar) signal inexact-result nil float math-imaginary math-pi math-add math-ln-raw math-sqrt-raw math-sub (float 1 0) sdev math-make-sdev calcFunc-arccosh math-sqrt math-sqr intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp xp1] 12])
(put 'calcFunc-arccosh 'math-expandable t)
(defalias 'calcFunc-arctanh #[(x) "\306=\203 \306\207\307\211 =\206+ \n:\205+ \n@\310=\205+ \nA@ =\205+ \311\n8\306U*\2035 \2035 \312\207\313\211 =\206X \n:\205X \n@\310=\205X \nA@ =\205X \311\n8\306U*\203b \203b \314\207\f\203x \315\316\317\320\307ED\317\316\307EDE\311E\207\211:?\206\204 \n@\321>)\203\361
\203\221 \322\323\324\"\210\325/\311\\ /\242\326>\204\255 \307\327\n \"\313U*\203\301 \330\331\332\333\334\"!\332\331\335\"!\"\336\"\202\356 \337\307\"\203\320 \203\320 \340\202\356 \337\313\"\203\337 \203\337 \341\202\356 \330\332\342\333\343\"\331\307\"\"!\344\")!\207\242\345=\203
\346\347A@!\342\3118\331\307\350A@!\"\"\"\207@\351=\203$\352A@\347\3118!\347\3538!#\207\354\232\203,\207\355\356\"\210\347D\207" [x b a calc-infinite-mode math-expand-formulas calc-symbolic-mode 0 1 float 2 (var inf var-inf) -1 (neg (var inf var-inf)) / - calcFunc-ln + (bigpos bigneg frac float cplx polar) signal inexact-result nil math-normalize (cplx polar) math-compare math-mul math-sub math-ln-raw math-add (float 1 0) (float 1 0) (float 5 -1) math-equal-int (var inf var-inf) (neg (var inf var-inf)) math-div (float 1 0) (float 5 -1) sdev math-make-sdev calcFunc-arctanh math-sqr intv math-sort-intv 3 (var nan var-nan) calc-record-why numberp calc-internal-prec] 9])
(put 'calcFunc-arctanh 'math-expandable t)
(defalias 'calcFunc-rad #[(a) "\211:?\206\f @\303>)\204 @\304=\203$ \305 \306\\\307\310 \")!\207@\311=\2030 \312\313\"\207@\314=\203D \315\316A@!\316\3068!\"\207\n\203P \317\307\320\"\321\"\207\322!\203X \207\316D\207" [a calc-internal-prec math-expand-formulas (bigpos bigneg frac float cplx polar) intv math-normalize 2 math-mul math-pi-over-180 hms math-from-hms rad sdev math-make-sdev calcFunc-rad math-div (var pi var-pi) 180 math-infinitep] 6])
(put 'calcFunc-rad 'math-expandable t)
(defalias 'calcFunc-deg #[(a) "\211:?\206\f @\303>)\204 @\304=\203$ \305 \306\\\307\310 \")!\207@\311=\2030 \312\313\"\207@\314=\203D \315\316A@!\316\3068!\"\207\n\203P \307\317\320\"\321\"\207\322!\203X \207\316D\207" [a calc-internal-prec math-expand-formulas (bigpos bigneg frac float cplx polar) intv math-normalize 2 math-div math-pi-over-180 hms math-from-hms deg sdev math-make-sdev calcFunc-deg math-mul 180 (var pi var-pi) math-infinitep] 6])
(byte-code "\300\301\302\303#\210\304\305!\207" [put calcFunc-deg math-expandable t provide calc-math] 4)