HOME

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

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

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

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


(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@41 The number of digits in an Emacs float.
(defvar math-emacs-precision (byte-code "\303\304\211\305\306[\"\304_\\	\nU\204&T\n\211\305\306[\"\304_\\\202S+\207" [n x xx 1 9 expt 10] 5) (#$ . 480))
#@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) (#$ . 692))
#@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) (#$ . 1105))
#@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\205S\306\n!\205S\307\n!\310\n8\311\nA@!S\\
\fX\205R\fX\205R\3121P\313\314\315\316\317\320D\317\321\322\307\n!!-!!!!0\202R\210\317*\207" [calc-internal-prec math-emacs-precision x fx xpon math-smallest-emacs-expt math-realp math-float 2 math-numdigs (error) math-read-number number-to-string string-to-number 10 nil float "." math-format-number math-largest-emacs-expt fn calc-point-char calc-group-digits calc-float-format calc-twos-complement-mode calc-number-radix] 9 (#$ . 1430)])
(defalias 'calc-sqrt #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "^2" calcFunc-sqr "sqrt" calcFunc-sqrt] 4]] 3 nil "P"])
(defalias 'calc-isqrt #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "^2" calcFunc-sqr "isqt" calcFunc-isqrt] 4]] 3 nil "P"])
(defalias 'calc-hypot #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "hypt" calcFunc-hypot] 4]] 3 nil "P"])
(defalias 'calc-ln #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-exp] 2 nil "P"])
(defalias 'calc-log10 #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-ln] 2 nil "P"])
(defalias 'calc-log #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-binary-op "alog" calcFunc-alog "log" calcFunc-log] 4]] 3 nil "P"])
(defalias 'calc-ilog #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-binary-op "alog" calcFunc-alog "ilog" calcFunc-ilog] 4]] 3 nil "P"])
(defalias 'calc-lnp1 #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-expm1] 2 nil "P"])
(defalias 'calc-exp #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302 \203\303\304\305#\207\303\306\307#\207\302 \203!\303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "lg10" calcFunc-log10 "10^" calcFunc-exp10 "ln" calcFunc-ln "exp" calcFunc-exp] 4]] 3 nil "P"])
(defalias 'calc-expm1 #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "ln+1" calcFunc-lnp1 "ex-1" calcFunc-expm1] 4]] 3 nil "P"])
(defalias 'calc-pi #[nil "\300\301`\"\207" [calc-do #[nil "\301 \203,\302 \203\203\303\304\305\306#\207\303\304\305\307 #\207\203%\303\304\310\311#\207\303\304\310\312 #\207\302 \203B\203;\303\304\313\314#\207\303\304\313\315 #\207\203L\303\304\316\317#\207\303\304\316\320 #\207" [calc-symbolic-mode calc-is-inverse calc-is-hyperbolic calc-pop-push-record 0 "phi" (var phi var-phi) math-phi "gmma" (var gamma var-gamma) math-gamma-const "e" (var e var-e) math-e "pi" (var pi var-pi) math-pi] 4]] 3 nil nil])
(defalias 'calc-sin #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302 \203\303\304\305#\207\303\306\307#\207\302 \203!\303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "asnh" calcFunc-arcsinh "sinh" calcFunc-sinh "asin" calcFunc-arcsin "sin" calcFunc-sin] 4]] 3 nil "P"])
(defalias 'calc-arcsin #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-sin] 2 nil "P"])
(defalias 'calc-sinh #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-sin] 2 nil "P"])
(defalias 'calc-arcsinh #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-sin] 2 nil "P"])
(defalias 'calc-sec #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "sech" calcFunc-sech "sec" calcFunc-sec] 4]] 3 nil "P"])
(defalias 'calc-sech #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-sec] 2 nil "P"])
(defalias 'calc-cos #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302 \203\303\304\305#\207\303\306\307#\207\302 \203!\303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "acsh" calcFunc-arccosh "cosh" calcFunc-cosh "acos" calcFunc-arccos "cos" calcFunc-cos] 4]] 3 nil "P"])
(defalias 'calc-arccos #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-cos] 2 nil "P"])
(defalias 'calc-cosh #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-cos] 2 nil "P"])
(defalias 'calc-arccosh #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-cos] 2 nil "P"])
(defalias 'calc-csc #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "csch" calcFunc-csch "csc" calcFunc-csc] 4]] 3 nil "P"])
(defalias 'calc-csch #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-csc] 2 nil "P"])
(defalias 'calc-sincos #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203\301\302\303\304\305\302!D#\207\301\302\306\307\305\302!D#\207" [calc-is-inverse calc-enter-result 1 "asnc" calcFunc-arcsincos calc-top-n "sncs" calcFunc-sincos] 6]] 3 nil nil])
(defalias 'calc-tan #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302 \203\303\304\305#\207\303\306\307#\207\302 \203!\303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "atnh" calcFunc-arctanh "tanh" calcFunc-tanh "atan" calcFunc-arctan "tan" calcFunc-tan] 4]] 3 nil "P"])
(defalias 'calc-arctan #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-tan] 2 nil "P"])
(defalias 'calc-tanh #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-tan] 2 nil "P"])
(defalias 'calc-arctanh #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-tan] 2 nil "P"])
(defalias 'calc-cot #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "coth" calcFunc-coth "cot" calcFunc-cot] 4]] 3 nil "P"])
(defalias 'calc-coth #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-cot] 2 nil "P"])
(defalias 'calc-arctan2 #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!B#\207" [calc-enter-result 2 "atn2" calcFunc-arctan2 calc-top-list-n] 6]] 3 nil nil])
(defalias 'calc-conj #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "conj" calcFunc-conj] 4]] 2 nil "P"])
(defalias 'calc-imaginary #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!!#\207" [calc-pop-push-record 1 "i*" math-imaginary calc-top-n] 6]] 3 nil nil])
(defalias 'calc-to-degrees #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op ">deg" calcFunc-deg] 4]] 2 nil "P"])
(defalias 'calc-to-radians #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op ">rad" calcFunc-rad] 4]] 2 nil "P"])
(defalias 'calc-degrees-mode #[(arg) "\301U\203\n\302\303!\207\304U\203\305 \207\306U\203\307 \207\310\311!\207" [arg 1 calc-do #[nil "\300\301\302\"\210\303\304!\207" [calc-change-mode calc-angle-mode deg message "Angles measured in degrees"] 3] 2 calc-radians-mode 3 calc-hms-mode error "Prefix argument out of range"] 2 nil "p"])
(defalias 'calc-radians-mode #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\"\210\303\304!\207" [calc-change-mode calc-angle-mode rad message "Angles measured in radians"] 3]] 2 nil nil])
(defalias 'math-isqrt #[(a) "\211:\203$@\301>?\205'@\302=\203A@\303=\202'\304!\202'\303=)\203-\207\305!\2048\306\307\"\207\250\203A\310!\207\311\312\313A!AB!\207" [a (bigpos bigneg) float 0 math-zerop math-natnump math-reject-arg natnump math-isqrt-small math-normalize bigpos math-isqrt-bignum] 5])
(defalias 'calcFunc-isqrt #[(a) "\301!\203\f\302\303!!\207\303\304!!\207" [a math-realp math-isqrt math-floor math-sqrt] 3])
(defalias 'math-isqrt-bignum #[(a) "G\211\304\246\305U\203+	\304Z\233\306\307\310\311\nA@_\n@\\!T!	\304\245S\"\")\202>	S8\306\307\311\n!TC	\304\245\"\"))\207" [a len top math-bignum-digit-size 2 0 math-isqrt-bignum-iter math-scale-bignum-digit-size math-bignum-big math-isqrt-small] 8])
(defalias 'math-isqrt-bignum-iter #[(a guess) "\306=\203
\307\310\311	B\"\210\312\n	\"\313@	\"\314\f!\315
	\"\211\316W\203/\317\n
\"\202E\316U\205C\320A!\205C\f@\321\246\316U	B,\207" [calc-display-working-message guess a q s g2 lots math-do-working "isqrt" bigpos math-div-bignum math-add-bignum math-div2-bignum math-compare-bignum 0 math-isqrt-bignum-iter math-zerop-bignum 2 comp] 5])
(defalias 'math-zerop-bignum #[(a) "@\301=\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-isqrt-small #[(a) "\303Y\203\n\304\202\304Y\203\305\202\306Y\203\306\202\307\310\211\n\245\\\311\245\211\nW\2036	\211\202#\n*\207" [a g2 g 1000000 10000 1000 100 10 nil 2] 4])
(defalias 'math-sqrt #[(a) "\211:\203$@\306>?\205'@\307=\203A@\310=\202'\311!\202'\310=)\203/\206\325\312!\203?\313\314\315!!!\206\325\250\203j\316!\211\211_U\203T	\202f\n\203^\317D\202f\320\321!\321	!\")\206\325\242\322=\203\234\323A!\324\322AB!@\203\206	\202\230\n\203\220\317D\202\230\320\321!\321	!\"*\206\325\242\325=\2039
\323A@\211:\203\261\202\264\326!)A!\324\322\fAB!\323\3278\211:\203\315\202\320\326!)A!9\324\3229AB!:\f@\203\3619@\203\361\325
:E\2025
\n\203)
\f@\204
9@\203#
\330\f@\203\n

\202
\317A@D9@\203
:\202
\317\3278D\"\2025
\317D\2025
\320\321!\330\321
!:\"\",\206\325\242\307=\203\215
\n\203\207
\3278\327\246\310U\203\200
\323A@\211:\203\\
\202_
\326!)A!\211@\203x
\331\324\322AB!\3278\327\245\"\202|
\332\333\334\")\202\212
\332\333\334\"\202\212
\320!\206\325\242\335=\203\322
\324;\327\\;\336!<\314\337\340<A@\"\341\"!=\335\314\337\342<A@\"\343\"!\344\3278!\203\312
\315=!\202\314
=E+!\206\325\242\345=\203\351
\345\314A@!\337\3278\346\"E\206\325\242\347=\203\314A@!\350	\330\3278\337	\327\"\"\")\206\325\242\351=\203'\344\3278!\204'\352A@\314\3278!\314\3538!#\206\325\242\354=\203M\355A@!\204>\355\3278!\203M\337\314A@!\314\3278!\"\206\325\242\356=\203\216\355\3278!\203k\330\314A@!\314\3278!\"\206\325\355A@!\203\216\357A@\360\"\204\216\337\314A@!\314\330\360\3278\"!\"\206\325\242\361=\203\265\362\3278!\203\265\363A@!\203\265\336\364A@\330\3278\327\"\"!\206\325\365!\211>\205\311\337\314\366>\"!>\")\206\325\367\370\"\210\317D\207" [a sqrt calc-symbolic-mode res num-res num-sqrt (bigpos bigneg) float 0 math-zerop math-known-nonposp math-imaginary math-sqrt math-neg math-isqrt-small calcFunc-sqrt math-sqrt-float math-float bigpos math-isqrt-bignum math-normalize frac math-bignum 2 math-div math-make-float signal inexact-result nil cplx math-abs math-mul math-sub (float 5 -1) math-add (float 5 -1) math-negp polar (float 5 -1) sdev math-make-sdev intv math-make-intv 3 * math-known-nonnegp / math-equal-int 1 ^ math-known-evenp math-known-realp math-pow math-infinitep math-infinite-dir calc-record-why numberp den-res den-sqrt calc-internal-prec d imag inf] 8])
(defalias 'calcFunc-sqrt 'math-sqrt)
(defalias 'math-infinite-dir #[(a &optional inf) "\204\302	!\303\304	\305#!\207" [inf a math-infinitep math-normalize math-expr-subst 1] 5])
(defalias 'math-sqrt-float #[(a &optional guess) "\203	\304\305\306\"\207\307	T\310\n\")!\207" [calc-symbolic-mode calc-internal-prec a guess signal inexact-result nil math-normalize math-sqrt-raw] 4])
(defalias 'math-sqrt-raw #[(a &optional guess) "\211:\203:@\303=\206=@\304=?\205=@\305>\2034A@\211:\203-@\303=\2020\306V)\202=\307!\202=\306V)\204E\310!\207\311\312\"\206	\204{\313A@!\314Z\3158\n\\\315\246\306U\204g\nT\316\317\320A@\n[\"!\3158\n\\\315\245\")\321	\"\207" [a guess ldiff bigpos bigneg (frac float) 0 math-posp math-sqrt math-use-emacs-fn sqrt math-numdigs 6 2 math-make-float math-isqrt-small math-scale-int math-sqrt-float-iter] 6])
(defalias 'math-sqrt-float-iter #[(a guess) "\304=\203\305\306	\"\210\307\310	\311\n	\"\"\312\"\313	\"\203!\202%\314\n\")\207" [calc-display-working-message guess a g2 lots math-do-working "sqrt" math-mul-float math-add-float math-div-float (float 5 -1) math-nearly-equal-float math-sqrt-float-iter] 6])
(defalias 'math-nearly-equal-float #[(a b) "\3048\304	8Z\211\305U\203W\306A@\211:\203-@\307=\203&\310AB\202/\307AB\202/[)	A@\"\211\305=\206\354\n:?\205\354\n\311W\205\354\n\312V\205\354\313A@!U\202\354\n\314U\203\243\306	A@\211:\203|@\307=\203u\310AB\202~\307AB\202~[)\315A@\314\"\"\211:?\205\354\n\311W\205\354\n\312V\205\354\313	A@!U\202\354\n\316U\205\354\306A@\211:\203\310@\307=\203\301\310AB\202\312\307AB\202\312[)\315	A@\314\"\"\211:?\205\354\n\311W\205\354\n\312V\205\354\313A@!U)\207" [a b ediff calc-internal-prec 2 0 math-add bigpos bigneg 10 -10 math-numdigs 1 math-scale-int -1] 6])
(defalias 'math-nearly-equal #[(a b) "\302!\302	!@\303=\203\304!	@\303=\203\304	!@\305=\203|	@\305=\203l\306A@	A@\"\204M\307A@\3108\"\205{\307	A@\310	8\"\205{\306\3108\310	8\"\206\227\307\3108A@\"\205\227\307\310	8	A@\"\207\306A@	\"\205{\307\3108	\"\207	@\305=\203\223\306	A@\"\205\227\307\310	8\"\207\306	\"\207" [a b math-float polar math-complex cplx math-nearly-equal-float math-nearly-zerop-float 2] 4])
(defalias 'math-nearly-zerop-float #[(a b) "A@\303=\206\304A@!\3058\\\304	A@!\305	8\\\nZTX\207" [a b calc-internal-prec 0 math-numdigs 2] 4])
(defalias 'math-nearly-zerop #[(a b) "\302!\302	!@\303=\203\304A@	\"\2051\304\3058	\"\207@\306=\203-\304A@	\"\207\304	\"\207" [a b math-float cplx math-nearly-zerop-float 2 polar] 3])
(defalias 'math-hypot #[(a b) "\211:\203$@\303>?\205'@\304=\203A@\305=\202'\306!\202'\305=)\203/\307	!\207	\211:\203S@\303>?\205V@\304=\203MA@\305=\202V\306!\202V\305=)\203^\307!\207\211:?\206j@\310>)\204\220\311!\203\206\311	!\203\204	\232\203\202\207\312\207\207\313\314\"\210\315	E\207	\211:?\206\234@\310>)\204\262\311	!\203\250	\207\313\314	\"\210\315	E\207\211:?\206\276@\316>)\203\343	\211:?\206\316@\316>)\203\343\317\nT\320\321\322!\322	!\"!)!\207\242\323=\203
	\242\323=\203\376\324\325\326\327\"\326	\327\"\"!\207\324\325\326\327\"	\"!\207	\242\323=\203
\324\325\326	\327\"\"!\207\330\207" [a b calc-internal-prec (bigpos bigneg) float 0 math-zerop math-abs (bigpos bigneg frac float cplx polar hms) math-infinitep (var nan var-nan) calc-record-why scalarp calcFunc-hypot (bigpos bigneg frac float cplx polar) math-normalize math-sqrt math-add calcFunc-abssqr hms math-to-hms math-hypot math-from-hms deg nil] 7])
(defalias 'calcFunc-hypot 'math-hypot)
(defalias 'calcFunc-sqr #[(x) "\301\302\"\207" [x math-pow 2] 3])
(defalias 'math-nth-root #[(a n) "\306U\203\n\307	!\207	\211:\203.	@\310>?\2051	@\311=\203(	A@\312=\2021\313	!\2021	\312=)\2037	\207	\211:\203q	@\314=\206t	@\315=?\205t	@\316>\203k	A@\211:\203d	@\314=\202g	\312W)\202t\317	!\202t	\312W)\203z\320\207	\211:?\206\206	@\321>)\203\252\322	\"\211@\203\231\nA\202\250?\205\250\323\324	!\324\nA!#)\207	\242\325=\203\351\322	A@\"\322\306	8\"\f@\203\322
@\203\322\325\fA
AE\202\347?\205\347\323\324	!\326\324\fA!\324
A!\"#*\207	\242\311=\203\372?\205
\323	\"\207	\242\327=\203
\330	A@\"\211\205
\327\n\331\306	8\"E)\207\320\207" [n a root calc-symbolic-mode num-root den-root 2 math-sqrt (bigpos bigneg) float 0 math-zerop bigneg bigpos (frac float) math-negp nil (bigpos bigneg) math-nth-root-integer math-nth-root-float math-float frac math-div-float polar math-nth-root math-div] 8])
(defalias 'math-nth-root-float #[(a math-nrf-n &optional guess) "\306 \210\307T\310	!\310	S!\311\f
\206(\312\313\314\315\fA@!\316\f8	\316\245#	\245\"\"+!\207" [calc-internal-prec math-nrf-n math-nrf-nfm1 math-nrf-nf a guess math-inexact-result math-normalize math-float math-nth-root-float-iter math-make-float 1 + math-numdigs 2] 10])
(defalias 'math-nth-root-float-iter #[(a guess) "\306=\203\307\310	\"\210\311\312\313\n	\"\311\314	\fS\"\"\"
\"\315	\"\203+\2020\316\")\207" [calc-display-working-message guess math-nrf-nfm1 a math-nrf-n math-nrf-nf lots math-do-working "root" math-div-float math-add-float math-mul math-ipow math-nearly-equal-float math-nth-root-float-iter g2] 8])
(defalias 'math-nth-root-integer #[(a math-nri-n &optional guess) "\303	\206\304\305\306!\nS\\\n\245\"\"\207" [a guess math-nri-n math-nth-root-int-iter math-scale-int 1 math-numdigs] 6])
(defalias 'math-nth-root-int-iter #[(a guess) "\306=\203\307\310	\"\210\311\n\312	S\"\"\313\f@\314S	\"\"\311
\"\211@	\211:\203A:\205K\315\nAA\"\316U\202K:\206K\nW*\203X\317\n@\"\202n@	\232\205l\fA\320=\205lA\320=	B+\207" [calc-display-working-message guess a math-nri-n q s lots math-do-working "root" math-idivmod math-ipow math-add math-mul math-compare-bignum -1 math-nth-root-int-iter 0 g2 b] 6])
(defalias 'calcFunc-nroot #[(x n) "\302	\250\203\303\304	\"\202\305\304	\"\"\207" [x n calcFunc-pow math-make-frac 1 math-div] 5])
(defalias 'math-to-radians #[(a) "\242\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.\n@\314>)\203A\315\316\\\317\320\321!!!)!\207@\322=\203\210\323!\203v\315\316\\\320\321A@!!\320\321\3168!!\324\f!!\325!@\326
!A\"\",!\207\325\327A@!\326\3168\330A@!\"\"\207@\331=\203\236\332!\203\236\330\333\334\335!\"!\207\336\232\203\246\207\337\340\"\210\327D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 0 [0 1 0 -1] math-mod 4 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-sin-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-make-sdev math-mul calcFunc-sin calcFunc-cos intv math-intv-constp math-sub math-quarter-circle nil (var nan var-nan) calc-record-why scalarp sc] 7])
(defalias 'calcFunc-cos #[(x) "\250\203\"	\306=\203\307\246\310U\202\310U\203\"\311\312\307\245\313\"H\207\211:?\206.\n@\314>)\203A\315\316\\\317\320\321!!!)!\207@\322=\203\210\323!\203v\315\316\\\320\321A@!!\320\321\3168!!\324\f!*\325*A\326
*@\"\",!\207\325\327A@!\326\3168\330A@!\"\"\207@\331=\203
\332!\203
\315\316\\\320\321!!\333\334\316\f8\335 \"!+\333\334\336\f8\335 \"!,\337,+\"\211-\340>\203	
\341A@\317\316\f8!\317\336\f8!#.-\342=\203
\343+!\203\363\344\345A@\316\"\346\336.8#\202
\344\345A@\342\"\316.8\342#\202
.)\202
\331\336\346\342F-!\207\347\232\203
\207\350\351\"\210\327D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 0 [1 0 -1 0] math-mod 4 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-cos-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-make-sdev math-mul calcFunc-cos calcFunc-sin intv math-intv-constp math-floor math-div math-pi 3 math-sub (0 1) math-sort-intv 1 math-evenp math-make-intv logior -1 (var nan var-nan) calc-record-why scalarp sc na nb span int] 8])
(defalias 'calcFunc-sincos #[(x) "\211:?\206\f	@\304>)\203&\305\n\306\\\307\310\311!!!\312A@E*!\207\312\313!\314!E\207" [x a calc-internal-prec sc (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-sin-cos-raw math-to-radians math-float vec calcFunc-sin calcFunc-cos] 6])
(defalias 'calcFunc-tan #[(x) "\250\203	\306=\203\307\246\310U\202\310U\203\310\207\211:?\206'\n@\311>)\203:\312\313\\\314\315\316!!!)!\207@\317=\203\241\320!\203\215\312\313\\\315\316A@!!\315\316\3138!!\321\f!&\322&A!\203x'\204x\323\324!\210\325D\202\212\326\327&@&A\"\327
\330&A!\"\",!\207\326\325A@!\331\3138\330\332A@!!\"\"\207@\333=\203\365\334!\203\365\312\313\\\315\316!!\335\331\336\313\f8\337 \"\340 \"!(\335\331\336\341\f8\337 \"\340 \"!)()\232\205\356\342A@\314\313\f8!\314\341\f8!#,!\206
\343\207\344\232\203\375\207\323\345\"\210\325D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 180 0 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-tan-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-tan math-make-sdev math-div-float math-sqr math-div calcFunc-cos intv math-intv-constp math-floor math-sub math-pi-over-2 math-pi 3 math-sort-intv (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var nan var-nan) scalarp sc calc-infinite-mode na nb] 8])
(defalias 'calcFunc-sec #[(x) "\250\203	\306=\203\307\246\310U\203\311\246\310U\203\312\207\313\207\250\2032	\314=\2032\310U\2032\312\207\211:?\206>\n@\315>)\203Q\316\317\\\320\321\322!!!)!\207@\323=\203\302\324!\203\247\316\317\\\321\322A@!!\321\322\3178!!\325\f!1\3261A!\203\2172\204\217\327\330!\210\331D\202\244\332\333\3341A\"\333\335
1@\"\3361A!\"\",!\207\332\331A@!\337\335\3178\340A@!\"\336\341A@!!\"\"\207@\342=\203p
\343!\203p
\316\317\\\321\322!!\344\337\345\317\f8\346 \"\347 \"!3\344\337\345\350\f8\346 \"\347 \"!4\344\337\317\f8\346 \"!5\344\337\350\f8\346 \"!6\34565\"734\232\204\"
\351\202l
\352A@\320\317\f8!\320\350\f8!#87\312=\203i
\353\337\3545\312\"\317\"!\203X
\355\3568A@\317\"\312\35088#\202k
\355\3568A@\312\"\31788\313#\202k
8).!\207\357\232\203x
\207\327\360\"\210\331D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 180 0 360 1 -1 rad (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-sec-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-sec math-make-sdev math-div-float (float 1 0) math-mul math-sqr math-div calcFunc-sin calcFunc-cos intv math-intv-constp math-floor math-sub math-pi-over-2 math-pi 3 (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv math-evenp math-add math-make-intv logior (var nan var-nan) scalarp sc calc-infinite-mode na nb naa nbb span int] 8])
(defalias 'calcFunc-csc #[(x) "\250\203#	\306=\203#\307Z\310\246\311U\203#\307Z\312\246\311U\203!\313\207\314\207\211:?\206/\n@\315>)\203B\316\317\\\320\321\322!!!)!\207@\323=\203\263\324!\203\230\316\317\\\321\322A@!!\321\322\3178!!\325\f!0\3260@!\203\2001\204\200\327\330!\210\331D\202\225\332\333\3340@\"\333\335
0A\"\3360@!\"\",!\207\332\331A@!\337\335\3178\340A@!\"\336\341A@!!\"\"\207@\342=\203V
\343!\203V
\316\317\\\321\322!!\344\337\317\f8\345 \"!2\344\337\346\f8\345 \"!3\344\337\317\f8\347 \"!4\344\337\346\f8\347 \"!5\35054\"623\232\204
\351\202R
\352A@\320\317\f8!\320\346\f8!#76\313=\203O
\353\3374\317\"!\203>
\354\3557A@\317\"\313\34678#\202Q
\354\3557A@\313\"\31778\314#\202Q
7).!\207\356\232\203^
\207\327\357\"\210\331D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 180 0 360 1 -1 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-csc-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-csc math-make-sdev math-div-float (float 1 0) math-mul math-sqr math-div calcFunc-cos calcFunc-sin intv math-intv-constp math-floor math-pi 3 math-pi-over-2 math-sub (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv math-evenp math-make-intv logior (var nan var-nan) scalarp sc calc-infinite-mode na nb naa nbb span int] 8])
(defalias 'calcFunc-cot #[(x) "\250\203	\306=\203\307Z\310\246\311U\202\311U\203\311\207\211:?\206)\n@\312>)\203<\313\314\\\315\316\317!!!)!\207@\320=\203\243\321!\203\217\313\314\\\316\317A@!!\316\317\3148!!\322\f!%\323%@!\203z&\204z\324\325!\210\326D\202\214\327\330%A%@\"\330
\331%@!\"\",!\207\327\326A@!\332\3148\331\333A@!!\"\"\207@\334=\203\357\335!\203\357\313\314\\\316\317!!\336\332\314\f8\337 \"!'\336\332\340\f8\337 \"!('(\232\205\350\341A@\315\314\f8!\315\340\f8!#,!\206\377\342\207\343\232\203\367\207\324\344\"\210\326D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 180 0 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-cot-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-cot math-make-sdev math-div-float math-sqr math-div calcFunc-sin intv math-intv-constp math-floor math-pi 3 math-sort-intv (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var nan var-nan) scalarp sc calc-infinite-mode na nb] 8])
(defalias 'math-sin-raw #[(x &optional orgx) "@\306=\2032\307\3108!\311\312	\"\313A@!\306\314@\314\315	\n\"\316\"\"\314A\314\317	\n\"\320\"\"E+\207@\321=\203A\322\323\324!!!\207A@\211:\203Q\f@\325=\202T\f\326W)\203i\327\323\327!
\203e
\202f\"!\207\330\331\"\203\201\323\332\333 \"
\203~
\202\"\207\334
\203\213
\202\214\"\207" [x expx expmx sc a orgx cplx math-exp-raw 2 math-div-float (float 1 0) math-sin-cos-raw math-mul-float math-add-float (float 5 -1) math-sub-float (float 5 -1) polar math-polar math-sin-raw math-complex bigneg 0 math-neg-float math-lessp-float (float 7 0) math-mod math-two-pi math-sin-raw-2] 9])
(defalias 'math-cos-raw #[(x) "\242\301=\203\302\303\304!!!\207\305\306\307 \"\"\207" [x polar math-polar math-cos-raw math-complex math-sin-raw math-sub math-pi-over-2] 4])
(defalias 'math-sec-raw #[(x) "@\306=\203c\307\310\"\311\3128!\313\314	\"\315\316	\n\"\317\"\315\320	\n\"\321\"\322A@!\320\315\323
@!\323!\"\315\323
A!\323\f!\"\"\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) "\306\307 \"\211A@\211:\203\n@\310=\202\n\311W)\203*\312\313\306\314 \"\"!\202~\315\316 \"\2039\317	\"\202~\315\320\316 !\"\203P\320\317\321\307 \"\"!\202~\322\fS\323\")!\203a\324\202~\325\326\"\206~
\203s\327\330\331\"\202~\332\333\334\312\335!!%)\207" [x xmpo2 a orgx calc-internal-prec calc-symbolic-mode math-sub-float math-pi-over-2 bigneg 0 math-neg-float math-sin-raw-2 math-pi math-lessp-float math-pi-over-4 math-cos-raw-2 math-neg math-add math-normalize math-nearly-zerop-float (float 0 0) math-use-emacs-fn sin signal inexact-result nil math-sin-series 6 4 math-sqr-float] 9])
(defalias 'math-cos-raw-2 #[(x orgx) "\305S\306	\n\")!\203\307\207\310\311	\"\2063\203\312\313\314\"\207\315\316	!!\317\320\321\322\f\323\"\"\324\325\f\211%)\207" [calc-internal-prec x orgx calc-symbolic-mode xnegsqr math-normalize math-nearly-zerop-float (float 1 0) math-use-emacs-fn cos signal inexact-result nil math-neg-float math-sqr-float math-sin-series math-add-float (float 1 0) math-mul-float (float 5 -1) 24 5] 6])
(defalias 'math-sin-series #[(sum nfac n x xnegsqr) "\306=\203\307\310	\"\210\311\n\"\312	\313\f\314
!\"\"\315	\"\203'	\2029\316\317
\211T_\"\320\\\f%*\207" [calc-display-working-message sum x xnegsqr nextx nfac lots math-do-working "sin" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-sin-series math-mul 2 nextsum n] 6])
(defalias 'calcFunc-arcsin #[(x) "\305=\203\305\207\306=\203	\307=\203\310\207\311=\203$	\307=\203$\312\207\n\203-\313\314\315\"\207\211:?\2069@\316>)\203L\317\f\320\\\321\322\323!!!)!\207@\324=\203l\325\326A@!\321\327\3208\330\331\306\332A@!\"!\"!\"\207@\333=\203\203\334A@\326\3208!\326\3358!#\207\336\232\203\213\207\337\340\"\210\326D\207" [x calc-angle-mode calc-symbolic-mode a calc-internal-prec 0 1 deg 90 -1 -90 signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize 2 math-from-radians math-arcsin-raw math-float sdev math-make-sdev calcFunc-arcsin math-div math-sqrt math-sub math-sqr intv math-sort-intv 3 (var nan var-nan) calc-record-why numberp] 11])
(defalias 'calcFunc-arccos #[(x) "\305=\203\306\207\306=\203	\307=\203\310\207\311=\203$	\307=\203$\312\207\n\203-\313\314\315\"\207\211:?\2069@\316>)\203L\317\f\320\\\321\322\323!!!)!\207@\324=\203l\325\326A@!\321\327\3208\330\331\305\332A@!\"!\"!\"\207@\333=\203\203\334A@\326\3208!\326\3358!#\207\336\232\203\213\207\337\340\"\210\326D\207" [x calc-angle-mode calc-symbolic-mode a calc-internal-prec 1 0 deg 90 -1 180 signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize 2 math-from-radians math-arccos-raw math-float sdev math-make-sdev calcFunc-arccos math-div math-sqrt math-sub math-sqr intv math-sort-intv 3 (var nan var-nan) calc-record-why numberp] 11])
(defalias 'calcFunc-arctan #[(x) "\304=\203\304\207\305=\203	\306=\203\307\207\310=\203$	\306=\203$\311\207\211:?\2060\n@\312>)\203C\313\314\\\315\316\317!!!)!\207@\320=\203a\321\322A@!\315\323\3148\324\305\325A@!\"\"!\"\207@\326=\203x\327A@\322\3148!\322\3308!#\207\331\232\203\202\332\333!\207\334\232\203\216\335\332\333!!\207\336\232\203\226\207\337\340\"\210\322D\207" [x calc-angle-mode a calc-internal-prec 0 1 deg 45 -1 -45 (bigpos bigneg frac float cplx polar) math-normalize 2 math-from-radians math-arctan-raw math-float sdev math-make-sdev calcFunc-arctan math-div math-add math-sqr intv math-sort-intv 3 (var inf var-inf) math-quarter-circle t (neg (var inf var-inf)) math-neg (var nan var-nan) calc-record-why numberp] 10])
(defalias 'math-arcsin-raw #[(x) "\303\304\305\306!\"!@\307>\204	@\310>\203-\311\n\312\\\313\314\315\316\313\317\"	\"!\")!\2021\320	\")\207" [x a calc-internal-prec math-sqrt-raw math-sub (float 1 0) math-sqr (cplx polar) (cplx polar) math-normalize 2 math-mul (cplx 0 -1) math-ln-raw math-add (cplx 0 1) math-arctan2-raw] 8])
(defalias 'math-arccos-raw #[(x) "\301\302 \303!\"\207" [x math-sub math-pi-over-2 math-arcsin-raw] 4])
(defalias 'math-arctan-raw #[(x) "@\304>\203&\305	\306\\\307\310\311\312\313\314\315\"\"!\311\312\313\314\316\"\"!\"\317\")!\207A@\211:\2036\n@\320=\2029\n\321W)\203E\322\323\322!!!\207\324!\203M\207\325\326\"\206\255\203]\327\330\331\"\207\332\313\"\203g\333 \207\332\334\"\203s\335\333 !\207\336\337\"\203\243\336\340\"\203\217\341\342\343 \344\"\323\345\346\"!\"\207\341\342\343 \347\"\323\345\341\350\"\351\352\"\"!\"\207\353\354\322\355!!$\207" [x calc-internal-prec a calc-symbolic-mode (cplx polar) math-normalize 2 math-div math-sub math-ln-raw math-add 1 math-mul (cplx 0 1) (cplx 0 -1) (cplx 0 2) bigneg 0 math-neg-float math-arctan-raw math-zerop math-use-emacs-fn atan signal inexact-result nil math-equal-int math-pi-over-4 -1 math-neg math-lessp-float (float 414214 -6) (float 1 0) math-sub-float math-mul-float math-pi (float 5 -1) math-div-float (float 1 0) (float 25 -2) (float 1 0) math-add-float (float 1 0) math-arctan-series 3 math-sqr-float] 11])
(defalias 'math-arctan-series #[(sum n x xnegsqr) "\306=\203\307\310	\"\210\311\n\"\312	\313\f\314
!\"\"\315	\"\203'	\2020\316
\317\\\f$*\207" [calc-display-working-message sum x xnegsqr nextx n lots math-do-working "arctan" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-arctan-series 2 nextsum] 6])
(defalias 'calcFunc-arctan2 #[(y x) "\211:?\206\f	@\304>)\203<\n\211:?\206	@\304>)\2032\305\306\\\307\310\311!\311\n!\"!)!\207\312\313\n\"\210\314\nE\207\315\n!\204H\316\n!\203\237\315!\204T\316!\203\237\317\n!\203_\320\202r\321\n!\203j\322\202r\323\n!\204r\324\317!\203}\320\202\220\321!\203\210\322\202\220\323!\204\220\324\203\235\n\203\235\314\n\"\207\325\207\312\313\"\210\314\nE\207" [y a x calc-internal-prec (bigpos bigneg frac float hms) math-normalize 2 math-from-radians math-arctan2-raw math-float calc-record-why anglep calcFunc-arctan2 math-infinitep math-anglep math-posp 1 math-negp -1 math-zerop nil (var nan var-nan)] 7])
(defalias 'math-arctan2-raw #[(y x) "\302!\203\303	!\203\304 \207\305	!\204\305!\203\306\207\307\207\302	!\2033\310!\203.\311 \207\312\311 !\207\310	!\203@\313\314	\"!\207\310!\203Q\315\313\314	\"!\304 \"\207\316\313\314	\"!\304 \"\207" [y x math-zerop math-negp math-pi math-floatp (float 0 0) 0 math-posp math-pi-over-2 math-neg math-arctan-raw math-div-float math-add-float math-sub-float] 5])
(defalias 'calcFunc-arcsincos #[(x) "\211:\205	@\302=)\203G\303U\203\304\3058A@\"\207\306\307\"\207" [x a vec 3 calcFunc-arctan2 2 math-reject-arg "*Two-element vector expected"] 4])
(defalias 'calcFunc-exp #[(x) "\305=\203\306\207\307>\203	\203\306=\203\310\207\311\306\312\"\207\211:?\206+\n@\313>)\203<\314\315\\\316\317!!)!\207\242\320=\203T\321A@!\322\f\323\3158\f\"\")\207\242\324=\203k\325A@\321\3158!\321\3268!#\207\327\232\203s\207\330\232\203{\305\207\331\232\203\203\207\332\333\"\210\321D\207" [x calc-symbolic-mode a calc-internal-prec ex 0 1 (1 -1) (var e var-e) math-div (var e var-e) (bigpos bigneg frac float cplx polar) math-normalize 2 math-exp-raw math-float sdev calcFunc-exp math-make-sdev math-mul intv math-make-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 7])
(defalias 'calcFunc-expm1 #[(x) "\305=\203\305\207\306!\203\307\207	\203\310\311\312\"\207\211:?\206%\n@\313>)\203V\314\315\\\316!\211@\317=\203M\320\321\"\203M\320\322\"\203M\323!\202S\324\325!\326\"*!\207\242\327=\203\211\330!\203w\331A@!\332\f\333\3158\324\f\334\"\"\")\207\332\331A@!\333\3158\335A@!\"\"\207\242\336=\203\240\337A@\331\3158!\331\3408!#\207\341\232\203\250\207\342\232\203\260\326\207\343\232\203\270\207\344\345\"\210\331D\207" [x calc-symbolic-mode a calc-internal-prec ex 0 math-zerop (float 0 0) signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize 2 math-float float math-lessp-float (float 1 0) (float -1 0) math-exp-minus-1-raw math-add math-exp-raw -1 sdev math-constp calcFunc-expm1 math-make-sdev math-mul 1 calcFunc-exp intv math-make-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 8])
(defalias 'calcFunc-exp10 #[(x) "\301=\203\302\207\303\304\"\207" [x 0 1 math-pow (float 1 1)] 3])
(defalias 'math-exp-raw #[(x) "\306!\203\307\207	\203\310\311\312\"\207@\313=\2032\314A@!\315\3168!\313\317\nA\"\317\n@\"E*\207@\320=\203K\321!\320\314\fA@!\322\316\f8!E)\207\323\324\"\206\251\325\326\"\204`\325\327\"\203\243\325\330\"\203m\331 \210\202w\325\332\"\203w\333 \210\317\334\"\335
A@\316
8\"'\336\317\337'!\340\"\"(\317\341\342 '\"\343\344\345(!\"\"+\207\343\346\345!\"\207" [x calc-symbolic-mode sc expx xc two-x math-zerop (float 1 0) signal inexact-result nil cplx math-exp-raw math-sin-cos-raw 2 math-mul-float polar math-complex math-from-radians math-use-emacs-fn exp math-lessp-float (float 5 -1) (float -5 -1) (float 921035 1) math-overflow (float -921035 1) math-underflow (float 2 0) math-scale-int math-sub-float math-float (float 5 -1) math-ipow math-sqrt-e math-add-float (float 1 0) math-exp-minus-1-raw (float 1 0) hint hfrac] 6])
(defalias 'math-exp-minus-1-raw #[(x) "\301\302\303\211%\207" [x math-exp-series 2 3] 6])
(defalias 'math-exp-series #[(sum nfac n xpow x) "\306=\203\307\310	\"\210\311\n\"\312	\313\f\314
!\"\"\315	\"\203'	\2025\316\317
\"T\f%*\207" [calc-display-working-message sum xpow x nextx nfac lots math-do-working "exp" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-exp-series math-mul nextsum n] 6])
(defalias 'calcFunc-ln #[(x) "\304!\203	\203\f\305\207\306\307\"\207\310=\203\311\207\211:?\206%\n@\312>)\2036\313\314\\\315\316!!)!\207\242\317=\203M\320\321A@!\322\3148A@\"\"\207\242\323=\203\335\3148\211:\203\220\n@\324=\206\223\n@\325=?\205\223\n@\326>\203\212\nA@\211:\203\203\n@\324=\202\206\n\311V)\202\223\327\n!\202\223\n\311V)\204\312\3148\211:\203\275\n@\330>?\205\300\n@\331=\203\267\nA@\311=\202\300\304\n!\202\300\n\311=)\204\312\332!\204\335\333\334A@\321\3148!\321\3358!#)\207\336\232\203\345\310\207\242\337=\203
A@\340\232\203
\341\3148!\203
\3148\207\342!\203
\343\232\203
\207\344\207\345\346\"\210\321D\207" [x calc-infinite-mode a calc-internal-prec math-zerop (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" 1 0 (bigpos bigneg frac float cplx polar) math-normalize 2 math-ln-raw math-float sdev math-make-sdev calcFunc-ln math-div intv bigpos bigneg (frac float) math-posp (bigpos bigneg) float math-intv-constp t math-make-intv 3 (var e var-e) ^ (var e var-e) math-known-realp math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp] 7])
(defalias 'calcFunc-log10 #[(x) "\306\307\"\203\310!\203\311\207\312\207\211:?\206	@\313>)\203;\314!\203;\315\316\"\211@\2055\nA\211)\203;\207\242\317=\203aA@\307=\203a\315\3208\316\"\211@\205[\nA[\211)\203a\207\321!\203r\203m\322\207\323\324\"\207\f\203{\325\326\327\"\207\211:?\206\207	@\330>)\203\376\331
\320\\\332!\2113A@\312=\203\242\323\324\"\2103A@\211:\203\263	@\333=\202\266	\312V)\203\3633A@\307=\203\314\332\32038!\202\373\3343A@!S4\335\336\337\3403A@4[E!\341 \"\332\320384\\!\")\202\373\342\3433!\341 \"*!\207\242\344=\203
\345\346A@!\342\3208\347A@\341 \"\"\"\207\242\350=\203y
\3208\211:\203\\
	@\333=\206_
	@\351=?\205_
	@\352>\203V
	A@\211:\203O
	@\333=\202R
	\312V)\202_
\314	!\202_
	\312V)\204i
\353!\204y
\354A@\346\3208!\346\3558!#\207\356!\203\211
\357\232\203\207
\207\360\207\361\362\"\210\346D\207" [x a res calc-infinite-mode calc-symbolic-mode calc-internal-prec math-equal-int 1 math-floatp (float 0 0) 0 (bigpos bigneg) math-posp math-integer-log 10 frac 2 math-zerop (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize math-float bigpos math-numdigs math-add-float math-div-float math-ln-raw-2 float math-ln-10 math-div calcFunc-ln sdev math-make-sdev calcFunc-log10 math-mul intv bigneg (frac float) math-intv-constp math-make-intv 3 math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp xf xdigs] 8])
(defalias 'calcFunc-log #[(x &optional b) "\203\n\306\232\203\307\310	D!\207\311=\204\312\232\203\"\307\313	D!\207\314	!\203:\n\2035\315\310	!\310!\"\207\316	\317\"\207\314!\203R\n\203M\315\310	!\310!\"\207\316\317\"\207\320\321\"\203i\n\203d\315\310	!\322\"\207\316\323\"\207\320	\321\"\203z\324!\203x\325\207\322\207	\211:?\206\206@\326>)\203#
\211:?\206\226@\326>)\203#
\327	!\203#
\327!\203#
\321\330\321	\331\"\332U*\203\274	\202\302\332\315\321	\"2\321\331\"\332U*\203\326\202\335\f[\315\321\"323\331\"\332U*\203\372\33332\"\211\202
\33323\"\2114@\205

\203
\315\321\f4A_\"\202
\f4A_\211-\203#
	\2075\203-
\334\335\330\"\207	\211:?\2069
@\336>)\203a
\211:?\206I
@\336>)\203a
\3076\337\\6\315\340\341	!!\342!\")!\207	\242\343=\203\216
\211:?\206t
@\336>)\203\216
\344\345	A@\"\315\337	8\346	A@\342!\"\"\"\207	\242\347=\203\366
\337	8\211:\203\321
@\350=\206\324
@\351=?\205\324
@\352>\203\313
A@\211:\203\304
@\350=\202\307
\322V)\202\324
\327!\202\324
\322V)\204\336
\353	!\204\366
\354!\203\366
\355	A@\345\337	8\"\345\356	8\"#\207	\242\347=\204\242\347=\203
\315\310	!\310!\"\207\357	!\204\357!\203\"\315\310	!\310!\"\207\211:?\206.@\336>)\203:\360\361	\"\210\202?\360\361\"\210\345	E\207" [b x calc-infinite-mode a sign inv (var e var-e) math-normalize calcFunc-ln 10 (float 1 1) calcFunc-log10 math-zerop math-div math-reject-arg "*Logarithm of zero" math-equal-int 1 0 "*Logarithm base one" math-floatp (float 0 0) (bigpos bigneg frac) math-posp nil math-compare -1 math-integer-log signal inexact-result (bigpos bigneg frac float cplx polar) 2 math-ln-raw math-float math-log-base-raw sdev math-make-sdev calcFunc-log math-mul intv bigpos bigneg (frac float) math-intv-constp math-realp math-make-intv 3 math-infinitep calc-record-why numberp xx bb res calc-symbolic-mode calc-internal-prec] 9])
(defalias 'calcFunc-alog #[(x &optional b) "\203\n\302\232\203\303\304	D!\207\305	\"\207" [b x (var e var-e) math-normalize calcFunc-exp math-pow] 3])
(defalias 'calcFunc-ilog #[(x b) "\303!\203P\304=\204P\303	!\203P	\304=\204P	\305=\203#\306\307\"\207	\211:\203<	:\205D\310\nA	A\"\311U\202D	:\206D\n	W*\203J\304\207\312	\"A\207\313\314	\"!\207" [x b a math-natnump 0 1 math-reject-arg "*Logarithm base one" math-compare-bignum -1 math-integer-log math-floor calcFunc-log] 5])
(defalias 'math-integer-log #[(x b) "C\306!\307\211\211\f\310\"\311U*\204)\f
B\306\f!\202
\312\313
GS\"\211
@
A\211\203q\f\310\"\311U*\203q	\314\245\315\f
@\"\310\"\311U*\2045\n	\\\2025\f\232\n-B\207" [b n sum next pow pows math-sqr nil math-compare -1 lsh 1 2 math-mul x a] 6])
(defvar math-log-base-cache nil)
(defalias 'math-log-base-raw #[(b) "@	\232\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) "\306\211	=\206#\n:\205#\n@\307=\205#\nA@	=\205#\310\n8\311U*\2032\203-\312\207\313\314\"\207\311=\203:\311\207\315!\203B\316\207\f\203K\317\320\321\"\207\211:?\206W\n@\322>)\203\210\323
\310\\\324!\211@\307=\203\325\326\"\203\325\327\"\203\330!\202\205\331\332\333\"!*!\207\242\334=\203\242\335\336A@!\337\3108\340A@\341\"\"\"\207\242\342=\203
\3108\211:\203\345\n@\343=\206\350\n@\344=?\205\350\n@\345>\203\337\nA@\211:\203\330\n@\343=\202\333\n\311V)\202\350\346\n!\202\350\n\311V)\204\362\347!\204
\350A@\336\3108!\336\3518!#\207\352!\203
\353\232\203
\207\354\207\355\356\"\210\336D\207" [x b a calc-infinite-mode calc-symbolic-mode calc-internal-prec -1 float 2 0 (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" math-zerop (float 0 0) signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize math-float math-lessp-float (float 5 -1) (float -5 -1) math-ln-plus-1-raw math-ln-raw math-add-float (float 1 0) sdev math-make-sdev calcFunc-lnp1 math-div math-add 1 intv bigpos bigneg (frac float) math-posp math-intv-constp math-make-intv 3 math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp] 8])
(defalias 'math-ln-raw #[(x) "\242\306=\203#\306\307\310\311\312A@!\312\3138!\"!\314\"\315\3138A@\"E\207@\316=\2039\317\306\310A@!\320\3138!E!\207\321\211	=\206\\\n:\205\\\n@\322=\205\\\nA@	=\205\\\313\n8\323U*\203b\324\207\203k\325\326\327\"\207\330A@!\203\231\331\332\"\206\277\333A@!S\311\334\322A@\f[E!\307\335\3138\f\\!\336 \"\")\207\337!\203\244\340\341\"\207
\316=\203\266\317\306\310\342!!\343 E!\207\306\310\342!!\343 E\207" [x b a calc-symbolic-mode xdigs calc-complex-mode cplx math-mul-float math-ln-raw math-add-float math-sqr-float 2 (float 5 -1) math-arctan2-raw polar math-polar math-to-radians 1 float 0 (float 0 0) signal inexact-result nil math-posp math-use-emacs-fn log math-numdigs math-ln-raw-2 math-float math-ln-10 math-zerop math-reject-arg "*Logarithm of zero" math-neg-float math-pi] 9])
(defalias 'math-ln-raw-2 #[(x) "\301\302\"\203\303\304\305\306\"!\307 \"\207\310\311\312\313\"\303\314\"\"!\207" [x math-lessp-float (float 14 -1) math-add-float math-ln-raw-2 math-mul-float (float 5 -1) math-ln-2 math-ln-raw-3 math-div-float math-sub-float (float 1 0) (float 1 0)] 6])
(defalias 'math-ln-raw-3 #[(x) "\301\302\303\304!$\305\"\207" [x math-mul-float math-ln-raw-series 3 math-sqr-float (float 2 0)] 7])
(defalias 'math-ln-raw-series #[(sum n x xsqr) "\306=\203\307\310	\"\210\311\n\"\312	\313\f\314
!\"\"\315	\"\203'	\2020\316
\317\\\f$*\207" [calc-display-working-message sum x xsqr nextx n lots math-do-working "log" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-ln-raw-series 2 nextsum] 6])
(defalias 'math-ln-plus-1-raw #[(x) "\301\302\303!$\207" [x math-lnp1-series 2 math-neg] 6])
(defalias 'math-lnp1-series #[(sum n xpow x) "\306=\203\307\310	\"\210\311\n\"\312	\313\f\314
!\"\"\315	\"\203'	\202/\316
T\f$*\207" [calc-display-working-message sum xpow x nextx n lots math-do-working "lnp1" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-lnp1-series nextsum] 6])
#@30 An approximation for ln(10).
(defconst math-approx-ln-10 (math-read-number-simple "2.302585092994045684018") (#$ . 49121))
(defvar math-ln-10-cache-prec (byte-code ":\203\301A@!\207\203\301\302!!A@\207\303\207" [math-approx-ln-10 math-numdigs eval -100] 3))
(defvar math-ln-10-cache (byte-code ":\203\207\203\301!\207\207" [math-approx-ln-10 eval] 2))
(defvar math-ln-10-last-prec -100)
(defvar math-ln-10-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-ln-10-cache-prec math-ln-10-last-prec] 3)
(defalias 'math-ln-10 #[nil "	U\204\305\n	Y\204	\306\\\307\310!)	\311\\!	\f\207" [math-ln-10-last-prec calc-internal-prec math-ln-10-cache-prec math-ln-10-cache math-ln-10-last math-normalize 4 math-ln-raw-2 (float 1 1) 2] 3])
#@29 An approximation for ln(2).
(defconst math-approx-ln-2 (math-read-number-simple "0.693147180559945309417") (#$ . 49896))
(defvar math-ln-2-cache-prec (byte-code ":\203\301A@!\207\203\301\302!!A@\207\303\207" [math-approx-ln-2 math-numdigs eval -100] 3))
(defvar math-ln-2-cache (byte-code ":\203\207\203\301!\207\207" [math-approx-ln-2 eval] 2))
(defvar math-ln-2-last-prec -100)
(defvar math-ln-2-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-ln-2-cache-prec math-ln-2-last-prec] 3)
(defalias 'math-ln-2 #[nil "	U\204!\305\n	Y\204	\306\\\307\310\311!!)	\312\\!	\f\207" [math-ln-2-last-prec calc-internal-prec math-ln-2-cache-prec math-ln-2-cache math-ln-2-last math-normalize 4 math-ln-raw-3 math-float (frac 1 3) 2] 4])
(defalias 'calcFunc-sinh #[(x) "\306=\203\306\207	\203\307\310\311\312D\312\313DDE\314E!\207\211:?\206(\n@\315>)\203M\2035\316\317\320\"\210\307\f\314\\\321\322!!\323\324
\325\326
\"\"\327\"*!\207\242\330=\203f\331\332A@!\323\3148\333A@!\"\"\207@\334=\203}\335A@\332\3148!\332\3368!#\207\337\232\204\217\340\232\204\217\341\232\203\221\207\342\343\"\210\332D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 math-normalize / - calcFunc-exp neg 2 (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-mul math-add math-div -1 (float 5 -1) sdev math-make-sdev calcFunc-sinh calcFunc-cosh intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 8])
(put 'calcFunc-sinh 'math-expandable t)
(defalias 'calcFunc-cosh #[(x) "\306=\203\307\207	\203\310\311\312\313D\313\314DDE\315E!\207\211:?\206(\n@\316>)\203M\2035\317\320\321\"\210\310\f\315\\\322\323!!\324\325
\326\307
\"\"\327\"*!\207\242\330=\203f\331\332A@!\324\3158\333A@!\"\"\207@\334=\203\207\335!\203\207\336!\337A@\332\3158!\332\3408!#\207\341\232\204\231\342\232\204\231\343\232\203\235\336!\207\344\345\"\210\332D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 1 math-normalize / + calcFunc-exp neg 2 (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-mul math-add math-div (float 5 -1) sdev math-make-sdev calcFunc-cosh calcFunc-sinh intv math-intv-constp math-abs math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 8])
(put 'calcFunc-cosh 'math-expandable t)
(defalias 'calcFunc-tanh #[(x) "\306=\203\306\207	\203&\307\310D\310\311DD\307\312\313\nE\314\nEE!*!\207\211:?\2062\f@\315>)\203^
\203?\316\317\320\"\210\307%\321\\%\310\322!!\323\324\"\323\325\n\"\326\n\"\"+!\207\242\327=\203y\330\331A@!\323\3218\332\333A@!!\"\"\207@\334=\203\220\335A@\331\3218!\331\3368!#\207\337\232\203\230\324\207\340\232\203\240\341\207\342\232\203\250\207\343\344\"\210\331D\207" [x math-expand-formulas expmx expx a calc-symbolic-mode 0 math-normalize calcFunc-exp neg / - + (bigpos bigneg frac float cplx polar) signal inexact-result nil 2 math-float math-div 1 math-sub math-add sdev math-make-sdev calcFunc-tanh math-sqr calcFunc-cosh intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) -1 (var nan var-nan) calc-record-why numberp calc-internal-prec] 8])
(put 'calcFunc-tanh 'math-expandable t)
(defalias 'calcFunc-sech #[(x) "\306=\203\307\207	\203\310\311\312\313\314D\314\315DDEE!\207\211:?\206(\n@\316>)\203M\2035\317\320\321\"\210\310\f\312\\\322\323!!\324\325\326
\324\307
\"\"\"*!\207\242\327=\203m\330\331A@!\332\3128\332\331A@!\333A@!\"\"\"\207@\334=\203\216\335!\203\216\336!\337A@\331\3128!\331\3408!#\207\341\232\204\232\342\232\203\234\306\207\343\232\203\244\207\344\345\"\210\331D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 1 math-normalize / 2 + calcFunc-exp neg (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-div (float 2 0) math-add sdev math-make-sdev calcFunc-sech math-mul calcFunc-tanh intv math-intv-constp math-abs math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 9])
(put 'calcFunc-sech 'math-expandable t)
(defalias 'calcFunc-csch #[(x) "\306=\203\307\310\306\"\207	\203\311\312\313\314\315D\315\316DDEE!\207\211:?\206+\n@\317>)\203P\2038\320\321\322\"\210\311\f\313\\\323\324!!\307\325\326
\307\327
\"\"\"*!\207\242\330=\203p\331\332A@!\333\3138\333\332A@!\334A@!\"\"\"\207@\335=\203
\3138\211:\203\263\n@\336=\206\266\n@\337=?\205\266\n@\340>\203\255\nA@\211:\203\246\n@\336=\202\251\n\306W)\202\266\341\n!\202\266\n\306W)\203\377\3428\211:\203\366\n@\337=\206\371\n@\336=?\205\371\n@\343>\203\360\nA@\211:\203\351\n@\337=\202\354\n\306V)\202\371\344\n!\202\371\n\306V)\203\377\345\207\346A@\332\3138!\332\3428!#\207\347\232\204
\350\232\203
\306\207\351\232\203%
\207\352\353\"\210\332D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 math-div 1 math-normalize / 2 - calcFunc-exp neg (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float (float 2 0) math-add -1 sdev math-make-sdev calcFunc-csch math-mul calcFunc-coth intv bigneg bigpos (frac float) math-negp 3 (frac float) math-posp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 9])
(put 'calcFunc-csch 'math-expandable t)
(defalias 'calcFunc-coth #[(x) "\306=\203\307\310\306\"\207	\203)\311\312D\312\313DD\311\314\315\nE\316\nEE!*!\207\211:?\2065\f@\317>)\203a
\203B\320\321\322\"\210\311,\323\\,\312\324!!\307\310\"\307\325\n\"\326\n\"\"+!\207\242\327=\203|\330\331A@!\307\3238\332\333A@!!\"\"\207@\334=\203
\3238\211:\203\277\f@\335=\206\302\f@\336=?\205\302\f@\337>\203\271\fA@\211:\203\262\f@\335=\202\265\f\306W)\202\302\340\f!\202\302\f\306W)\203
\3418\211:\203
\f@\336=\206
\f@\335=?\205
\f@\342>\203\374\fA@\211:\203\365\f@\336=\202\370\f\306V)\202
\343\f!\202
\f\306V)\203
\344\207\345A@\331\3238!\331\3418!#\207\346\232\203#
\310\207\347\232\203+
\350\207\351\232\2033
\207\352\353\"\210\331D\207" [x math-expand-formulas expmx expx a calc-symbolic-mode 0 math-div 1 math-normalize calcFunc-exp neg / + - (bigpos bigneg frac float cplx polar) signal inexact-result nil 2 math-float math-add math-sub sdev math-make-sdev calcFunc-coth math-sqr calcFunc-sinh intv bigneg bigpos (frac float) math-negp 3 (frac float) math-posp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv (var inf var-inf) (neg (var inf var-inf)) -1 (var nan var-nan) calc-record-why numberp calc-internal-prec] 8])
(put 'calcFunc-coth 'math-expandable t)
(defalias 'calcFunc-arcsinh #[(x) "\305=\203\305\207	\203\306\307\310\311\310\312\313E\314EDED!\207\211:?\206)\n@\315>)\203K\2036\316\317\320\"\210\306\f\313\\\321\322\323\322\324!\325\"!\"!)!\207\242\326=\203i\327\330A@!\331\3138\332\322\324A@!\314\"!\"\"\207@\333=\203\200\334A@\330\3138!\330\3358!#\207\336\232\204\222\337\232\204\222\340\232\203\224\207\341\342\"\210\330D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec 0 math-normalize calcFunc-ln + calcFunc-sqrt ^ 2 1 (bigpos bigneg frac float cplx polar) signal inexact-result nil math-ln-raw math-add math-sqrt-raw math-sqr (float 1 0) sdev math-make-sdev calcFunc-arcsinh math-div math-sqrt intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 10])
(put 'calcFunc-arcsinh 'math-expandable t)
(defalias 'calcFunc-arccosh #[(x) "\306=\203\307\207\310=\203	\203\311\207\307=\203&	\203&\312\313\314\315\"\316\"\207\n\203;\317\320\321\322\323\324\316E\306EDED!\207\211:?\206G@\325>)\203\241	\203T\326\327\330\"\210\310\211\f=\206w:\205w@\331=\205wA@\f=\205w\3168\307U*\203\200\332\333 !\207\317
\316\\\334\306\".\335\334\313.\336\312\337\340\".\"!\"\"!*!\207\242\341=\203\277\342\343A@!\312\3168\344\334\345A@!\310\"!\"\"\207@\346=\203\326\347A@\343\3168!\343\3508!#\207\351\232\204\350\352\232\204\350\353\232\203\352\207\354\355\"\210\343D\207" [x calc-symbolic-mode math-expand-formulas a b calc-internal-prec 1 0 -1 (var pi var-pi) math-div math-mul (var pi var-pi) (var i var-i) 2 math-normalize calcFunc-ln + calcFunc-sqrt - ^ (bigpos bigneg frac float cplx polar) signal inexact-result nil float math-imaginary math-pi math-add math-ln-raw math-sqrt-raw math-sub (float 1 0) sdev math-make-sdev calcFunc-arccosh math-sqrt math-sqr intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp xp1] 12])
(put 'calcFunc-arccosh 'math-expandable t)
(defalias 'calcFunc-arctanh #[(x) "\306=\203\306\207\307\211	=\206+\n:\205+\n@\310=\205+\nA@	=\205+\311\n8\306U*\2035\2035\312\207\313\211	=\206X\n:\205X\n@\310=\205X\nA@	=\205X\311\n8\306U*\203b\203b\314\207\f\203x\315\316\317\320\307ED\317\316\307EDE\311E\207\211:?\206\204\n@\321>)\203\361
\203\221\322\323\324\"\210\325/\311\\/\242\326>\204\255\307\327\n	\"\313U*\203\301\330\331\332\333\334\"!\332\331\335\"!\"\336\"\202\356\337\307\"\203\320\203\320\340\202\356\337\313\"\203\337\203\337\341\202\356\330\332\342\333\343\"\331\307\"\"!\344\")!\207\242\345=\203

\346\347A@!\342\3118\331\307\350A@!\"\"\"\207@\351=\203$
\352A@\347\3118!\347\3538!#\207\354\232\203,
\207\355\356\"\210\347D\207" [x b a calc-infinite-mode math-expand-formulas calc-symbolic-mode 0 1 float 2 (var inf var-inf) -1 (neg (var inf var-inf)) / - calcFunc-ln + (bigpos bigneg frac float cplx polar) signal inexact-result nil math-normalize (cplx polar) math-compare math-mul math-sub math-ln-raw math-add (float 1 0) (float 1 0) (float 5 -1) math-equal-int (var inf var-inf) (neg (var inf var-inf)) math-div (float 1 0) (float 5 -1) sdev math-make-sdev calcFunc-arctanh math-sqr intv math-sort-intv 3 (var nan var-nan) calc-record-why numberp calc-internal-prec] 9])
(put 'calcFunc-arctanh 'math-expandable t)
(defalias 'calcFunc-rad #[(a) "\211:?\206\f@\303>)\204@\304=\203$\305	\306\\\307\310 \")!\207@\311=\2030\312\313\"\207@\314=\203D\315\316A@!\316\3068!\"\207\n\203P\317\307\320\"\321\"\207\322!\203X\207\316D\207" [a calc-internal-prec math-expand-formulas (bigpos bigneg frac float cplx polar) intv math-normalize 2 math-mul math-pi-over-180 hms math-from-hms rad sdev math-make-sdev calcFunc-rad math-div (var pi var-pi) 180 math-infinitep] 6])
(put 'calcFunc-rad 'math-expandable t)
(defalias 'calcFunc-deg #[(a) "\211:?\206\f@\303>)\204@\304=\203$\305	\306\\\307\310 \")!\207@\311=\2030\312\313\"\207@\314=\203D\315\316A@!\316\3068!\"\207\n\203P\307\317\320\"\321\"\207\322!\203X\207\316D\207" [a calc-internal-prec math-expand-formulas (bigpos bigneg frac float cplx polar) intv math-normalize 2 math-div math-pi-over-180 hms math-from-hms deg sdev math-make-sdev calcFunc-deg math-mul 180 (var pi var-pi) math-infinitep] 6])
(byte-code "\300\301\302\303#\210\304\305!\207" [put calcFunc-deg math-expandable t provide calc-math] 4)