;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib calc-ext calc-macs] 2) #@41 The number of digits in an Emacs float. (defvar math-emacs-precision (byte-code "\300\301\211\211\302\303\304\"_\\U\204&T\262\211\262\301\302\303[\"_\\\262\202\nS\207" [1 9 expt 10 -1] 8) (#$ . 176)) #@65 The largest exponent which Calc will convert to an Emacs float. (defvar math-largest-emacs-expt (byte-code "\300\301\211\203&\211\302W\203&\303_\262\3041\305\306\303_\"0\202!\210\307\262\202\31013\305\306T\"0\2025\210\307\262\211\203Y\211\302W\203YT\262\3111R\305\306T\"0\202T\210\307\262\2027S\207" [1 100.0 1.0e+INF 2 (error) expt 10.0 nil (error) (error)] 6) (#$ . 394)) #@66 The smallest exponent which Calc will convert to an Emacs float. (defvar math-smallest-emacs-expt (byte-code "\300\3011\302\303\"\304V0\202\210\202\203\305_\262\202\211\305\245\262\30611\302\303\"\304V0\2025\210\202?\203?\211S\262\202#\211\305\\\207" [-1 (error) expt 10.0 0.0 2 (error)] 4) (#$ . 799)) #@111 Use the native Emacs function FN to evaluate the Calc number X. If this can't be done, return NIL. (fn FN X) (defalias 'math-use-emacs-fn #[514 " X\205V\211\211:?\206\211@\306>\262\205V\3078\310A@!S\\\nX\205T\211 X\205T\3111R\312\313\314\315\316\317D\316\320\321\322!!-!!!!0\202T\210\316\262\207" [calc-internal-prec math-emacs-precision math-smallest-emacs-expt math-largest-emacs-expt calc-point-char calc-group-digits (frac float) 2 math-numdigs (error) math-read-number number-to-string string-to-number 10 nil float "." math-format-number math-float calc-float-format calc-twos-complement-mode calc-number-radix] 12 (#$ . 1130)]) #@12 (fn ARG) (defalias 'calc-sqrt #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203 \302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-inverse calc-unary-op "^2" calcFunc-sqr "sqrt" calcFunc-sqrt] 4]] 5 (#$ . 1798) "P"]) #@12 (fn ARG) (defalias 'calc-isqrt #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203 \302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-inverse calc-unary-op "^2" calcFunc-sqr "isqt" calcFunc-isqrt] 4]] 5 (#$ . 2047) "P"]) #@12 (fn ARG) (defalias 'calc-hypot #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-binary-op "hypt" calcFunc-hypot] 4]] 5 (#$ . 2298) "P"]) #@12 (fn ARG) (defalias 'calc-ln #[257 "\300 \210\301!\207" [calc-invert-func calc-exp] 3 (#$ . 2484) "P"]) #@12 (fn ARG) (defalias 'calc-log10 #[257 "\300 \210\301!\207" [calc-hyperbolic-func calc-ln] 3 (#$ . 2596) "P"]) #@12 (fn ARG) (defalias 'calc-log #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203 \302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-inverse calc-binary-op "alog" calcFunc-alog "log" calcFunc-log] 4]] 5 (#$ . 2714) "P"]) #@12 (fn ARG) (defalias 'calc-ilog #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203 \302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-inverse calc-binary-op "alog" calcFunc-alog "ilog" calcFunc-ilog] 4]] 5 (#$ . 2964) "P"]) #@12 (fn ARG) (defalias 'calc-lnp1 #[257 "\300 \210\301!\207" [calc-invert-func calc-expm1] 3 (#$ . 3217) "P"]) #@12 (fn ARG) (defalias 'calc-exp #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302 \203\303\304\305\300#\207\303\306\307\300#\207\302 \203!\303\310\311\300#\207\303\312\313\300#\207" [V0 calc-is-hyperbolic calc-is-inverse calc-unary-op "lg10" calcFunc-log10 "10^" calcFunc-exp10 "ln" calcFunc-ln "exp" calcFunc-exp] 4]] 5 (#$ . 3333) "P"]) #@12 (fn ARG) (defalias 'calc-expm1 #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203 \302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-inverse calc-unary-op "ln+1" calcFunc-lnp1 "ex-1" calcFunc-expm1] 4]] 5 (#$ . 3704) "P"]) (defalias 'calc-pi #[0 "\300\301`\"\207" [calc-do #[0 "\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]) #@12 (fn ARG) (defalias 'calc-sin #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302 \203\303\304\305\300#\207\303\306\307\300#\207\302 \203!\303\310\311\300#\207\303\312\313\300#\207" [V0 calc-is-hyperbolic calc-is-inverse calc-unary-op "asnh" calcFunc-arcsinh "sinh" calcFunc-sinh "asin" calcFunc-arcsin "sin" calcFunc-sin] 4]] 5 (#$ . 4476) "P"]) #@12 (fn ARG) (defalias 'calc-arcsin #[257 "\300 \210\301!\207" [calc-invert-func calc-sin] 3 (#$ . 4855) "P"]) #@12 (fn ARG) (defalias 'calc-sinh #[257 "\300 \210\301!\207" [calc-hyperbolic-func calc-sin] 3 (#$ . 4971) "P"]) #@12 (fn ARG) (defalias 'calc-arcsinh #[257 "\300 \210\301 \210\302!\207" [calc-invert-func calc-hyperbolic-func calc-sin] 3 (#$ . 5089) "P"]) #@12 (fn ARG) (defalias 'calc-sec #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203 \302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-hyperbolic calc-unary-op "sech" calcFunc-sech "sec" calcFunc-sec] 4]] 5 (#$ . 5236) "P"]) #@12 (fn ARG) (defalias 'calc-sech #[257 "\300 \210\301!\207" [calc-hyperbolic-func calc-sec] 3 (#$ . 5488) "P"]) #@12 (fn ARG) (defalias 'calc-cos #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302 \203\303\304\305\300#\207\303\306\307\300#\207\302 \203!\303\310\311\300#\207\303\312\313\300#\207" [V0 calc-is-hyperbolic calc-is-inverse calc-unary-op "acsh" calcFunc-arccosh "cosh" calcFunc-cosh "acos" calcFunc-arccos "cos" calcFunc-cos] 4]] 5 (#$ . 5606) "P"]) #@12 (fn ARG) (defalias 'calc-arccos #[257 "\300 \210\301!\207" [calc-invert-func calc-cos] 3 (#$ . 5985) "P"]) #@12 (fn ARG) (defalias 'calc-cosh #[257 "\300 \210\301!\207" [calc-hyperbolic-func calc-cos] 3 (#$ . 6101) "P"]) #@12 (fn ARG) (defalias 'calc-arccosh #[257 "\300 \210\301 \210\302!\207" [calc-invert-func calc-hyperbolic-func calc-cos] 3 (#$ . 6219) "P"]) #@12 (fn ARG) (defalias 'calc-csc #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203 \302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-hyperbolic calc-unary-op "csch" calcFunc-csch "csc" calcFunc-csc] 4]] 5 (#$ . 6366) "P"]) #@12 (fn ARG) (defalias 'calc-csch #[257 "\300 \210\301!\207" [calc-hyperbolic-func calc-csc] 3 (#$ . 6618) "P"]) (defalias 'calc-sincos #[0 "\300\301`\"\207" [calc-do #[0 "\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]) #@12 (fn ARG) (defalias 'calc-tan #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\302 \203\303\304\305\300#\207\303\306\307\300#\207\302 \203!\303\310\311\300#\207\303\312\313\300#\207" [V0 calc-is-hyperbolic calc-is-inverse calc-unary-op "atnh" calcFunc-arctanh "tanh" calcFunc-tanh "atan" calcFunc-arctan "tan" calcFunc-tan] 4]] 5 (#$ . 6984) "P"]) #@12 (fn ARG) (defalias 'calc-arctan #[257 "\300 \210\301!\207" [calc-invert-func calc-tan] 3 (#$ . 7363) "P"]) #@12 (fn ARG) (defalias 'calc-tanh #[257 "\300 \210\301!\207" [calc-hyperbolic-func calc-tan] 3 (#$ . 7479) "P"]) #@12 (fn ARG) (defalias 'calc-arctanh #[257 "\300 \210\301 \210\302!\207" [calc-invert-func calc-hyperbolic-func calc-tan] 3 (#$ . 7597) "P"]) #@12 (fn ARG) (defalias 'calc-cot #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203 \302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-hyperbolic calc-unary-op "coth" calcFunc-coth "cot" calcFunc-cot] 4]] 5 (#$ . 7744) "P"]) #@12 (fn ARG) (defalias 'calc-coth #[257 "\300 \210\301!\207" [calc-hyperbolic-func calc-cot] 3 (#$ . 7996) "P"]) (defalias 'calc-arctan2 #[0 "\300\301`\"\207" [calc-do #[0 "\300\301\302\303\304\301!B#\207" [calc-enter-result 2 "atn2" calcFunc-arctan2 calc-top-list-n] 6]] 3 nil nil]) #@12 (fn ARG) (defalias 'calc-conj #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-unary-op "conj" calcFunc-conj] 4]] 5 (#$ . 8285) "P"]) (defalias 'calc-imaginary #[0 "\300\301`\"\207" [calc-do #[0 "\300\301\302\303\304\301!!#\207" [calc-pop-push-record 1 "i*" math-imaginary calc-top-n] 6]] 3 nil nil]) #@12 (fn ARG) (defalias 'calc-to-degrees #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-unary-op ">deg" calcFunc-deg] 4]] 5 (#$ . 8633) "P"]) #@12 (fn ARG) (defalias 'calc-to-radians #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-unary-op ">rad" calcFunc-rad] 4]] 5 (#$ . 8819) "P"]) #@12 (fn ARG) (defalias 'calc-degrees-mode #[257 "\211\300U\203\n\301\302!\207\211\303U\203\304 \207\211\305U\203\306 \207\307\310!\207" [1 calc-do #[0 "\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"] 3 (#$ . 9005) "p"]) (defalias 'calc-radians-mode #[0 "\300\301!\207" [calc-do #[0 "\300\301\302\"\210\303\304!\207" [calc-change-mode calc-angle-mode rad message "Angles measured in radians"] 3]] 2 nil nil]) #@10 (fn A) (defalias 'math-isqrt #[257 "\211\211:\203\211@\300=\203\211A@\301=\262\202$\302!\262\202$\211\301=\262\203(\207\303!\2043\304\303\"\207\305!\207" [float 0 math-zerop natnump math-reject-arg cl-isqrt] 4 (#$ . 9560)]) #@10 (fn A) (defalias 'calcFunc-isqrt #[257 "\211\211:?\206 \211@\300>\262\203\301\302!!\207\302\303!!\207" [(frac float) math-isqrt math-floor math-sqrt] 4 (#$ . 9807)]) #@10 (fn A) (defalias 'math-sqrt #[257 "\211\211:\203\211@\302=\203\211A@\303=\262\202$\304!\262\202$\211\303=\262\203+\211\206e\305!\203;\306\307\310!!!\206e\211\250\203f\311!\211_U\203O\211\202a\203Y\312D\202a\313\314!\314!\"\262\206e\211\242\315=\203\337\311A@!\211_A@U\311\3168!\211_\3168U\203\226\211\203\226\315E\266\204\202\334\203\315\204\242\211\203\305\317\203\253\202\261\312A@D\203\271\202\277\312\3168D\"\266\204\202\334\312D\266\204\202\334\313\314!\317\314!\"\"\266\204\206e\211\242\302=\203$\203\3168\316\246\303U\203\311A@!\211_A@U\203\320\3168\316\245\"\202\321\322\323\"\262\202!\321\322\323\"\202!\313!\206e\211\242\324=\203d\325 \316\\\326!\307\327\330A@\"\331\"!\324\307\327\332A@\"\333\"!\334\3168!\203[\310!\202\\E\266\202)!\206e\211\242\335=\203{\335\307A@!\327\3168\336\"E\206e\211\242\337=\203\230\307A@!\340\317\3168\327\316\"\"\"\262\206e\211\242\341=\203\271\334\3168!\204\271\342A@\307\3168!\307\3438!#\206e\211\242\344=\203\337\345A@!\204\320\345\3168!\203\337\327\307A@!\307\3168!\"\206e\211\242\346=\203!\345\3168!\203\375\317\307A@!\307\3168!\"\206e\345A@!\203!\347A@\350\"\204!\327\307A@!\307\317\350\3168\"!\"\206e\211\242\351=\203H\352\3168!\203H\353A@!\203H\326\354A@\317\3168\316\"\"!\206e\355!\211\205X\327\307\356\"!\"\262\206e\357\360\"\210\312D\207" [calc-symbolic-mode calc-internal-prec float 0 math-zerop math-known-nonposp math-imaginary math-sqrt math-neg cl-isqrt calcFunc-sqrt math-sqrt-float math-float frac 2 math-div math-make-float signal inexact-result nil cplx math-normalize math-abs math-mul math-sub (float 5 -1) math-add (float 5 -1) math-negp polar (float 5 -1) sdev math-make-sdev intv math-make-intv 3 * math-known-nonnegp / math-equal-int 1 ^ math-known-evenp math-known-realp math-pow math-infinitep math-infinite-dir calc-record-why numberp] 10 (#$ . 9987)]) (defalias 'calcFunc-sqrt 'math-sqrt) #@24 (fn A &optional INF) (defalias 'math-infinite-dir #[513 "\211\204 \300!\262\301\302\303#!\207" [math-infinitep math-normalize math-expr-subst 1] 7 (#$ . 12016)]) #@26 (fn A &optional GUESS) (defalias 'math-sqrt-float #[513 "\203 \302\303\304\"\207\305 T\306\")!\207" [calc-symbolic-mode calc-internal-prec signal inexact-result nil math-normalize math-sqrt-raw] 6 (#$ . 12191)]) #@26 (fn A &optional GUESS) (defalias 'math-sqrt-raw #[513 "\211:\203%\211@\300>\203\211A@\211\250\205\211\301V\266\202\202*\302!\262\202*\211\301V\262\2041\303!\207\304\305\"\206k\211\204g\306A@!\307Z\3108\\\310\246\301U\204S\211T\262\311\312\313A@[\"!\3108\\\310\245\"\266\202\314\"\207" [(frac float) 0 math-posp math-sqrt math-use-emacs-fn sqrt math-numdigs 6 2 math-make-float cl-isqrt math-scale-int math-sqrt-float-iter] 8 (#$ . 12416)]) #@16 (fn A GUESS) (defalias 'math-sqrt-float-iter #[514 "\301=\203 \302\303\"\210\304\305\306\"\"\307\"\310\"\203\207\311\"\207" [calc-display-working-message 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] 8 (#$ . 12891)]) #@12 (fn A B) (defalias 'math-nearly-equal-float #[514 "\3018\3018Z\211\302U\203;\303A@\211[\262A@\"\262\211\302=\206\234\211:?\205\234\211\304W\205\234\211\305V\205\234\306A@!U\207\211\307U\203l\303A@\211[\262\310A@\307\"\"\262\211:?\205\234\211\304W\205\234\211\305V\205\234\306A@!U\207\211\311U\205\234\303A@\211[\262\310A@\307\"\"\262\211:?\205\234\211\304W\205\234\211\305V\205\234\306A@!U\207" [calc-internal-prec 2 0 math-add 10 -10 math-numdigs 1 math-scale-int -1] 8 (#$ . 13214)]) #@12 (fn A B) (defalias 'math-nearly-equal #[514 "\300!\262\300!\262@\301=\203\302!\262\211@\301=\203\"\302!\262@\303=\203\200\211@\303=\203p\304A@A@\"\204Q\305A@\3068\"\205\305A@\3068\"\205\304\3068\3068\"\206\233\305\3068A@\"\205\233\305\3068A@\"\207\304A@\"\205\305\3068\"\207\211@\303=\203\227\304A@\"\205\233\305\3068\"\207\304\"\207" [math-float polar math-complex cplx math-nearly-equal-float math-nearly-zerop-float 2] 6 (#$ . 13741)]) #@12 (fn A B) (defalias 'math-nearly-zerop-float #[514 "A@\301=\206\302A@!\3038\\\302A@!\3038\\ZTX\207" [calc-internal-prec 0 math-numdigs 2] 6 (#$ . 14236)]) #@12 (fn A B) (defalias 'math-nearly-zerop #[514 "\300!\262\300!\262@\301=\203!\302A@\"\2053\302\3038\"\207@\304=\203/\302A@\"\207\302\"\207" [math-float cplx math-nearly-zerop-float 2 polar] 5 (#$ . 14406)]) #@12 (fn A B) (defalias 'math-hypot #[514 "\211:\203\211@\301=\203\211A@\302=\262\202$\303!\262\202$\211\302=\262\203+\304!\207\211\211:\203J\211@\301=\203B\211A@\302=\262\202O\303!\262\202O\211\302=\262\203V\304!\207\211:?\206a\211@\305>\262\204\210\306!\203~\306!\203|\232\203z\207\307\207\207\310\311\"\210\312E\207\211\211:?\206\223\211@\305>\262\204\251\306!\203\237\207\310\311\"\210\312E\207\211:?\206\264\211@\313>\262\203\332\211\211:?\206\304\211@\313>\262\203\332\314T\315\316\317!\317!\"!)!\207\242\320=\203\377\211\242\320=\203\365\321\322\323\324\"\323\324\"\"!\207\321\322\323\324\"\"!\207\211\242\320=\203\321\322\323\324\"\"!\207\325\207" [calc-internal-prec float 0 math-zerop math-abs (frac float cplx polar hms) math-infinitep (var nan var-nan) calc-record-why scalarp calcFunc-hypot (frac float cplx polar) math-normalize math-sqrt math-add calcFunc-abssqr hms math-to-hms math-hypot math-from-hms deg nil] 8 (#$ . 14635)]) (defalias 'calcFunc-hypot 'math-hypot) #@10 (fn X) (defalias 'calcFunc-sqr #[257 "\300\301\"\207" [math-pow 2] 4 (#$ . 15691)]) #@12 (fn A N) (defalias 'math-nth-root #[514 "\211\301U\203\n\302!\207\211:\203)\211@\303=\203!\211A@\304=\262\202.\305!\262\202.\211\304=\262\2033\207\211:\203X\211@\306>\203P\211A@\211\250\205K\211\304W\266\202\202]\307!\262\202]\211\304W\262\203b\310\207\311!\203\204\312\"\211@\203t\211A\207?\205\203\313\314!\314A!#\207\242\315=\203\300\312A@\"\312\3018\"@\203\250\211@\203\250\315AAE\207?\205\277\313\314!\316\314A!\314A!\"#\207\242\303=\203\321?\205\356\313\"\207\242\317=\203\355\320A@\"\211\205\354\317\321\3018\"E\207\310\207" [calc-symbolic-mode 2 math-sqrt float 0 math-zerop (frac float) math-negp nil Math-integerp math-nth-root-integer math-nth-root-float math-float frac math-div-float polar math-nth-root math-div] 11 (#$ . 15784)]) #@32 (fn A NRF-N &optional GUESS) (defalias 'math-nth-root-float #[770 "\304 \210\305T\306!\306S!\307\206*\310\311\312A@!\313 8\\ \313\245\\ \245\"\"+!\207" [calc-internal-prec math-nrf-nfm1 math-nrf-nf math-nrf-n math-inexact-result math-normalize math-float math-nth-root-float-iter math-make-float 1 math-numdigs 2] 11 (#$ . 16604)]) #@16 (fn A GUESS) (defalias 'math-nth-root-float-iter #[514 "\304=\203 \305\306\"\210\307\310\311 \"\307\312\nS\"\"\" \"\313\"\203%\207\314\"\207" [calc-display-working-message math-nrf-nfm1 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] 10 (#$ . 16956)]) #@32 (fn A NRI-N &optional GUESS) (defalias 'math-nth-root-integer #[770 "\301\206\302\303\304!S\\\245\"\")\207" [math-nri-n math-nth-root-int-iter math-scale-int 1 math-numdigs] 9 (#$ . 17330)]) #@16 (fn A GUESS) (defalias 'math-nth-root-int-iter #[514 "\302=\203 \303\304\"\210\305\306 S\"\"\307@\310 S\"\"\305 \"\211@W\203-\311@\"\207\211@\232\205?A\312=\205?\211A\312=B\207" [calc-display-working-message math-nri-n lots math-do-working "root" math-idivmod math-ipow math-add math-mul math-nth-root-int-iter 0] 8 (#$ . 17541)]) #@12 (fn X N) (defalias 'calcFunc-nroot #[514 "\300\250\203\301\302\"\202\303\302\"\"\207" [calcFunc-pow math-make-frac 1 math-div] 7 (#$ . 17897)]) #@10 (fn A) (defalias 'math-to-radians #[257 "\211\242\302=\203\f\303\304\"\207\204 \305>\203\306\307 \"\207\207" [math-simplifying-units calc-angle-mode hms math-from-hms rad (deg hms) math-mul math-pi-over-180] 4 (#$ . 18057)]) #@10 (fn A) (defalias 'math-from-radians #[257 "\204 \302=\203\303!\203\304\305 \"\207\306D\207 \307=\203%\310\311\"\207\207" [math-simplifying-units calc-angle-mode deg math-constp math-div math-pi-over-180 calcFunc-deg hms math-to-hms rad] 4 (#$ . 18298)]) #@35 (fn A &optional FORCE-SYMBOLIC) (defalias 'math-to-radians-2 #[513 "\242\303=\203\f\304\305\"\207\204, \306>\203,\n\204\211\203&\307\310\311\"\312\"\207\310\313 \"\207\207" [math-simplifying-units 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] 6 (#$ . 18572)]) #@35 (fn A &optional FORCE-SYMBOLIC) (defalias 'math-from-radians-2 #[513 "\204 \303>\203 \n\204\211\203\304\305\306\"\307\"\207\304\310 \"\207\207" [math-simplifying-units calc-angle-mode calc-symbolic-mode (deg hms) math-div math-mul 180 (var pi var-pi) math-pi-over-180] 6 (#$ . 18929)]) #@10 (fn X) (defalias 'calcFunc-sin #[257 "\211\250\203\"\302=\203\211\303\246\304U\202\211\304U\203\"\305\306\303\245\307\"H\207\211\211:?\206-\211@\310>\262\203A\311 \312\\\313\314\315!!!)!\207\211@\316=\203\204\317!\203r\311 \312\\\314\315A@!!\314\315\3128!!\320!\321@\322A\"\"\266\203)!\207\321\323A@!\322\3128\324A@!\"\"\207\211@\325=\203\232\326!\203\232\324\327\330\331!\"!\207\211\332\232\203\241\207\333\334\"\210\323D\207" [calc-angle-mode calc-internal-prec deg 90 0 [0 1 0 -1] math-mod 4 (frac float cplx polar hms) math-normalize 2 math-sin-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-make-sdev math-mul calcFunc-sin calcFunc-cos intv math-intv-constp math-sub math-quarter-circle nil (var nan var-nan) calc-record-why scalarp] 10 (#$ . 19234)]) #@10 (fn X) (defalias 'calcFunc-cos #[257 "\211\250\203\"\302=\203\211\303\246\304U\202\211\304U\203\"\305\306\303\245\307\"H\207\211\211:?\206-\211@\310>\262\203A\311 \312\\\313\314\315!!!)!\207\211@\316=\203\204\317!\203r\311 \312\\\314\315A@!!\314\315\3128!!\320!\321A\322@\"\"\266\203)!\207\321\323A@!\322\3128\324A@!\"\"\207\211@\325=\203\326!\203\311 \312\\\314\315!!\327\330\3128\331 \"!\327\330\3328\331 \"!\333\"\211\334>\203\375\335A@\313\3128!\313\3328!#\336=\203\365\337!\203\345\340\341A@\312\"\342\3328#\202\366\340\341A@\336\"\3128\336#\202\366\211\262\266\204\202\325\332\342\336F\266\204)!\207\211\343\232\203\207\344\345\"\210\323D\207" [calc-angle-mode calc-internal-prec deg 90 0 [1 0 -1 0] math-mod 4 (frac float cplx polar hms) math-normalize 2 math-cos-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-make-sdev math-mul calcFunc-cos calcFunc-sin intv math-intv-constp math-floor math-div math-pi 3 math-sub (0 1) math-sort-intv 1 math-evenp math-make-intv logior -1 (var nan var-nan) calc-record-why scalarp] 12 (#$ . 20055)]) #@10 (fn X) (defalias 'calcFunc-sincos #[257 "\211\211:?\206 \211@\301>\262\203'\302\303\\\304\305\306!!!\307A@E\262)!\207\307\310!\311!E\207" [calc-internal-prec (frac float cplx polar hms) math-normalize 2 math-sin-cos-raw math-to-radians math-float vec calcFunc-sin calcFunc-cos] 6 (#$ . 21193)]) #@10 (fn X) (defalias 'calcFunc-tan #[257 "\211\250\203\303=\203\211\304\246\305U\202\211\305U\203\305\207\211\211:?\206&\211@\306>\262\203:\307 \310\\\311\312\313!!!)!\207\211@\314=\203\235\315!\203\210\307 \310\\\312\313A@!!\312\313\3108!!\316!\317A!\203t\n\204t\320\321!\210\322D\266\203\202\205\323\324@A\"\324\325A!\"\"\266\203)!\207\323\322A@!\326\3108\325\327A@!!\"\"\207\211@\330=\203\356\331!\203\356\307 \310\\\312\313!!\332\326\333\3108\334 \"\335 \"!\332\326\333\3368\334 \"\335 \"!\232\205\345\337A@\311\3108!\311\3368!#\266\203)!\206\375\340\207\211\341\232\203\365\207\320\342\"\210\322D\207" [calc-angle-mode calc-internal-prec calc-infinite-mode deg 180 0 (frac float cplx polar hms) math-normalize 2 math-tan-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-tan math-make-sdev math-div-float math-sqr math-div calcFunc-cos intv math-intv-constp math-floor math-sub math-pi-over-2 math-pi 3 math-sort-intv (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var nan var-nan) scalarp] 11 (#$ . 21507)]) #@10 (fn X) (defalias 'calcFunc-sec #[257 "\211\250\203\303=\203\211\304\246\305U\203\211\306\246\305U\203\307\207\310\207\211\250\2032\311=\2032\211\305U\2032\307\207\211\211:?\206=\211@\312>\262\203Q\313 \314\\\315\316\317!!!)!\207\211@\320=\203\277\321!\203\242\313 \314\\\316\317A@!!\316\317\3148!!\322!\323A!\203\213\n\204\213\324\325!\210\326D\266\203\202\237\327\330\331A\"\330\332@\"\333A!\"\"\266\203)!\207\327\326A@!\334\332\3148\335A@!\"\333\336A@!!\"\"\207\211@\337=\203^\340!\203^\313 \314\\\316\317!!\341\334\342\3148\343 \"\344 \"!\341\334\342\3458\343 \"\344 \"!\341\334\3148\343 \"!\341\334\3458\343 \"!\342\"\232\204\266\346\202[\347A@\315\314 8!\315\345\n8!#\307=\203V\350\334\351\307\"\314\"!\203G\352\353A@\314\"\307\3458#\202W\352\353A@\307\"\3148\310#\202W\211\262\266\206)!\207\211\354\232\203e\207\324\355\"\210\326D\207" [calc-angle-mode calc-internal-prec calc-infinite-mode deg 180 0 360 1 -1 rad (frac float cplx polar hms) math-normalize 2 math-sec-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-sec math-make-sdev math-div-float (float 1 0) math-mul math-sqr math-div calcFunc-sin calcFunc-cos intv math-intv-constp math-floor math-sub math-pi-over-2 math-pi 3 (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv math-evenp math-add math-make-intv logior (var nan var-nan) scalarp] 14 (#$ . 22654)]) #@10 (fn X) (defalias 'calcFunc-csc #[257 "\211\250\203#\303=\203#\211\304Z\305\246\306U\203#\211\304Z\307\246\306U\203!\310\207\311\207\211\211:?\206.\211@\312>\262\203B\313 \314\\\315\316\317!!!)!\207\211@\320=\203\260\321!\203\223\313 \314\\\316\317A@!!\316\317\3148!!\322!\323@!\203|\n\204|\324\325!\210\326D\266\203\202\220\327\330\331@\"\330\332A\"\333@!\"\"\266\203)!\207\327\326A@!\334\332\3148\335A@!\"\333\336A@!!\"\"\207\211@\337=\203C\340!\203C\313 \314\\\316\317!!\341\334\3148\342 \"!\341\334\3438\342 \"!\341\334\3148\344 \"!\341\334\3438\344 \"!\345\"\232\204\374\266\346\202@\347A@\315\314 8!\315\343\n8!#\310=\203;\350\334\314\"!\203,\351\352A@\314\"\310\3438#\202<\351\352A@\310\"\3148\311#\202<\211\262\266\206)!\207\211\353\232\203J\207\324\354\"\210\326D\207" [calc-angle-mode calc-internal-prec calc-infinite-mode deg 90 180 0 360 1 -1 (frac float cplx polar hms) math-normalize 2 math-csc-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-csc math-make-sdev math-div-float (float 1 0) math-mul math-sqr math-div calcFunc-cos calcFunc-sin intv math-intv-constp math-floor math-pi 3 math-pi-over-2 math-sub (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv math-evenp math-make-intv logior (var nan var-nan) scalarp] 14 (#$ . 24153)]) #@10 (fn X) (defalias 'calcFunc-cot #[257 "\211\250\203\303=\203\211\304Z\305\246\306U\202\211\306U\203\306\207\211\211:?\206(\211@\307>\262\203<\310 \311\\\312\313\314!!!)!\207\211@\315=\203\237\316!\203\212\310 \311\\\313\314A@!!\313\314\3118!!\317!\320@!\203v\n\204v\321\322!\210\323D\266\203\202\207\324\325A@\"\325\326@!\"\"\266\203)!\207\324\323A@!\327\3118\326\330A@!!\"\"\207\211@\331=\203\350\332!\203\350\310 \311\\\313\314!!\333\327\3118\334 \"!\333\327\3358\334 \"!\232\205\337\336A@\312\3118!\312\3358!#\266\203)!\206\367\337\207\211\340\232\203\357\207\321\341\"\210\323D\207" [calc-angle-mode calc-internal-prec calc-infinite-mode deg 90 180 0 (frac float cplx polar hms) math-normalize 2 math-cot-raw math-to-radians math-float sdev math-constp math-sin-cos-raw math-zerop calc-record-why "*Division by zero" calcFunc-cot math-make-sdev math-div-float math-sqr math-div calcFunc-sin intv math-intv-constp math-floor math-pi 3 math-sort-intv (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var nan var-nan) scalarp] 11 (#$ . 25567)]) #@25 (fn X &optional ORGX) (defalias 'math-sin-raw #[513 "@\300=\2032\301\3028!\303\304\"\305A@!\300\306@\306\307\"\310\"\"\306A\306\311\"\312\"\"E\207@\313=\203A\314\315\316!!!\207A@\211\250\205L\211\317W\262\203b\320\315\320!\203^\202_\"!\207\321\322\"\203z\315\323\324 \"\203w\202x\"\207\325\203\204\202\205\"\207" [cplx math-exp-raw 2 math-div-float (float 1 0) math-sin-cos-raw math-mul-float math-add-float (float 5 -1) math-sub-float (float 5 -1) polar math-polar math-sin-raw math-complex 0 math-neg-float math-lessp-float (float 7 0) math-mod math-two-pi math-sin-raw-2] 13 (#$ . 26676)]) #@10 (fn X) (defalias 'math-cos-raw #[257 "\211\242\300=\203\301\302\303!!!\207\304\305\306 \"\"\207" [polar math-polar math-cos-raw math-complex math-sin-raw math-sub math-pi-over-2] 5 (#$ . 27319)]) #@10 (fn X) (defalias 'math-sec-raw #[257 "\211@\300=\203[\301\302\"\303\3048!\305\306\"\307\310\"\311\"\307\312\"\313\"\314A@!\312\307\315@!\315!\"\307\315A!\315!\"\"\211A@\316=?\205Z\300\305\307A\"\"\305\307@\"\"E\207\211@\317=\203j\320\321\322!!!\207\323!\211\316=\203x\324\325\316\"\207\305\326\"\207" [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)] 14 (#$ . 27528)]) #@10 (fn X) (defalias 'math-csc-raw #[257 "\211@\300=\203Z\301\302\"\303\3048!\305\306\"\307\310\"\311\"\307\312\"\313\"\314A@!\312\307\315@!\315!\"\307\315A!\315!\"\"\211A@\316=?\205Y\300\305\307@\"\"\305\307A\"\"E\207\211@\317=\203i\320\321\322!!!\207\323!\211\316=\203w\324\325\316\"\207\305\326\"\207" [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)] 14 (#$ . 28132)]) #@10 (fn X) (defalias 'math-cot-raw #[257 "\211@\300=\203P\301\302\"\303\3048!\305\306\"\307\310\"\311\"\307\312\"\313\"\314A@!\312\315@!\315!\"\211A@\316=?\205O\300\305\307@A\"\"\317\305\307\"\"!E\207\211@\320=\203_\321\322\323!!!\207\314!\211@A@\316=\203q\324A\316\"\207\305A@\"\207" [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] 15 (#$ . 28735)]) #@10 (fn X) (defalias 'math-sin-cos-raw #[257 "\300!\301!B\207" [math-sin-raw math-cos-raw] 4 (#$ . 29299)]) #@10 (fn X) (defalias 'math-tan-raw #[257 "\211@\300=\203C\301\302\"\303\3048!\305\306\"\307A@!\310A\311\310\"\312\"\"\211A@\313=?\205B\300\305@\"\305\311\314\"\315\"\"E\207\211@\316=\203R\317\320\321!!!\207\307!\211AA@\313=\203d\322@\313\"\207\305@A\"\207" [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] 13 (#$ . 29413)]) #@15 (fn X ORGX) (defalias 'math-sin-raw-2 #[514 "\302\303 \"\211A@\211\250\205\211\304W\262\203 \305\306\302\307 \"\"!\207\310\311 \"\203-\312\"\207\310\313\311 !\"\203C\313\312\314\303 \"\"!\207\315S\316\")!\203R\317\207\320\321\"\206o \203b\322\323\324\"\207\325\326\327\305\330 !!%\207" [calc-internal-prec calc-symbolic-mode math-sub-float math-pi-over-2 0 math-neg-float math-sin-raw-2 math-pi math-lessp-float math-pi-over-4 math-cos-raw-2 math-neg math-add math-normalize math-nearly-zerop-float (float 0 0) math-use-emacs-fn sin signal inexact-result nil math-sin-series 6 4 math-sqr-float] 11 (#$ . 29929)]) #@15 (fn X ORGX) (defalias 'math-cos-raw-2 #[514 "\302S\303\")!\203\304\207\305\306\"\2063 \203\307\310\311\"\207\312\313!!\314\315\316\317\320\"\"\321\322\211%\262\207" [calc-internal-prec calc-symbolic-mode 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] 9 (#$ . 30578)]) #@29 (fn SUM NFAC N X XNEGSQR) (defalias 'math-sin-series #[1285 "\301=\203\f\302\303\"\210\304\"\305\306\307 !\"\"\310\"\203&\207\311\312\211T_\"\313\\%\207" [calc-display-working-message 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] 13 (#$ . 31027)]) #@10 (fn X) (defalias 'calcFunc-arcsin #[257 "\211\303=\203\303\207\211\304=\203\305=\203\306\207\211\307=\203$\305=\203$\310\207 \203-\311\312\313\"\207\211\211:?\2068\211@\314>\262\203L\315\n\316\\\317\320\321!!!)!\207\211@\322=\203m\323\324A@!\317\325\3168\326\327\304\330 A@!\"!\"!\"\207\211@\331=\203\204\332A@\324\3168!\324\3338!#\207\211\334\232\203\213\207\335\336\"\210\324D\207" [calc-angle-mode calc-symbolic-mode calc-internal-prec 0 1 deg 90 -1 -90 signal inexact-result nil (frac float cplx polar) math-normalize 2 math-from-radians math-arcsin-raw math-float sdev math-make-sdev calcFunc-arcsin math-div math-sqrt math-sub math-sqr intv math-sort-intv 3 (var nan var-nan) calc-record-why numberp] 11 (#$ . 31398)]) #@10 (fn X) (defalias 'calcFunc-arccos #[257 "\211\303=\203\304\207\211\304=\203\305=\203\306\207\211\307=\203$\305=\203$\310\207 \203-\311\312\313\"\207\211\211:?\2068\211@\314>\262\203L\315\n\316\\\317\320\321!!!)!\207\211@\322=\203m\323\324A@!\317\325\3168\326\327\303\330 A@!\"!\"!\"\207\211@\331=\203\204\332A@\324\3168!\324\3338!#\207\211\334\232\203\213\207\335\336\"\210\324D\207" [calc-angle-mode calc-symbolic-mode calc-internal-prec 1 0 deg 90 -1 180 signal inexact-result nil (frac float cplx polar) math-normalize 2 math-from-radians math-arccos-raw math-float sdev math-make-sdev calcFunc-arccos math-div math-sqrt math-sub math-sqr intv math-sort-intv 3 (var nan var-nan) calc-record-why numberp] 11 (#$ . 32158)]) #@10 (fn X) (defalias 'calcFunc-arctan #[257 "\211\302=\203\302\207\211\303=\203\304=\203\305\207\211\306=\203$\304=\203$\307\207\211\211:?\206/\211@\310>\262\203C\311 \312\\\313\314\315!!!)!\207\211@\316=\203b\317\320A@!\313\321\3128\322\303\323A@!\"\"!\"\207\211@\324=\203y\325A@\320\3128!\320\3268!#\207\211\327\267\202\212\330\331!\207\332\330\331!!\207\207\333\334\"\210\320D\207" [calc-angle-mode calc-internal-prec 0 1 deg 45 -1 -45 (frac float cplx polar) math-normalize 2 math-from-radians math-arctan-raw math-float sdev math-make-sdev calcFunc-arctan math-div math-add math-sqr intv math-sort-intv 3 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 127 (neg (var inf var-inf)) 131 (var nan var-nan) 137)) math-quarter-circle t math-neg calc-record-why numberp] 10 (#$ . 32918)]) #@10 (fn X) (defalias 'math-arcsin-raw #[257 "\301\302\303\304!\"!@\305>\204\211@\306>\203,\307\310\\\311\312\313\314\311\315\"\"!\")!\207\316\"\207" [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] 10 (#$ . 33796)]) #@10 (fn X) (defalias 'math-arccos-raw #[257 "\300\301 \302!\"\207" [math-sub math-pi-over-2 math-arcsin-raw] 5 (#$ . 34158)]) #@10 (fn X) (defalias 'math-arctan-raw #[257 "\211@\302>\203(\303\304\\\305\306\307\310\311\312\313\"\"!\307\310\311\312\314 \"\"!\"\315\")!\207\211A@\211\250\2053\211\316W\262\203@\317\320\317!!!\207\321!\203G\207\322\323\"\206\252 \203W\324\325\326\"\207\327\311\"\203a\330 \207\327\331\"\203m\332\330 !\207\333\334\"\203\237\333\335\"\203\211\336\337\340 \341\"\320\342\343\"!\"\207\336\337\340 \344\"\320\342\336\345\"\346\347\"\"!\"\207\350\351\317\352!!$\207" [calc-internal-prec calc-symbolic-mode (cplx polar) math-normalize 2 math-div math-sub math-ln-raw math-add 1 math-mul (cplx 0 1) (cplx 0 -1) (cplx 0 2) 0 math-neg-float math-arctan-raw math-zerop math-use-emacs-fn atan signal inexact-result nil math-equal-int math-pi-over-4 -1 math-neg math-lessp-float (float 414214 -6) (float 1 0) math-sub-float math-mul-float math-pi (float 5 -1) math-div-float (float 1 0) (float 25 -2) (float 1 0) math-add-float (float 1 0) math-arctan-series 3 math-sqr-float] 11 (#$ . 34289)]) #@24 (fn SUM N X XNEGSQR) (defalias 'math-arctan-series #[1028 "\301=\203 \302\303\"\210\304\"\305\306\307!\"\"\310\"\203#\207\311\312\\$\207" [calc-display-working-message lots math-do-working "arctan" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-arctan-series 2] 11 (#$ . 35311)]) #@12 (fn Y X) (defalias 'calcFunc-arctan2 #[514 "\211:?\206 \211@\301>\262\203<\211\211:?\206\211@\301>\262\2032\302\303\\\304\305\306!\306!\"!)!\207\307\310\"\210\311E\207\312!\204R\211\211:?\206M\211@\301>\262\203\271\312!\204h\211:?\206c\211@\301>\262\203\271\313!\203t\314\262\202\211\315!\203\200\316\262\202\211\317!\204\211\320\262\313!\203\225\314\262\202\252\315!\203\241\316\262\202\252\317!\204\252\320\262\203\267\211\203\267\311\"\207\321\207\307\310\"\210\311E\207" [calc-internal-prec (frac float hms) math-normalize 2 math-from-radians math-arctan2-raw math-float calc-record-why anglep calcFunc-arctan2 math-infinitep math-posp 1 math-negp -1 math-zerop nil (var nan var-nan)] 8 (#$ . 35657)]) #@12 (fn Y X) (defalias 'math-arctan2-raw #[514 "\300!\203\301!\203\302 \207\303!\204\303!\203\304\207\305\207\300!\2033\306!\203.\307 \207\310\307 !\207\306!\203@\311\312\"!\207\306!\203Q\313\311\312\"!\302 \"\207\314\311\312\"!\302 \"\207" [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] 7 (#$ . 36427)]) #@10 (fn X) (defalias 'calcFunc-arcsincos #[257 "\211\211\242\300=\262\203\211G\301U\203\302\3038A@\"\207\304\305\"\207" [vec 3 calcFunc-arctan2 2 math-reject-arg "*Two-element vector expected"] 4 (#$ . 36867)]) #@10 (fn X) (defalias 'calcFunc-exp #[257 "\211\302=\203\303\207\211\304>\203\203\211\303=\203\305\207\306\303\307\"\207\211\211:?\206*\211@\310>\262\203<\311 \312\\\313\314!!)!\207\211\242\315=\203R\316A@!\317\320\3128\"\"\207\211\242\321=\203i\322A@\316\3128!\316\3238!#\207\211\324\267\202s\207\302\207\207\325\326\"\210\316D\207" [calc-symbolic-mode calc-internal-prec 0 1 (1 -1) (var e var-e) math-div (var e var-e) (frac float cplx polar) math-normalize 2 math-exp-raw math-float sdev calcFunc-exp math-make-sdev math-mul intv math-make-intv 3 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 111 (neg (var inf var-inf)) 112 (var nan var-nan) 114)) calc-record-why numberp] 7 (#$ . 37090)]) #@10 (fn X) (defalias 'calcFunc-expm1 #[257 "\211\302=\203\302\207\303!\203\304\207\203\305\306\307\"\207\211\211:?\206$\211@\310>\262\203W\311 \312\\\313!\211@\314=\203L\315\316\"\203L\315\317\"\203L\320!\202R\321\322!\323\"\262)!\207\211\242\324=\203\210\325!\203v\326A@!\327\330\3128\321\331\"\"\"\207\327\326A@!\330\3128\332A@!\"\"\207\211\242\333=\203\237\334A@\326\3128!\326\3358!#\207\211\336\267\202\251\207\323\207\207\337\340\"\210\326D\207" [calc-symbolic-mode calc-internal-prec 0 math-zerop (float 0 0) signal inexact-result nil (frac float cplx polar) math-normalize 2 math-float float math-lessp-float (float 1 0) (float -1 0) math-exp-minus-1-raw math-add math-exp-raw -1 sdev math-constp calcFunc-expm1 math-make-sdev math-mul 1 calcFunc-exp intv math-make-intv 3 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 165 (neg (var inf var-inf)) 166 (var nan var-nan) 168)) calc-record-why numberp] 9 (#$ . 37874)]) #@10 (fn X) (defalias 'calcFunc-exp10 #[257 "\211\300=\203\301\207\302\303\"\207" [0 1 math-pow (float 1 1)] 4 (#$ . 38902)]) #@10 (fn X) (defalias 'math-exp-raw #[257 "\301!\203\302\207\203\303\304\305\"\207\211@\306=\203/\307A@!\310\3118!\306\312A\"\312@\"E\207\211@\313=\203F\314!\313\307A@!\315\3118!E\207\316\317\"\206\233\320\321\"\204[\320\322\"\203\225\320\323\"\203h\324 \210\202r\320\325\"\203r\326 \210\312\327\"\330A@\3118\"\331\312\332!\333\"\"\312\334\335 \"\336\337\340!\"\"\207\336\341\340!\"\207" [calc-symbolic-mode 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)] 10 (#$ . 39034)]) #@10 (fn X) (defalias 'math-exp-minus-1-raw #[257 "\300\301\302\211%\207" [math-exp-series 2 3] 7 (#$ . 39916)]) #@26 (fn SUM NFAC N XPOW X) (defalias 'math-exp-series #[1285 "\301=\203\f\302\303\"\210\304\"\305\306\307 !\"\"\310\"\203&\207\311\312\"T%\207" [calc-display-working-message 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] 13 (#$ . 40034)]) #@10 (fn X) (defalias 'calcFunc-ln #[257 "\302!\203\203\f\303\207\304\305\"\207\211\306=\203\307\207\211\211:?\206$\211@\310>\262\2036\311 \312\\\313\314!!)!\207\211\242\315=\203M\316\317A@!\320\3128A@\"\"\207\211\242\321=\203\305\3128\211:\203{\211@\322>\203s\211A@\211\250\205n\211\307V\266\202\202\200\323!\262\202\200\211\307V\262\204\262\3128\211:\203\244\211@\324=\203\234\211A@\307=\262\202\251\302!\262\202\251\211\307=\262\204\262\325!\204\305\326\327A@\317\3128!\317\3308!#)\207\211\331\232\203\315\306\207\211\242\332=\203\350\211A@\333\232\203\350\334\3128!\203\350\3128\207\335!\203\367\211\336\232\203\365\207\337\207\340\341\"\210\317D\207" [calc-infinite-mode calc-internal-prec math-zerop (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" 1 0 (frac float cplx polar) math-normalize 2 math-ln-raw math-float sdev math-make-sdev calcFunc-ln math-div intv (frac float) math-posp float math-intv-constp t math-make-intv 3 (var e var-e) ^ (var e var-e) math-known-realp math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp] 7 (#$ . 40389)]) #@10 (fn X) (defalias 'calcFunc-log10 #[257 "\303\304\"\203\305!\203\306\207\307\207\310!\2031\311!\2031\312\313\"\211@\205+\211A\211\262\262\2031\207\211\242\314=\203W\211A@\304=\203W\312\3158\313\"\211@\205Q\211A[\211\262\262\203W\207\316!\203h\203c\317\207\320\321\"\207 \203q\322\323\324\"\207\211\211:?\206|\211@\325>\262\203\343\326\n\315\\\327!\211A@\307=\203\226\320\321\"\210\211A@\211\250\205\241\211\307V\262\203\327\211A@\304=\203\266\327\3158!\202\336\330A@!S\331\332\333\334A@[E!\335 \"\327\3158\\!\"\262\202\336\336\337!\335 \"\262)!\207\211\242\340=\203\376\341\342A@!\336\3158\343A@\335 \"\"\"\207\211\242\344=\203J\3158\211:\203,\211@\345>\203$\211A@\211\250\205\211\307V\266\202\2021\311!\262\2021\211\307V\262\204:\346!\204J\347A@\342\3158!\342\3508!#\207\351!\203Y\211\352\232\203W\207\353\207\354\355\"\210\342D\207" [calc-infinite-mode calc-symbolic-mode calc-internal-prec math-equal-int 1 math-floatp (float 0 0) 0 Math-integerp math-posp math-integer-log 10 frac 2 math-zerop (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" signal inexact-result nil (frac float cplx polar) math-normalize math-float math-numdigs math-add-float math-div-float math-ln-raw-2 float math-ln-10 math-div calcFunc-ln sdev math-make-sdev calcFunc-log10 math-mul intv (frac float) math-intv-constp math-make-intv 3 math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp] 10 (#$ . 41533)]) #@22 (fn X &optional B) (defalias 'calcFunc-log #[513 "\211\203\n\211\303\232\203\304\305D!\207\211\306=\204\211\307\232\203\"\304\310D!\207\311!\203:\2035\312\305!\305!\"\207\313\314\"\207\311!\203R\203M\312\305!\305!\"\207\313\314\"\207\315\316\"\203i\203d\312\305!\317\"\207\313\320\"\207\315\316\"\203z\321!\203x\322\207\317\207\211:?\206\205\211@\323=\262\203\211\211:?\206\225\211@\323=\262\203\324!\203\324!\203\316\325\316\326\"\327U\266\202\203\271\202\300\327\262\312\316\"\316\326\"\327U\266\202\203\321\202\331[\262\312\316\"\326\"\327U\266\202\203\360\330\"\211\262\202\364\330\"\211@\205\203\312\316A_\"\202\fA_\211\262\266\205\203\207 \203\331\332\325\"\207\211:?\206*\211@\333>\262\203Q\211\211:?\206:\211@\333>\262\203Q\304\n\334\\\312\335\336!!\337!\")!\207\242\340=\203\200\211\211:?\206c\211@\333>\262\203\200\341\342A@\"\312\3348\343A@\337!\"\"\"\207\242\344=\203\337\3348\211:\203\256\211@\345>\203\246\211A@\211\250\205\241\211\317V\266\202\202\263\324!\262\202\263\211\317V\262\204\274\346!\204\337\211\211:?\206\307\211@\347>\262\203\337\350A@\342\3348\"\342\3518\"#\207\242\344=\204\355\211\242\344=\203\366\312\305!\305!\"\207\352!\204\352!\203 \312\305!\305!\"\207\211\211:?\206\211@\333>\262\203#\353\354\"\210\202(\353\354\"\210\342E\207" [calc-infinite-mode calc-symbolic-mode calc-internal-prec (var e var-e) math-normalize calcFunc-ln 10 (float 1 1) calcFunc-log10 math-zerop math-div math-reject-arg "*Logarithm of zero" math-equal-int 1 0 "*Logarithm base one" math-floatp (float 0 0) frac math-posp nil math-compare -1 math-integer-log signal inexact-result (frac float cplx polar) 2 math-ln-raw math-float math-log-base-raw sdev math-make-sdev calcFunc-log math-mul intv (frac float) math-intv-constp (frac float) math-make-intv 3 math-infinitep calc-record-why numberp] 11 (#$ . 43036)]) #@22 (fn X &optional B) (defalias 'calcFunc-alog #[513 "\211\203\n\211\300\232\203\301\302D!\207\303\"\207" [(var e var-e) math-normalize calcFunc-exp math-pow] 5 (#$ . 45023)]) #@12 (fn X B) (defalias 'calcFunc-ilog #[514 "\300!\2031\301=\2041\300!\2031\211\301=\2041\211\302=\203#\303\304\"\207W\203+\301\207\305\"A\207\306\307\"!\207" [math-natnump 0 1 math-reject-arg "*Logarithm base one" math-integer-log math-floor calcFunc-log] 6 (#$ . 45210)]) #@12 (fn X B) (defalias 'math-integer-log #[514 "\211C\300!\301\211\211\302\"\303U\266\202\204#B\262\300!\262\202\304\305GS\"\262\211\262@\262A\211\262\203o\302\"\303U\266\202\203o\211\306\245\262\307@\"\262\302\"\303U\266\202\2043\262\\\262\2023\232B\207" [math-sqr nil math-compare -1 ash 1 2 math-mul] 12 (#$ . 45504)]) (defvar math-log-base-cache nil) #@10 (fn B) (defalias 'math-log-base-raw #[257 "@\232\203A@ =\204\211 \302\303!!E\3048\207" [math-log-base-cache calc-internal-prec math-ln-raw math-float 2] 6 (#$ . 45913)]) #@10 (fn X) (defalias 'calcFunc-lnp1 #[257 "\211\303=\206!:\205!@\304=\205!A@=\205!\3058\306U\266\202\2031\203,\307\207\310\311\"\207\211\306=\2039\306\207\312!\203A\313\207 \203J\314\315\316\"\207\211\211:?\206U\211@\317>\262\203\210\320\n\305\\\321!\211@\304=\203}\322\323\"\203}\322\324\"\203}\325!\202\203\326\327\330\"!\262)!\207\211\242\331=\203\242\332\333A@!\334\3058\335A@\336\"\"\"\207\211\242\337=\203\356\3058\211:\203\320\211@\340>\203\310\211A@\211\250\205\303\211\306V\266\202\202\325\341!\262\202\325\211\306V\262\204\336\342!\204\356\343A@\333\3058!\333\3448!#\207\345!\203\375\211\346\232\203\373\207\347\207\350\351\"\210\333D\207" [calc-infinite-mode calc-symbolic-mode calc-internal-prec -1 float 2 0 (neg (var inf var-inf)) math-reject-arg "*Logarithm of zero" math-zerop (float 0 0) signal inexact-result nil (frac float cplx polar) math-normalize math-float math-lessp-float (float 5 -1) (float -5 -1) math-ln-plus-1-raw math-ln-raw math-add-float (float 1 0) sdev math-make-sdev calcFunc-lnp1 math-div math-add 1 intv (frac float) math-posp math-intv-constp math-make-intv 3 math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numberp] 8 (#$ . 46101)]) #@10 (fn X) (defalias 'math-ln-raw #[257 "\211\242\302=\203$\302\303\304\305\306A@!\306\3078!\"!\310\"\311\3078A@\"E\207\211@\312=\203:\313\302\304A@!\314\3078!E!\207\211\315=\206[:\205[@\316=\205[A@=\205[\3078\317U\266\202\203b\320\207\203k\321\322\323\"\207\324A@!\203\230\325\326\"\206\276\327A@!S\305\330\316A@[E!\303\331\3078\\!\332 \"\"\207\333!\203\243\334\335\"\207 \312=\203\265\313\302\304\336!!\337 E!\207\302\304\336!!\337 E\207" [calc-symbolic-mode 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 (#$ . 47355)]) #@10 (fn X) (defalias 'math-ln-raw-2 #[257 "\300\301\"\203\302\303\304\305\"!\306 \"\207\307\310\311\312\"\302\313\"\"!\207" [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)] 7 (#$ . 48222)]) #@10 (fn X) (defalias 'math-ln-raw-3 #[257 "\300\301\302\303!$\304\"\207" [math-mul-float math-ln-raw-series 3 math-sqr-float (float 2 0)] 8 (#$ . 48541)]) #@21 (fn SUM N X XSQR) (defalias 'math-ln-raw-series #[1028 "\301=\203 \302\303\"\210\304\"\305\306\307!\"\"\310\"\203#\207\311\312\\$\207" [calc-display-working-message 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] 11 (#$ . 48704)]) #@10 (fn X) (defalias 'math-ln-plus-1-raw #[257 "\300\301\302!$\207" [math-lnp1-series 2 math-neg] 7 (#$ . 49044)]) #@21 (fn SUM N XPOW X) (defalias 'math-lnp1-series #[1028 "\301=\203 \302\303\"\210\304\"\305\306\307!\"\"\310\"\203#\207\311T$\207" [calc-display-working-message lots math-do-working "lnp1" math-mul-float math-add-float math-div-float math-float math-nearly-equal-float math-lnp1-series] 11 (#$ . 49166)]) #@30 An approximation for ln(10). (defconst math-approx-ln-10 (math-read-number-simple "2.302585092994045684018") (#$ . 49496)) (defvar math-ln-10-cache-prec (byte-code ":\203 \301A@!\207\203\301\302\303\"!A@\207\304\207" [math-approx-ln-10 math-numdigs eval t -100] 4)) (defvar math-ln-10-cache (byte-code ":\203\207\203\301\302\"\207\207" [math-approx-ln-10 eval t] 3)) (defvar math-ln-10-last-prec -100) (defvar math-ln-10-last nil) (byte-code "\301\302BB\301\207" [math-cache-list math-ln-10-cache-prec math-ln-10-last-prec] 3) (defalias 'math-ln-10 #[0 " 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") (#$ . 50283)) (defvar math-ln-2-cache-prec (byte-code ":\203 \301A@!\207\203\301\302\303\"!A@\207\304\207" [math-approx-ln-2 math-numdigs eval t -100] 4)) (defvar math-ln-2-cache (byte-code ":\203\207\203\301\302\"\207\207" [math-approx-ln-2 eval t] 3)) (defvar math-ln-2-last-prec -100) (defvar math-ln-2-last nil) (byte-code "\301\302BB\301\207" [math-cache-list math-ln-2-cache-prec math-ln-2-last-prec] 3) (defalias 'math-ln-2 #[0 " 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]) #@10 (fn X) (defalias 'calcFunc-sinh #[257 "\211\303=\203\303\207\203\304\305\306\307D\307\310DDE\311E!\207\211\211:?\206(\211@\312>\262\203O \2036\313\314\315\"\210\304\n\311\\\316\317!!\320\321\322\323\"\"\324\"\262)!\207\211\242\325=\203h\326\327A@!\320\3118\330A@!\"\"\207\211@\331=\203\332A@\327\3118!\327\3338!#\207\211\334\232\204\221\211\335\232\204\221\211\336\232\203\222\207\337\340\"\210\327D\207" [math-expand-formulas calc-symbolic-mode calc-internal-prec 0 math-normalize / - calcFunc-exp neg 2 (frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-mul math-add math-div -1 (float 5 -1) sdev math-make-sdev calcFunc-sinh calcFunc-cosh intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 9 (#$ . 51070)]) (put 'calcFunc-sinh 'math-expandable t) #@10 (fn X) (defalias 'calcFunc-cosh #[257 "\211\303=\203\304\207\203\305\306\307\310D\310\311DDE\312E!\207\211\211:?\206(\211@\313>\262\203O \2036\314\315\316\"\210\305\n\312\\\317\320!!\321\322\323\304\"\"\324\"\262)!\207\211\242\325=\203h\326\327A@!\321\3128\330A@!\"\"\207\211@\331=\203\212\332!\203\212\333!\262\334A@\327\3128!\327\3358!#\207\211\336\232\204\234\211\337\232\204\234\211\340\232\203\240\333!\207\341\342\"\210\327D\207" [math-expand-formulas calc-symbolic-mode calc-internal-prec 0 1 math-normalize / + calcFunc-exp neg 2 (frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-mul math-add math-div (float 5 -1) sdev math-make-sdev calcFunc-cosh calcFunc-sinh intv math-intv-constp math-abs math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 9 (#$ . 51943)]) (put 'calcFunc-cosh 'math-expandable t) #@10 (fn X) (defalias 'calcFunc-tanh #[257 "\211\303=\203\303\207\203%\304\305D\305\306DD\304\307\310E\311EE!\266\202!\207\211\211:?\2060\211@\312>\262\203[ \203>\313\314\315\"\210\304\n\316\\\305\317!!\320\321\"\320\322\"\323\"\"\266\202)!\207\211\242\324=\203w\325\326A@!\320\3168\327\330A@!!\"\"\207\211@\331=\203\216\332A@\326\3168!\326\3338!#\207\211\334\267\202\231\321\207\335\207\207\336\337\"\210\326D\207" [math-expand-formulas calc-symbolic-mode calc-internal-prec 0 math-normalize calcFunc-exp neg / - + (frac float cplx polar) signal inexact-result nil 2 math-float math-div 1 math-sub math-add sdev math-make-sdev calcFunc-tanh math-sqr calcFunc-cosh intv math-sort-intv 3 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 148 (neg (var inf var-inf)) 150 (var nan var-nan) 152)) -1 calc-record-why numberp] 10 (#$ . 52876)]) (put 'calcFunc-tanh 'math-expandable t) #@10 (fn X) (defalias 'calcFunc-sech #[257 "\211\303=\203\304\207\203\305\306\307\310\311D\311\312DDEE!\207\211\211:?\206(\211@\313>\262\203P \2036\314\315\316\"\210\305\n\307\\\317\320!!\321\322\323\321\304\"\"\"\262)!\207\211\242\324=\203r\325\326A@!\327\3078\327\326A@!\330A@!\"\"\"\207\211@\331=\203\224\332!\203\224\333!\262\334A@\326\3078!\326\3358!#\207\211\336\232\204\240\211\337\232\203\242\303\207\211\340\232\203\251\207\341\342\"\210\326D\207" [math-expand-formulas calc-symbolic-mode calc-internal-prec 0 1 math-normalize / 2 + calcFunc-exp neg (frac float cplx polar) signal inexact-result nil math-exp-raw math-float math-div (float 2 0) math-add sdev math-make-sdev calcFunc-sech math-mul calcFunc-tanh intv math-intv-constp math-abs math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 10 (#$ . 53848)]) (put 'calcFunc-sech 'math-expandable t) #@10 (fn X) (defalias 'calcFunc-csch #[257 "\211\303=\203 \304\305\303\"\207\203 \306\307\310\311\312D\312\313DDEE!\207\211\211:?\206+\211@\314>\262\203S \2039\315\316\317\"\210\306\n\310\\\320\321!!\304\322\323\304\324\"\"\"\262)!\207\211\242\325=\203u\326\327A@!\330\3108\330\327A@!\331A@!\"\"\"\207\211@\332=\203\354\3108\211:\203\243\211@\333>\203\233\211A@\211\250\205\226\211\303W\266\202\202\250\334!\262\202\250\211\303W\262\203\334\3358\211:\203\322\211@\336>\203\312\211A@\211\250\205\305\211\303V\266\202\202\327\337!\262\202\327\211\303V\262\203\334\340\207\341A@\327\3108!\327\3358!#\207\211\342\232\204\370\211\343\232\203\372\303\207\211\344\232\203\207\345\346\"\210\327D\207" [math-expand-formulas calc-symbolic-mode calc-internal-prec 0 math-div 1 math-normalize / 2 - calcFunc-exp neg (frac float cplx polar) signal inexact-result nil math-exp-raw math-float (float 2 0) math-add -1 sdev math-make-sdev calcFunc-csch math-mul calcFunc-coth intv (frac float) math-negp 3 (frac float) math-posp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 10 (#$ . 54800)]) (put 'calcFunc-csch 'math-expandable t) #@10 (fn X) (defalias 'calcFunc-coth #[257 "\211\303=\203 \304\305\303\"\207\203(\306\307D\307\310DD\306\311\312E\313EE!\266\202!\207\211\211:?\2063\211@\314>\262\203^ \203A\315\316\317\"\210\306\n\320\\\307\321!!\304\305\"\304\322\"\323\"\"\266\202)!\207\211\242\324=\203z\325\326A@!\304\3208\327\330A@!!\"\"\207\211@\331=\203\361\3208\211:\203\250\211@\332>\203\240\211A@\211\250\205\233\211\303W\266\202\202\255\333!\262\202\255\211\303W\262\203\341\3348\211:\203\327\211@\335>\203\317\211A@\211\250\205\312\211\303V\266\202\202\334\336!\262\202\334\211\303V\262\203\341\337\207\340A@\326\3208!\326\3348!#\207\211\341\267\202\374\305\207\342\207\207\343\344\"\210\326D\207" [math-expand-formulas calc-symbolic-mode calc-internal-prec 0 math-div 1 math-normalize calcFunc-exp neg / + - (frac float cplx polar) signal inexact-result nil 2 math-float math-add math-sub sdev math-make-sdev calcFunc-coth math-sqr calcFunc-sinh intv (frac float) math-negp 3 (frac float) math-posp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-sort-intv #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((var inf var-inf) 247 (neg (var inf var-inf)) 249 (var nan var-nan) 251)) -1 calc-record-why numberp] 10 (#$ . 56077)]) (put 'calcFunc-coth 'math-expandable t) #@10 (fn X) (defalias 'calcFunc-arcsinh #[257 "\211\303=\203\303\207\203\304\305\306\307\306\310\311E\312EDED!\207\211\211:?\206)\211@\313>\262\203M \2037\314\315\316\"\210\304\n\311\\\317\320\321\320\322!\323\"!\"!)!\207\211\242\324=\203l\325\326A@!\327\3118\330\320\322A@!\312\"!\"\"\207\211@\331=\203\203\332A@\326\3118!\326\3338!#\207\211\334\232\204\225\211\335\232\204\225\211\336\232\203\226\207\337\340\"\210\326D\207" [math-expand-formulas calc-symbolic-mode calc-internal-prec 0 math-normalize calcFunc-ln + calcFunc-sqrt ^ 2 1 (frac float cplx polar) signal inexact-result nil math-ln-raw math-add math-sqrt-raw math-sqr (float 1 0) sdev math-make-sdev calcFunc-arcsinh math-div math-sqrt intv math-sort-intv 3 (var inf var-inf) (neg (var inf var-inf)) (var nan var-nan) calc-record-why numberp] 10 (#$ . 57426)]) (put 'calcFunc-arcsinh 'math-expandable t) #@10 (fn X) (defalias 'calcFunc-arccosh #[257 "\211\303=\203\304\207\211\305=\203\203\306\207\211\304=\203&\203&\307\310\311\312\"\313\"\207 \203<\314\315\316\317\320\321\313E\303EDED!\207\211\211:?\206G\211@\322>\262\203\241\203U\323\324\325\"\210\211\305=\206v:\205v@\326=\205vA@=\205v\3138\304U\266\202\203\200\327\330 !\207\314\n\313\\\331\303\"\332\331\310\333\307\334\n\335\"\"!\"\"!\262)!\207\211\242\336=\203\300\337\340A@!\307\3138\341\331\342A@!\305\"!\"\"\207\211@\343=\203\327\344A@\340\3138!\340\3458!#\207\211\346\232\204\351\211\347\232\204\351\211\350\232\203\352\207\351\352\"\210\340D\207" [calc-symbolic-mode math-expand-formulas 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 - ^ (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] 13 (#$ . 58327)]) (put 'calcFunc-arccosh 'math-expandable t) #@10 (fn X) (defalias 'calcFunc-arctanh #[257 "\211\304=\203\304\207\211\305=\206):\205)@\306=\205)A@=\205)\3078\304U\266\202\2034\2034\310\207\211\311=\206U:\205U@\306=\205UA@=\205U\3078\304U\266\202\203`\203`\312\207 \203w\313\314\315\316\305ED\315\314\305EDE\307E\207\211\211:?\206\202\211@\317>\262\203\361\n\203\220\320\321\322\"\210\323 \307\\\242\324>\204\251\305\325\"\311U\266\202\203\277\326\327\330\331\332\"!\330\327\333\"!\"\334\"\202\356\335\305\"\203\316\203\316\336\202\356\335\311\"\203\335\203\335\337\202\356\326\330\340\331\341\"\327\305\"\"!\342\")!\207\211\242\343=\203\344\345A@!\340\3078\327\305\346A@!\"\"\"\207\211@\347=\203%\350A@\345\3078!\345\3518!#\207\211\352\232\203,\207\353\354\"\210\345D\207" [calc-infinite-mode math-expand-formulas calc-symbolic-mode calc-internal-prec 0 1 float 2 (var inf var-inf) -1 (neg (var inf var-inf)) / - calcFunc-ln + (frac float cplx polar) signal inexact-result nil math-normalize (cplx polar) math-compare math-mul math-sub math-ln-raw math-add (float 1 0) (float 1 0) (float 5 -1) math-equal-int (var inf var-inf) (neg (var inf var-inf)) math-div (float 1 0) (float 5 -1) sdev math-make-sdev calcFunc-arctanh math-sqr intv math-sort-intv 3 (var nan var-nan) calc-record-why numberp] 9 (#$ . 59530)]) (put 'calcFunc-arctanh 'math-expandable t) #@10 (fn A) (defalias 'calcFunc-rad #[257 "\211\211:?\206 \211@\302>\262\204\211@\303=\203$\304\305\\\306\307 \")!\207\211@\310=\2030\311\312\"\207\211@\313=\203D\314\315A@!\315\3058!\"\207 \203P\316\306\317\"\320\"\207\321!\203W\207\315D\207" [calc-internal-prec math-expand-formulas (frac float cplx polar) intv math-normalize 2 math-mul math-pi-over-180 hms math-from-hms rad sdev math-make-sdev calcFunc-rad math-div (var pi var-pi) 180 math-infinitep] 6 (#$ . 60921)]) (put 'calcFunc-rad 'math-expandable t) #@10 (fn A) (defalias 'calcFunc-deg #[257 "\211\211:?\206 \211@\302>\262\204\211@\303=\203$\304\305\\\306\307 \")!\207\211@\310=\2030\311\312\"\207\211@\313=\203D\314\315A@!\315\3058!\"\207 \203P\306\316\317\"\320\"\207\321!\203W\207\315D\207" [calc-internal-prec math-expand-formulas (frac float cplx polar) intv math-normalize 2 math-div math-pi-over-180 hms math-from-hms deg sdev math-make-sdev calcFunc-deg math-mul 180 (var pi var-pi) math-infinitep] 6 (#$ . 61455)]) (byte-code "\300\301\302\303#\210\304\305!\207" [put calcFunc-deg math-expandable t provide calc-math] 4)