Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/calc/calc-math.elc

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\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[\"_\\\202S+\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\\\fX\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=\205A\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_\3228U5\f\203\2325\203\232\321
E\202\330\n\203\315\f\204\2475\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@!\2116\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!\202b
9E+!\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@\314S	\"\"\311
\"\211@	
:\203>\211:\205F\315AA\"\316U\266\202\202H\211:\206F

W\266\202\203T\317\n@\"\202j@	\232\205h\fA\320=\205hA\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\3168\335 \"!*\333\334\3368\335 \"!+\337+*\"\211,\340>\203
\341A@\317\3168!\317\3368!#-,\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\3138\337 \"\340 \"!'\335\331\336\3418\337 \"\340 \"!('(\232\205\351\342A@\314\3138!\314\3418!#,!\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\2151\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\3178\346 \"\347 \"!2\344\337\345\3508\346 \"\347 \"!3\344\337\3178\346 \"!4\344\337\3508\346 \"!5\34554\"623\232\204
\351\202g
\352A@\320\3178!\320\3508!#76\312=\203d
\353\337\3544\312\"\317\"!\203S
\355\3567A@\317\"\312\35078#\202f
\355\3567A@\312\"\31778\313#\202f
7).!\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\3178\345 \"!1\344\337\3468\345 \"!2\344\337\3178\347 \"!3\344\337\3468\347 \"!4\35043\"512\232\204
\351\202M
\352A@\320\3178!\320\3468!#65\313=\203J
\353\3373\317\"!\2039
\354\3556A@\317\"\313\34668#\202L
\354\3556A@\313\"\31768\314#\202L
6).!\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\3148\337 \"!&\336\332\3408\337 \"!'&'\232\205\343\341A@\315\3148!\315\3408!#,!\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\"\"\313A\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!\"\"\211A@\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!\"\"\211A@\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!\"\211A@\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@!\315A\316\315	\n\"\317\"\"\211A@\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\320S\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
\203G\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\350A@\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=\203WA@\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!\211A@\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@!S1\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\"\2111@\205
\f\203
\315\3211A_\"\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\203A@\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)