Gecko [ 122.154.134.11 ]

Name	Size	Permission
README	7.89 KB	-rw-r--r--
README.prev	31.02 KB	-rw-r--r--
calc-aent.elc	26.85 KB	-rw-r--r--
calc-alg.elc	46.35 KB	-rw-r--r--
calc-arith.elc	81.62 KB	-rw-r--r--
calc-bin.elc	21.53 KB	-rw-r--r--
calc-comb.elc	30.12 KB	-rw-r--r--
calc-cplx.elc	8.5 KB	-rw-r--r--
calc-embed.elc	29.83 KB	-rw-r--r--
calc-ext.elc	108.83 KB	-rw-r--r--
calc-fin.elc	11.84 KB	-rw-r--r--
calc-forms.elc	48.05 KB	-rw-r--r--
calc-frac.elc	5.58 KB	-rw-r--r--
calc-funcs.elc	25.78 KB	-rw-r--r--
calc-graph.elc	35.09 KB	-rw-r--r--
calc-help.elc	19.55 KB	-rw-r--r--
calc-incom.elc	5.29 KB	-rw-r--r--
calc-keypd.elc	15.83 KB	-rw-r--r--
calc-lang.elc	57.72 KB	-rw-r--r--
calc-loaddefs.el	10.61 KB	-rw-r--r--
calc-macs.elc	6.09 KB	-rw-r--r--
calc-map.elc	29.56 KB	-rw-r--r--
calc-math.elc	60.12 KB	-rw-r--r--
calc-menu.elc	32.85 KB	-rw-r--r--
calc-misc.elc	20.54 KB	-rw-r--r--
calc-mode.elc	19.45 KB	-rw-r--r--
calc-mtx.elc	6.77 KB	-rw-r--r--
calc-nlfit.elc	13.59 KB	-rw-r--r--
calc-poly.elc	24.53 KB	-rw-r--r--
calc-prog.elc	51.27 KB	-rw-r--r--
calc-rewr.elc	40.01 KB	-rw-r--r--
calc-rules.elc	17.6 KB	-rw-r--r--
calc-sel.elc	19.83 KB	-rw-r--r--
calc-stat.elc	13.97 KB	-rw-r--r--
calc-store.elc	17.31 KB	-rw-r--r--
calc-stuff.elc	8.07 KB	-rw-r--r--
calc-trail.elc	4.67 KB	-rw-r--r--
calc-undo.elc	3.35 KB	-rw-r--r--
calc-units.elc	37.86 KB	-rw-r--r--
calc-vec.elc	37.25 KB	-rw-r--r--
calc-yank.elc	16.66 KB	-rw-r--r--
calc.elc	101.08 KB	-rw-r--r--
calcalg2.elc	80.01 KB	-rw-r--r--
calcalg3.elc	42.38 KB	-rw-r--r--
calccomp.elc	32.86 KB	-rw-r--r--
calcsel2.elc	6.04 KB	-rw-r--r--

