View file File name : calc-math.elc Content :;ELC ;;; Compiled ;;; in Emacs version 27.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!\210\300\303!\207" [require cl-lib calc-ext calc-macs] 2) #@41 The number of digits in an Emacs float. (defvar math-emacs-precision (byte-code "\303\304\211\304\305\306[\"_\\ \nU\204& T\n\211\304\305\306[\"_\\\202 S+\207" [n x xx 1 9 expt 10] 6) (#$ . 500)) #@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 _\3061 \307\310\305 _\"0\202\" \210\311\211\204 \31214 \307\313 T\"0\2026 \210\311\211\203X \314W\203X T\3151Q \307\316 T\"0\202S \210\311\211\204; S*\207" [pow x 1 100.0 1.0e+INF 2 (error) expt 10.0 nil (error) 10.0 1.0e+INF (error) 10.0] 5) (#$ . 712)) #@66 The smallest exponent which Calc will convert to an Emacs float. (defvar math-smallest-emacs-expt (byte-code "\301\3021 \303\304\"\305V0\202 \210\202 \203 \306_\202 \306\245\30710 \303\310\"\311V0\2024 \210\202= \203= S\202\" \306\\)\207" [x -1 (error) expt 10.0 0.0 2 (error) 10.0 0.0] 3) (#$ . 1125)) #@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\205X \n\211:?\206 \211@\306>\262\205X \307\n8\310\nA@!S\\\f X\205W X\205W \3111U \312\313\314\315\316\317D\316\320 \321\322\n!!-!!!!0\202W \210\316)\207" [calc-internal-prec math-emacs-precision x xpon math-smallest-emacs-expt math-largest-emacs-expt (frac float) 2 math-numdigs (error) math-read-number number-to-string string-to-number 10 nil float "." math-format-number math-float fn calc-point-char calc-group-digits calc-float-format calc-twos-complement-mode calc-number-radix] 9 (#$ . 1450)]) (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 \211@\301=\203 \211A@\302=\262\202$ \303!\262\202$ \211\302=\262\203) \207\304!\2044 \305\304\"\207\306!\207" [a float 0 math-zerop natnump math-reject-arg cl-isqrt] 3]) (defalias 'calcFunc-isqrt #[(a) "\211:?\206 \211@\301>\262\203 \302\303!!\207\303\304!!\207" [a (frac float) math-isqrt math-floor math-sqrt] 3]) (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-sqrt #[(a) "\211:\203 \211@\306=\203 \211A@\307=\262\202$ \310!\262\202$ \211\307=\262\203+ \206k\311!\203; \312\313\314!!!\206k\250\203f \315!\211\211_U\203P \202b \n\203Z \316D\202b \317\320!\320 !\")\206k\242\321=\203\334 \315A@!\211\211_A@U \315\3228!\211 \211_\3228U 5\f\203\232 5\203\232 \321 E\202\330 \n\203\315 \f\204\247 5\203\307 \323\f\203\260 \202\265 \316A@D5\203\276 \202\303 \316\3228D\"\202\330 \316D\202\330 \317\320!\323\320 ! \"\",\206k\242\306=\203#\n\203 \3228\322\246\307U\203\315A@!\211 6\211_A@U\203\3246\3228\322\245\"\202\325\326\327\")\202 \325\326\327\"\202 \317!\206k\242\330=\203h\3317\322\\ 7\332! 8\313\333\3348A@\"\335\"! 9\330\313\333\3368A@\"\337\"!\340\3228!\203`\3149!\202b9E+!\206k\242\341=\203\341\313A@!\333\3228\342\"E\206k\242\343=\203\234\313A@!\344 \323\3228\333 \322\"\"\")\206k\242\345=\203\275\340\3228!\204\275\346A@\313\3228!\313\3478!#\206k\242\350=\203\343\351A@!\204\324\351\3228!\203\343\333\313A@!\313\3228!\"\206k\242\352=\203$\351\3228!\203\323\313A@!\313\3228!\"\206k\351A@!\203$\353A@\354\"\204$\333\313A@!\313\323\354\3228\"!\"\206k\242\355=\203K\356\3228!\203K\357A@!\203K\332\360A@\323\3228\322\"\"!\206k\361!\211 :\205_\333\313\362:\"!:\")\206k\363\364\"\210\316D\207" [a sqrt calc-symbolic-mode num-sqrt num-exact den-sqrt float 0 math-zerop math-known-nonposp math-imaginary math-sqrt math-neg cl-isqrt calcFunc-sqrt math-sqrt-float math-float frac 2 math-div math-make-float signal inexact-result nil cplx math-normalize 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-exact res 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% \211@\303>\203 \211A@\211\250\205 \211\304V\266\202\202* \305!\262\202* \211\304V\262\2041 \306!\207\307\310\"\206k \204g \311A@!\312Z\3138\n\\\313\246\304U\204S \nT\314\315\316A@\n[\"!\3138\n\\\313\245\")\317 \"\207" [a guess ldiff (frac float) 0 math-posp math-sqrt math-use-emacs-fn sqrt math-numdigs 6 2 math-make-float cl-isqrt math-scale-int math-sqrt-float-iter] 5]) (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\203= \306A@\211[\262 A@\"\211\305=\206\236 \n:?\205\236 \n\307W\205\236 \n\310V\205\236 \311A@! U\202\236 \n\312U\203o \306 A@\211[\262\313A@\312\"\"\211:?\205\236 \n\307W\205\236 \n\310V\205\236 \311 A@! U\202\236 \n\314U\205\236 \306A@\211[\262\313 A@\312\"\"\211:?\205\236 \n\307W\205\236 \n\310V\205\236 \311A@! U)\207" [a b ediff calc-internal-prec 2 0 math-add 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 \211@\303=\203 \211A@\304=\262\202$ \305!\262\202$ \211\304=\262\203+ \306 !\207 \211:\203J \211@\303=\203B \211A@\304=\262\202O \305!\262\202O \211\304=\262\203V \306!\207\211:?\206a \211@\307>\262\204\210 \310!\203~ \310 !\203| \232\203z \207\311\207\207\312\313\"\210\314 E\207 \211:?\206\223 \211@\307>\262\204\252 \310 !\203\240 \207\312\313 \"\210\314 E\207\211:?\206\265 \211@\315>\262\203\333 \211:?\206\305 \211@\315>\262\203\333 \316\nT\317\320\321!\321 !\"!)!\207\242\322=\203 \242\322=\203\366 \323\324\325\326\"\325 \326\"\"!\207\323\324\325\326\" \"!\207 \242\322=\203\323\324\325 \326\"\"!\207\327\207" [a b calc-internal-prec float 0 math-zerop math-abs (frac float cplx polar hms) math-infinitep (var nan var-nan) calc-record-why scalarp calcFunc-hypot (frac float cplx polar) math-normalize math-sqrt math-add calcFunc-abssqr hms math-to-hms math-hypot math-from-hms deg nil] 6]) (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) \211@\310=\203! \211A@\311=\262\202. \312!\262\202. \211\311=\262\2033 \207 \211:\203X \211@\313>\203P \211A@\211\250\205K \211\311W\266\202\202] \314!\262\202] \211\311W\262\203b \315\207\316 !\203\210 \317 \"\211@\203w \nA\202\206 ?\205\206 \320\321 !\321\nA!#)\207 \242\322=\203\307 \317 A@\" \317\306 8\" \f@\203\260 @\203\260 \322\fA AE\202\305 ?\205\305 \320\321 !\323\321\fA!\321 A!\"#*\207 \242\310=\203\330 ?\205\366 \320 \"\207 \242\324=\203\365 \325 A@\"\211\205\363 \324\n\326\306 8\"E)\207\315\207" [n a root calc-symbolic-mode num-root den-root 2 math-sqrt float 0 math-zerop (frac float) math-negp nil Math-integerp 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 @ :\203> \211:\205F \315AA\"\316U\266\202\202H \211:\206F W\266\202\203T \317\n@\"\202j @ \232\205h \fA\320=\205h 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] 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\303=\203\f \304\305\"\207 \204 \n\306>\203 \307\310 \"\207\207" [a math-simplifying-units calc-angle-mode hms math-from-hms rad (deg hms) math-mul math-pi-over-180] 3]) (defalias 'math-from-radians #[(a) "\204 \303=\203 \304\n!\203 \305\n\306 \"\207\307\nD\207 \310=\203% \311\n\312\"\207\n\207" [math-simplifying-units 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 &optional force-symbolic) "\242\305=\203\f \306\307\"\207 \204, \n\310>\203, \204 \f\203& \311\312\313\"\314\"\207\312\315 \"\207\207" [a math-simplifying-units calc-angle-mode calc-symbolic-mode force-symbolic 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 &optional force-symbolic) "\204 \305>\203 \n\204 \203 \306\307\310\f\"\311\"\207\306\f\312 \"\207\f\207" [math-simplifying-units calc-angle-mode calc-symbolic-mode force-symbolic 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- \211@\314>\262\203A \315\n\316\\\317\320\321!!!)!\207@\322=\203\205 \323!\203s \315\n\316\\\320\321A@!!\320\321\3168!! \324 ! \325 @\326\f A\"\",!\207\325\327A@!\326\3168\330A@!\"\"\207@\331=\203\233 \332!\203\233 \330\333\334\335!\"!\207\336\232\203\243 \207\337\340\"\210\327D\207" [x calc-angle-mode calc-internal-prec xx xs sc deg 90 0 [0 1 0 -1] math-mod 4 (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] 6]) (defalias 'calcFunc-cos #[(x) "\250\203\" \306=\203 \307\246\310U\202 \310U\203\" \311\312\307\245\313\"H\207\211:?\206- \211@\314>\262\203A \315\n\316\\\317\320\321!!!)!\207@\322=\203\205 \323!\203s \315\n\316\\\320\321A@!!\320\321\3168!! \324 ! \325 A\326\f @\"\",!\207\325\327A@!\326\3168\330A@!\"\"\207@\331=\203\332!\203\315\n\316\\\320\321!!\333\334\316 8\335 \"! *\333\334\336 8\335 \"! +\337+*\"\211 ,\340>\203\341A@\317\316 8!\317\336 8!# -,\342=\203 \343*!\203\360 \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 calc-internal-prec xx xs sc deg 90 0 [1 0 -1 0] math-mod 4 (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 na nb span int] 8]) (defalias 'calcFunc-sincos #[(x) "\211:?\206 \211@\303>\262\203& \304 \305\\\306\307\310!!!\311\nA\n@E*!\207\311\312!\313!E\207" [x calc-internal-prec sc (frac float cplx polar hms) math-normalize 2 math-sin-cos-raw math-to-radians math-float vec calcFunc-sin calcFunc-cos] 5]) (defalias 'calcFunc-tan #[(x) "\250\203 \306=\203 \307\246\310U\202 \310U\203 \310\207\211:?\206& \211@\311>\262\203: \312\n\313\\\314\315\316!!!)!\207@\317=\203\234 \320!\203\210 \312\n\313\\\315\316A@!!\315\316\3138!! \321 ! \322 A!\203v &\204v \323\324!\210\325D\202\205 \326\327 @ A\"\327\f\330 A!\"\",!\207\326\325A@!\331\3138\330\332A@!!\"\"\207@\333=\203\360 \334!\203\360 \312\n\313\\\315\316!!\335\331\336\313 8\337 \"\340 \"! '\335\331\336\341 8\337 \"\340 \"! ('(\232\205\351 \342A@\314\313 8!\314\341 8!#,!\206 \343\207\344\232\203\370 \207\323\345\"\210\325D\207" [x calc-angle-mode calc-internal-prec xx xs sc deg 180 0 (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 calc-infinite-mode na nb] 7]) (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= \211@\315>\262\203Q \316\n\317\\\320\321\322!!!)!\207@\323=\203\275 \324!\203\242 \316\n\317\\\321\322A@!!\321\322\3178!! \325 ! \326 A!\203\215 1\204\215 \327\330!\210\331D\202\237 \332\333\334 A\"\333\335\f @\"\336 A!\"\",!\207\332\331A@!\337\335\3178\340A@!\"\336\341A@!!\"\"\207@\342=\203k\343!\203k\316\n\317\\\321\322!!\344\337\345\317 8\346 \"\347 \"! 2\344\337\345\350 8\346 \"\347 \"! 3\344\337\317 8\346 \"! 4\344\337\350 8\346 \"! 5\34554\" 623\232\204 \351\202g\352A@\320\317 8!\320\350 8!# 76\312=\203d\353\337\3544\312\"\317\"!\203S\355\3567A@\317\"\312\35078#\202f\355\3567A@\312\"\31778\313#\202f7).!\207\357\232\203s\207\327\360\"\210\331D\207" [x calc-angle-mode calc-internal-prec xx xs sc deg 180 0 360 1 -1 rad (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 calc-infinite-mode na nb naa nbb span int] 7]) (defalias 'calcFunc-csc #[(x) "\250\203# \306=\203# \307Z\310\246\311U\203# \307Z\312\246\311U\203! \313\207\314\207\211:?\206. \211@\315>\262\203B \316\n\317\\\320\321\322!!!)!\207@\323=\203\256 \324!\203\223 \316\n\317\\\321\322A@!!\321\322\3178!! \325 ! \326 @!\203~ 0\204~ \327\330!\210\331D\202\220 \332\333\334 @\"\333\335\f A\"\336 @!\"\",!\207\332\331A@!\337\335\3178\340A@!\"\336\341A@!!\"\"\207@\342=\203Q\343!\203Q\316\n\317\\\321\322!!\344\337\317 8\345 \"! 1\344\337\346 8\345 \"! 2\344\337\317 8\347 \"! 3\344\337\346 8\347 \"! 4\35043\" 512\232\204\351\202M\352A@\320\317 8!\320\346 8!# 65\313=\203J\353\3373\317\"!\2039\354\3556A@\317\"\313\34668#\202L\354\3556A@\313\"\31768\314#\202L6).!\207\356\232\203Y\207\327\357\"\210\331D\207" [x calc-angle-mode calc-internal-prec xx xs sc deg 90 180 0 360 1 -1 (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 calc-infinite-mode na nb naa nbb span int] 7]) (defalias 'calcFunc-cot #[(x) "\250\203 \306=\203 \307Z\310\246\311U\202 \311U\203 \311\207\211:?\206( \211@\312>\262\203< \313\n\314\\\315\316\317!!!)!\207@\320=\203\236 \321!\203\212 \313\n\314\\\316\317A@!!\316\317\3148!! \322 ! \323 @!\203x %\204x \324\325!\210\326D\202\207 \327\330 A @\"\330\f\331 @!\"\",!\207\327\326A@!\332\3148\331\333A@!!\"\"\207@\334=\203\352 \335!\203\352 \313\n\314\\\316\317!!\336\332\314 8\337 \"! &\336\332\340 8\337 \"! '&'\232\205\343 \341A@\315\314 8!\315\340 8!#,!\206\372 \342\207\343\232\203\362 \207\324\344\"\210\326D\207" [x calc-angle-mode calc-internal-prec xx xs sc deg 90 180 0 (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 calc-infinite-mode na nb] 7]) (defalias 'math-sin-raw #[(x &optional orgx) "@\305=\2032 \306\3078!\310\311 \"\312A@!\305\313 @\313\314 \n\"\315\"\"\313 A\313\316 \n\"\317\"\"E+\207@\320=\203A \321\322\323!!!\207A@\211\250\205L \211\324W\262\203b \325\322\325!\f\203^ \f\202_ \"!\207\326\327\"\203z \322\330\331 \"\f\203w \f\202x \"\207\332\f\203\204 \f\202\205 \"\207" [x expx expmx sc 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 0 math-neg-float math-lessp-float (float 7 0) math-mod math-two-pi math-sin-raw-2] 8]) (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) "\305\306 \"\211A@\211\250\205 \211\307W\262\203# \310\311\305\312 \"\n\"!\202w \313\314 \"\2032 \315 \n\"\202w \313\316\314 !\"\203I \316\315\317\306 \"\n\"!\202w \320 S\321\n\")!\203Z \322\202w \323\324\"\206w \f\203l \325\326\327\"\202w \330\331\332\310\333!!%)\207" [x xmpo2 orgx calc-internal-prec calc-symbolic-mode math-sub-float math-pi-over-2 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) "\304=\203 \304\207\305=\203 \306=\203 \307\207\310=\203$ \306=\203$ \311\207\n\203- \312\313\314\"\207\211:?\2068 \211@\315>\262\203L \316 \317\\\320\321\322!!!)!\207@\323=\203l \324\325A@!\320\326\3178\327\330\305\331A@!\"!\"!\"\207@\332=\203\203 \333A@\325\3178!\325\3348!#\207\335\232\203\213 \207\336\337\"\210\325D\207" [x calc-angle-mode calc-symbolic-mode calc-internal-prec 0 1 deg 90 -1 -90 signal inexact-result nil (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] 10]) (defalias 'calcFunc-arccos #[(x) "\304=\203 \305\207\305=\203 \306=\203 \307\207\310=\203$ \306=\203$ \311\207\n\203- \312\313\314\"\207\211:?\2068 \211@\315>\262\203L \316 \317\\\320\321\322!!!)!\207@\323=\203l \324\325A@!\320\326\3178\327\330\304\331A@!\"!\"!\"\207@\332=\203\203 \333A@\325\3178!\325\3348!#\207\335\232\203\213 \207\336\337\"\210\325D\207" [x calc-angle-mode calc-symbolic-mode calc-internal-prec 1 0 deg 90 -1 180 signal inexact-result nil (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] 10]) (defalias 'calcFunc-arctan #[(x) "\303=\203 \303\207\304=\203 \305=\203 \306\207\307=\203$ \305=\203$ \310\207\211:?\206/ \211@\311>\262\203C \312\n\313\\\314\315\316!!!)!\207@\317=\203a \320\321A@!\314\322\3138\323\304\324A@!\"\"!\"\207@\325=\203x \326A@\321\3138!\321\3278!#\207\330\267\202\212 \331\332!\207\333\331\332!!\207\207\334\335\"\210\321D\207" [x calc-angle-mode calc-internal-prec 0 1 deg 45 -1 -45 (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 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 126 (neg (var inf var-inf)) 130 (var nan var-nan) 136)) math-quarter-circle t math-neg calc-record-why numberp] 9]) (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) "@\303>\203& \304 \305\\\306\307\310\311\312\313\314\"\"!\310\311\312\313\315\"\"!\"\316\")!\207A@\211\250\2051 \211\317W\262\203> \320\321\320!!!\207\322!\203F \207\323\324\"\206\246 \n\203V \325\326\327\"\207\330\312\"\203` \331 \207\330\332\"\203l \333\331 !\207\334\335\"\203\234 \334\336\"\203\210 \337\340\341 \342\"\321\343\344\"!\"\207\337\340\341 \345\"\321\343\337\346\"\347\350\"\"!\"\207\351\352\320\353!!$\207" [x calc-internal-prec 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) 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] 10]) (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 \211@\303>\262\203< \211:?\206 \211@\303>\262\2032 \304\n\305\\\306\307\310!\310 !\"!)!\207\311\312 \"\210\313 E\207\314 !\204R \211:?\206M \211@\303>\262\203\263 \314!\204h \211:?\206c \211@\303>\262\203\263 \315 !\203s \316\202\206 \317 !\203~ \320\202\206 \321 !\204\206 \322\315!\203\221 \316\202\244 \317!\203\234 \320\202\244 \321!\204\244 \322\203\261 \203\261 \313 \"\207\323\207\311\312\"\210\313 E\207" [y x calc-internal-prec (frac float hms) math-normalize 2 math-from-radians math-arctan2-raw math-float calc-record-why anglep calcFunc-arctan2 math-infinitep math-posp 1 math-negp -1 math-zerop nil (var nan var-nan)] 6]) (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\242\301=\262\203 G\302U\203 \303\3048A@\"\207\305\306\"\207" [x vec 3 calcFunc-arctan2 2 math-reject-arg "*Two-element vector expected"] 3]) (defalias 'calcFunc-exp #[(x) "\304=\203 \305\207\306>\203 \203 \305=\203 \307\207\310\305\311\"\207\211:?\206* \211@\312>\262\203< \313\n\314\\\315\316!!)!\207\242\317=\203T \320A@!\321 \322\3148 \"\")\207\242\323=\203k \324A@\320\3148!\320\3258!#\207\326\267\202w \207\304\207\207\327\330\"\210\320D\207" [x calc-symbolic-mode calc-internal-prec ex 0 1 (1 -1) (var e var-e) math-div (var e var-e) (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 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 113 (neg (var inf var-inf)) 115 (var nan var-nan) 117)) calc-record-why numberp] 6]) (defalias 'calcFunc-expm1 #[(x) "\304=\203 \304\207\305!\203 \306\207 \203 \307\310\311\"\207\211:?\206$ \211@\312>\262\203V \313\n\314\\\315!\211@\316=\203M \317\320\"\203M \317\321\"\203M \322!\202S \323\324!\325\"*!\207\242\326=\203\211 \327!\203w \330A@!\331 \332\3148\323 \333\"\"\")\207\331\330A@!\332\3148\334A@!\"\"\207\242\335=\203\240 \336A@\330\3148!\330\3378!#\207\340\267\202\254 \207\325\207\207\341\342\"\210\330D\207" [x calc-symbolic-mode calc-internal-prec ex 0 math-zerop (float 0 0) signal inexact-result nil (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 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 166 (neg (var inf var-inf)) 168 (var nan var-nan) 170)) 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) "\303!\203 \203\f \304\207\305\306\"\207\307=\203 \310\207\211:?\206$ \211@\311>\262\2036 \312\n\313\\\314\315!!)!\207\242\316=\203M \317\320A@!\321\3138A@\"\"\207\242\322=\203\305 \3138\211:\203{ \211@\323>\203s \211A@\211\250\205n \211\310V\266\202\202\200 \324!\262\202\200 \211\310V\262\204\262 \3138\211:\203\244 \211@\325=\203\234 \211A@\310=\262\202\251 \303!\262\202\251 \211\310=\262\204\262 \326!\204\305 \327\330A@\320\3138!\320\3318!#)\207\332\232\203\315 \307\207\242\333=\203\350 A@\334\232\203\350 \335\3138!\203\350 \3138\207\336!\203\370 \337\232\203\366 \207\340\207\341\342\"\210\320D\207" [x calc-infinite-mode calc-internal-prec math-zerop (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" 1 0 (frac float cplx polar) math-normalize 2 math-ln-raw math-float sdev math-make-sdev calcFunc-ln math-div intv (frac float) math-posp 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] 6]) (defalias 'calcFunc-log10 #[(x) "\306\307\"\203 \310!\203 \311\207\312\207\313!\2031 \314!\2031 \315\316\"\211@\205+ A\211)\2031 \207\242\317=\203W A@\307=\203W \315\3208\316\"\211@\205Q A[\211)\203W \207\321!\203h \n\203c \322\207\323\324\"\207 \203q \325\326\327\"\207\211:?\206| \211@\330>\262\203\345 \331\f\320\\ \332!\211 A@\312=\203\227 \323\324\"\210 A@\211\250\205\242 \211\312V\262\203\333 A@\307=\203\267 \332\320 8!\202\342 \333 A@!S 1\334\335\336\337 A@1[E!\340 \"\332\320 81\\!\")\202\342 \341\342 !\340 \"*!\207\242\343=\203 \344\345A@!\341\3208\346A@\340 \"\"\"\207\242\347=\203L\3208\211:\203.\211@\350>\203&\211A@\211\250\205!\211\312V\266\202\2023\314!\262\2023\211\312V\262\204<\351!\204L\352A@\345\3208!\345\3538!#\207\354!\203\\\355\232\203Z\207\356\207\357\360\"\210\345D\207" [x res calc-infinite-mode calc-symbolic-mode calc-internal-prec xf math-equal-int 1 math-floatp (float 0 0) 0 Math-integerp 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 (frac float cplx polar) math-normalize math-float 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 (frac float) math-intv-constp math-make-intv 3 math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp 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\205 \211@\326=\262\203 \211:?\206\225 \211@\326=\262\203 \327 !\203 \327!\203 \321\330 \321 \331\"\332U\266\202\203\273 \202\301 \332\315\321 \" \321\331\"\332U\266\202\203\323 \202\332 [\315\321\" 0 0\331\"\332U\266\202\203\364 \3330 \"\211\202\371 \333 0\"\211 1@\205\f\203\315\321 1A_\"\202 1A_\211-\203 \2072\203&\334\335\330\"\207 \211:?\2061\211@\336>\262\203Z\211:?\206A\211@\336>\262\203Z\3073\337\\ 3\315\340\341 !!\342!\")!\207 \242\343=\203\207\211:?\206l\211@\336>\262\203\207\344\345 A@\"\315\337 8\346 A@\342!\"\"\"\207 \242\347=\203\345\337 8\211:\203\265\211@\350>\203\255\211A@\211\250\205\250\211\322V\266\202\202\272\327!\262\202\272\211\322V\262\204\303\351 !\204\345\211:?\206\316\211@\352>\262\203\345\353 A@\345\337 8\"\345\354 8\"#\207 \242\347=\204\363\242\347=\203\374\315\310 !\310!\"\207\355 !\204\355!\203\315\310 !\310!\"\207\211:?\206 \211@\336>\262\203)\356\357 \"\210\202.\356\357\"\210\345 E\207" [b x calc-infinite-mode sign inv xx (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) frac math-posp nil math-compare -1 math-integer-log signal inexact-result (frac float cplx polar) 2 math-ln-raw math-float math-log-base-raw sdev math-make-sdev calcFunc-log math-mul intv (frac float) math-intv-constp (frac float) math-make-intv 3 math-infinitep calc-record-why numberp 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) "\302!\203Q \303=\204Q \302 !\203Q \303=\204Q \304=\203# \305\306\"\207 :\203< \211:\205D \307AA\"\310U\266\202\202F \211:\206D W\266\202\203K \303\207\311 \"A\207\312\313 \"!\207" [x b 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\266\202\204& \f B\306\f!\202 \312\313 GS\"\211 @ A\211\203h \f\310\"\311U\266\202\203h \314\245\315\f @\" \310\"\311U\266\202\2042 \n \\\2022 \f\232\n-B\207" [b n sum next pow pows math-sqr nil math-compare -1 ash 1 2 math-mul x] 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) "\304=\206! :\205! @\305=\205! A@=\205! \3068\307U\266\202\2031 \203, \310\207\311\312\"\207\307=\2039 \307\207\313!\203A \314\207\n\203J \315\316\317\"\207\211:?\206U \211@\320>\262\203\207 \321 \306\\\322!\211@\305=\203~ \323\324\"\203~ \323\325\"\203~ \326!\202\204 \327\330\331\"!*!\207\242\332=\203\241 \333\334A@!\335\3068\336A@\337\"\"\"\207\242\340=\203\355 \3068\211:\203\317 \211@\341>\203\307 \211A@\211\250\205\302 \211\307V\266\202\202\324 \342!\262\202\324 \211\307V\262\204\335 \343!\204\355 \344A@\334\3068!\334\3458!#\207\346!\203\375 \347\232\203\373 \207\350\207\351\352\"\210\334D\207" [x 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 (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 (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\304=\203# \304\305\306\307\310A@!\310\3118!\"!\312\"\313\3118A@\"E\207@\314=\2039 \315\304\306A@!\316\3118!E!\207\317=\206Z :\205Z @\320=\205Z A@=\205Z \3118\321U\266\202\203a \322\207 \203j \323\324\325\"\207\326A@!\203\230 \327\330\"\206\276 \331A@!S\307\332\320A@\n[E!\305\333\3118\n\\!\334 \"\")\207\335!\203\243 \336\337\"\207 \314=\203\265 \315\304\306\340!!\341 E!\207\304\306\340!!\341 E\207" [x 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] 8]) (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") (#$ . 47461)) (defvar math-ln-10-cache-prec (byte-code ":\203 \301A@!\207\203 \301\302\303\"!A@\207\304\207" [math-approx-ln-10 math-numdigs eval t -100] 4)) (defvar math-ln-10-cache (byte-code ":\203 \207\203 \301\302\"\207\207" [math-approx-ln-10 eval t] 3)) (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") (#$ . 48250)) (defvar math-ln-2-cache-prec (byte-code ":\203 \301A@!\207\203 \301\302\303\"!A@\207\304\207" [math-approx-ln-2 math-numdigs eval t -100] 4)) (defvar math-ln-2-cache (byte-code ":\203 \207\203 \301\302\"\207\207" [math-approx-ln-2 eval t] 3)) (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) "\305=\203 \305\207 \203 \306\307\310\311D\311\312DDE\313E!\207\211:?\206' \211@\314>\262\203M \n\2035 \315\316\317\"\210\306 \313\\\320\321!! \322\323\f\324\325\f\"\"\326\"*!\207\242\327=\203f \330\331A@!\322\3138\332A@!\"\"\207@\333=\203} \334A@\331\3138!\331\3358!#\207\336\232\204\217 \337\232\204\217 \340\232\203\221 \207\341\342\"\210\331D\207" [x math-expand-formulas calc-symbolic-mode calc-internal-prec expx 0 math-normalize / - calcFunc-exp neg 2 (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] 7]) (put 'calcFunc-sinh 'math-expandable t) (defalias 'calcFunc-cosh #[(x) "\305=\203 \306\207 \203 \307\310\311\312D\312\313DDE\314E!\207\211:?\206' \211@\315>\262\203M \n\2035 \316\317\320\"\210\307 \314\\\321\322!! \323\324\f\325\306\f\"\"\326\"*!\207\242\327=\203f \330\331A@!\323\3148\332A@!\"\"\207@\333=\203\207 \334!\203\207 \335!\336A@\331\3148!\331\3378!#\207\340\232\204\231 \341\232\204\231 \342\232\203\235 \335!\207\343\344\"\210\331D\207" [x math-expand-formulas calc-symbolic-mode calc-internal-prec expx 0 1 math-normalize / + calcFunc-exp neg 2 (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] 7]) (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:?\2061 \211@\315>\262\203\\ \f\203? \316\317\320\"\210\307 \321\\ \310\322!!\323\324 \"\323\325 \n\"\326 \n\"\"+!\207\242\327=\203w \330\331A@!\323\3218\332\333A@!!\"\"\207@\334=\203\216 \335A@\331\3218!\331\3368!#\207\337\267\202\232 \324\207\340\207\207\341\342\"\210\331D\207" [x math-expand-formulas expmx expx calc-symbolic-mode calc-internal-prec 0 math-normalize calcFunc-exp neg / - + (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 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 148 (neg (var inf var-inf)) 150 (var nan var-nan) 152)) -1 calc-record-why numberp] 7]) (put 'calcFunc-tanh 'math-expandable t) (defalias 'calcFunc-sech #[(x) "\305=\203 \306\207 \203 \307\310\311\312\313D\313\314DDEE!\207\211:?\206' \211@\315>\262\203M \n\2035 \316\317\320\"\210\307 \311\\\321\322!! \323\324\325\f\323\306\f\"\"\"*!\207\242\326=\203m \327\330A@!\331\3118\331\330A@!\332A@!\"\"\"\207@\333=\203\216 \334!\203\216 \335!\336A@\330\3118!\330\3378!#\207\340\232\204\232 \341\232\203\234 \305\207\342\232\203\244 \207\343\344\"\210\330D\207" [x math-expand-formulas calc-symbolic-mode calc-internal-prec expx 0 1 math-normalize / 2 + calcFunc-exp neg (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] 8]) (put 'calcFunc-sech 'math-expandable t) (defalias 'calcFunc-csch #[(x) "\305=\203 \306\307\305\"\207 \203 \310\311\312\313\314D\314\315DDEE!\207\211:?\206* \211@\316>\262\203P \n\2038 \317\320\321\"\210\310 \312\\\322\323!! \306\324\325\f\306\326\f\"\"\"*!\207\242\327=\203p \330\331A@!\332\3128\332\331A@!\333A@!\"\"\"\207@\334=\203\347 \3128\211:\203\236 \211@\335>\203\226 \211A@\211\250\205\221 \211\305W\266\202\202\243 \336!\262\202\243 \211\305W\262\203\327 \3378\211:\203\315 \211@\340>\203\305 \211A@\211\250\205\300 \211\305V\266\202\202\322 \341!\262\202\322 \211\305V\262\203\327 \342\207\343A@\331\3128!\331\3378!#\207\344\232\204\363 \345\232\203\365 \305\207\346\232\203\375 \207\347\350\"\210\331D\207" [x math-expand-formulas calc-symbolic-mode calc-internal-prec expx 0 math-div 1 math-normalize / 2 - calcFunc-exp neg (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 (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] 8]) (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:?\2064 \211@\317>\262\203_ \f\203B \320\321\322\"\210\311 \323\\ \312\324!!\307\310 \"\307\325 \n\"\326 \n\"\"+!\207\242\327=\203z \330\331A@!\307\3238\332\333A@!!\"\"\207@\334=\203\361 \3238\211:\203\250 \211@\335>\203\240 \211A@\211\250\205\233 \211\306W\266\202\202\255 \336!\262\202\255 \211\306W\262\203\341 \3378\211:\203\327 \211@\340>\203\317 \211A@\211\250\205\312 \211\306V\266\202\202\334 \341!\262\202\334 \211\306V\262\203\341 \342\207\343A@\331\3238!\331\3378!#\207\344\267\202\375 \310\207\345\207\207\346\347\"\210\331D\207" [x math-expand-formulas expmx expx calc-symbolic-mode calc-internal-prec 0 math-div 1 math-normalize calcFunc-exp neg / + - (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 (frac float) math-negp 3 (frac float) math-posp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 247 (neg (var inf var-inf)) 249 (var nan var-nan) 251)) -1 calc-record-why numberp] 7]) (put 'calcFunc-coth 'math-expandable t) (defalias 'calcFunc-arcsinh #[(x) "\304=\203 \304\207 \203 \305\306\307\310\307\311\312E\313EDED!\207\211:?\206( \211@\314>\262\203K \n\2036 \315\316\317\"\210\305 \312\\\320\321\322\321\323!\324\"!\"!)!\207\242\325=\203i \326\327A@!\330\3128\331\321\323A@!\313\"!\"\"\207@\332=\203\200 \333A@\327\3128!\327\3348!#\207\335\232\204\222 \336\232\204\222 \337\232\203\224 \207\340\341\"\210\327D\207" [x math-expand-formulas calc-symbolic-mode calc-internal-prec 0 math-normalize calcFunc-ln + calcFunc-sqrt ^ 2 1 (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] 9]) (put 'calcFunc-arcsinh 'math-expandable t) (defalias 'calcFunc-arccosh #[(x) "\305=\203 \306\207\307=\203 \203 \310\207\306=\203& \203& \311\312\313\314\"\315\"\207\n\203; \316\317\320\321\322\323\315E\305EDED!\207\211:?\206F \211@\324>\262\203\235 \203T \325\326\327\"\210\307=\206u :\205u @\330=\205u A@=\205u \3158\306U\266\202\203 \331\332 !\207\316 \315\\\333\305\" \334\333\312\f\335\311\336\337\"\f\"!\"\"!*!\207\242\340=\203\273 \341\342A@!\311\3158\343\333\344A@!\307\"!\"\"\207@\345=\203\322 \346A@\342\3158!\342\3478!#\207\350\232\204\344 \351\232\204\344 \352\232\203\346 \207\353\354\"\210\342D\207" [x calc-symbolic-mode math-expand-formulas calc-internal-prec xp1 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 - ^ (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] 11]) (put 'calcFunc-arccosh 'math-expandable t) (defalias 'calcFunc-arctanh #[(x) "\305=\203 \305\207\306=\206) :\205) @\307=\205) A@=\205) \3108\305U\266\202\2034 \2034 \311\207\312=\206U :\205U @\307=\205U A@=\205U \3108\305U\266\202\203` \203` \313\207\n\203v \314\315\316\317\306ED\316\315\306EDE\310E\207\211:?\206\201 \211@\320>\262\203\354 \203\217 \321\322\323\"\210\324\f\310\\ \242\325>\204\250 \306\326\"\312U\266\202\203\274 \327\330\331\332\333\"!\331\330\334\"!\"\335\"\202\351 \336\306\"\203\313 \203\313 \337\202\351 \336\312\"\203\332 \203\332 \340\202\351 \327\331\341\332\342\"\330\306\"\"!\343\")!\207\242\344=\203\345\346A@!\341\3108\330\306\347A@!\"\"\"\207@\350=\203 \351A@\346\3108!\346\3528!#\207\353\232\203'\207\354\355\"\210\346D\207" [x calc-infinite-mode math-expand-formulas calc-symbolic-mode calc-internal-prec 0 1 float 2 (var inf var-inf) -1 (neg (var inf var-inf)) / - calcFunc-ln + (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] 8]) (put 'calcFunc-arctanh 'math-expandable t) (defalias 'calcFunc-rad #[(a) "\211:?\206 \211@\303>\262\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 (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] 5]) (put 'calcFunc-rad 'math-expandable t) (defalias 'calcFunc-deg #[(a) "\211:?\206 \211@\303>\262\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 (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] 5]) (byte-code "\300\301\302\303#\210\304\305!\207" [put calcFunc-deg math-expandable t provide calc-math] 4)