| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-arith.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:42 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-arith.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defvar math-scalar-functions '(calcFunc-det calcFunc-cnorm calcFunc-rnorm calcFunc-vlen calcFunc-vcount calcFunc-vsum calcFunc-vprod calcFunc-vmin calcFunc-vmax))
(defvar math-nonscalar-functions '(vec calcFunc-idn calcFunc-diag calcFunc-cvec calcFunc-index calcFunc-trn | calcFunc-append calcFunc-cons calcFunc-rcons calcFunc-tail calcFunc-rhead))
(defvar math-scalar-if-args-functions '(+ - * / neg))
(defvar math-real-functions '(calcFunc-arg calcFunc-re calcFunc-im calcFunc-floor calcFunc-ceil calcFunc-trunc calcFunc-round calcFunc-rounde calcFunc-roundu calcFunc-ffloor calcFunc-fceil calcFunc-ftrunc calcFunc-fround calcFunc-frounde calcFunc-froundu))
(defvar math-positive-functions nil)
(defvar math-nonnegative-functions '(calcFunc-cnorm calcFunc-rnorm calcFunc-vlen calcFunc-vcount))
(defvar math-real-scalar-functions '(% calcFunc-idiv calcFunc-abs calcFunc-choose calcFunc-perm calcFunc-eq calcFunc-neq calcFunc-lt calcFunc-gt calcFunc-leq calcFunc-geq calcFunc-lnot calcFunc-max calcFunc-min))
(defvar math-real-if-arg-functions '(calcFunc-sin calcFunc-cos calcFunc-tan calcFunc-sec calcFunc-csc calcFunc-cot calcFunc-arctan calcFunc-sinh calcFunc-cosh calcFunc-tanh calcFunc-sech calcFunc-csch calcFunc-coth calcFunc-exp calcFunc-gamma calcFunc-fact))
(defvar math-integer-functions '(calcFunc-idiv calcFunc-isqrt calcFunc-ilog calcFunc-vlen calcFunc-vcount))
(defvar math-num-integer-functions nil)
(defvar math-rounding-functions '(calcFunc-floor calcFunc-ceil calcFunc-round calcFunc-trunc calcFunc-rounde calcFunc-roundu))
(defvar math-float-rounding-functions '(calcFunc-ffloor calcFunc-fceil calcFunc-fround calcFunc-ftrunc calcFunc-frounde calcFunc-froundu))
(defvar math-integer-if-args-functions '(+ - * % neg calcFunc-abs calcFunc-min calcFunc-max calcFunc-choose calcFunc-perm))
(defalias 'calc-min #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304$\207" [arg calc-binary-op "min" calcFunc-min (var inf var-inf)] 5]] 3 nil "P"])
(defalias 'calc-max #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304$\207" [arg calc-binary-op "max" calcFunc-max (neg (var inf var-inf))] 5]] 3 nil "P"])
(defalias 'calc-abs #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "abs" calcFunc-abs] 4]] 3 nil "P"])
(defalias 'calc-idiv #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304$\207" [arg calc-binary-op "\\" calcFunc-idiv 1] 5]] 3 nil "P"])
(defalias 'calc-floor #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302 \203 \303\304\305#\207\303\304\306#\207\302 \203! \303\307\310#\207\303\307\311#\207" [arg calc-is-inverse calc-is-hyperbolic calc-unary-op "ceil" calcFunc-fceil calcFunc-ceil "flor" calcFunc-ffloor calcFunc-floor] 4]] 3 nil "P"])
(defalias 'calc-ceiling #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-floor] 2 nil "P"])
(defalias 'calc-round #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203 \302 \203 \303\304\305#\207\303\304\306#\207\302 \203! \303\307\310#\207\303\307\311#\207" [arg calc-is-inverse calc-is-hyperbolic calc-unary-op "trnc" calcFunc-ftrunc calcFunc-trunc "rond" calcFunc-fround calcFunc-round] 4]] 3 nil "P"])
(defalias 'calc-trunc #[(arg) "\301 \210\302!\207" [arg calc-invert-func calc-round] 2 nil "P"])
(defalias 'calc-mant-part #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "mant" calcFunc-mant] 4]] 3 nil "P"])
(defalias 'calc-xpon-part #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "xpon" calcFunc-xpon] 4]] 3 nil "P"])
(defalias 'calc-scale-float #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-binary-op "scal" calcFunc-scf] 4]] 3 nil "P"])
(defalias 'calc-abssqr #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "absq" calcFunc-abssqr] 4]] 3 nil "P"])
(defalias 'calc-sign #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "sign" calcFunc-sign] 4]] 3 nil "P"])
(defalias 'calc-increment #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305\302!E#\207" [arg calc-enter-result 1 "incr" calcFunc-incr calc-top-n] 6]] 2 nil "p"])
(defalias 'calc-decrement #[(arg) "\300\301!\207" [calc-do #[nil "\301\302\303\304\305\302!E#\207" [arg calc-enter-result 1 "decr" calcFunc-decr calc-top-n] 6]] 2 nil "p"])
(defalias 'math-abs-approx #[(a) "\211:\203: @\301=\206= @\302=?\205= @\303>\2034 A@\211:\203- @\301=\2020 \304W)\202= \305!\202= \304W)\203E \306!\207\211:?\206Q @\307>)\203W \207@\310=\203k \311\312A@!\312\3138!\"\207@\314=\203v A@\207@\315=\203\203 \316A@!\207@\317=\203\227 \320\312\3138!\312\3218!\"\207@\322=\203\240 \207@\323=\203\254 \324\325\"\207@\326=\203\266 @\207\207" [a bigneg bigpos (frac float) 0 math-negp math-neg (bigpos bigneg frac float hms) cplx math-add math-abs 2 polar sdev math-abs-approx intv math-max 3 date vec math-reduce-vec math-add-abs-approx calcFunc-abs] 6])
(defalias 'math-add-abs-approx #[(a b) "\302\303!\303 !\"\207" [a b math-add math-abs-approx] 4])
(defvar math-decls-cache-tag nil)
(defvar math-decls-cache nil)
(defvar math-decls-all nil)
(defvar math-super-types '((int numint rat real number) (numint real number) (frac rat real number) (rat real number) (float real number) (real number) (number) (scalar) (sqmatrix matrix vector) (matrix vector) (vector) (const)))
(defalias 'math-setup-declarations #[nil "\306\307!=\206D \306\307!\310\211\211\211 \310\f\242\303=\203= \fA\211\203= \f@\242\303=\203 \311\f@8\211\203 \312\313\314\217\210\202 \315
\236\211,\207" [math-decls-cache-tag range type vec p math-decls-cache calc-var-value var-Decls nil 2 err (byte-code "@A@\306\211\f\242\304=\204 \304\fD\fA\211\203q \f@\211 :?\206(
@\307>)\204q \f@\242\310=\203 \f@A@\236\211 \203J \311\n\"\202m \f@A@\312=\203] \311\n\313\"\314\202m \f@A@\315=\203m \311\n\316\"\317)\202 \f\203\200 \311\n\320\"\321\304\fB!\n D \242\304=\204\217 \304 D A\211\203\313 @\242\310=\204\257 @\211 :?\206\253
@\322>)\204\217 @@\310=\203\276 \323 @8\202\301 @@\nBB\202\217 )\306\207" [p v type range vec a nil (bigpos bigneg frac float cplx polar hms date sdev intv mod) var append pos (real number) (intv 1 0 (var inf var-inf)) nonneg (real number) (intv 3 0 (var inf var-inf)) (real number) math-prepare-set (bigpos bigneg frac float cplx polar hms date mod var) 2 math-super-types st math-decls-cache] 4) ((error)) var-All math-decls-all] 5])
(defalias 'math-known-scalarp #[(a &optional assume-scalar) "\303 \210\203
\304=\202 \203 \305\n!?\207\306\n!\207" [calc-matrix-mode assume-scalar a math-setup-declarations scalar math-check-known-matrixp math-check-known-scalarp] 2])
(defalias 'math-known-matrixp #[(a) "\211:?\206\f @\301>)?\205 \302\303\"?\207" [a (bigpos bigneg frac float cplx polar hms) math-known-scalarp t] 4])
(defalias 'math-known-square-matrixp #[(a) "\301!\205 \302!\207" [a math-known-matrixp math-check-known-square-matrixp] 2])
(defalias 'math-check-known-scalarp #[(a) "\211:?\206\f @\306>)\203 \307\207@ >\203 \307\207@\n>\203$ \307\207@ >\203< A\211\2039 \310@!\204+ ?\207@\311=\203I \310A@!\207\312!\203Q \307\207@\313=\203d \3148\f\236\206h
\202h @\f\236\315 \316A@>\203z \307\202\242 @\313=\203\241 \31489\203\241 \317\3148!\203\241 \3148J\211\203\241 \310!\202\242 \315*\207" [a math-scalar-functions math-real-scalar-functions math-scalar-if-args-functions math-decls-cache math-decls-all (bigpos bigneg frac float cplx polar hms date sdev intv mod) t math-check-known-scalarp ^ math-const-var var 2 nil scalar boundp val decl] 4])
(defalias 'math-check-known-matrixp #[(a) "\211:?\206\f @\306>)\203 \307\207@ >\203 \310\207@\n>\2032 A\211\2030 \311@!\203\" \207@\312=\203? \311A@!\207\313!\203G \307\207@\314=\203Z \3158 \236\206^ \f\202^ @ \236\307 \316A@>\203o \310\202\225 @\314=\203\224 \31589\203\224 \317\3158!\203\224 \3158J\211\203\224 \311
!\202\225 \307*\207" [a math-nonscalar-functions math-scalar-if-args-functions math-decls-cache math-decls-all val (bigpos bigneg frac float cplx polar hms date sdev intv mod) nil t math-check-known-matrixp ^ math-const-var var 2 matrix boundp decl] 4])
(defalias 'math-check-known-square-matrixp #[(a) "\306!\203 \307\207\242\310=\203 \311A@!\207\242\312=\204* \242\313=\204* \242\314=\2038 \311A@!\205\240 \311\3158!\207@\316=\203K \3158 \236\206O \n\202O @ \236\317 \320\fA@>\203^ \307\202\237 @\316=\203| \321\3158!\203| \3158J\211\203| \311 !\202\237
\250\204\207
\320=\203\222 \242\316=\203\222 \307\202\237 \322\fA@>\203\236 \317\202\237 \317*\207" [a math-decls-cache math-decls-all val decl calc-matrix-mode math-square-matrixp t ^ math-check-known-square-matrixp * + - 2 var nil sqmatrix boundp matrix] 3])
(defalias 'math-known-realp #[(a) "\301!\302W\207" [a math-possible-signs 8] 2])
(defalias 'math-known-posp #[(a) "\301!\302=\207" [a math-possible-signs 4] 2])
(defalias 'math-known-negp #[(a) "\301!\302=\207" [a math-possible-signs 1] 2])
(defalias 'math-known-nonnegp #[(a) "\301!\302>\207" [a math-possible-signs (2 4 6)] 2])
(defalias 'math-known-nonposp #[(a) "\301!\302>\207" [a math-possible-signs (1 2 3)] 2])
(defalias 'math-known-nonzerop #[(a) "\301!\302>\207" [a math-possible-signs (1 4 5 8 9 12 13)] 2])
(defalias 'math-guess-if-neg #[(a) "\302!\211\303>\203 \304\202 \305>?\205 \306!)\207" [a sgn math-possible-signs (1 3) t (2 4 6) math-looks-negp] 3])
(defalias 'math-possible-signs #[(a &optional origin) "\211:?\206\f @\306>)\203\\ \203 \307 \"\211:\203S @\310=\206V @\311=?\205V @\312>\203M A@\211:\203F @\310=\202I \313V)\202V \314!\202V \313V)\203\\ \315\207\211:\203\226 @\311=\206\231 @\310=?\205\231 @\316>\203\220 A@\211:\203\211 @\311=\202\214 \313W)\202\231 \317!\202\231 \313W)\203\237 \320\207\211:\203\303 @\321>?\205\306 @\322=\203\275 A@\313=\202\306 \323!\202\306 \313=)\203\314 \324\207@\325=\203G\326\3248!\203\335 \315\207\327\3308!\203\347 \320\207\3248\211:\203
@\321>?\205@\322=\203A@\313=\202\323!\202\313=)\203\331\207\3308\211:\203<@\321>?\205?@\322=\2036A@\313=\202?\323!\202?\313=)\203E\330\207\332\207@\333=\203Z\334A@!\203X\332\207\335\207\336\207@\337>\203qA@\211:?\206q@\340>)\203\254@\341=\203\224\342\343\3248 \203\216\344 A@\"\202\221A@\"!\207\343\3248 \203\245\307 A@\"\202\252\345A@!\"\207\3248\211:?\206\272@\340>)\203\344@\341=\203\313\3248\202\320\345\3248!\343A@ \203\340\344 \n\"\202\341\n\")\207\343A@ \"\343\3248! @\341=\203\374\342 !\f =\203\f\202o\f\324=\203 \202o \324=\203\f\202o\f\336Y\203$\335\202o \336Y\203.\335\202o\f\315=\203> \331=\203>\315\202o \315=\203N\f\331=\203N\315\202o\f\320=\203^ \330=\203^\320\202o \320=\203n\f\330=\203n\320\202o\332*\207@\346=\203\207\342\343A@ \205\204\345 !\"!\207 \203\270 \211:\203\257@\321>?\205\262@\322=\203\251A@\313=\202\262\323!\202\262\313=)\203\270\347@\350=\204\312@\351=\203\203 \203\203A@\211:?\206\330@\340>)\203\203@\350=\203)A@\211:\203 @\321>?\205\f@\322=\203A@\313=\202\f\323!\202\f\313=)\203\343\313 \"\2026\343\3248\352 \206!\313A@\"\"\2026\342\343\3248\352A@ \"\"! A@\211:\203s@\311=\206v@\310=?\205v@\316>\203mA@\211:\203f@\311=\202i\313W)\202v\317!\202v\313W)\203\200\342
!\202\201
)\207@\353>\203\f\3248\211:?\206\230@\340>)\203\f\343A@@\350=\203\264\354 \206\255\313\3248\"\202\276\352 \206\272\313\3248\"\" \3248\211:\203\374@\311=\206\377@\310=?\205\377@\316>\203\366A@\211:\203\357@\311=\202\362\313W)\202\377\317!\202\377\313W)\203 \342
!\202\n
)\207@\355=\2036\313 @A\211\2032@\335W\2032\356@\343@ \"\"@\202@)\207@\357>\203\227\343A@!\343\3248!\211 \336Y\203S\335\202\223 \336Y\203]\335\202\223@\351=\203n \360>\203n\335\202\223\356\f\361>\203y \202z\313\f\362>\203\204\324\202\205\313\f\363>\203\221\342 !\202\222\313#*\202\263@\364=\2035\343A@!\343\3248!\211 \336Y\203\264\335\2021 \336Y\203\276\335\2021\f\315=\203\310\315\2021\f\324=\203\334 \315=\203\330\324\2021\335\2021 \324=\203\360\f\365>\203\354\324\2021\335\2021\3248\211:?\206\376@\366>)\203 \367\3248!\203\f\370>\203\331\2021\315\2021\f\2021\f\331=\2030 \315=\203,\331\2021\335\2021\332*\202\263@\371=\203o\343\3248!\211\336Y\203L\332\202k \324=\203V\324\202k \372>\203`\331\202k \373>\203j\330\202k\332)\202\263@\374>\203\234G\324U\203\234\343A@!\211 \324=\203\215\324\202\230\f\375>\203\227\315\202\230\331)\202\263@\376=\203G\324U\203\343A@!\211 \336Y\203\272\335\202\377 \203\304\317 !\203\310\315\202\377\307 \206\316\313\320\"\211\211:\203\365@\321>?\205\370@\322=\203\357A@\313=\202\370\323!\202\370\313=)\203\376\347\f)\202\263@\377>\203G\324U\204)@\201J =\203@G\330U\203@\326\3248!\203@\201K A@!\203<\343A@\320\"\202\263\335\202\263@\201L =\203gG\324U\203g\343A@!\211 \201M >\203b\f\202c\335)\202\263@A>\203s\331\202\263@B>\203\315\202\263@C>\203\213\332\202\263@D>\203\227\332\202\263@E>\205\263G\324U\205\263\334A@!\203\262\332\202\263\335\211 F\203- \203(\201N F\336\" \211:\203\376@\310=\206@\311=?\205@\312>\203\370A@\211:\203\361@\310=\202\364\313V)\202\314!\202\313V)\203F\201O >\203\320\202$\332\202$F\201P >\203#\315\202$\332\\\202F\202\201Q !\203\235\3248\201R =\203Q \203M\343\201S \"\202\315\202\3248\201T =\203m \203i\343\201U \"\202\315\202\3248\201V =\203{\315\202\3248\201W =\203\213\201X \202\3248\201Y =\203\231\336\202\335\202\201Z \210@\201[ =\203\271\3248G\236\206\276H\202\276@G\236 I \203\366\201\\ IA@>\203\366 \211:?\206\354@\201] >\206\354@\322=\205\354\3248\313Y)\204\366\201^ \202\324I8\203\343\324I8 \"\202\201_ IA@>\203\332\202\335))\207" [a origin org s2 s1 s (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-sub bigpos bigneg (frac float) 0 math-posp 4 (frac float) math-negp 1 (bigpos bigneg) float math-zerop 2 intv math-known-posp math-known-negp 3 6 7 sdev math-known-realp 15 8 (+ -) (bigpos bigneg frac float) - math-neg-signs math-possible-signs math-add math-neg neg nil * / math-div (* /) math-mul vec logior (* /) (2 3 6 7) (4 5 6 7) (2 3 6 7) (1 3 5 7) ^ (1 5) (bigpos bigneg) math-evenp (3 6 7) % (4 6) (1 3) (calcFunc-abs calcFunc-abssqr) (1 4 5) calcFunc-exp (calcFunc-ln calcFunc-log10) signs math-nonnegative-functions math-positive-functions math-real-functions math-real-scalar-functions math-real-if-arg-functions sign math-decls-cache math-decls-all decl calcFunc-log math-known-nonnegp calcFunc-sqrt (2 4 6) logand (1 2 3 8 9 10 11) (2 4 6 8 10 12 14) math-const-var var-pi math-pi var-e math-e var-inf var-uinf 13 var-i math-setup-declarations var int (bigpos bigneg) 5 real] 7])
(defalias 'math-neg-signs #[(s1) "\301Y\203 \301\302\301Z!\\\207\303\304>\203 \305\202 \306\307>\203$ \310\202% \306\311>\203/ \312\2020 \306#\207" [s1 8 math-neg-signs + (1 3 5 7) 4 0 (2 3 6 7) 2 (4 5 6 7) 1] 5])
(defalias 'math-known-integerp #[(a) "\301!\302=\207" [a math-possible-types 1] 2])
(defalias 'math-known-num-integerp #[(a) "\301\302\"\303X\207" [a math-possible-types t 3] 3])
(defalias 'math-known-imagp #[(a) "\301!\302U\207" [a math-possible-types 16] 2])
(defalias 'math-possible-types #[(a &optional num) "\211:?\206\f @\306>)\203\327 \211:?\206 @\307>)\203( \203& \310\207\311\207\211:\205; @\312=\205; \3138\314Y)\203G \203E \310\207\313\207@\315=\203V \203T \316\207\317\207@\312=\203e \203c \316\207\320\207@\321=\203~ \3138\3108\232\203| \322\3138!\207\323\207@\324=\203\221 \325A@!\203\217 \323\207\326\207@\327=\203\244 \330A@!\203\242 \331\207\332\207@\333=\203\325 \3138\334\335!\336\n\"\314U*\204\321 \3138\337\334\335!!\336\n\"\314U*\203\323 \331\207\340\207\326\207@\341=\203\\\322A@ \"\322\3138 \" \342 \f\"\211 \331W\203 \343
\344\"\314V\203\344\202Z \317U\204\f\317U\204@\203\345\202Z\323\202Z
\332W\203Y \331U\203A\f\331U\2033\323\202Z\f\331W\203=\331\202Z\346\202Z\f\331U\203U \331W\203Q\331\202Z\346\202Z\346\202Z\326+\207@\347>\203r\322A@ \"\322\3138 \" \342 \f\" @\350=\203\214\343 \323\"\343\f\323\"\343
\323\"
\331W\203
\310X\203\234\311\202\306 \310X\203\253\343\f\310\"\314U\204\272\f\310X\203\305\343 \310\"\314U\203\305@\351>\203\305\317\202\306\345 A \203\323A\310_\202\376\342\343 \345\"\314V\203\353\343\f\345\"\314V\203\353A\202\354\314\343
\344\"\314V\203\374A\313_\202\375\314\")\202p
\332W\203o@\352=\203E \331U\203-\f\331U\203 \323\202p\f\331W\203)\331\202p\346\202p\f\331U\203A \331W\203=\331\202p\346\202p\346\202p
\331U\203O\331\202p \331U\203[\f\331W\204g\f\331U\203k \331W\203k\332\202p\326\202p\326+\207@\353=\203\322A@!\207@\354=\203\"\322A@ \"\322\3138 \" \342 \f\" \f\310X\203 \355\3138!\203 \331W\203 \342\343 \310\"\314V\203\273\311\202\274\314\343 \317\"\343 \316\"\314V\203\315\345\202\316\314# A \203\334A\310_\202\342\343 \345\"\314V\203\364\343\f\345\"\314V\203\364A\202\365\314\343
\344\"\314V\203A\313_\202\314\")\202 \355A@!\203 \356\3138!\203 \323\202 \326+\207@\357=\203k\360A@!\342\343 \313\"\314V\203=\310\202>\314\343 \311\"\314V\203K\331\202L\314\343 \317\"\314V\203Y\323\202Z\314\343 \320\"\314V\203g\332\202h\314$)\207@\361=\203\225\314 BA\211\203\221B\326W\203\221\342B\322@\362\"\"B\202uB)\207@C>\204\261@D>\203\263\355\3138\206\255\314!\203\263\311\207@E>\204\317@F>\203\321\355\3138\206\313\314!\203\321\313\207@\363=\203\332\345\207@\364=\203G\313U\203\322A@!\342\343 \310\"\314V\203\374\313\202\375\314\343 \316\"\314V\203\n\320\202 \314\343 \340\"#)\207@\365>\2033G\313U\2033\322A@!\211\331Y\2030\323\2021 )\207\366!\203Y\3138\367>\203C\320\207\3138\370=\203M\311\207\3138\371=\203W\331\207\326\207\372 \210@\373=\203q\3138G\236\206vH\202v@G\236 I\374IA@>\203\205\311\202\327\375IA@>\203\222\310\202\327\315IA@>\203\237\317\202\327\376IA@>\203\254\345\202\327\312IA@>\203\271\344\202\327\313I8\203\311\322\313I8!\202\327\377IA@>\203\326\323\202\327\326)\207" [a num b t1 t2 t12 (bigpos bigneg frac float cplx polar hms date sdev intv mod) (bigpos bigneg) 3 1 float 2 0 frac 12 4 8 intv math-possible-types 15 sdev math-known-realp 63 cplx math-zerop 16 32 polar math-quarter-circle nil math-compare math-neg 48 / logior logand 10 5 31 (+ - * %) % (+ -) * neg ^ math-known-nonnegp math-known-posp calcFunc-sqrt math-possible-signs vec t calcFunc-frac calcFunc-float (calcFunc-abs calcFunc-abssqr) math-const-var (var-e var-pi var-phi var-gamma) var-inf var-i math-setup-declarations var int numint rat real calc-prefer-frac mask types math-integer-functions math-rounding-functions math-num-integer-functions math-float-rounding-functions math-decls-cache math-decls-all decl] 8])
(defalias 'math-known-evenp #[(a) "\211:?\206\f @\301>)\203 \302!\207\211:\205' @\303=\205' \3048\305Y)\2039 \3048\305V\206\215 \302\306!!\207@\307=\203\\ \310A@!\203N \311\3048!\207\311A@!\205[ \310\3048!\207@\312>\203\201 \310A@!\203s \310\3048!\206\215 \313A@!\205\200 \313\3048!\207@\314=\205\215 \310A@!\207" [a (bigpos bigneg) math-evenp float 2 0 math-trunc * math-known-evenp math-known-num-integerp (+ -) math-known-oddp neg] 4])
(defalias 'math-known-oddp #[(a) "\211:?\206\f @\301>)\203 \302!\207\211:\205' @\303=\205' \3048\305Y)\2039 \3048\305X\205j \302\306!!\207@\307>\203^ \310A@!\203P \311\3048!\206j \311A@!\205] \310\3048!\207@\312=\205j \311A@!\207" [a (bigpos bigneg) math-oddp float 2 0 math-trunc (+ -) math-known-evenp math-known-oddp neg] 4])
(defalias 'calcFunc-dreal #[(expr) "\302!\211\303W\203 \304\202 \305 \306\"\307U\203 \307\202 \310\311\312#)\207" [expr types math-possible-types 16 1 logand 15 0 math-reject-arg realp quiet] 5])
(defalias 'calcFunc-dimag #[(expr) "\302!\211\303U\203 \304\202 \305 \303\"\306U\203 \306\202 \307\310\")\207" [expr types math-possible-types 16 1 logand 0 math-reject-arg "Expected an imaginary number"] 4])
(defalias 'calcFunc-dpos #[(expr) "\302!\211\303=\203 \304\202 \305>\203 \306\202 \307\310\311#)\207" [expr signs math-possible-signs 4 1 (1 2 3) 0 math-reject-arg posp quiet] 5])
(defalias 'calcFunc-dneg #[(expr) "\302!\211\303=\203 \303\202 \304>\203 \305\202 \306\307\310#)\207" [expr signs math-possible-signs 1 (2 4 6) 0 math-reject-arg negp quiet] 5])
(defalias 'calcFunc-dnonneg #[(expr) "\302!\211\303>\203 \304\202 \304=\203 \305\202 \306\307\310#)\207" [expr signs math-possible-signs (2 4 6) 1 0 math-reject-arg posp quiet] 5])
(defalias 'calcFunc-dnonzero #[(expr) "\302!\211\303>\203 \304\202 \305=\203 \306\202 \307\310\311#)\207" [expr signs math-possible-signs (1 4 5 8 9 12 13) 1 2 0 math-reject-arg nonzerop quiet] 5])
(defalias 'calcFunc-dint #[(expr) "\302!\211\303U\203 \303\202 \304 \303\"\305U\203 \305\202 \306\307\310#)\207" [expr types math-possible-types 1 logand 0 math-reject-arg integerp quiet] 5])
(defalias 'calcFunc-dnumint #[(expr) "\302\303\"\211\304X\203 \305\202! \306 \304\"\307U\203 \307\202! \310\311\312#)\207" [expr types math-possible-types t 3 1 logand 0 math-reject-arg integerp quiet] 5])
(defalias 'calcFunc-dnatnum #[(expr) "\302!\211\303=\203 \304!\202 )\207" [expr res calcFunc-dint 1 calcFunc-dnonneg] 3])
(defalias 'calcFunc-deven #[(expr) "\301!\203 \302\207\303!\204 \304\305!\306\"\307U\203 \307\207\310\311\"\207" [expr math-known-evenp 1 math-known-oddp logand math-possible-types 3 0 math-reject-arg "Can't tell if expression is odd or even"] 3])
(defalias 'calcFunc-dodd #[(expr) "\301!\203 \302\207\303!\204 \304\305!\306\"\307U\203 \307\207\310\311\"\207" [expr math-known-oddp 1 math-known-evenp logand math-possible-types 3 0 math-reject-arg "Can't tell if expression is odd or even"] 3])
(defalias 'calcFunc-drat #[(expr) "\302!\211\303>\203 \304\202 \305 \306\"\307U\203 \307\202 \310\311\")\207" [expr types math-possible-types (1 4 5) 1 logand 5 0 math-reject-arg "Rational number expected"] 4])
(defalias 'calcFunc-drange #[(expr) "\305 \210\306 \211:?\206 \n@\307>)\203 \310 D\202d \242\311=\203& \202d \242\312=\203< \313\211 8 \236\2067 \f8\202C \313 \242 \2368\203O \314\315!!\202d \316 !\211\317W\203_ \320H\202d \321 \322\323#)\207" [range expr a math-decls-cache math-decls-all math-setup-declarations nil (bigpos bigneg frac float) vec intv var 2 math-clean-set copy-sequence math-possible-signs 8 [(vec) (intv 2 (neg (var inf var-inf)) 0) (vec 0) (intv 3 (neg (var inf var-inf)) 0) (intv 1 0 (var inf var-inf)) (vec (intv 2 (neg (var inf var-inf)) 0) (intv 1 0 (var inf var-inf))) (intv 3 0 (var inf var-inf)) (intv 3 (neg (var inf var-inf)) (var inf var-inf))] math-reject-arg realp quiet] 5])
(defalias 'calcFunc-dscalar #[(a) "\301!\203 \302\207\303!\203 \304\207\305\306\307#\207" [a math-known-scalarp 1 math-known-matrixp 0 math-reject-arg objectp quiet] 4])
(defalias 'calcFunc-neg #[(a) "\301\302D!\207" [a math-normalize neg] 3])
(put 'calcFunc-neg 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'math-neg-fancy #[(a) "@\302=\203( \302A@\303\3048!\203 \305\3048\306\307!\"\202& \310\3048\306\307!\"E\207@\311=\203G \312A@!\2039 \207\311\305\3048A@\"\3048E\207@\313=\203Y \313\314A@!\3048E\207@\315=\203r \316\317A@H\314\3208!\314\3048!#\207 \203\200 \232\204\200 \321D\207@\322=\203\222 \305\314A@!\3048\"\207@\323=\203\242 \305\3048A@\"\207@\324>\203\275 \325A@!\203\275 @\314A@!\3048E\207@\326>\203\330 \325\3048!\203\330 @A@\314\3048!E\207@\327>\203\330A@!\204\372 A@@\331=\203\330A@A@!\203@\314A@!\3048E\207@\332=\2034\330\3048!\204(\3048@\331=\2034\330\3048A@!\2034@A@\314\3048!E\207@\333=\203E\3048\334>\203E\207@\321=\203PA@\207\321D\207" [a math-simplify-only polar math-posp 2 math-sub math-half-circle nil math-add mod math-zerop sdev math-neg intv math-make-intv [0 2 1 3] 3 neg + - (* /) math-okay-neg (* /) (* /) math-objectp * / var (var-uinf var-nan)] 6])
(defalias 'math-okay-neg #[(a) "\301!\206\n \242\302=\207" [a math-looks-negp -] 2])
(defalias 'math-neg-float #[(a) "\301A@\211:\203 @\302=\203 \303AB\202! \302AB\202! [)\3048E\207" [a float bigpos bigneg 2] 5])
(defalias 'calcFunc-add #[(&rest rest) "\203 @A\211\203 \302 @E\202 \303 !)\207\304\207" [rest a + math-normalize 0] 3])
(defalias 'calcFunc-sub #[(&rest rest) "\203 @A\211\203 \302 @E\202 \303 !)\207\304\207" [rest a - math-normalize 0] 3])
(defalias 'math-add-objects-fancy #[(a b) "\211:?\206\f @\306>)\203N \211:?\206 @\306>)\203N \307!\307 !\310\311\312 A@\nA@\"\312\313 8\313\n8\"E \314 \"\203I \315\f!\202J \f)!*\207\211:\205Y @\316=)\204l \211:\205h @\316=)\203r \317\312 #\207\242\320=\203\300 \242\320=\203\223 \321\312A@ A@\"\322\3138\313 8\"\"\207 \211:?\206\237 @\323>)\204\264 \211:?\206\257 @\324>)?\205\277 \321\312A@ \"\3138\"\207 \242\320=\203\363 \211:?\206\323 @\323>)\204\347 \211:?\206\343 @\324>)\204\363 \321\312 A@\"\313 8\"\207\242\325=\203\240 \242\325=\203f\326\327\330A@ A@\"\3138\331\232\203 \330A@\313\"\202 \332\313 8\333\232\203.\330 A@\313\"\202/\332\3348\335\232\203@\330A@\336\"\202A\332\334 8\337\232\203R\330 A@\336\"\202S\332%\312\3138\313 8\"\312\3348\334 8\"#\207 \211:?\206r@\340>)\204\216 @\341=\204\216 \211:?\206\211@\324>)?\205\237\326A@\312\3138 \"\312\3348 \"#\207 \242\325=\203\340\211:?\206\263@\340>)\204\316@\341=\204\316\211:?\206\312@\324>)\204\340\326 A@\312\313 8\"\312\334 8\"#\207\242\341=\203G \242\341=\203\367\312A@ A@\"\207 \242\342=\203,\343A@! \341\312
@\344\312\211
A@\313
8\"\312\345 A@\346\"\312\345\313 8\347\"\334 8\"\"\"\350\"\")D\207 \211:?\2068@\351>)\203E\341\312A@ \"D\207\352\207 \242\341=\203S\353 \"\207\242\354=\203y \242\354=\203y\3138\313 8\232\203y\355\312A@ A@\"\3138\"\207\242\354=\203\234 \211:?\206\214@\340>)\203\234\355\312A@ \"\3138\"\207 \242\354=\203\277\211:?\206\257@\340>)\203\277\355\312 A@\"\313 8\"\207\242\342=\204\315 \242\342=\203\250\211:?\206\331@\340>)\203\250 \211:?\206\351@\340>)\203\250\242\342=\204\370\356! \242\342=\204\356 !\310\357!\203\360\312\360!\360 !\"!\202\246\357 !\203\312\3348\334 8\" 4\312\3138\313 8\" 5\312A@ A@\" 6\3574!\203P\3124\347\"4\3125\361\"5\3575!\203e\3125\347\"5\3126\361\"6\3576!\203s\312 \"\202{\342654F+\202\246\312\3348\334 8\" 4\312\3138\313 8\" 5\312A@ A@\" 6\342654F+!\207\362\363 #\207" [a b bb aa res parts (bigpos bigneg frac float cplx polar) math-complex math-normalize cplx math-add 2 math-want-polar math-polar vec math-map-vec-2 sdev math-make-sdev math-hypot (bigpos bigneg frac float cplx polar hms) (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) intv math-make-intv logior logand (neg (var inf var-inf)) 0 (neg (var inf var-inf)) 3 (var inf var-inf) 1 (var inf var-inf) (bigpos bigneg frac float hms) date hms math-date-parts math-div math-mul 3600 60 86400 (bigpos bigneg frac float) nil math-add-objects-fancy mod math-make-mod math-to-hms math-negp math-neg -1 calc-record-why "*Incompatible arguments for +" s m h] 13])
(defalias 'math-add-symb-fancy #[(a b) "\203 \232\204 \306 \nE\206/\n\242\306=\203& \307\211 \nA@\"\310\n8\"\206/\n\242\311=\203; \312\307 \nA@\"\310\n8\"\206/\n\242\313=\203] \nA@\242\306=\203] \312\211 \nA@A@\"\310\nA@8\"\206/ \211:\205h @\314=)\203r \315\n!\204\207 \n\211:\205} @\314=)\203\217 \315 !\203\217 \316\307 \n#\206/\317 !\211\203I\317\n!\211 \203\366 \310 8\320>\204\257 \310\f8\321>\203\263 \322\202E\323 \"\323\n\f\" \211 -\211:?\206\312 @\324>)\205\362
\211:?\206\332 @\324>)\205\362 -
\325 \n\"\326U*\203\361 \202\362 \327*\202E \330\232\203 \n\242\331=\203 \nA@\332>\203 \310\n8\333\232\203 \331\334\310\n8 F\202E \335\232\203D\n\242\331=\203D\nA@\336>\203D\334\n8\337\232\203D\331\334 \334\n8F\202E )\202\316\317\n!\203a \242\331=\203]\307\n \"\202\316\n\202\316 \242\306=\203\202\340\310 8\n\341\211\342%\211 .\205~\307 A@.\")\202\316 \242\311=\203\243\340\310 8\n\342\341\342%\211 .\205\237\307 A@.\")\202\316 \211:?\206\257 @\324>)\203\307\n\211:?\206\277 @\324>)\203\307\341\202\316\340 \n\341\211\211%)\206/\n\211\211:\203 @\343=\206 @\344=?\205 @\345>\203 A@\211:\203 @\343=\202 \326W)\202\346 !\202 \326W)\2065 :\2055 @\313=\2065 @\347>\2055\350 A@!\2065\350\310 8!)\203B\311 \351\n!E\206/ \211\211:\203~ @\343=\206\201 @\344=?\205\201 @\345>\203x A@\211:\203q @\343=\202t \326W)\202\201\346 !\202\201 \326W)\206\245 :\205\245 @\313=\206\245 @\347>\205\245\350 A@!\206\245\350\310 8!)\203\262\311\n\351 !E\206/ \242\352=\203\374 G\310U\203\374\n\242\352=\203\333\nG\310U\203\333\352\307 A@\nA@\"D\206/\353\n!\203\355\307\354 A@\n\"\n\"\206/\315\n!\203\374\307 A@\n\"\206/\n\242\352=\203+\nG\310U\203+\353 !\203 \307 \354\nA@ \"\"\206/\315 !\203+\307 \nA@\"\206/\306 \nE\207" [math-simplify-only a b inf inf2 dir2 + math-add 2 - math-sub neg vec math-known-scalarp math-map-vec-2 math-infinitep (var-uinf var-nan) (var-uinf var-nan) (var nan var-nan) math-infinite-dir (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-compare 0 (var nan var-nan) (var inf var-inf) intv (2 3) (neg (var inf var-inf)) 3 (neg (var inf var-inf)) (1 3) (var inf var-inf) math-combine-sum nil t bigneg bigpos (frac float) math-negp (* /) math-looks-negp math-neg calcFunc-idn math-square-matrixp math-mimic-ident dir temp] 7])
(defalias 'calcFunc-mul #[(&rest rest) "\203 @A\211\203 \302 @E\202 \303 !)\207\304\207" [rest a * math-normalize 1] 3])
(defalias 'math-mul-objects-fancy #[(a b) "\211:?\206\f @\305>)\203x \211:?\206 @\305>)\203x \306\307 \"\203H \310!\310 !\311\312A@ A@\"\313\314\3158\315 8\"!E*\202v \316!\316 !\317\320\312A@ A@\"\312\3158\315 8\"\"\314\312A@\315 8\"\312\3158 A@\"\"E!\207\211:\205\203 @\321=)\203 \211:\205\222 @\321=)\203 \322!\203\341 \322 !\203\264 A@G GU\203\261 \323 \"\207\324 \207A@G\315U\203\317 G GU\203\314 \323\321 D\"\207\324 \207A@G GU\203\336 \325 \"\207\324 \207\322 !\203\373 G GU\203\370 \323\321D \"A@\207\324 \207G GU\203\326 \"\207\324 \207\327\312 #\207 \211:\205 @\321=)\203&\327\312 #\207\242\330=\203\201 \242\330=\203Q\331\312A@ A@\"\332\312\3158 A@\"\312\315 8A@\"\"\"\207 \211:?\206]@\333>)\204r \211:?\206m@\334>)?\205\200\331\312A@ \"\312\3158 \"\"\207 \242\330=\203\267\211:?\206\224@\333>)\204\250\211:?\206\244@\334>)\204\267\331\312 A@\"\312\315 8\"\"\207\242\335=\203* \211:?\206\312@\336>)\203* \211:\203@\337=\206 @\340=?\205 @\341>\203A@\211:\203\373@\337=\202\376\342W)\202 \343!\202 \342W)\203\344\312\344 !\"!\207\345A@\312\3158 \"\312\3468 \"#\207 \242\335=\203F\211:?\206=@\336>)\203F\312 \"\207\242\335=\203\347!\203 \242\335=\203\347 !\203\312\315 8\"\312\346 8\"\211\242\335=\204\207\335 A@\350>\203\202\346\202\203\342 \211F\n\242\335=\204\240\335 A@\351>\203\233\346\202\234\342\n\211F\352\315 8 A@\353>\204\264\354\315 8!\205\271 A@\355>\346 8 A@\356>\204\314\354\346 8!\205\321 A@\357>\315\n8 A@\360>\204\344\354\315\n8!\205\351\nA@\361>\346\n8 A@\362>\204\374\354\346\n8!\205\nA@\363>&*\207\242\364=\203+ \242\364=\203+\3158\315 8\232\203+\365\312A@ A@\"\3158\"\207\242\364=\203N \211:?\206>@\336>)\203N\365\312A@ \"\3158\"\207 \242\364=\203q\211:?\206a@\336>)\203q\365\312 A@\"\315 8\"\207\242\366=\203\232 \211:?\206\204@\367>)\203\232\306\f\315\\ \370\312\371\372\" \"\372\")!\207 \242\366=\203\266\211:?\206\255@\367>)\203\266\312 \"\207\373\374 #\207" [a b hi lo calc-internal-prec (bigpos bigneg frac float cplx polar) math-normalize math-want-polar math-polar polar math-mul math-fix-circular math-add 2 math-complex cplx math-sub vec math-matrixp math-mul-mats math-dimension-error math-mul-mat-vec math-dot-product math-map-vec-2 sdev math-make-sdev math-hypot (bigpos bigneg frac float cplx polar hms) (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) intv (bigpos bigneg frac float hms) bigneg bigpos (frac float) 0 math-negp math-neg math-make-intv 3 math-intv-constp (2 3) (1 3) math-combine-intervals (2 3) math-infinitep (2 3) (2 3) (1 3) (1 3) (2 3) (1 3) (1 3) mod math-make-mod hms (bigpos bigneg frac float) math-to-hms math-from-hms deg calc-record-why "*Incompatible arguments for *"] 12])
(defalias 'math-mul-float #[(a b) "\302\303A@ A@\"\3048\304 8\\\"\207" [a b math-make-float math-mul 2] 5])
(defalias 'math-sqr-float #[(a) "\301\302A@A@\"\3038\3038\\\"\207" [a math-make-float math-mul 2] 5])
(defalias 'math-intv-constp #[(a &optional finite) "\3028\211:?\206 @\303>)\204& \3028\304\232\205J \203& A@\305>\205J \3068\211:?\2064 @\303>)\206J \3068\307\232\205J ?\206J A@\310>\207" [a finite 2 (bigpos bigneg frac float hms) (neg (var inf var-inf)) (0 1) 3 (var inf var-inf) (0 2)] 3])
(defalias 'math-mul-zero #[(a b) "\305!\203 \306!\203 \307\310 #\207\311\312\"\207\313!\203 \314\207\315\211\242\316=\203\240 \3178\320\232\203> A@\321>\203> \3178\3228\323\232\203R A@\324>\203R \3228 \204Z \n\203\240 \325 !\204t \326 !\203\204 \f\327>\204t \330\331\211\203\204 \316\322 \206{ \312\n\206\200 \312F\202\261 \332 !\203\234 \333\316\322 \206\222 \312\n\206\227 \312F!\202\261 \334\202\261 \335 !\204\254 \335!\203\260 \336\202\261 \312*\207" [b a bb aa calc-infinite-mode math-known-matrixp math-vectorp math-map-vec-2 math-mul math-mimic-ident 0 math-infinitep (var nan var-nan) nil intv 2 (neg (var inf var-inf)) (2 3) 3 (var inf var-inf) (1 3) math-posp math-zerop (-1 1) (neg (var inf var-inf)) (var inf var-inf) math-negp math-neg (var nan var-nan) math-floatp (float 0 0)] 5])
(defalias 'math-mul-symb-fancy #[(a b) "\203 \232\204 \305 \nE\206! \306\211\n=\2064 :\2054 @\307=\2054 A@\n=\2054 \310 8\311U*\203< \n\206! \312\211\n=\206_ :\205_ @\307=\205_ A@\n=\205_ \310 8\311U*\203i \313\n!\206! \211:\205t @\314=)\203~ \315\n!\204\223 \n\211:\205\211 @\314=)\203\233 \315 !\203\233 \316\317 \n#\206!\n\211:?\206\247 @\320>)\203\302 \211:?\206\267 @\320>)\204\302 \317\n \"\206! \242\321=\203\324 \313\317 A@\n\"!\206!\n\242\321=\203\346 \313\317 \nA@\"!\206! \242\305=\203\373 \317 A@\317\310 8\n\"\"\206! \242\322=\203\364\310 8\211\211:\203@ @\323=\206C @\324=?\205C @\325>\203: A@\211:\2033 @\323=\2026 \311W)\202C\326 !\202C \311W)\206g :\205g @\321=\206g @\327>\205g\330 A@!\206g\330\310 8!)\203\364\n\242\322=\203\333\310\n8\211\211:\203\260 @\323=\206\263 @\324=?\205\263 @\325>\203\252 A@\211:\203\243 @\323=\202\246 \311W)\202\263\326 !\202\263 \311W)\206\327 :\205\327 @\321=\206\327 @\327>\205\327\330 A@!\206\327\330\310 8!)\204\364\315\n\331\"\203\364\332\n\333\322 A@\313\310 8!E!\"\206!\n\242\322=\203\356\310\n8\211\211:\2039 @\323=\206< @\324=?\205< @\325>\2033 A@\211:\203, @\323=\202/ \311W)\202<\326 !\202< \311W)\206` :\205` @\321=\206` @\327>\205`\330 A@!\206`\330\310 8!)\203\356 \242\322=\203\324\310 8\211\211:\203\251 @\323=\206\254 @\324=?\205\254 @\325>\203\243 A@\211:\203\234 @\323=\202\237 \311W)\202\254\326 !\202\254 \311W)\206\320 :\205\320 @\321=\206\320 @\327>\205\320\330 A@!\206\320\330\310 8!)\204\356\334\nA@!\204\356\332 \333\322\nA@\313\310\n8!E!\"\206! \242\335=\203)\315 \331\"\204\315\n\331\"\203)\336\310 8\n\331\337\331%\211\203\317 A@ \"\202%\332\317 A@\n\"\310 8\")\206!\n\242\335=\203>\332\317 \nA@\"\310\n8\"\206!\n\242\340=\203\212 \211:?\206Q @\341>)\203\212\nA@\211:?\206c @\341>)\204y\310\n8\211:?\206u @\341>)\203\212\342\317 \nA@\"\317 \310\n8\"\"\206!\n\242\343=\203\326 \211:?\206\235 @\341>)\203\326\nA@\211:?\206\257 @\341>)\204\305\310\n8\211:?\206\301 @\341>)\203\326\344\317 \nA@\"\317 \310\n8\"\"\206!\n\242\305=\203
\nA@\211:?\206\353 @\341>)\203
\211:?\206\373 @\341>)\204
\317\nA@\317 \310\n8\"\"\206! \242\345=\203V G\310U\203V\n\242\345=\2036\nG\310U\2036\345\317 A@\nA@\"D\206!\315\n!\203G\345\317 A@\n\"D\206!\334\n!\203V\317 A@\n\"\206!\n\242\345=\203\204\nG\310U\203\204\315 !\203u\345\317 \nA@\"D\206!\334 !\203\204\317 \nA@\"\206!\346 \331\"\203\322\n\242\345=\203\253\nG\310U\203\253\345\317 A@A@\nA@\" GSE\206!\315\n!\203\301\345\317 A@A@\n\" GSE\206!\334\n!\203\322\317 A@A@\n\"\206!\346\n\331\"\203 \242\345=\203\371 G\310U\203\371\345\317 A@\nA@A@\"\nGSE\206!\315 !\203\345\317 \nA@A@\"\nGSE\206!\334 !\203 \317 \nA@A@\"\206!\330\n!\2031\317\313 !\313\n!\"\206!\n\242\343=\203I\330 !\203I\317\313 !\313\n!\"\206!\n\242\305=\203h\336 \nA@\337\211\331%\211\205d\317 \310\n8\")\202o\336 \n\337\211\211%\206! \347\232\203| \206!\n\350\232\203\206\n\206! \351\232\203\220 \206!\n\352\232\203\232\n\206!\n\353\232\203\354 !\211 \355=\203\256\n\202\f\f\356=\203\270\357\202\f\f\306=\203\304\313\n!\202\f\f\360=\203\316\361\202\f @\362=\203\337\363 !\203\337\364\202\f @\365=\203\374\366 A@!\203\374\305\365\311\367\310 8!E\nE\202\f @\370=\205\f\305\370\306\310 8E\nE)\206! \371\232\203 \317\n \"\206!\305 \nE\207" [math-simplify-only a b temp s1 * 1 float 2 0 -1 math-neg vec math-known-scalarp math-map-vec-2 math-mul (bigpos bigneg frac float cplx polar hms date sdev intv mod) neg ^ bigneg bigpos (frac float) math-negp (* /) math-looks-negp t math-div math-normalize math-known-matrixp / math-combine-prod nil + (bigpos bigneg frac float cplx polar) math-add - math-sub calcFunc-idn math-identity-matrix-p (var nan var-nan) (var nan var-nan) (var uinf var-uinf) (var uinf var-uinf) (var inf var-inf) math-possible-signs 4 6 (intv 3 0 (var inf var-inf)) 3 (intv 3 (neg (var inf var-inf)) 0) intv math-intv-constp (intv 3 (neg (var inf var-inf)) (var inf var-inf)) cplx math-zerop calcFunc-sign polar (var inf var-inf)] 9])
(defalias 'calcFunc-div #[(a &rest rest) "\203 \302 @EA\211\204 \303 !\207" [rest a / math-normalize] 4])
(defalias 'math-div-objects-fancy #[(a b) "\211:?\206\f @\306>)\203\253 \211:?\206 @\306>)\203\253 \307\310 \"\203H \311!\311 !\312\313A@ A@\"\314\315\3168\316 8\"!E*\202\251 \211:?\206T @\317>)\203m \320!\321\313A@ \"\313\3168 \"E\202\251 \320!\320 !\313\321\322\323A@ A@\"\323\3168\316 8\"\"\315\323\3168 A@\"\323A@\316 8\"\"E\322\324 A@!\324\316 8!\"\"!\207\325 !\203S\326 !\203N G\211:\205\305 @\327=)\203\325!\203\376 G\nU\203\340 \330\331 ! #\202LA@G\nU\203\371 \332\330\331\332 !!\332! #!\202L\333 \202LG\nU\203\334\330\331 !\335! #\336\"\202L\333 \202L\336\211 =\206<:\205<@\337=\205<A@ =\205<\3168\340U*\203F\341 !\202L\323\341 !\")\207\342 \343\"\207\211:\205^@\327=)\203x \211:?\206n@\344>)\203x\345\313 #\207\242\346=\203\330 \242\346=\203\244\313A@ A@\"\347 \313\350\3168\323\316 8 \"\" A@\"\")\207 \211:?\206\260@\351>)\204\304 \211:?\206\300@\352>)\204\323\347\313A@ \"\313\3168 \"\"\207\342\353 \"\207 \242\346=\203\211:?\206\353@\351>)\204\377\211:?\206\373@\352>)\204\313 A@\"\347 \313\323\316 8 \" A@\"\")\207\242\354=\203\211 \211:?\206)@\355>)\203\211 \211:\203g@\356=\206j@\357=?\205j@\360>\203aA@\211:\203Z@\356=\202]\340W)\202j\361!\202j\340W)\203w\362\313\362 !\"!\207\363A@\313\3168 \"\313\3648 \"#\207 \242\354=\203
\211:?\206\234@\355>)\203
\316 8\211:\203\334@\357=\206\337@\356=?\205\337@\365>\203\326A@\211:\203\317@\357=\202\322\340V)\202\337\366!\202\337\340V)\204 \316 8\211:\203 @\367>?\205\f@\337=\203A@\340=\202\f\370!\202\f\340=)\203} A@\371>\204 \f\203}\211:\203V@\356=\206Y@\357=?\205Y@\360>\203PA@\211:\203I@\356=\202L\340W)\202Y\361!\202Y\340W)\203f\362\313\362! \"!\207\336 \363\372 A@H\313\364 8\"\313\316 8\"#)\207\364 8\211:\203\271@\356=\206\274@\357=?\205\274@\360>\203\263A@\211:\203\254@\356=\202\257\340W)\202\274\361!\202\274\340W)\204\371\364 8\211:\203\346@\367>?\205\351@\337=\203\340A@\340=\202\351\370!\202\351\340=)\203 A@\373>\204\371\f\203\362\313\362 !\"!\207\f\203\374\207\342 \375\"\207\242\354=\203*\376!\203* \242\354=\203*\376 !\203*\316 8\211:\203c@\357=\206f@\356=?\205f@\365>\203]A@\211:\203V@\357=\202Y\340V)\202f\366!\202f\340V)\204\243\316 8\211:\203\220@\367>?\205\223@\337=\203\212A@\340=\202\223\370!\202\223\340=)\203\226 A@\377>\204\243\f\203\226\336 \313\316 8\" \313\364 8\" @
\242\354=\204\317\354 A@\201B >\203\312\364\202\313\340
\211F@\242\354=\204\355\354 A@\201C >\203\346\364\202\347\340@\211F@\201D \316
8 A@\201E >\204\201F \316
8!\205\370\316 8!?\205
A@\201G >\364
8 A@\201H >\2047\201F \364
8!\205>\370\316 8!?\205>
A@\201I >\316@8 A@\201J >\204`\201F \316@8!\205h\370\364 8!?\205h@A@\201K >\364@8 A@\201L >\204\212\201F \364@8!\205\222\370\364 8!?\205\222@A@\201M >&+\207\364 8\211:\203\322@\356=\206\325@\357=?\205\325@\360>\203\314A@\211:\203\305@\356=\202\310\340W)\202\325\361!\202\325\340W)\204\364 8\211:\203\377@\367>?\205@\337=\203\371A@\340=\202\370!\202\340=)\203 A@\201N >\204\f\203 \362\313\362 !\"!\207\f\203%\201O \207\342 \375\"\207\242\201P =\203[ \242\201P =\203[\3168\316 8\232\203[\201Q \201R A@ A@\3168#\3168\"\207\242\201P =\203\207 \211:?\206p@\355>)\203\207\201Q \201R A@ \3168#\3168\"\207 \242\201P =\203\263\211:?\206\234@\355>)\203\263\201Q \201R A@\316 8#\316 8\"\207\242\201S =\203\374 \242\201S =\203\340\307AT A\313\201T \201U \"\201T \201U \"\")!\207\307A\316\\ A\201V \313\201T \201U \" \"\201U \")!\207\201W \201X #\207" [a b n1 x calc-infinite-mode lo (bigpos bigneg frac float cplx polar) math-normalize math-want-polar math-polar polar math-div math-fix-circular math-sub 2 (bigpos bigneg frac float) math-complex cplx math-add math-mul math-sqr math-matrixp math-square-matrixp vec math-lud-solve math-matrix-lud math-transpose math-dimension-error math-mat-col math-col-matrix 1 float 0 calcFunc-inv math-reject-arg square-matrixp (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-map-vec-2 sdev math-make-sdev math-hypot (bigpos bigneg frac float cplx polar hms) (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) realp intv (bigpos bigneg frac float hms) bigneg bigpos (frac float) math-negp math-neg math-make-intv 3 (frac float) math-posp (bigpos bigneg) math-zerop (0 1) [0 2 1 3] (0 2) (intv 3 (neg (var inf var-inf)) (var inf var-inf)) "*Division by zero" math-intv-constp (0 1) hi calc-internal-prec (2 3) (1 3) math-combine-intervals (2 3) math-infinitep (2 3) (2 3) (1 3) (1 3) (2 3) (1 3) (1 3) (0 2) (intv 3 (neg (var inf var-inf)) (var inf var-inf)) mod math-make-mod math-div-mod hms math-from-hms deg math-to-hms calc-record-why "*Incompatible arguments for /"] 12])
(defalias 'math-div-by-zero #[(a b) "\303!\203 \304\232\204 \305\232\204 \n\306>\203 \207\307\207\n\203I \310!\203( \311\207\n\312=\2033 \313\314\"\207\n\315=\203> \313\316\"\207\242\317=\203G \320\207\321\207\322\323\"\207" [a b calc-infinite-mode math-infinitep (var nan var-nan) (var uinf var-uinf) (-1 1) (var uinf var-uinf) math-zerop (var nan var-nan) 1 math-mul (var inf var-inf) -1 (neg (var inf var-inf)) intv (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var uinf var-uinf) math-reject-arg "*Division by zero"] 3])
(defalias 'math-div-zero #[(a b) "\303!\203 \304!\203 \305\306 #\207\307\310\"\207\311\232\203 \207\242\312=\203o \313!\203o \314!\204o \315!\204o \n\203j \312\316\317\3208!\203R \n\321>\203R \3208\202S \322\317\3168!\203g \n\323>\203g \3168\202h \324F\207\325\326\"\207 \207" [b a calc-infinite-mode math-known-matrixp math-vectorp math-map-vec-2 math-div math-mimic-ident 0 (var nan var-nan) intv math-intv-constp math-posp math-negp 3 math-zerop 2 (1 -1) (neg (var inf var-inf)) (1 -1) (var inf var-inf) math-reject-arg "*Division by zero"] 6])
(defvar math-trig-inverses '((calcFunc-sin . calcFunc-csc) (calcFunc-cos . calcFunc-sec) (calcFunc-tan . calcFunc-cot) (calcFunc-sec . calcFunc-cos) (calcFunc-csc . calcFunc-sin) (calcFunc-cot . calcFunc-tan) (calcFunc-sinh . calcFunc-csch) (calcFunc-cosh . calcFunc-sech) (calcFunc-tanh . calcFunc-coth) (calcFunc-sech . calcFunc-cosh) (calcFunc-csch . calcFunc-sinh) (calcFunc-coth . calcFunc-tanh)))
(defalias 'math-div-new-trig #[(tr) "\203 \302 E\211\207 \211\207" [math-div-trig tr *] 3])
(defalias 'math-div-new-non-trig #[(ntr) "\203 \302 E\211\207 \211\207" [math-div-non-trig ntr *] 3])
(defalias 'math-div-isolate-trig #[(expr) "\242\301=\203 \302A@!\210\303\3048!\207\302!\207" [expr * math-div-isolate-trig-term math-div-isolate-trig 2] 3])
(defalias 'math-div-isolate-trig-term #[(term) "\303\242 \"\211\203 \304\nAAB!\202 \305!)\207" [term math-trig-inverses fn assoc math-div-new-trig math-div-new-non-trig] 4])
(defalias 'math-div-symb-fancy #[(a b) "\306!\203 \307 \310\311\"\"\206`\n\203! \n\232\204! \312 E\206`\313\211=\206D :\205D @\314=\205D A@=\205D \315 8\316U*\203L \206`\311\211=\206o :\205o @\314=\205o A@=\205o \315 8\316U*\203y \317 !\206` \211:\205\204 @\320=)\203\226 \321!\203\226 \322\323 #\206`\242\324=\203?\3158\211\211:\203\333 @\325=\206\336 @\326=?\205\336 @\327>\203\325 A@\211:\203\316 @\325=\202\321 \316W)\202\336 \330 !\202\336 \316W)\206 :\205 @\331=\206 @\332>\205\333 A@!\206\333\315 8!)\204- \313\211=\206) :\205) @\314=\205) A@=\205)\315 8\316U*\203?\307 \334\324A@\317\3158!E!\"\206` \242\331=\203Q\317\323 A@\"!\206`\242\331=\203c\317\323 A@\"!\206` \242\312=\203x\323 A@\307\315 8\"\"\206`\242\312=\203\237\321A@\335\"\204\221\321\3158\335\"\203\237\323\307 \3158\"A@\"\206`\242\336=\203\264\307\337\3158A@\" \"\206` \242\340=\203 A@\211:?\206\311 @\341>)\204\337\315 8\211:?\206\333 @\341>)\203 \211:?\206\353 @\341>)\203 \342\323 A@\"\323\315 8\"\"\206` \242\343=\203L A@\211:?\206 @\341>)\204+\315 8\211:?\206' @\341>)\203L\211:?\2067 @\341>)\203L\344\323 A@\"\323\315 8\"\"\206` \242\343=\204Y\333 !\203j\333!\203j\323\317 !\317!\"\206`\242\343=\203\202\333 !\203\202\323\317 !\317!\"\206` \242\345=\203\313 G\315U\203\313\242\345=\203\253G\315U\203\253\345\323 A@A@\"D\206`\321!\203\274\345\323 A@\"D\206`\306!\203\313\323 A@\"\206`\242\345=\203\371G\315U\203\371\321 !\203\352\345\323 A@\"D\206`\306 !\203\371\323 A@\"\206` \203 \346\211 \347!\210
\205\f\203\323\307
\"\f\"\202\307
\"*\206`9\203:\306 !\2040\306!\203:\350 \346\335\346%\202\253 \242\351=\203\203\242\351=\203i\350 A@A@\346\335\211%\211 :\205e\323\307:\315 8\"\3158\")\202\253\350 A@\346\335\211%\211 :\205\307:\315 8\")\202\253\242\351=\203\244\350 A@\346\335\211%\211 :\205\240\323:\3158\")\202\253\350 \346\335\346%\206`\352 !\203A\352!\203\274\353\207 \354\232\204\310 \355\232\203\314 \202> \356\232\203A\357!\204\347\242\360=\203\373\361\3158!\203\373\242\360=\203\367\362\335\"\204\367\363\207 \202>\330!\204\242\360=\203&\361\3648!\203&\242\360=\203 \362\335\"\204 \365\207\317 !\202>\242\360=\203A\330\3158!\203A\357\3648!\203A\366\206`\352!\203\\\367\232\203Q\202Y\313 ;\370 \")\206`\312 E\207" [b a math-simplify-only math-simplifying math-div-non-trig math-div-trig math-known-matrixp math-mul math-pow -1 / 1 float 2 0 math-neg vec math-known-scalarp math-map-vec-2 math-div ^ bigneg bigpos (frac float) math-negp neg (* /) math-looks-negp math-normalize t frac math-make-frac + (bigpos bigneg frac float cplx polar) math-add - math-sub calcFunc-idn nil math-div-isolate-trig math-combine-prod * math-infinitep (var nan var-nan) (var nan var-nan) (var uinf var-uinf) (var inf var-inf) math-posp intv math-zerop math-intv-constp (intv 3 0 (var inf var-inf)) 3 (intv 3 (neg (var inf var-inf)) 0) (intv 3 (neg (var inf var-inf)) (var inf var-inf)) (var nan var-nan) math-mul-zero calc-matrix-mode c calc-infinite-mode] 9])
(defalias 'calcFunc-ldiv #[(a b) "\302!\203 \303 \"\207\304\305\306\" \"\207" [a b math-known-scalarp math-div math-mul math-pow -1] 4])
(defalias 'calcFunc-mod #[(a b) "\302\303 E!\207" [a b math-normalize %] 4])
(defalias 'math-mod-fancy #[(a b) "\302\232\2034 \303 !\204 \304 !\203 \207\305 !\203 \207 \242\306=\203/ \305\307 8!\203- \310\207 \207\311 E\207 \242\312=\203X \211:?\206G @\313>)\203X \303!\203X \314 A@\"\207 \242\306=\203q \315 \316\"\203q \303!\203q \317 \"\207 \211:?\206} @\320>)\203\211 \321\322\"\210\202\216 \321\322 \"\210\311 E\207" [b a (var inf var-inf) math-posp math-zerop math-negp intv 2 (intv 3 0 (var inf var-inf)) % mod (bigpos bigneg frac float) math-make-mod math-intv-constp t math-mod-intv (bigpos bigneg frac float hms) calc-record-why anglep] 4])
(defalias 'calcFunc-pow #[(a b) "\302\303 E!\207" [a b math-normalize ^] 4])
#@55 Raise A to the power of B, where A is a form of zero.
(defalias 'math-pow-of-zero #[(a b) "\303!\203\n \304 !\305=\203 \306\207\211:\2036 @\307>?\2059 @\310=\2030 A@\305=\2029 \311 !\2029 \305=)\203K \n\203C \312\207\313\314 E\315\"\207\316!\203S \207\317!\203^ \320\306 \"\207\321!\203f \322\207@\323=\203\203 \n\203\203 \324\3258!\203\203 \326\3278!\203\203 \330\207\314 E\207" [b a calc-infinite-mode math-floatp math-float 0 1 (bigpos bigneg) float math-zerop (var nan var-nan) math-reject-arg ^ "*Indeterminate form" math-known-posp math-known-negp math-div math-infinitep (var nan var-nan) intv math-negp 2 math-posp 3 (intv 3 (neg (var inf var-inf)) (var inf var-inf))] 5 (#$ . 50232)])
(defalias 'math-pow-zero #[(a b) "\242\302=\203 \303\304\3058\"\207\306!\203 \307\304\"\207\310!\203! \311\207@\312=\203C \313!\203C \314!\204: \315!\203A \313\316\"\204C \317\207\320!\204O \320 !\203Q \321\207\304\207" [a b mod math-make-mod 1 2 math-known-matrixp math-mimic-ident math-infinitep (var nan var-nan) intv math-intv-constp math-posp math-negp t (intv 3 (neg (var inf var-inf)) (var inf var-inf)) math-floatp (float 1 0)] 4])
(defalias 'math-pow-fancy #[(a b) "\211:?\206\f @\306>)\203\266 \211:?\206 @\306>)\203\266 \307 !\310>\203S \311\312 !\2035 \313!\2026 !\211\211:?\206D @\306>)\205O \314\n\315\316 \"\")\202{ @\317=\203~ \316 8\250\203~ \316 8\320X\203~ \321\316 8\"\211\205z \322 A@\")\206o\n\320=\204\212 \323\232\203\227 \324 !\203\227 \325\326 \"\206o\n\f\203\242 \327 E\206o\n\330
\316\\ \331\313\315 \332\313!!\"!!)!\207\211:?\206\302 @\333>)\203\326 \211:?\206\322 @\334>)\204\335 @A\203\354 A\232\204\354 \327 E\202\377\242\336=\203M\337A@!\203\337\3168!\204 B\203MB\340=\204M\341A@!\204M\341\3168!\204M \342U\203F\343A@!\203F\343\3168!\203F\315\344\3168\342\"\344A@\342\"\"\202\377\327 E\202\377\242\336=\203{\345 !\204j\346A@!\204j\346\3168!\203{\315\314A@ \"\314\3168 \"\"\202\377\242\347=\203\241\345 !\204\220\346\3168!\203\241\350\314A@ \"\314\3168 \"\"\202\377\242\347=\203\315\346A@!\203\315\351A@\352\"\204\315\315\314A@ \"\314\350\352\3168\" \"\"\202\377\242\327=\203\360\345 !\204\342\346A@!\203\360\314A@\315\3168 \"\"\202\377\242\353=\203\345 !\204\346A@!\203\314A@\350 \316\"\"\202\377\242\327=\203@\354\3168!\203@\307 !\355>\203@\356A@!\203@\357\314A@\315\3168 \"\"!\202\377\360!\203t\361 !\203t\354 !\203[\314\362! \"\206i\363 !\205i\362\314\362! \"!\211@\203t@\202\377\242\364=\203\222\356A@!\203\222\354 !\203\222\314A@ \"\202\377\365!\203\353\366\232\203\242\202\377@\367=\203\270\315\314\342 \"\314A@ \"\"\202\377\370 !\203\302\202\377\371 !\203\326\312 !\203\322\372\202\377\373\202\377 \242\374=\203\347\375 !\203\347\376\202\377\377\202\377\365 !\203\263\335 C\371 !\203\314\350\352\"\362 !\"\202\257\370 !\204\201I \202\257\351\201J !\211C\352\"\203&\201K \202\257C\352\201L \"\342U*\203G\312!\203C\201M \202\257\373\202\257\352\201L \"\342U*\203[ \202\257\342\201L \"\342U*\203q\201N \202\257@\374=\203\253\375!\203\253\342\201L \"\342U*\203\245\351\201O 8\352\"\203\237\201P \202\257\201Q \202\257\201R \202\257\327 E)\202\377\242\201S =\203\326G\316U\203\326\345 !\203\326\201S \314A@ \"D\202\377\211:?\206\342@\334>)\203\362\201T \201U \"\210\202\373\201T \201U \"\210\327 E)\207\242\201V =\203\226 \242\201V =\203\226\201W !\203c\201W !\203c\330
\316\\ \332\313A@!! D\331\313\315 A@D\"!! E\201X E\315E\201Y \315\3168\350 A@A@\"\"\315\316 8D\"\"\"\"+!\207\314A@ A@\" E\201X E\315E\201Y \315\3168\350 A@A@\"\"\315\316 8\201Z A@!\"\"\"\")\207\242\201V =\203\377 \211:?\206\253@\306>)\203\377\201W !\203\341\330
\316\\ \314A@\201[ \352\"\" E\201X \315EA@\"\315E\315\3168 \"\"\"*!\207\201X \314A@ \"\315\314A@\201\\ \342\"\"\315\3168 \"\"\"\207 \242\201V =\203E\211:?\206@\306>)\203E\330
\316\\ \332\313!! D\201] \315 A@D\"! E\201X E\315E\315\316 8D\"\"\"+!\207\242\374=\203 \375!\203 \211:?\206`@\201^ >)\203 \211:\203t@\201_ =\202w\373Y)\204\351\3168\211:\203\277@\201_ =\206\302@\201` =?\205\302@\201a >\203\271A@\211:\203\262@\201_ =\202\265\373V)\202\302\370!\202\302\373V)\204\351\201b \3168!\2030 \211:\203@\201_ =\206@\201` =?\205@\201a >\203\fA@\211:\203@\201_ =\202\373V)\202\370!\202\373V)\204\351 \211:?\206'@\201c >)\2030F\204\351\201O 8\211:\203v@\201` =\206y@\201_ =?\205y@\201d >\203pA@\211:\203i@\201` =\202l\373W)\202y\371!\202y\373W)\204\351\201b \201O 8!\203 \211:\203\313@\201_ =\206\316@\201` =?\205\316@\201a >\203\305A@\211:\203\276@\201_ =\202\301\373V)\202\316\370!\202\316\373V)\204\351 \211:?\206\340@\201c >)\203 F\203 \201e !\203\365\357!\201b \201O 8!\203\342\202\352 F\201f A@\314\3168 \"\314\201O 8 \"#)\207 \242\374=\203\235\375 !\203\235\211:?\206:@\201^ >)\203\235\211:\203\200@\201_ =\206\203@\201` =?\205\203@\201a >\203zA@\211:\203s@\201_ =\202v\373V)\202\203\370!\202\203\373V)\203\235\201f A@\314\316 8\"\314\201O 8\"#\207\242\374=\203\301 \375!\203\301 \242\374=\203\301 \375 !\203\301 \3168\211:\203\373@\201` =\206\376@\201_ =?\205\376@\201d >\203\365A@\211:\203\356@\201` =\202\361\373W)\202\376\371!\202\376\373W)\204M\316 8\211:\203F@\201` =\206I@\201_ =?\205I@\201d >\203@A@\211:\2039@\201` =\202<\373W)\202I\371!\202I\373W)\203\345\3168\211:\203\221@\201_ =\206\224@\201` =?\205\224@\201a >\203\213A@\211:\203\204@\201_ =\202\207\373V)\202\224\370!\202\224\373V)\203\301 \201O 8\211:\203\336@\201_ =\206\341@\201` =?\205\341@\201a >\203\330A@\211:\203\321@\201_ =\202\324\373V)\202\341\370!\202\341\373V)\204\301 \314\316 8\"\314\201O 8\" G\211 H\242\374=\204 \374 A@\201g >\203 \201O \202 \373H\211FHG\242\374=\2046 \374 A@\201h >\203/ \201O \2020 \373G\211FG\201i \316H8 A@\201j >\204P \365\316H8!\205X HA@\201k >\201O H8 A@\201l >\204s \365\201O H8!\205{ HA@\201m >\316G8 A@\201n >\204\222 \365\316G8!\205\232 GA@\201o >\201O G8 A@\201p >\204\265 \365\201O G8!\205\275 GA@\201q >&*\207\242\201r =\203\362 \242\201r =\203\362 \3168\316 8\232\203\362 \201s \201t A@ A@\3168#\3168\"\207\242\201r =\203 \n \211:?\206 \n@\201u >)\203 \n\201s \201t A@ \3168#\3168\"\207 \242\201r =\203N\n\211:?\2067\n@\201u >)\203N\n\201s \201t A@\316 8#\316 8\"\207\211:?\206Z\n@\306>)\204g\n\201v \201w \"\207\201v \201w \"\207" [a b sqrt root calc-symbolic-mode calc-internal-prec (bigpos bigneg frac float cplx polar) math-quarter-integer (1 2 3) math-sqrt math-floatp math-float math-pow math-mul 2 frac 10 math-nth-root math-ipow (float 1 1) math-num-integerp calcFunc-scf (float 1 0) ^ math-normalize math-exp-raw math-ln-raw (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) (bigpos bigneg frac float cplx polar hms date sdev intv mod) nil * math-known-matrixp scalar math-known-scalarp -1 math-known-square-matrixp math-pow-fancy math-known-num-integerp math-known-nonnegp / math-div math-equal-int 1 calcFunc-sqrt math-known-evenp (1 2 3) math-known-realp math-abs math-looks-negp math-known-integerp math-neg math-known-oddp calcFunc-abs math-infinitep (var nan var-nan) neg math-posp math-negp (float 0 0) 0 intv math-intv-constp (intv 3 0 (var inf var-inf)) (var nan var-nan) temp math-simplify-only calc-matrix-mode scale ln pow calc-infinite-mode hi lo (var nan var-nan) calcFunc-abssqr (var nan var-nan) math-compare (float 0 0) (var uinf var-uinf) 3 (intv 3 0 1) (intv 3 0 (var inf var-inf)) (intv 3 (neg (var inf var-inf)) (var inf var-inf)) calcFunc-idn calc-record-why objectp sdev math-constp math-make-sdev math-hypot calcFunc-ln math-sub math-add calcFunc-exp (bigpos bigneg frac float) bigpos bigneg (frac float) math-zerop (bigpos bigneg) (frac float) math-evenp math-sort-intv (2 3) (1 3) math-combine-intervals (2 3) (2 3) (2 3) (1 3) (1 3) (2 3) (1 3) (1 3) mod math-make-mod math-pow-mod (bigpos bigneg frac float hms) math-reject-arg numberp] 12])
(defalias 'math-quarter-integer #[(x) "\211:?\206\f @\302>)\203 \303\207\304!\203& \305\306!!\211\205\256 \307Z\207@\310=\203R \3118\311=\2037 \311\207\3118\307=\205\256 A@\211:\203N A@\202O \307\246\207@\312=\205\256 \3118\303Y\203c \303\207\3118\313U\203\204 A@\211:\203z A@\202{ \314\246\315U\205\256 \311\207\3118\316U\205\256 A@\211:\203\233 A@\202\234 \317\246\211\320U\203\247 \321\207\322U\205\256 \323\207" [x a (bigpos bigneg) 0 math-negp math-quarter-integer math-neg 4 frac 2 float -1 10 5 -2 100 25 1 75 3] 4])
(defalias 'math-pow-mod #[(a b m) "\211:?\206\f @\303>)\203\247 \211:?\206 @\303>)\203\247 \n\211:?\206, @\303>)\203\247 \211:\203j @\304=\206m @\305=?\205m @\306>\203d A@\211:\203] @\304=\202` \307W)\202m \310!\202m \307W)\203\231 \311\312\313 \211:\203\221 @\305=\203\212 \304AB\202\223 \305AB\202\223 [)\n#\n#\207\n\312=\203\241 \307\207\314 \n#\207\315\316 \"\n\"\207" [a b m (bigpos bigneg) bigneg bigpos (frac float) 0 math-negp math-div-mod 1 math-pow-mod math-pow-mod-step math-mod math-pow] 7])
(defalias 'math-pow-mod-step #[(a n m) "\306=\203 \307\310 \"\210\n\311=\203 \312\202? \n\312=\203 \202? \313\314\315 \211\" \"\316\n! # \317\n!\2037 \f\202> \320\315 \f\" \") \306=\203K \307\310
\"\210
)\207" [calc-display-working-message a n m rest val lots math-do-working "pow" 0 1 math-pow-mod-step math-imod math-mul math-div2 math-evenp math-mod] 5])
(defalias 'math-min #[(a b) ":\203\250 @\306=\203\250 :\203\237 @\306=\203\237 \3078A@\310>\3118A@\312>\313 \314\307 8\"\211\315U\203K \307 8 A@\316>\202[ \n\317U\203[
\206Z A@\320>\314\311 8\f\"\211\315U\203u \311 8 A@\321>\202\205 \n\317U\203\205 \206\204 A@\322>\323
\203\216 \307\202\217 \317 \203\227 \324\202\230 \317\\\f#-\207\325\306\311 \211F\"\207 :\203\275 @\306=\203\275 \325\306\311\211F \"\207\314 \"\211\324U\203\314 \202\327 \n\307U\203\326 \326\202\327 )\207" [a b res him hi lom intv 2 (2 3) 3 (1 3) nil math-compare -1 (2 3) 0 (2 3) (1 3) (1 3) math-make-intv 1 math-min (var nan var-nan) lo] 7])
(defalias 'calcFunc-min #[(&optional a &rest b) "\204 \302\207\211:?\206 @\303>)\2045 @\304=\2045 @\305=\203* \306!\2045 \307!\2045 \310\311\"\210\312 \"\207" [a b (var inf var-inf) (bigpos bigneg frac float hms) date intv math-intv-constp math-infinitep math-reject-arg anglep math-min-list] 4])
(defalias 'math-min-list #[(a b) "\203B @\211:?\206 @\302>)\2042 @\303=\2042 @@\304=\203+ \305@!\2042 \306@!\203< \307\310 @\"A\"\207\311@\312\"\207 \207" [b a (bigpos bigneg frac float hms) date intv math-intv-constp math-infinitep math-min-list math-min math-reject-arg anglep] 5])
(defalias 'math-max #[(a b) ":\203\f @\303=\204 :\203# @\303=\203# \304\305\304!\304 !\"!\207\306 \"\211\307U\2032 \202= \n\310U\203< \311\202= )\207" [a b res intv math-neg math-min math-compare -1 2 (var nan var-nan)] 6])
(defalias 'calcFunc-max #[(&optional a &rest b) "\204 \302\207\211:?\206 @\303>)\2045 @\304=\2045 @\305=\203* \306!\2045 \307!\2045 \310\311\"\210\312 \"\207" [a b (neg (var inf var-inf)) (bigpos bigneg frac float hms) date intv math-intv-constp math-infinitep math-reject-arg anglep math-max-list] 4])
(defalias 'math-max-list #[(a b) "\203B @\211:?\206 @\302>)\2042 @\303=\2042 @@\304=\203+ \305@!\2042 \306@!\203< \307\310 @\"A\"\207\311@\312\"\207 \207" [b a (bigpos bigneg frac float hms) date intv math-intv-constp math-infinitep math-max-list math-max math-reject-arg anglep] 5])
(defalias 'math-abs #[(a) "\211:\203: @\305=\206= @\306=?\205= @\307>\2034 A@\211:\203- @\305=\2020 \310W)\202= \311!\202= \310W)\203E \312!\207\211:?\206Q @\313>)\203W \207@\314=\203g \315A@\3168\"\207@\317=\203r A@\207@\320=\203\242 AAA\203\206 \321\322!!\207AA\203\225 \315A@\3168\"\207A\203\240 \323A@!\207\207@\324=\203\264 \324\323A@!\3168E\207@\325=\203Z\326!\203Z\211:\203\373 @\306=\206\376 @\305=?\205\376 @\327>\203\365 A@\211:\203\356 @\306=\202\361 \310V)\202\376 \330!\202\376 \310V)\203\207\312\3168!\331 \3328\"\211\333U\203+\334A@\335>\203$\316\202%\332\310 #\202X\n\310U\203E\334A@\310=\203>\316\202?\332\310 #\202X\334A@\336>\203R\316\202S\332\310\3328#*\207\337!\203f\340\312!D\207\341!\211\342>\203t\206} \343>\205}\312!)\206\240\344!\211 \205\224\f\345\232\203\223\f\202\224\346)\206\240\347\350\"\210\340D\207" [a nlo res signs inf bigneg bigpos (frac float) 0 math-negp math-neg (bigpos bigneg frac float hms) cplx math-hypot 2 polar vec math-sqrt calcFunc-abssqr math-abs sdev intv math-intv-constp (frac float) math-posp math-compare 3 1 math-make-intv (0 1) (0 2) math-looks-negp calcFunc-abs math-possible-signs (2 4 6) (1 3) math-infinitep (var nan var-nan) (var inf var-inf) calc-record-why numvecp] 6])
(defalias 'calcFunc-abs 'math-abs)
(defalias 'math-float-fancy #[(a) "@\302=\203 @A@\303\304AA\"BB\207@\305>\2032 \306A@!\2032 @\304A@!\307\3108DE\207@\311=\203b A@@\312=\203b \306A@A@!\203b \312\304A@A@!\307\311\310A@8\3108EDE\207\313!\203j \207@\307=\203s \207@\314\236\211\205\201 AAB)\206\211 \315\316\"\207" [a func intv mapcar math-float (* /) math-numberp calcFunc-float 2 / * math-infinitep ((calcFunc-floor . calcFunc-ffloor) (calcFunc-ceil . calcFunc-fceil) (calcFunc-trunc . calcFunc-ftrunc) (calcFunc-round . calcFunc-fround) (calcFunc-rounde . calcFunc-frounde) (calcFunc-roundu . calcFunc-froundu)) math-reject-arg objectp] 8])
(defalias 'calcFunc-float 'math-float)
(defalias 'math-trunc-fancy #[(a) "@\301=\203 \302A@\3038\"\207@\304=\203 \305A@!\207@\306=\203* \305\307!!\207@\310=\2039 \310A@\311\211F\207@\312=\203H \312\305A@!D\207@\313=\203o \314\3038!\203d \305\315A@\305\3038!\"!\207\315\305A@!\3038\"\207@\316=\203\234\317\3038\320\232\203\213 A@\321>\203\213 \311\202\214 \303\3228\323\232\203\240 A@\324>\203\240 \311\202\241 \325\\\3038\211:\203\336 @\326=\206\341 @\327=?\205\341 @\330>\203\330 A@\211:\203\321 @\326=\202\324 \311W)\202\341 \331!\202\341 \311W)\203\3038\211:?\206@\332>\206@\333=\205\3038\311Y)\203A@\334>\203\335\305\3038!\325\"\202 \305\3038!\3228\211:\203Z@\327=\206]@\326=?\205]@\336>\203TA@\211:\203M@\327=\202P\311V)\202]\337!\202]\311V)\203\225\3228\211:?\206~@\332>\206~@\333=\205~\3038\311Y)\203\225A@\340>\203\225\335\305\3228!\341\"\202\232\305\3228!#\207\342!\203\244\207\211:\205\257@\343=)\203\270\344\345\"\207\346!\203\316\337!\204\312\331!\203\314\207\347\207\350!\206\330\351\352\"\207" [a frac math-quotient 2 cplx math-trunc polar math-complex hms 0 date mod math-messy-integerp math-make-mod intv math-make-intv (neg (var inf var-inf)) (0 1) 3 (var inf var-inf) (0 2) 1 bigneg bigpos (frac float) math-negp (bigpos bigneg) float (0 1) math-add (frac float) math-posp (0 2) -1 math-provably-integerp vec math-map-vec #[(x) "\302 \"\207" [x math-trunc-prec math-trunc] 3] math-infinitep (var nan var-nan) math-to-integer math-reject-arg numberp] 8])
(defalias 'math-trunc-special #[(a prec) "\211:\205 @\303=\205 \304 8\305Y)\203 \306!\250\204% \307\310\"\210\305X\2033 \311 !\2033 \207\312\306\313\312 \")![\"\207" [prec a calc-prefer-frac float 2 0 math-trunc math-reject-arg fixnump math-provably-integerp calcFunc-scf t] 6])
(defalias 'math-to-integer #[(a) "\242\302\236\211\205 G\303U\205 AAB)\207" [a func ((calcFunc-ffloor . calcFunc-floor) (calcFunc-fceil . calcFunc-ceil) (calcFunc-ftrunc . calcFunc-trunc) (calcFunc-fround . calcFunc-round) (calcFunc-frounde . calcFunc-rounde) (calcFunc-froundu . calcFunc-roundu)) 2] 3])
(defalias 'calcFunc-ftrunc #[(a &optional prec) "\211:\205 @\302=\205 \3038\304Y)\203( \203& \250\203( \304X\203( \207\305\306 \"!\207" [a prec float 2 0 math-float math-trunc] 5])
(defalias 'math-floor-fancy #[(a) "\301!\203 \207@\302=\2030 \303!\204% \304\3058!\203) \304\3068!\203) \307!\207\310\307!\311\"\207@\312=\203? \312\313A@!D\207@\314=\203\262 \315\3058\316\232\203[ A@\317>\203[ \320\202\\ \305\3068\321\232\203p A@\322>\203p \320\202q \323\\\313\3058!\3068\211:?\206\224 @\324>\206\224 @\325=\205\224 \3058\320Y)\203\253 A@\326>\203\253 \310\313\3068!\311\"\202\260 \313\3068!#\207\211:\205\275 @\327=)\203\306 \330\331\"\207\332!\203\334 \303!\204\330 \333!\203\332 \207\334\207\335!\206\346 \336\337\"\207" [a math-provably-integerp hms math-posp math-zerop 2 3 math-trunc math-add -1 date math-floor intv math-make-intv (neg (var inf var-inf)) (0 1) 0 (var inf var-inf) (0 2) 1 (bigpos bigneg) float (0 2) vec math-map-vec #[(x) "\302 \"\207" [x math-floor-prec math-floor] 3] math-infinitep math-negp (var nan var-nan) math-to-integer math-reject-arg anglep] 8])
(defalias 'math-floor-special #[(a prec) "\211:\205 @\303=\205 \304 8\305Y)\203 \306!\250\204% \307\310\"\210\305X\2033 \311 !\2033 \207\312\313\314\312 \")![\"\207" [prec a calc-prefer-frac float 2 0 math-trunc math-reject-arg fixnump math-provably-integerp calcFunc-scf math-floor t] 6])
(defalias 'calcFunc-ffloor #[(a &optional prec) "\211:\205 @\302=\205 \3038\304Y)\203( \203& \250\203( \304X\203( \207\305\306 \"!\207" [a prec float 2 0 math-float math-floor] 5])
(defalias 'math-ceiling #[(a &optional prec) "\203E \211:\205 @\303=\205 \304 8\305Y)\203 \306!\250\204) \307\310\"\210\305X\2037 \311 !\2037 \207\312\313\314\312 \")![\"\207 \211:?\206Q @\315>)\203W \207 \211:\205j @\303=\205j \304 8\305Y)\203r \306 !\207 \211:?\206~ @\316>)\203\316 \211:\203\274 @\317=\206\277 @\320=?\205\277 @\321>\203\266 A@\211:\203\257 @\317=\202\262 \305V)\202\277 \322 !\202\277 \305V)\203\312 \323\306 !\324\"\207\306 !\207\311 !\203\326 \207 @\325=\203\376 \326 !\204\363 \327\304 8!\203\367 \327\330 8!\203\367 \306 !\207\323\306 !\324\"\207 @\331=\203
\331\313 A@!D\207 @\332=\203\200\333\304 8\334\232\203) A@\335>\203)\305\202*\304\330 8\336\232\203> A@\337>\203>\305\202?\324\\\304 8\211:?\206] @\340>\206] @\303=\205]\304 8\305Y)\203t A@\341>\203t\323\342\304 8!\324\"\202y\313\304 8!\313\330 8!#\207 \211:\205\213 @\343=)\203\224\344\345 \"\207\346 !\203\252\322 !\204\246\326 !\203\250 \207\347\207\350 !\206\264\307 \351\"\207" [prec a calc-prefer-frac float 2 0 math-trunc math-reject-arg fixnump math-provably-integerp calcFunc-scf math-ceiling t (bigpos bigneg) (bigpos bigneg frac float) bigpos bigneg (frac float) math-posp math-add 1 hms math-negp math-zerop 3 date intv math-make-intv (neg (var inf var-inf)) (0 1) (var inf var-inf) (0 2) (bigpos bigneg) (0 1) math-floor vec math-map-vec #[(x) "\302 \"\207" [x prec math-ceiling] 3] math-infinitep (var nan var-nan) math-to-integer anglep] 7])
(defalias 'calcFunc-ceil 'math-ceiling)
(defalias 'calcFunc-fceil #[(a &optional prec) "\211:\205 @\302=\205 \3038\304Y)\203( \203& \250\203( \304X\203( \207\305\306 \"!\207" [a prec float 2 0 math-float math-ceiling] 5])
(defvar math-rounding-mode nil)
(defalias 'math-round #[(a &optional prec) "\203E \211:\205 @\305=\205 \306 8\307Y)\203 \310!\250\204) \311\312\"\210\307X\2037 \313 !\2037 \207\314\315\316\314 \")![\"\207 \211:?\206Q @\317>)\203 \211:?\206p @\320>\206p @\305=\205p \306 8\307Y)\203x \310 !\207 \211:\203\262 @\321=\206\265 @\322=?\205\265 @\323>\203\254 A@\211:\203\245 @\321=\202\250 \307W)\202\265 \324 !\202\265 \307W)\203\307 \325=\204\307 \326\315\326 !!!\207\327 \330 \211\211:?\206\327 @\331>)\203\337 \332\202\340 \333\")\211\211:?\206\376 @\320>\206\376 @\305=\205\376 \306 8\307Y)\203 \334=\203\335 !\336 !\204\337 \340\" \207\335 !\207\313 !\203% \207 @\341=\2034\341\315 A@!D\207 @\342=\203B\335\330 \343\"!\207 \211:\205M @\344=)\203V\345\346 \"\207\347 !\203l\350 !\204h\324 !\203j \207\351\207\352 !\206v\311 \353\"\207" [prec a calc-prefer-frac math-rounding-mode calc-angle-mode float 2 0 math-trunc math-reject-arg fixnump math-provably-integerp calcFunc-scf math-round t (bigpos bigneg frac float hms) (bigpos bigneg) bigneg bigpos (frac float) math-negp up math-neg deg math-add (bigpos bigneg frac) (frac 1 2) (float 5 -1) even math-floor math-evenp math-sub 1 date intv (frac 1 2) vec math-map-vec #[(x) "\302 \"\207" [x prec math-round] 3] math-infinitep math-posp (var nan var-nan) math-to-integer anglep] 6])
(defalias 'calcFunc-round 'math-round)
(defalias 'calcFunc-rounde #[(a &optional prec) "\303\304 \n\")\207" [math-rounding-mode a prec even math-round] 3])
(put 'calcFunc-rounde 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'calcFunc-roundu #[(a &optional prec) "\303\304 \n\")\207" [math-rounding-mode a prec up math-round] 3])
(put 'calcFunc-roundu 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'calcFunc-fround #[(a &optional prec) "\211:\205 @\302=\205 \3038\304Y)\203( \203& \250\203( \304X\203( \207\305\306 \"!\207" [a prec float 2 0 math-float math-round] 5])
(defalias 'calcFunc-frounde #[(a &optional prec) "\303\304 \n\")\207" [math-rounding-mode a prec even calcFunc-fround] 3])
(put 'calcFunc-frounde 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'calcFunc-froundu #[(a &optional prec) "\303\304 \n\")\207" [math-rounding-mode a prec up calcFunc-fround] 3])
(put 'calcFunc-froundu 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'calcFunc-mant #[(x) "\211:?\206\f @\302>)\2037 \211:?\206 @\303>)\204( A@\304=\203* \207\305A@\306\307A@!ZE\207\310\311\"\210\312D\207" [x a (bigpos bigneg frac float) (bigpos bigneg frac) 0 float 1 math-numdigs calc-record-why realp calcFunc-mant] 6])
(defalias 'calcFunc-xpon #[(x) "\211:?\206\f @\302>)\2037 \211:?\206 @\303>)\204( A@\304=\203* \304\207\305\3068\307A@!S\\!\207\310\311\"\210\312D\207" [x a (bigpos bigneg frac float) (bigpos bigneg frac) 0 math-normalize 2 math-numdigs calc-record-why realp calcFunc-xpon] 5])
(defalias 'calcFunc-scf #[(x n) "\250\203\322 \303=\203
\207 \211:?\206 \n@\304>)\2031 \303V\203( \305 \"\207\306 \305\307[\"\"\207 @\310=\203W \303V\203J \311\305 A@\"\312 8\"\207\311 A@\305\312 8[\"\"\207 @\313=\203i \314 A@\312 8\\\"\207 @\315>\203\202 \316 @\317 A@\"\317\312 8\"E!\207 @\320>\203\230 \316 @\317 A@\"\312 8E!\207 @\321=\203\264 \316 @ A@\317\312 8\"\317\322 8\"F!\207 @\323=\203\300 \324\325 \"\207\326 !\203\310 \207\327\330 \"\210\317 E\207\331!\203\353 \3128\332W\203\347 \317 \333!\"\207\334!\207\335!\203\365 \334!\207\327\336\"\210\317 E\207" [n x a 0 (bigpos bigneg) math-scale-int math-div 1 frac math-make-frac 2 float math-make-float (cplx sdev) math-normalize calcFunc-scf (polar mod) intv 3 vec math-map-vec #[(x) "\302 \"\207" [x n calcFunc-scf] 3] math-infinitep calc-record-why realp math-messy-integerp 10 math-trunc math-overflow math-integerp integerp] 8])
(defalias 'calcFunc-incr #[(x &optional step relative-to) "\204 \305\211:?\206 @\306>)\204 \307\310\"\207\n\211:?\206' @\306>)\2030 \311\n\"\207\n@\312=\203` \313\n!\203N \242\312=\203N \314\315 \305\fZ\"\"\207\316\n\317\320\n8\321\nA@!\fZ\\\"\"\207\n@\322=\203\207 \nA@\211:?\206u @\306>)\203~ \311\n\"\207\311\n\323\324\211F\"\207\307\n\325\"\207" [step a x relative-to calc-internal-prec 1 (bigpos bigneg) math-reject-arg integerp math-add float math-zerop math-mul calcFunc-scf math-add-float math-make-float 2 math-numdigs date hms 0 realp] 8])
(defalias 'calcFunc-decr #[(x &optional step relative-to) "\303\304 \206 \305!\n#\207" [x step relative-to calcFunc-incr math-neg 1] 4])
(put 'calcFunc-decr 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'calcFunc-percent #[(x) "\302!\203 \303\304\305\")\207\306D\207" [x calc-prefer-frac math-objectp nil math-div 100 calcFunc-percent] 3])
(defalias 'calcFunc-relch #[(x y) "\302!\203 \302 !\203 \303\304 \"\"\207\305 E\207" [x y math-objectp math-div math-sub calcFunc-relch] 4])
(defalias 'calcFunc-abssqr #[(a) "\211:?\206\f @\302>)\203 \303\211\"\207@\304=\203) \305\306A@!\306\3078!\"\207@\310=\2036 \306A@!\207@\311>\203I \312!\203I \306\313!!\207@\314=\203X \315\305\316\317\"\"\207\320!\203c \321\307\"\207\322!\211\205t \303\317\323 \"! \")\206\200 \324\325\"\210\317D\207" [a inf (bigpos bigneg frac float) math-mul cplx math-add math-sqr 2 polar (sdev intv) math-constp math-abs vec math-reduce-vec math-map-vec calcFunc-abssqr math-known-realp math-pow math-infinitep math-infinite-dir calc-record-why numvecp] 6])
(defalias 'math-sqr #[(a) "\301\211\"\207" [a math-mul] 3])
(put 'math-sqr 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'calcFunc-idiv #[(a b) "\211:\203 @\303=\202 \304Y)\2035 \211:\203# @\303=\202& \304Y)\2035 \304=\2045 \305 \"\207\211:?\206A @\306>)\203d \211:?\206Q @\306>)\203_ \307\310\311 \"!)\207\312 \313\"\207\242\314=\203\201 \242\314=\203| \307\310\311 \"!)\207\312 \315\"\207\242\316=\204\230 \211:?\206\224 @\306>)\203\266 \242\316=\204\257 \211:?\206\253 @\306>)\203\266 \310\311 \"!\207\317!\204\302 \317 !\203\307 \311 \"\207\312\320\"\207" [a b calc-prefer-frac bigpos 0 math-quotient (bigpos bigneg frac float) t math-floor math-div math-reject-arg realp hms hmsp intv math-infinitep anglep] 5])
(defalias 'math-combine-sum #[(a b nega negb scalar-okay) "\203+ \211:?\206 @\306>)\203+ \n\211:?\206 @\306>)\203+ \307 \n \f$\207\310\211 :\203\253 @\311=\203Z A@\211:?\206J @\312>)\203Z A@\313 8\202\253 @\314=\203\235 \313 8\211:?\206o @\312>)\203\235 \313 8\211:?\206\201 @\315>)\203\216 \316\310\313 8E\202\224 \317\310\313 8\" A@\202\253 @\320=\203\253 \321 A@\n:\203#\n@\311=\203\324 \nA@\211:?\206\305 @\312>)\203\324 \nA@\313\n8\202#\n@\314=\203\313\n8\211:?\206\351 @\312>)\203\313\n8\211:?\206\373 @\315>)\203\316\310\313\n8E\202\317\310\313\n8\"\nA@\202#\n@\320=\203#\321\nA@\2036 \n\322 \n\"\323U*\2029 \n\232\205Z \203F\324!\f\203N\324
!\325
\"\326 \"*\207" [scalar-okay a b nega negb bmult (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) math-add-or-sub 1 * (bigpos bigneg frac float cplx polar hms date sdev intv mod) 2 / (bigpos bigneg) frac math-div neg -1 math-compare 0 math-neg math-add math-mul amult math-simplifying] 6])
(defalias 'math-add-or-sub #[(a b aneg bneg) "\203 \304 !\n\203 \304 ! \211:\205 @\305=)\204. \211:\205* @\305=)\2035 \306\307 E!\207\310 \"\207" [aneg a bneg b math-neg vec math-normalize + math-add] 5])
(defvar math-combine-prod-e '(var e var-e))
(defalias 'math-combine-prod #[(a b inva invb scalar-okay) "\203/ \211:\203( @\306>?\205+ @\307=\203\" A@\310=\202+ \311 !\202+ \310=)\204^ \n\203` \211:\203W @\306>?\205Z @\307=\203Q A@\310=\202Z \311 !\202Z \310=)\203` \312\207\f\203\235 \211:?\206p @\313>)\203\235 \211:?\206\200 @\313>)\203\235 \314 \n$\211\211:?\206\227 @\313>)\205$ \207 \242\315=\203\276 \203\276 \316\317 8!\203\276 \320\321 A@\322\317 8!\" \"\207 \242\315=\203\337 \n\203\337 \316\317 8!\203\337 \320 \321 A@\322\317 8!\"\"\207
\203\352 \323 \"\206$\324\211 1 2 :\203T @\315=\203
\204\317 8\211:?\206 @\325>)\203 \317 82 A@\202T @\326=\203/\3272 A@\202T @\330=\203T
\204L A@\211:?\206H @\325>)\203T A@23 :\203} @\331=\203} A@\317 8\332 \"\333U*\203}\334\324 \"\3222!2 :\203\341 @\315=\203\253
\204\237\317 8\211:?\206\233 @\325>)\203\253\317 81 A@\202\341 @\326=\203\274\3351 A@\202\341 @\330=\203\341
\204\331 A@\211:?\206\325 @\325>)\203\341 A@13 :\203\n @\331=\203\n A@\317 8\332 \"\333U*\203\n\334\324 \"\3221!1\203\3222!2\n\203 \3221!1
\203)\336 \"\202, \232\203 \33721\" 4 \211:?\206C @\340>)\203\2014\211:\203l @\306>?\205o @\307=\203f A@\310=\202o\311 !\202o \310=)\204\2012\242\331=1\242\331==\205\3164!\203\344 \211:?\206\224 @\341>)\203\344 \211:\203\322 @\342=\206\325 @\343=?\205\325 @\344>\203\314 A@\211:\203\305 @\342=\202\310 \310V)\202\325\345 !\202\325 \310V)\203\344\334\324 \"\3224!44\346\232\203\361\326 D\2024\347\232\203\334\324\326 D\"\202 3=\203 =\203\3304D\202\350\351\352\217)\206#5\203\3056\203\305\353 ! 7\312 87\205\3017\353 !\2118=\205\301 A@7@=\203N\324\202Z\354 A@!\310H9\236A@7 A@8@=\203j\324\202v\354 A@!\310H9\236A@878\332 \"\333U*\203\254\312 : : :7:87:82:12:1)\320\321\33478\"2\"\321 \33721\"\"\"*\206#21\232\205# \211:\203\333 @\342=\202\336 \310Y)\205# \211:\203\360 @\342=\202\363 \310Y)\205#2\355\232\203\326\320 \"D\202#2\356\232\203\334\324\326\320 \"D\"\202#\320 \"\350\357\360\217*\207" [inva a invb b scalar-okay math-simplifying (bigpos bigneg) float 0 math-zerop nil (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) math-mul-or-div ^ math-looks-negp 2 math-mul math-pow math-neg math-combine-prod-trig 1 (bigpos bigneg frac float cplx polar) calcFunc-sqrt (frac 1 2) calcFunc-exp frac math-compare -1 math-div (frac 1 2) math-commutative-equal math-add (bigpos bigneg) (bigpos bigneg frac) bigpos bigneg (frac float) math-posp (frac 1 2) (frac -1 2) err (math-pow a sumpow) ((inexact-result (byte-code "\302 E\207" [a sumpow ^] 3))) math-check-unit-name symbol-name (frac 1 2) (frac -1 2) (math-pow a apow) ((inexact-result (byte-code "\302 E\207" [a apow ^] 3))) bpow apow math-combine-prod-e sumpow math-simplifying-units math-combining-units ua ub math-unit-prefixes temp] 8])
(defalias 'math-combine-prod-trig #[(a b) "\242\302=\203 \242\303=\203 \304\305A A\"!\306U\203 \307\207\242\302=\203= \242\310=\203= \304\305A A\"!\306U\203= \311AB\207\242\302=\203] \242\312=\203] \304\305A A\"!\306U\203] \313AB\207\242\313=\203z \242\310=\203z \304\305A A\"!\306U\203z \307\207\242\313=\203\232 \242\303=\203\232 \304\305A A\"!\306U\203\232 \312AB\207\242\313=\203\272 \242\311=\203\272 \304\305A A\"!\306U\203\272 \302AB\207\242\311=\203\327 \242\312=\203\327 \304\305A A\"!\306U\203\327 \307\207\242\311=\203\367 \242\303=\203\367 \304\305A A\"!\306U\203\367 \310AB\207\242\310=\203 \242\312=\203\304\305A A\"!\306U\203\303AB\207\242\314=\2034 \242\315=\2034\304\305A A\"!\306U\2034\307\207\242\314=\203T \242\316=\203T\304\305A A\"!\306U\203T\317AB\207\242\314=\203t \242\320=\203t\304\305A A\"!\306U\203t\321AB\207\242\321=\203\221 \242\316=\203\221\304\305A A\"!\306U\203\221\307\207\242\321=\203\261 \242\315=\203\261\304\305A A\"!\306U\203\261\320AB\207\242\321=\203\321 \242\317=\203\321\304\305A A\"!\306U\203\321\314AB\207\242\317=\203\356 \242\320=\203\356\304\305A A\"!\306U\203\356\307\207\242\317=\203 \242\315=\203\304\305A A\"!\306U\203\316AB\207\242\316=\203. \242\320=\203.\304\305A A\"!\306U\203.\315AB\207\322\207" [a b calcFunc-sin calcFunc-csc math-simplify math-sub 0 1 calcFunc-sec calcFunc-tan calcFunc-cot calcFunc-cos calcFunc-sinh calcFunc-csch calcFunc-sech calcFunc-tanh calcFunc-coth calcFunc-cosh nil] 4])
(defalias 'math-mul-or-div #[(a b ainv binv) "\211:\205 @\304=)\204 \211:\205 @\304=)\203I \305\n\2038 \2031 \306\307\310\" E\202G \306 E\202G \203C \306 E\202G \311 E!\207\n\203^ \203Y \307\211\310\" \"\207\307 \"\207 \203g \307 \"\207\312 \"\207" [a b ainv binv vec math-normalize / math-div 1 * math-mul] 6])
(defalias 'math-commutative-equal #[(a b) "\242\305>\203X \242\306>\205[ \307\211\211 \310 \307\"\210\f\307\310\307\"\210 G\fGU\205V \203T \f\211\203C @\n@\232\204C \nA\211\2044 \n\203T \311\n@\f\" A\211\204. ?+\207 \232\207" [a b p aterms math-com-bterms (+ -) (+ -) nil math-commutative-collect delq] 4])
(defalias 'math-commutative-collect #[(b neg) "\242\303=\203 \304A@ \"\210\304\3058 \"\207\242\306=\203+ \304A@ \"\210\304\3058 ?\"\207 \2035 \307!\2026 \nB\211\207" [b neg math-com-bterms + math-commutative-collect 2 - math-neg] 3])
(provide 'calc-arith)