Code Editor : calc-math.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:37 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-math.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`calc-math.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@41 The number of digits in an Emacs float.
(defvar math-emacs-precision (byte-code "\303\304\211\305\306[\"\304_\\	\nU\204&�T\n\211\305\306[\"\304_\\\202�S+\207" [n x xx 1 9 expt 10] 5) (#$ . 686))
#@65 The largest exponent which Calc will convert to an Emacs float.
(defvar math-largest-emacs-expt (byte-code "\302\303\203�\304W\203�	\305_\306\307\310\217\211\204�\306\311\312\217\211\2036�\313W\2036�	T\306\314\315\217\211\204$�	S*\207" [pow x 1 100.0 1.0e+INF 2 nil (byte-code "\301\302\303_\"\207" [x expt 10.0 2] 4) ((error)) (byte-code "\301\302T\"\207" [x expt 10.0] 3) ((error)) 1.0e+INF (byte-code "\301\302T\"\207" [x expt 10.0] 3) ((error))] 4) (#$ . 898))
#@66 The smallest exponent which Calc will convert to an Emacs float.
(defvar math-smallest-emacs-expt (byte-code "\301\302\303\304\217\203�\305_\202�\305\245\302\306\307\217\203!�S\202�\305\\)\207" [x -1 nil (byte-code "\301\302\"\303V\207" [x expt 10.0 0.0] 3) ((error)) 2 (byte-code "\301\302\"\303V\207" [x expt 10.0 0.0] 3) ((error))] 3) (#$ . 1385))
#@100 Use the native Emacs function FN to evaluate the Calc number X.
If this can't be done, return NIL.
(defalias 'math-use-emacs-fn #[(fn x) "	X\205-�\306\n!\205-�\307\n!\310\n8\311\nA@!S\\
\fX\205,�\f
X\205,�\312\313\314\217*\207" [calc-internal-prec math-emacs-precision x fx xpon math-smallest-emacs-expt math-realp math-float 2 math-numdigs nil (byte-code "\306\307\310\311\312	D\313\314\315\316!!,!!!!\207" [fn calc-internal-prec calc-point-char calc-group-digits calc-float-format calc-number-radix math-read-number number-to-string string-to-number 10 float nil "." math-format-number math-float x] 8) ((error)) math-largest-emacs-expt] 3 (#$ . 1756)])
(defalias 'calc-sqrt #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "^2" calcFunc-sqr "sqrt" calcFunc-sqrt] 4]] 3 nil "P"])
(defalias 'calc-isqrt #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "^2" calcFunc-sqr "isqt" calcFunc-isqrt] 4]] 3 nil "P"])
(defalias 'calc-hypot #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "hypt" calcFunc-hypot] 4]] 3 nil "P"])
(defalias 'calc-ln #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-exp] 2 nil "P"])
(defalias 'calc-log10 #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-ln] 2 nil "P"])
(defalias 'calc-log #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-binary-op "alog" calcFunc-alog "log" calcFunc-log] 4]] 3 nil "P"])
(defalias 'calc-ilog #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-binary-op "alog" calcFunc-alog "ilog" calcFunc-ilog] 4]] 3 nil "P"])
(defalias 'calc-lnp1 #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-expm1] 2 nil "P"])
(defalias 'calc-exp #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302 \203�\303\304\305#\207\303\306\307#\207\302 \203!�\303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "lg10" calcFunc-log10 "10^" calcFunc-exp10 "ln" calcFunc-ln "exp" calcFunc-exp] 4]] 3 nil "P"])
(defalias 'calc-expm1 #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-unary-op "ln+1" calcFunc-lnp1 "ex-1" calcFunc-expm1] 4]] 3 nil "P"])
(defalias 'calc-pi #[nil "\300\301`\"\207" [calc-do #[nil "\301 \203,�\302 \203�\203�\303\304\305\306#\207\303\304\305\307 #\207\203%�\303\304\310\311#\207\303\304\310\312 #\207\302 \203B�\203;�\303\304\313\314#\207\303\304\313\315 #\207\203L�\303\304\316\317#\207\303\304\316\320 #\207" [calc-symbolic-mode calc-is-inverse calc-is-hyperbolic calc-pop-push-record 0 "phi" (var phi var-phi) math-phi "gmma" (var gamma var-gamma) math-gamma-const "e" (var e var-e) math-e "pi" (var pi var-pi) math-pi] 4]] 3 nil nil])
(defalias 'calc-sin #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302 \203�\303\304\305#\207\303\306\307#\207\302 \203!�\303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "asnh" calcFunc-arcsinh "sinh" calcFunc-sinh "asin" calcFunc-arcsin "sin" calcFunc-sin] 4]] 3 nil "P"])
(defalias 'calc-arcsin #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-sin] 2 nil "P"])
(defalias 'calc-sinh #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-sin] 2 nil "P"])
(defalias 'calc-arcsinh #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-sin] 2 nil "P"])
(defalias 'calc-sec #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "sech" calcFunc-sech "sec" calcFunc-sec] 4]] 3 nil "P"])
(defalias 'calc-sech #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-sec] 2 nil "P"])
(defalias 'calc-cos #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302 \203�\303\304\305#\207\303\306\307#\207\302 \203!�\303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "acsh" calcFunc-arccosh "cosh" calcFunc-cosh "acos" calcFunc-arccos "cos" calcFunc-cos] 4]] 3 nil "P"])
(defalias 'calc-arccos #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-cos] 2 nil "P"])
(defalias 'calc-cosh #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-cos] 2 nil "P"])
(defalias 'calc-arccosh #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-cos] 2 nil "P"])
(defalias 'calc-csc #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "csch" calcFunc-csch "csc" calcFunc-csc] 4]] 3 nil "P"])
(defalias 'calc-csch #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-csc] 2 nil "P"])
(defalias 'calc-sincos #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203�\301\302\303\304\305\302!D#\207\301\302\306\307\305\302!D#\207" [calc-is-inverse calc-enter-result 1 "asnc" calcFunc-arcsincos calc-top-n "sncs" calcFunc-sincos] 6]] 3 nil nil])
(defalias 'calc-tan #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302 \203�\303\304\305#\207\303\306\307#\207\302 \203!�\303\310\311#\207\303\312\313#\207" [arg calc-is-hyperbolic calc-is-inverse calc-unary-op "atnh" calcFunc-arctanh "tanh" calcFunc-tanh "atan" calcFunc-arctan "tan" calcFunc-tan] 4]] 3 nil "P"])
(defalias 'calc-arctan #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-tan] 2 nil "P"])
(defalias 'calc-tanh #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-tan] 2 nil "P"])
(defalias 'calc-arctanh #[(arg) "\301 \210\302 \210\303!\207" [arg calc-invert-func calc-hyperbolic-func calc-tan] 2 nil "P"])
(defalias 'calc-cot #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-hyperbolic calc-unary-op "coth" calcFunc-coth "cot" calcFunc-cot] 4]] 3 nil "P"])
(defalias 'calc-coth #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-cot] 2 nil "P"])
(defalias 'calc-arctan2 #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!B#\207" [calc-enter-result 2 "atn2" calcFunc-arctan2 calc-top-list-n] 6]] 3 nil nil])
(defalias 'calc-conj #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "conj" calcFunc-conj] 4]] 2 nil "P"])
(defalias 'calc-imaginary #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!!#\207" [calc-pop-push-record 1 "i*" math-imaginary calc-top-n] 6]] 3 nil nil])
(defalias 'calc-to-degrees #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op ">deg" calcFunc-deg] 4]] 2 nil "P"])
(defalias 'calc-to-radians #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op ">rad" calcFunc-rad] 4]] 2 nil "P"])
(defalias 'calc-degrees-mode #[(arg) "\301U\203\n�\302\303!\207\304U\203�\305 \207\306U\203�\307 \207\310\311!\207" [arg 1 calc-do #[nil "\300\301\302\"\210\303\304!\207" [calc-change-mode calc-angle-mode deg message "Angles measured in degrees"] 3] 2 calc-radians-mode 3 calc-hms-mode error "Prefix argument out of range"] 2 nil "p"])
(defalias 'calc-radians-mode #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\"\210\303\304!\207" [calc-change-mode calc-angle-mode rad message "Angles measured in radians"] 3]] 2 nil nil])
(defalias 'math-isqrt #[(a) "\211:\203$�@\301>?\205'�@\302=\203�A@\303=\202'�\304!\202'�\303=)\203-�\207\305!\2048�\306\307\"\207\250\203A�\310!\207\311\312\313A!AB!\207" [a (bigpos bigneg) float 0 math-zerop math-natnump math-reject-arg natnump math-isqrt-small math-normalize bigpos math-isqrt-bignum] 5])
(defalias 'calcFunc-isqrt #[(a) "\301!\203\f�\302\303!!\207\303\304!!\207" [a math-realp math-isqrt math-floor math-sqrt] 3])
(defalias 'math-isqrt-bignum #[(a) "G\211\304\246\305U\203+�	\304Z\233\306\307\310\311\nA@_\n@\\!T!	\304\245S\"\")\202>�	S8\306\307\311\n!TC	\304\245\"\"))\207" [a len top math-bignum-digit-size 2 0 math-isqrt-bignum-iter math-scale-bignum-digit-size math-bignum-big math-isqrt-small] 8])
(defalias 'math-isqrt-bignum-iter #[(a guess) "\306=\203
�\307\310\311	B\"\210\312\n	\"\313@	\"\314\f!\315
	\"\211\316W\203/�\317\n
\"\202E�\316U\205C�\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=\205�A\211@\301=\204�?\207" [a 0] 2])
(defalias 'math-scale-bignum-digit-size #[(a n) "\302V\203�\302	BS\211\202�	\207" [n a 0] 3])
(defalias 'math-isqrt-small #[(a) "\303Y\203\n�\304\202�\304Y\203�\305\202�\306Y\203�\306\202�\307\310\211\n\245\\\311\245\211\nW\2036�	\211\202#�\n*\207" [a g2 g 1000000 10000 1000 100 10 nil 2] 4])
(defalias 'math-sqrt #[(a) "\211:\203$�@\306>?\205'�@\307=\203�A@\310=\202'�\311!\202'�\310=)\203/�\206\325\312!\203?�\313\314\315!!!\206\325\250\203j�\316!\211\211_U\203T�	\202f�\n\203^�\317D\202f�\320\321!\321	!\")\206\325\242\322=\203\234�\323A!\324\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\361�9@\203\361�\325
:E\2025\n\203)\f@\204�9@\203#\330\f@\203\n
\202\317A@D9@\203:\202\317\3278D\"\2025\317D\2025\320\321!\330\321
!:\"\",\206\325\242\307=\203\215\n\203\207\3278\327\246\310U\203\200\323A@\211:\203\\\202_\326!)A!\211@\203x\331\324\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>\2034�A@\211:\203-�@\303=\2020�\306V)\202=�\307!\202=�\306V)\204E�\310!\207\311\312\"\206�	\204{�\313A@!\314Z\3158\n\\\315\246\306U\204g�\nT\316\317\320A@\n[\"!\3158\n\\\315\245\")\321	\"\207" [a guess ldiff bigpos bigneg (frac float) 0 math-posp math-sqrt math-use-emacs-fn sqrt math-numdigs 6 2 math-make-float math-isqrt-small math-scale-int math-sqrt-float-iter] 6])
(defalias 'math-sqrt-float-iter #[(a guess) "\304=\203�\305\306	\"\210\307\310	\311\n	\"\"\312\"\313	\"\203!�\202%�\314\n\")\207" [calc-display-working-message guess a g2 lots math-do-working "sqrt" math-mul-float math-add-float math-div-float (float 5 -1) math-nearly-equal-float math-sqrt-float-iter] 6])
(defalias 'math-nearly-equal-float #[(a b) "\3048\304	8Z\211\305U\203W�\306A@\211:\203-�@\307=\203&�\310AB\202/�\307AB\202/�[)	A@\"\211\305=\206\354�\n:?\205\354�\n\311W\205\354�\n\312V\205\354�\313A@!U\202\354�\n\314U\203\243�\306	A@\211:\203|�@\307=\203u�\310AB\202~�\307AB\202~�[)\315A@\314\"\"\211:?\205\354�\n\311W\205\354�\n\312V\205\354�\313	A@!U\202\354�\n\316U\205\354�\306A@\211:\203\310�@\307=\203\301�\310AB\202\312�\307AB\202\312�[)\315	A@\314\"\"\211:?\205\354�\n\311W\205\354�\n\312V\205\354�\313A@!U)\207" [a b ediff calc-internal-prec 2 0 math-add bigpos bigneg 10 -10 math-numdigs 1 math-scale-int -1] 6])
(defalias 'math-nearly-equal #[(a b) "\302!\302	!@\303=\203�\304!	@\303=\203�\304	!@\305=\203|�	@\305=\203l�\306A@	A@\"\204M�\307A@\3108\"\205{�\307	A@\310	8\"\205{�\306\3108\310	8\"\206\227�\307\3108A@\"\205\227�\307\310	8	A@\"\207\306A@	\"\205{�\307\3108	\"\207	@\305=\203\223�\306	A@\"\205\227�\307\310	8\"\207\306	\"\207" [a b math-float polar math-complex cplx math-nearly-equal-float math-nearly-zerop-float 2] 4])
(defalias 'math-nearly-zerop-float #[(a b) "A@\303=\206�\304A@!\3058\\\304	A@!\305	8\\\nZTX\207" [a b calc-internal-prec 0 math-numdigs 2] 4])
(defalias 'math-nearly-zerop #[(a b) "\302!\302	!@\303=\203�\304A@	\"\2051�\304\3058	\"\207@\306=\203-�\304A@	\"\207\304	\"\207" [a b math-float cplx math-nearly-zerop-float 2 polar] 3])
(defalias 'math-hypot #[(a b) "\211:\203$�@\303>?\205'�@\304=\203�A@\305=\202'�\306!\202'�\305=)\203/�\307	!\207	\211:\203S�@\303>?\205V�@\304=\203M�A@\305=\202V�\306!\202V�\305=)\203^�\307!\207\211:?\206j�@\310>)\204\220�\311!\203\206�\311	!\203\204�	\232\203\202�\207\312\207\207\313\314\"\210\315	E\207	\211:?\206\234�@\310>)\204\262�\311	!\203\250�	\207\313\314	\"\210\315	E\207\211:?\206\276�@\316>)\203\343�	\211:?\206\316�@\316>)\203\343�\317\nT\320\321\322!\322	!\"!)!\207\242\323=\203	\242\323=\203\376�\324\325\326\327\"\326	\327\"\"!\207\324\325\326\327\"	\"!\207	\242\323=\203\324\325\326	\327\"\"!\207\330\207" [a b calc-internal-prec (bigpos bigneg) float 0 math-zerop math-abs (bigpos bigneg frac float cplx polar hms) math-infinitep (var nan var-nan) calc-record-why scalarp calcFunc-hypot (bigpos bigneg frac float cplx polar) math-normalize math-sqrt math-add calcFunc-abssqr hms math-to-hms math-hypot math-from-hms deg nil] 7])
(defalias 'calcFunc-hypot 'math-hypot)
(defalias 'calcFunc-sqr #[(x) "\301\302\"\207" [x math-pow 2] 3])
(defalias 'math-nth-root #[(a n) "\306U\203\n�\307	!\207	\211:\203.�	@\310>?\2051�	@\311=\203(�	A@\312=\2021�\313	!\2021�	\312=)\2037�	\207	\211:\203q�	@\314=\206t�	@\315=?\205t�	@\316>\203k�	A@\211:\203d�	@\314=\202g�	\312W)\202t�\317	!\202t�	\312W)\203z�\320\207	\211:?\206\206�	@\321>)\203\252�\322	\"\211@\203\231�\nA\202\250�?\205\250�\323\324	!\324\nA!#)\207	\242\325=\203\351�\322	A@\"\322\306	8\"\f@\203\322�
@\203\322�\325\fA
AE\202\347�?\205\347�\323\324	!\326\324\fA!\324
A!\"#*\207	\242\311=\203\372�?\205\323	\"\207	\242\327=\203\330	A@\"\211\205\327\n\331\306	8\"E)\207\320\207" [n a root calc-symbolic-mode num-root den-root 2 math-sqrt (bigpos bigneg) float 0 math-zerop bigneg bigpos (frac float) math-negp nil (bigpos bigneg) math-nth-root-integer math-nth-root-float math-float frac math-div-float polar math-nth-root math-div] 8])
(defalias 'math-nth-root-float #[(a math-nrf-n &optional guess) "\306 \210\307T\310	!\310	S!\311\f
\206(�\312\313\314\315\fA@!\316\f8	\316\245#	\245\"\"+!\207" [calc-internal-prec math-nrf-n math-nrf-nfm1 math-nrf-nf a guess math-inexact-result math-normalize math-float math-nth-root-float-iter math-make-float 1 + math-numdigs 2] 10])
(defalias 'math-nth-root-float-iter #[(a guess) "\306=\203�\307\310	\"\210\311\312\313\n	\"\311\314	\fS\"\"\"
\"\315	\"\203+�\2020�\316\")\207" [calc-display-working-message guess math-nrf-nfm1 a math-nrf-n math-nrf-nf lots math-do-working "root" math-div-float math-add-float math-mul math-ipow math-nearly-equal-float math-nth-root-float-iter g2] 8])
(defalias 'math-nth-root-integer #[(a math-nri-n &optional guess) "\303	\206�\304\305\306!\nS\\\n\245\"\"\207" [a guess math-nri-n math-nth-root-int-iter math-scale-int 1 math-numdigs] 6])
(defalias 'math-nth-root-int-iter #[(a guess) "\306=\203�\307\310	\"\210\311\n\312	S\"\"\313\f@\314S	\"\"\311
\"\211@	\211:\203A�:\205K�\315\nAA\"\316U\202K�:\206K�\nW*\203X�\317\n@\"\202n�@	\232\205l�\fA\320=\205l�A\320=	B+\207" [calc-display-working-message guess a math-nri-n q s lots math-do-working "root" math-idivmod math-ipow math-add math-mul math-compare-bignum -1 math-nth-root-int-iter 0 g2 b] 6])
(defalias 'calcFunc-nroot #[(x n) "\302	\250\203�\303\304	\"\202�\305\304	\"\"\207" [x n calcFunc-pow math-make-frac 1 math-div] 5])
(defalias 'math-to-radians #[(a) "\242\302=\203\f�\303\304\"\207	\305>\203�\306\307 \"\207\207" [a calc-angle-mode hms math-from-hms rad (deg hms) math-mul math-pi-over-180] 3])
(defalias 'math-from-radians #[(a) "\302=\203�\303	!\203�\304	\305 \"\207\306	D\207\307=\203!�\310	\311\"\207	\207" [calc-angle-mode a deg math-constp math-div math-pi-over-180 calcFunc-deg hms math-to-hms rad] 3])
(defalias 'math-to-radians-2 #[(a) "\242\303=\203\f�\304\305\"\207	\306>\203$�\n\203�\307\310\311\"\312\"\207\310\313 \"\207\207" [a calc-angle-mode calc-symbolic-mode hms math-from-hms rad (deg hms) math-div math-mul (var pi var-pi) 180 math-pi-over-180] 4])
(defalias 'math-from-radians-2 #[(a) "\303>\203�	\203�\304\305\306\n\"\307\"\207\304\n\310 \"\207\n\207" [calc-angle-mode calc-symbolic-mode a (deg hms) math-div math-mul 180 (var pi var-pi) math-pi-over-180] 4])
(defalias 'calcFunc-sin #[(x) "\250\203\"�	\306=\203�\307\246\310U\202�\310U\203\"�\311\312\307\245\313\"H\207\211:?\206.�\n@\314>)\203A�\315\316\\\317\320\321!!!)!\207@\322=\203\210�\323!\203v�\315\316\\\320\321A@!!\320\321\3168!!\324\f!!\325!@\326
!A\"\",!\207\325\327A@!\326\3168\330A@!\"\"\207@\331=\203\236�\332!\203\236�\330\333\334\335!\"!\207\336\232\203\246�\207\337\340\"\210\327D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 0 [0 1 0 -1] math-mod 4 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-sin-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-make-sdev math-mul calcFunc-sin calcFunc-cos intv math-intv-constp math-sub math-quarter-circle nil (var nan var-nan) calc-record-why scalarp sc] 7])
(defalias 'calcFunc-cos #[(x) "\250\203\"�	\306=\203�\307\246\310U\202�\310U\203\"�\311\312\307\245\313\"H\207\211:?\206.�\n@\314>)\203A�\315\316\\\317\320\321!!!)!\207@\322=\203\210�\323!\203v�\315\316\\\320\321A@!!\320\321\3168!!\324\f!*\325*A\326
*@\"\",!\207\325\327A@!\326\3168\330A@!\"\"\207@\331=\203\332!\203\315\316\\\320\321!!\333\334\316\f8\335 \"!+\333\334\336\f8\335 \"!,\337,+\"\211-\340>\203	\341A@\317\316\f8!\317\336\f8!#.-\342=\203\343+!\203\363�\344\345A@\316\"\346\336.8#\202\344\345A@\342\"\316.8\342#\202.)\202\331\336\346\342F-!\207\347\232\203\207\350\351\"\210\327D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 0 [1 0 -1 0] math-mod 4 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-cos-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-make-sdev math-mul calcFunc-cos calcFunc-sin intv math-intv-constp math-floor math-div math-pi 3 math-sub (0 1) math-sort-intv 1 math-evenp math-make-intv logior -1 (var nan var-nan) calc-record-why scalarp sc na nb span int] 8])
(defalias 'calcFunc-sincos #[(x) "\211:?\206\f�	@\304>)\203&�\305\n\306\\\307\310\311!!!\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\217�2\204\217�\327\330!\210\331D\202\244�\332\333\3341A\"\333\335
1@\"\3361A!\"\",!\207\332\331A@!\337\335\3178\340A@!\"\336\341A@!!\"\"\207@\342=\203p\343!\203p\316\317\\\321\322!!\344\337\345\317\f8\346 \"\347 \"!3\344\337\345\350\f8\346 \"\347 \"!4\344\337\317\f8\346 \"!5\344\337\350\f8\346 \"!6\34565\"734\232\204\"\351\202l\352A@\320\317\f8!\320\350\f8!#87\312=\203i\353\337\3545\312\"\317\"!\203X\355\3568A@\317\"\312\35088#\202k\355\3568A@\312\"\31788\313#\202k8).!\207\357\232\203x\207\327\360\"\210\331D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 180 0 360 1 -1 rad (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-sec-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-sec math-make-sdev math-div-float (float 1 0) math-mul math-sqr math-div calcFunc-sin calcFunc-cos intv math-intv-constp math-floor math-sub math-pi-over-2 math-pi 3 (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv math-evenp math-add math-make-intv logior (var nan var-nan) scalarp sc calc-infinite-mode na nb naa nbb span int] 8])
(defalias 'calcFunc-csc #[(x) "\250\203#�	\306=\203#�\307Z\310\246\311U\203#�\307Z\312\246\311U\203!�\313\207\314\207\211:?\206/�\n@\315>)\203B�\316\317\\\320\321\322!!!)!\207@\323=\203\263�\324!\203\230�\316\317\\\321\322A@!!\321\322\3178!!\325\f!0\3260@!\203\200�1\204\200�\327\330!\210\331D\202\225�\332\333\3340@\"\333\335
0A\"\3360@!\"\",!\207\332\331A@!\337\335\3178\340A@!\"\336\341A@!!\"\"\207@\342=\203V\343!\203V\316\317\\\321\322!!\344\337\317\f8\345 \"!2\344\337\346\f8\345 \"!3\344\337\317\f8\347 \"!4\344\337\346\f8\347 \"!5\35054\"623\232\204\351\202R\352A@\320\317\f8!\320\346\f8!#76\313=\203O\353\3374\317\"!\203>\354\3557A@\317\"\313\34678#\202Q\354\3557A@\313\"\31778\314#\202Q7).!\207\356\232\203^\207\327\357\"\210\331D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 180 0 360 1 -1 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-csc-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-csc math-make-sdev math-div-float (float 1 0) math-mul math-sqr math-div calcFunc-cos calcFunc-sin intv math-intv-constp math-floor math-pi 3 math-pi-over-2 math-sub (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv math-evenp math-make-intv logior (var nan var-nan) scalarp sc calc-infinite-mode na nb naa nbb span int] 8])
(defalias 'calcFunc-cot #[(x) "\250\203�	\306=\203�\307Z\310\246\311U\202�\311U\203�\311\207\211:?\206)�\n@\312>)\203<�\313\314\\\315\316\317!!!)!\207@\320=\203\243�\321!\203\217�\313\314\\\316\317A@!!\316\317\3148!!\322\f!%\323%@!\203z�&\204z�\324\325!\210\326D\202\214�\327\330%A%@\"\330
\331%@!\"\",!\207\327\326A@!\332\3148\331\333A@!!\"\"\207@\334=\203\357�\335!\203\357�\313\314\\\316\317!!\336\332\314\f8\337 \"!'\336\332\340\f8\337 \"!('(\232\205\350�\341A@\315\314\f8!\315\340\f8!#,!\206\377�\342\207\343\232\203\367�\207\324\344\"\210\326D\207" [x calc-angle-mode a calc-internal-prec xx xs deg 90 180 0 (bigpos bigneg frac float cplx polar hms) math-normalize 2 math-cot-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-cot math-make-sdev math-div-float math-sqr math-div calcFunc-sin intv math-intv-constp math-floor math-pi 3 math-sort-intv (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var nan var-nan) scalarp sc calc-infinite-mode na nb] 8])
(defalias 'math-sin-raw #[(x &optional orgx) "@\306=\2032�\307\3108!\311\312	\"\313A@!\306\314@\314\315	\n\"\316\"\"\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=)\203�G\303U\203�\304\3058A@\"\207\306\307\"\207" [x a vec 3 calcFunc-arctan2 2 math-reject-arg "*Two-element vector expected"] 4])
(defalias 'calcFunc-exp #[(x) "\305=\203�\306\207\307>\203�	\203�\306=\203�\310\207\311\306\312\"\207\211:?\206+�\n@\313>)\203<�\314\315\\\316\317!!)!\207\242\320=\203T�\321A@!\322\f\323\3158\f\"\")\207\242\324=\203k�\325A@\321\3158!\321\3268!#\207\327\232\203s�\207\330\232\203{�\305\207\331\232\203\203�\207\332\333\"\210\321D\207" [x calc-symbolic-mode a calc-internal-prec ex 0 1 (1 -1) (var e var-e) math-div (var e var-e) (bigpos bigneg frac float cplx polar) math-normalize 2 math-exp-raw math-float sdev calcFunc-exp math-make-sdev math-mul intv math-make-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 7])
(defalias 'calcFunc-expm1 #[(x) "\305=\203�\305\207\306!\203�\307\207	\203�\310\311\312\"\207\211:?\206%�\n@\313>)\203V�\314\315\\\316!\211@\317=\203M�\320\321\"\203M�\320\322\"\203M�\323!\202S�\324\325!\326\"*!\207\242\327=\203\211�\330!\203w�\331A@!\332\f\333\3158\324\f\334\"\"\")\207\332\331A@!\333\3158\335A@!\"\"\207\242\336=\203\240�\337A@\331\3158!\331\3408!#\207\341\232\203\250�\207\342\232\203\260�\326\207\343\232\203\270�\207\344\345\"\210\331D\207" [x calc-symbolic-mode a calc-internal-prec ex 0 math-zerop (float 0 0) signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize 2 math-float float math-lessp-float (float 1 0) (float -1 0) math-exp-minus-1-raw math-add math-exp-raw -1 sdev math-constp calcFunc-expm1 math-make-sdev math-mul 1 calcFunc-exp intv math-make-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 8])
(defalias 'calcFunc-exp10 #[(x) "\301=\203�\302\207\303\304\"\207" [x 0 1 math-pow (float 1 1)] 3])
(defalias 'math-exp-raw #[(x) "\306!\203�\307\207	\203�\310\311\312\"\207@\313=\2032�\314A@!\315\3168!\313\317\nA\"\317\n@\"E*\207@\320=\203K�\321!\320\314\fA@!\322\316\f8!E)\207\323\324\"\206\251�\325\326\"\204`�\325\327\"\203\243�\325\330\"\203m�\331 \210\202w�\325\332\"\203w�\333 \210\317\334\"\335
A@\316
8\"'\336\317\337'!\340\"\"(\317\341\342 '\"\343\344\345(!\"\"+\207\343\346\345!\"\207" [x calc-symbolic-mode sc expx xc two-x math-zerop (float 1 0) signal inexact-result nil cplx math-exp-raw math-sin-cos-raw 2 math-mul-float polar math-complex math-from-radians math-use-emacs-fn exp math-lessp-float (float 5 -1) (float -5 -1) (float 921035 1) math-overflow (float -921035 1) math-underflow (float 2 0) math-scale-int math-sub-float math-float (float 5 -1) math-ipow math-sqrt-e math-add-float (float 1 0) math-exp-minus-1-raw (float 1 0) hint hfrac] 6])
(defalias 'math-exp-minus-1-raw #[(x) "\301\302\303\211%\207" [x math-exp-series 2 3] 6])
(defalias 'math-exp-series #[(sum nfac n xpow x) "\306=\203�\307\310	\"\210\311\n\"\312	\313\f\314
!\"\"\315	\"\203'�	\2025�\316\317
\"T\f%*\207" [calc-display-working-message sum xpow x nextx nfac lots math-do-working "exp" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-exp-series math-mul nextsum n] 6])
(defalias 'calcFunc-ln #[(x) "\304!\203�	\203\f�\305\207\306\307\"\207\310=\203�\311\207\211:?\206%�\n@\312>)\2036�\313\314\\\315\316!!)!\207\242\317=\203M�\320\321A@!\322\3148A@\"\"\207\242\323=\203\335�\3148\211:\203\220�\n@\324=\206\223�\n@\325=?\205\223�\n@\326>\203\212�\nA@\211:\203\203�\n@\324=\202\206�\n\311V)\202\223�\327\n!\202\223�\n\311V)\204\312�\3148\211:\203\275�\n@\330>?\205\300�\n@\331=\203\267�\nA@\311=\202\300�\304\n!\202\300�\n\311=)\204\312�\332!\204\335�\333\334A@\321\3148!\321\3358!#)\207\336\232\203\345�\310\207\242\337=\203�A@\340\232\203�\341\3148!\203�\3148\207\342!\203\343\232\203\207\344\207\345\346\"\210\321D\207" [x calc-infinite-mode a calc-internal-prec math-zerop (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" 1 0 (bigpos bigneg frac float cplx polar) math-normalize 2 math-ln-raw math-float sdev math-make-sdev calcFunc-ln math-div intv bigpos bigneg (frac float) math-posp (bigpos bigneg) float math-intv-constp t math-make-intv 3 (var e var-e) ^ (var e var-e) math-known-realp math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp] 7])
(defalias 'calcFunc-log10 #[(x) "\306\307\"\203�\310!\203�\311\207\312\207\211:?\206�	@\313>)\203;�\314!\203;�\315\316\"\211@\2055�\nA\211)\203;�\207\242\317=\203a�A@\307=\203a�\315\3208\316\"\211@\205[�\nA[\211)\203a�\207\321!\203r�\203m�\322\207\323\324\"\207\f\203{�\325\326\327\"\207\211:?\206\207�	@\330>)\203\376�\331
\320\\\332!\2113A@\312=\203\242�\323\324\"\2103A@\211:\203\263�	@\333=\202\266�	\312V)\203\363�3A@\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\313A@\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])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list math-log-base-cache default-boundp set-default nil] 3)
(defalias 'math-log-base-raw #[(b) "@	\232\203�A@\n=\204�	\n\303\304	!!E\3058\207" [math-log-base-cache b calc-internal-prec math-ln-raw math-float 2] 5])
(defalias 'calcFunc-lnp1 #[(x) "\306\211	=\206#�\n:\205#�\n@\307=\205#�\nA@	=\205#�\310\n8\311U*\2032�\203-�\312\207\313\314\"\207\311=\203:�\311\207\315!\203B�\316\207\f\203K�\317\320\321\"\207\211:?\206W�\n@\322>)\203\210�\323
\310\\\324!\211@\307=\203�\325\326\"\203�\325\327\"\203�\330!\202\205�\331\332\333\"!*!\207\242\334=\203\242�\335\336A@!\337\3108\340A@\341\"\"\"\207\242\342=\203\3108\211:\203\345�\n@\343=\206\350�\n@\344=?\205\350�\n@\345>\203\337�\nA@\211:\203\330�\n@\343=\202\333�\n\311V)\202\350�\346\n!\202\350�\n\311V)\204\362�\347!\204\350A@\336\3108!\336\3518!#\207\352!\203\353\232\203\207\354\207\355\356\"\210\336D\207" [x b a calc-infinite-mode calc-symbolic-mode calc-internal-prec -1 float 2 0 (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" math-zerop (float 0 0) signal inexact-result nil (bigpos bigneg frac float cplx polar) math-normalize math-float math-lessp-float (float 5 -1) (float -5 -1) math-ln-plus-1-raw math-ln-raw math-add-float (float 1 0) sdev math-make-sdev calcFunc-lnp1 math-div math-add 1 intv bigpos bigneg (frac float) math-posp math-intv-constp math-make-intv 3 math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp] 8])
(defalias 'math-ln-raw #[(x) "\242\306=\203#�\306\307\310\311\312A@!\312\3138!\"!\314\"\315\3138A@\"E\207@\316=\2039�\317\306\310A@!\320\3138!E!\207\321\211	=\206\\�\n:\205\\�\n@\322=\205\\�\nA@	=\205\\�\313\n8\323U*\203b�\324\207\203k�\325\326\327\"\207\330A@!\203\231�\331\332\"\206\277�\333A@!S\311\334\322A@\f[E!\307\335\3138\f\\!\336 \"\")\207\337!\203\244�\340\341\"\207
\316=\203\266�\317\306\310\342!!\343 E!\207\306\310\342!!\343 E\207" [x b a calc-symbolic-mode xdigs calc-complex-mode cplx math-mul-float math-ln-raw math-add-float math-sqr-float 2 (float 5 -1) math-arctan2-raw polar math-polar math-to-radians 1 float 0 (float 0 0) signal inexact-result nil math-posp math-use-emacs-fn log math-numdigs math-ln-raw-2 math-float math-ln-10 math-zerop math-reject-arg "*Logarithm of zero" math-neg-float math-pi] 9])
(defalias 'math-ln-raw-2 #[(x) "\301\302\"\203�\303\304\305\306\"!\307 \"\207\310\311\312\313\"\303\314\"\"!\207" [x math-lessp-float (float 14 -1) math-add-float math-ln-raw-2 math-mul-float (float 5 -1) math-ln-2 math-ln-raw-3 math-div-float math-sub-float (float 1 0) (float 1 0)] 6])
(defalias 'math-ln-raw-3 #[(x) "\301\302\303\304!$\305\"\207" [x math-mul-float math-ln-raw-series 3 math-sqr-float (float 2 0)] 7])
(defalias 'math-ln-raw-series #[(sum n x xsqr) "\306=\203�\307\310	\"\210\311\n\"\312	\313\f\314
!\"\"\315	\"\203'�	\2020�\316
\317\\\f$*\207" [calc-display-working-message sum x xsqr nextx n lots math-do-working "log" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-ln-raw-series 2 nextsum] 6])
(defalias 'math-ln-plus-1-raw #[(x) "\301\302\303!$\207" [x math-lnp1-series 2 math-neg] 6])
(defalias 'math-lnp1-series #[(sum n xpow x) "\306=\203�\307\310	\"\210\311\n\"\312	\313\f\314
!\"\"\315	\"\203'�	\202/�\316
T\f$*\207" [calc-display-working-message sum xpow x nextx n lots math-do-working "lnp1" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-lnp1-series nextsum] 6])
#@30 An approximation for ln(10).
(defconst math-approx-ln-10 (math-read-number-simple "2.302585092994045684018") (#$ . 49346))
(byte-code "\303B\304\303!\204*�\305\303	:\203�\306	A@!\202(�	\203'�\306\307	!!A@\202(�\310\"\210\311B\304\311!\204L�\305\311	:\203?�	\202J�	\203I�\307	!\202J�	\"\210\312B\304\312!\204[�\305\312\310\"\210\313B\304\313!\204j�\305\313\314\"\210\303\312\nBB\314\207" [current-load-list math-approx-ln-10 math-cache-list math-ln-10-cache-prec default-boundp set-default math-numdigs eval -100 math-ln-10-cache math-ln-10-last-prec math-ln-10-last nil] 5)
(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") (#$ . 50174))
(byte-code "\303B\304\303!\204*�\305\303	:\203�\306	A@!\202(�	\203'�\306\307	!!A@\202(�\310\"\210\311B\304\311!\204L�\305\311	:\203?�	\202J�	\203I�\307	!\202J�	\"\210\312B\304\312!\204[�\305\312\310\"\210\313B\304\313!\204j�\305\313\314\"\210\303\312\nBB\314\207" [current-load-list math-approx-ln-2 math-cache-list math-ln-2-cache-prec default-boundp set-default math-numdigs eval -100 math-ln-2-cache math-ln-2-last-prec math-ln-2-last nil] 5)
(defalias 'math-ln-2 #[nil "	U\204!�\305\n	Y\204�	\306\\\307\310\311!!)	\312\\!	\f\207" [math-ln-2-last-prec calc-internal-prec math-ln-2-cache-prec math-ln-2-cache math-ln-2-last math-normalize 4 math-ln-raw-3 math-float (frac 1 3) 2] 4])
(defalias 'calcFunc-sinh #[(x) "\306=\203�\306\207	\203�\307\310\311\312D\312\313DDE\314E!\207\211:?\206(�\n@\315>)\203M�\2035�\316\317\320\"\210\307\f\314\\\321\322!!\323\324
\325\326
\"\"\327\"*!\207\242\330=\203f�\331\332A@!\323\3148\333A@!\"\"\207@\334=\203}�\335A@\332\3148!\332\3368!#\207\337\232\204\217�\340\232\204\217�\341\232\203\221�\207\342\343\"\210\332D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 math-normalize / - calcFunc-exp neg 2 (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-mul math-add math-div -1 (float 5 -1) sdev math-make-sdev calcFunc-sinh calcFunc-cosh intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 8])
(put 'calcFunc-sinh 'math-expandable t)
(defalias 'calcFunc-cosh #[(x) "\306=\203�\307\207	\203�\310\311\312\313D\313\314DDE\315E!\207\211:?\206(�\n@\316>)\203M�\2035�\317\320\321\"\210\310\f\315\\\322\323!!\324\325
\326\307
\"\"\327\"*!\207\242\330=\203f�\331\332A@!\324\3158\333A@!\"\"\207@\334=\203\207�\335!\203\207�\336!\337A@\332\3158!\332\3408!#\207\341\232\204\231�\342\232\204\231�\343\232\203\235�\336!\207\344\345\"\210\332D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 1 math-normalize / + calcFunc-exp neg 2 (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-mul math-add math-div (float 5 -1) sdev math-make-sdev calcFunc-cosh calcFunc-sinh intv math-intv-constp math-abs math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 8])
(put 'calcFunc-cosh 'math-expandable t)
(defalias 'calcFunc-tanh #[(x) "\306=\203�\306\207	\203&�\307\310D\310\311DD\307\312\313\nE\314\nEE!*!\207\211:?\2062�\f@\315>)\203^�
\203?�\316\317\320\"\210\307%\321\\%\310\322!!\323\324\"\323\325\n\"\326\n\"\"+!\207\242\327=\203y�\330\331A@!\323\3218\332\333A@!!\"\"\207@\334=\203\220�\335A@\331\3218!\331\3368!#\207\337\232\203\230�\324\207\340\232\203\240�\341\207\342\232\203\250�\207\343\344\"\210\331D\207" [x math-expand-formulas expmx expx a calc-symbolic-mode 0 math-normalize calcFunc-exp neg / - + (bigpos bigneg frac float cplx polar) signal inexact-result nil 2 math-float math-div 1 math-sub math-add sdev math-make-sdev calcFunc-tanh math-sqr calcFunc-cosh intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) -1 (var nan var-nan) calc-record-why numberp calc-internal-prec] 8])
(put 'calcFunc-tanh 'math-expandable t)
(defalias 'calcFunc-sech #[(x) "\306=\203�\307\207	\203�\310\311\312\313\314D\314\315DDEE!\207\211:?\206(�\n@\316>)\203M�\2035�\317\320\321\"\210\310\f\312\\\322\323!!\324\325\326
\324\307
\"\"\"*!\207\242\327=\203m�\330\331A@!\332\3128\332\331A@!\333A@!\"\"\"\207@\334=\203\216�\335!\203\216�\336!\337A@\331\3128!\331\3408!#\207\341\232\204\232�\342\232\203\234�\306\207\343\232\203\244�\207\344\345\"\210\331D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 1 math-normalize / 2 + calcFunc-exp neg (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-div (float 2 0) math-add sdev math-make-sdev calcFunc-sech math-mul calcFunc-tanh intv math-intv-constp math-abs math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 9])
(put 'calcFunc-sech 'math-expandable t)
(defalias 'calcFunc-csch #[(x) "\306=\203�\307\310\306\"\207	\203�\311\312\313\314\315D\315\316DDEE!\207\211:?\206+�\n@\317>)\203P�\2038�\320\321\322\"\210\311\f\313\\\323\324!!\307\325\326
\307\327
\"\"\"*!\207\242\330=\203p�\331\332A@!\333\3138\333\332A@!\334A@!\"\"\"\207@\335=\203\3138\211:\203\263�\n@\336=\206\266�\n@\337=?\205\266�\n@\340>\203\255�\nA@\211:\203\246�\n@\336=\202\251�\n\306W)\202\266�\341\n!\202\266�\n\306W)\203\377�\3428\211:\203\366�\n@\337=\206\371�\n@\336=?\205\371�\n@\343>\203\360�\nA@\211:\203\351�\n@\337=\202\354�\n\306V)\202\371�\344\n!\202\371�\n\306V)\203\377�\345\207\346A@\332\3138!\332\3428!#\207\347\232\204\350\232\203\306\207\351\232\203%\207\352\353\"\210\332D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec expx 0 math-div 1 math-normalize / 2 - calcFunc-exp neg (bigpos bigneg frac float cplx polar) signal inexact-result nil math-exp-raw math-float (float 2 0) math-add -1 sdev math-make-sdev calcFunc-csch math-mul calcFunc-coth intv bigneg bigpos (frac float) math-negp 3 (frac float) math-posp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 9])
(put 'calcFunc-csch 'math-expandable t)
(defalias 'calcFunc-coth #[(x) "\306=\203�\307\310\306\"\207	\203)�\311\312D\312\313DD\311\314\315\nE\316\nEE!*!\207\211:?\2065�\f@\317>)\203a�
\203B�\320\321\322\"\210\311,\323\\,\312\324!!\307\310\"\307\325\n\"\326\n\"\"+!\207\242\327=\203|�\330\331A@!\307\3238\332\333A@!!\"\"\207@\334=\203\3238\211:\203\277�\f@\335=\206\302�\f@\336=?\205\302�\f@\337>\203\271�\fA@\211:\203\262�\f@\335=\202\265�\f\306W)\202\302�\340\f!\202\302�\f\306W)\203\3418\211:\203\f@\336=\206\f@\335=?\205\f@\342>\203\374�\fA@\211:\203\365�\f@\336=\202\370�\f\306V)\202\343\f!\202\f\306V)\203\344\207\345A@\331\3238!\331\3418!#\207\346\232\203#\310\207\347\232\203+\350\207\351\232\2033\207\352\353\"\210\331D\207" [x math-expand-formulas expmx expx a calc-symbolic-mode 0 math-div 1 math-normalize calcFunc-exp neg / + - (bigpos bigneg frac float cplx polar) signal inexact-result nil 2 math-float math-add math-sub sdev math-make-sdev calcFunc-coth math-sqr calcFunc-sinh intv bigneg bigpos (frac float) math-negp 3 (frac float) math-posp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv (var inf var-inf) (neg (var inf var-inf)) -1 (var nan var-nan) calc-record-why numberp calc-internal-prec] 8])
(put 'calcFunc-coth 'math-expandable t)
(defalias 'calcFunc-arcsinh #[(x) "\305=\203�\305\207	\203�\306\307\310\311\310\312\313E\314EDED!\207\211:?\206)�\n@\315>)\203K�\2036�\316\317\320\"\210\306\f\313\\\321\322\323\322\324!\325\"!\"!)!\207\242\326=\203i�\327\330A@!\331\3138\332\322\324A@!\314\"!\"\"\207@\333=\203\200�\334A@\330\3138!\330\3358!#\207\336\232\204\222�\337\232\204\222�\340\232\203\224�\207\341\342\"\210\330D\207" [x math-expand-formulas a calc-symbolic-mode calc-internal-prec 0 math-normalize calcFunc-ln + calcFunc-sqrt ^ 2 1 (bigpos bigneg frac float cplx polar) signal inexact-result nil math-ln-raw math-add math-sqrt-raw math-sqr (float 1 0) sdev math-make-sdev calcFunc-arcsinh math-div math-sqrt intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 10])
(put 'calcFunc-arcsinh 'math-expandable t)
(defalias 'calcFunc-arccosh #[(x) "\306=\203�\307\207\310=\203�	\203�\311\207\307=\203&�	\203&�\312\313\314\315\"\316\"\207\n\203;�\317\320\321\322\323\324\316E\306EDED!\207\211:?\206G�@\325>)\203\241�	\203T�\326\327\330\"\210\310\211\f=\206w�:\205w�@\331=\205w�A@\f=\205w�\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)

${this.title}

Code Editor : calc-math.elc