%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\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% \211@\301>\203 \211A@\211\250\205 \211\302W\266\202\202* \303!\262\202* \211\302W\262\2031 \304!\207\211:?\206< \211@\305>\262\203C \207@\306=\203W \307\310A@!\310\3118!\"\207@\312=\203b A@\207@\313=\203o \314A@!\207@\315=\203\203 \316\310\3118!\310\3178!\"\207@\320=\203\214 \207@\321=\203\230 \322\323\"\207@\324=\203\242 @\207\207" [a (frac float) 0 math-negp math-neg (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] 5])
(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!=\206!\306\307!\310\211\211\211 \310\f\242\303=\203\fA\211\203\f@\242\303=\203 \311\f@8\211\203 \3121\f@A@ \310\211 \242\303=\204N \303 D A\211\203\253 @\211:?\206a \211@\313>\262\204\253 @\242\314=\203N @A@\236\211 \203\204 \315\n\"\202\247 @A@\316=\203\227 \315\n\317\"\320\202\247 @A@\321=\203\247 \315\n\322\"\323)\202N \203\272 \315\n\324\"\325\303 B!\n D\242\303=\204\314 \303DA\211\205
@\242\314=\204\360 @\211:?\206\353 \211@\326>\262\204\314 @@\314=\203\311@8\202@@\nB
B\202\314 )0\202\210\202 \210\202 \327
\236\211,\207" [math-decls-cache-tag range type vec p math-decls-cache calc-var-value var-Decls nil 2 (error) (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 (frac float cplx polar hms date mod var) var-All v math-super-types st 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 \211@\301>\262?\205 \302\303\"?\207" [a (frac float cplx polar hms) math-known-scalarp t] 3])
(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 \211@\306>\262\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 (frac float cplx polar hms date sdev intv mod) t math-check-known-scalarp ^ math-const-var var 2 nil scalar boundp val decl] 3])
(defalias 'math-check-known-matrixp #[(a) "\211:?\206 \211@\306>\262\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 (frac float cplx polar hms date sdev intv mod) nil t math-check-known-matrixp ^ math-const-var var 2 matrix boundp decl] 3])
(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 \211@\306>\262\203( \203 \307 \"\211:\203> \211@\310>\2036 \211A@\211\250\2051 \211\311V\266\202\202C \312!\262\202C \211\311V\262\203H \313\207\211:\203m \211@\314>\203e \211A@\211\250\205` \211\311W\266\202\202r \315!\262\202r \211\311W\262\203w \316\207\211:\203\226 \211@\317=\203\216 \211A@\311=\262\202\233 \320!\262\202\233 \211\311=\262\203\240 \321\207@\322=\203\323\3218!\203\261 \313\207\324\3258!\203\273 \316\207\3218\211:\203\334 \211@\317=\203\324 \211A@\311=\262\202\341 \320!\262\202\341 \211\311=\262\203\346 \326\207\3258\211:\203\211@\317=\203\377 \211A@\311=\262\202\f\320!\262\202\f\211\311=\262\203\325\207\327\207@\330=\203&\331A@!\203$\327\207\332\207\333\207@\334>\203=A@\211:?\206<\211@\335>\262\203x@\336=\203`\337\340\3218 \203Z\341 A@\"\202]A@\"!\207\340\3218 \203q\307 A@\"\202v\342A@!\"\207\3218\211:?\206\205\211@\335>\262\203\260@\336=\203\227\3218\202\234\342\3218!\340A@ \203\254\341 \n\"\202\255\n\")\207\340A@ \"\340\3218! @\336=\203\310\337 !\f =\203\322\f\202;\f\321=\203\334 \202; \321=\203\346\f\202;\f\333Y\203\360\332\202; \333Y\203\372\332\202;\f\313=\203\n \326=\203\n\313\202; \313=\203\f\326=\203\313\202;\f\316=\203* \325=\203*\316\202; \316=\203:\f\325=\203:\316\202;\327*\207@\343=\203S\337\340A@ \205P\342 !\"!\207 \203\200 \211:\203v\211@\317=\203n\211A@\311=\262\202{\320!\262\202{\211\311=\262\203\200\344@\345=\204\222@\346=\2033 \2033A@\211:?\206\237\211@\335>\262\2033@\345=\203\355A@\211:\203\314\211@\317=\203\304\211A@\311=\262\202\321\320!\262\202\321\211\311=\262\203\333\340\311 \"\202\372\340\3218\347 \206\345\311A@\"\"\202\372\337\340\3218\347A@ \"\"! A@\211:\203\"\211@\314>\203\211A@\211\250\205\211\311W\266\202\202'\315!\262\202'\211\311W\262\2030\337
!\2021
)\207@\350>\203\250\3218\211:?\206G\211@\335>\262\203\250\340A@@\345=\203d\351 \206]\311\3218\"\202n\347 \206j\311\3218\"\" \3218\211:\203\227\211@\314>\203\217\211A@\211\250\205\212\211\311W\266\202\202\234\315!\262\202\234\211\311W\262\203\245\337
!\202\246
)\207@\352=\203\322\311 @A\211\203\316@\332W\203\316\353@\340@ \"\"@\202\262@)\207@\354>\2033\340A@!\340\3218!\211 \333Y\203\357\332\202/ \333Y\203\371\332\202/@\346=\203\n \355>\203\n\332\202/\353\f\356>\203 \202\311\f\357>\203 \321\202!\311\f\360>\203-\337 !\202.\311#*\202#@\361=\203\301\340A@!\340\3218!\211 \333Y\203P\332\202\275 \333Y\203Z\332\202\275\f\362\267\202r\313\202\275 \313=\203n\321\202\275\332\202\275 \321=\203\206\f\363>\203\202\321\202\275\332\202\275\364\3218!\203\250\365\3218!\203\244\f\366>\203\240\326\202\275\313\202\275\f\202\275\f\326=\203\274 \313=\203\270\326\202\275\332\202\275\327*\202#@\367=\203\357\340\3218!\211\333Y\203\330\327\202\353 \370\267\202\352\321\202\353\326\202\353\325\202\353\327)\202#@\371>\203G\321U\203\340A@!\211 \372\267\202\321\202\313\202\326)\202#@\373=\203yG\321U\203y\340A@!\211 \333Y\2034\332\202u \203>\315 !\203B\313\202u\307 \206H\311\316\"\211\211:\203j\211@\317=\203b\211A@\311=\262\202o\320!\262\202o\211\311=\262\203t\344\f)\202#@\374>\203\207G\321U\204\235@\375=\203\262G\325U\203\262\323\3218!\203\262\376A@!\203\256\340A@\316\"\202#\332\202#@\377=\203\327G\321U\203\327\340A@!\211 \201J >\203\322\f\202\323\332)\202#@A>\203\343\326\202#@B>\203\357\313\202#@C>\203\373\327\202#@D>\203\327\202#@E>\205#G\321U\205#\331A@!\203\"\327\202#\332\211 F\203\211 \203\204\201K F\333\" \211:\203Y\211@\310>\203Q\211A@\211\250\205L\211\311V\266\202\202^\312!\262\202^\211\311V\262\203rF\201L >\203n\316\202\200\327\202\200F\201M >\203\313\202\200\327\\\202oF\202o\201N !\203\371\3218\201O =\203\255 \203\251\340\201P \"\202o\313\202o\3218\201Q =\203\311 \203\305\340\201R \"\202o\313\202o\3218\201S =\203\327\313\202o\3218\201T =\203\347\201U \202o\3218\201V =\203\365\333\202o\332\202o\201W \210@\201X =\203\3218G\236\206H\202@G\236 I \203M\201Y IA@>\203M \211\250\206B\211:\205B\211@\317=\205B\3218\311Y\262\204M\201Z \202n\321I8\203^\340\321I8 \"\202n\201[ IA@>\203m\327\202n\332))\207" [a origin org s2 s1 s (frac float cplx polar hms date sdev intv mod) math-sub (frac float) 0 math-posp 4 (frac float) math-negp 1 float math-zerop 2 intv math-known-posp math-known-negp 3 6 7 sdev math-known-realp 15 8 (+ -) (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) ^ #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 1120 2 1124)) (1 5) Math-integerp math-evenp (3 6 7) % #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 1246 4 1250 6 1250 1 1254 3 1254)) (calcFunc-abs calcFunc-abssqr) #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2 1289 1 1293 4 1293 5 1293)) calcFunc-exp (calcFunc-ln calcFunc-log10) calcFunc-log math-known-nonnegp calcFunc-sqrt 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 (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 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 \211@\306>\262\203\313 \307!\203 \203 \310\207\311\207\211:\2050 \211@\312=\2050 \3138\314Y\262\203= \203; \310\207\313\207@\315=\203L \203J \316\207\317\207@\312=\203[ \203Y \316\207\320\207@\321=\203t \3138\3108\232\203r \322\3138!\207\323\207@\324=\203\207 \325A@!\203\205 \323\207\326\207@\327=\203\232 \330A@!\203\230 \331\207\332\207@\333=\203\311 \3138\334\335!\336\"\314U\266\202\204\305 \3138\337\334\335!!\336\"\314U\266\202\203\307 \331\207\340\207\326\207@\341=\203O\322A@ \"\322\3138 \"\342\n \"\211 \331W\203\343\f\344\"\314V\203\370 \344\202M\n\317U\204 \317U\204
\203\f\345\202M\323\202M\f\332W\203L\n\331U\2034 \331U\203&\323\202M \331W\2030\331\202M\346\202M \331U\203H\n\331W\203D\331\202M\346\202M\346\202M\326+\207@\347>\203e\322A@ \"\322\3138 \"\342\n \" @\350=\203\343\n\323\"\343 \323\"\343\f\323\"\f\331W\203\365\f\310X\203\217\311\202\271\n\310X\203\236\343 \310\"\314U\204\255 \310X\203\270\343\n\310\"\314U\203\270@\351>\203\270\317\202\271\345 @ \203\306@\310_\202\361\342\343\n\345\"\314V\203\336\343 \345\"\314V\203\336@\202\337\314\343\f\344\"\314V\203\357@\313_\202\360\314\")\202c\f\332W\203b@\352=\2038\n\331U\203 \331U\203\323\202c \331W\203 \331\202c\346\202c \331U\2034\n\331W\2030\331\202c\346\202c\346\202c\f\331U\203B\331\202c\n\331U\203N \331W\204Z \331U\203^\n\331W\203^\332\202c\326\202c\326+\207@\353=\203r\322A@!\207@\354=\203\322A@ \"\322\3138 \"\342\n \" \310X\203\376\355\3138!\203\376\n\331W\203\376\342\343\n\310\"\314V\203\256\311\202\257\314\343\n\317\"\343\n\316\"\314V\203\300\345\202\301\314# @ \203\317@\310_\202\372\342\343\n\345\"\314V\203\347\343 \345\"\314V\203\347@\202\350\314\343\f\344\"\314V\203\370@\313_\202\371\314\")\202\355A@!\203\356\3138!\203\323\202\326+\207@\357=\203^\360A@!\342\343\n\313\"\314V\2030\310\2021\314\343\n\311\"\314V\203>\331\202?\314\343\n\317\"\314V\203L\323\202M\314\343\n\320\"\314V\203Z\332\202[\314$)\207@\361=\203\210\314 AA\211\203\204A\326W\203\204\342A\322@\362\"\"A\202hA)\207@B>\204\244@C>\203\246\355\3138\206\240\314!\203\246\311\207@D>\204\302@E>\203\304\355\3138\206\276\314!\203\304\313\207@\363=\203\315\345\207@\364=\203G\313U\203\322A@!\342\343\n\310\"\314V\203\357\313\202\360\314\343\n\316\"\314V\203\375\320\202\376\314\343\n\340\"#)\207@\365>\203&G\313U\203&\322A@!\211\331Y\203#\323\202$\n)\207\366!\203L\3138\367>\2036\320\207\3138\370=\203@\311\207\3138\371=\203J\331\207\326\207\372 \210@\373=\203d\3138F\236\206iG\202i@F\236 H\374HA@>\203x\311\202\312\375HA@>\203\205\310\202\312\315HA@>\203\222\317\202\312\376HA@>\203\237\345\202\312\312HA@>\203\254\344\202\312\313H8\203\274\322\313H8!\202\312\377HA@>\203\311\323\202\312\326)\207" [a num t1 t2 t12 calc-prefer-frac (frac float cplx polar hms date sdev intv mod) Math-integerp 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 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) "\301!\203\n \302!\207\211:\205 \211@\303=\205 \3048\305Y\262\203/ \3048\305V\206\203 \302\306!!\207@\307=\203R \310A@!\203D \311\3048!\207\311A@!\205Q \310\3048!\207@\312>\203w \310A@!\203i \310\3048!\206\203 \313A@!\205v \313\3048!\207@\314=\205\203 \310A@!\207" [a Math-integerp math-evenp float 2 0 math-trunc * math-known-evenp math-known-num-integerp (+ -) math-known-oddp neg] 3])
(defalias 'math-known-oddp #[(a) "\301!\203\n \302!\207\211:\205 \211@\303=\205 \3048\305Y\262\203/ \3048\305X\205` \302\306!!\207@\307>\203T \310A@!\203F \311\3048!\206` \311A@!\205S \310\3048!\207@\312=\205` \311A@!\207" [a Math-integerp math-oddp float 2 0 math-trunc (+ -) math-known-evenp math-known-oddp neg] 3])
(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) "\304 \210\305 \211:?\206 \211@\306>\262\203 \307 D\202d \242\310=\203& \202d \242\311=\203< \312\211 8\n\236\2067 8\202C \312 \242\n\2368\203O \313\314!!\202d \315 !\211\316W\203_ \317H\202d \320 \321\322#)\207" [range expr math-decls-cache math-decls-all math-setup-declarations nil (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[\262\3028E\207" [a float 2] 4])
(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 \211@\306>\262\203N \211:?\206 \211@\306>\262\203N \307!\307 !\310\311\312 A@\nA@\"\312\313 8\313\n8\"E \314 \"\203I \315\f!\202J \f)!*\207\211\242\316=\262\204b \211\242\316=\262\203h \317\312 #\207\242\320=\203\266 \242\320=\203\211 \321\312A@ A@\"\322\3138\313 8\"\"\207 \211:?\206\224 \211@\323>\262\204\252 \211:?\206\244 \211@\324>\262?\205\265 \321\312A@ \"\3138\"\207 \242\320=\203\351 \211:?\206\310 \211@\323>\262\204\335 \211:?\206\330 \211@\324>\262\204\351 \321\312 A@\"\313 8\"\207\242\325=\203\226 \242\325=\203\\\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\2036\330A@\336\"\2027\332\334 8\337\232\203H\330 A@\336\"\202I\332%\312\3138\313 8\"\312\3348\334 8\"#\207 \211:?\206g\211@\340>\262\204\204 @\341=\204\204 \211:?\206~\211@\324>\262?\205\225\326A@\312\3138 \"\312\3348 \"#\207 \242\325=\203\326\211:?\206\250\211@\340>\262\204\304@\341=\204\304\211:?\206\277\211@\324>\262\204\326\326 A@\312\313 8\"\312\334 8\"#\207\242\341=\203= \242\341=\203\355\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:?\206-\211@\351>\262\203;\341\312A@ \"D\207\352\207 \242\341=\203I\353 \"\207\242\354=\203o \242\354=\203o\3138\313 8\232\203o\355\312A@ A@\"\3138\"\207\242\354=\203\222 \211:?\206\201\211@\340>\262\203\222\355\312A@ \"\3138\"\207 \242\354=\203\265\211:?\206\244\211@\340>\262\203\265\355\312 A@\"\313 8\"\207\242\342=\204\303 \242\342=\203\236\211:?\206\316\211@\340>\262\203\236 \211:?\206\336\211@\340>\262\203\236\242\342=\204\356\356! \242\342=\204\371\356 !\310\357!\203
\360\312\360!\360 !\"!\202\234\357 !\203u\312\3348\334 8\" 4\312\3138\313 8\" 5\312A@ A@\" 6\3574!\203F\3124\347\"4\3125\361\"5\3575!\203[\3125\347\"5\3126\361\"6\3576!\203i\312 \"\202q\342654F+\202\234\312\3348\334 8\" 4\312\3138\313 8\" 5\312A@ A@\" 6\342654F+!\207\362\363 #\207" [a b bb aa res parts (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 (frac float cplx polar hms) (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) (frac float hms) date hms math-date-parts math-div math-mul 3600 60 86400 (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] 12])
(defalias 'math-add-symb-fancy #[(a b) "\203 \232\204 \306 \nE\206\374\n\242\306=\203& \307\211 \nA@\"\310\n8\"\206\374\n\242\311=\203; \312\307 \nA@\"\310\n8\"\206\374\n\242\313=\203] \nA@\242\306=\203] \312\211 \nA@A@\"\310\nA@8\"\206\374 \211\242\314=\262\203m \315\n!\204} \n\211\242\314=\262\203\205 \315 !\203\205 \316\307 \n#\206\374\317 !\211\203>\317\n!\211 \203\353 \310 8\320>\204\245 \310\f8\321>\203\251 \322\202:\323 \"\323\n\f\" \211 +\211:?\206\277 \211@\324>\262\205\347
\211:?\206\317 \211@\324>\262\205\347 +
\325\"\326U\266\202\203\346 \202\347 \327*\202: \330\232\203\n\242\331=\203\nA@\332>\203\310\n8\333\232\203\331\334\310\n8 F\202: \335\232\2039\n\242\331=\2039\nA@\336>\2039\334\n8\337\232\2039\331\334 \334\n8F\202: )\202\303\317\n!\203V \242\331=\203R\307\n \"\202\303\n\202\303 \242\306=\203w\340\310 8\n\341\211\342%\211 ,\205s\307 A@,\")\202\303 \242\311=\203\230\340\310 8\n\342\341\342%\211 ,\205\224\307 A@,\")\202\303 \211:?\206\243\211@\324>\262\203\274\n\211:?\206\263\211@\324>\262\203\274\341\202\303\340 \n\341\211\211%)\206\374\n\211\211:\203\355\211@\343>\203\345\211A@\211\250\205\340\211\326W\266\202\202\362\344!\262\202\362\211\326W\262\206\211:\205\211@\313=\206\211@\345>\205\346A@!\206\346\3108!\262\203#\311 \347\n!E\206\374 \211\211:\203I\211@\343>\203A\211A@\211\250\205<\211\326W\266\202\202N\344!\262\202N\211\326W\262\206q\211:\205q\211@\313=\206q\211@\345>\205q\346A@!\206q\346\3108!\262\203\311\n\347 !E\206\374 \242\350=\203\311 G\310U\203\311\n\242\350=\203\250\nG\310U\203\250\350\307 A@\nA@\"D\206\374\351\n!\203\272\307\352 A@\n\"\n\"\206\374\315\n!\203\311\307 A@\n\"\206\374\n\242\350=\203\370\nG\310U\203\370\351 !\203\351\307 \352\nA@ \"\"\206\374\315 !\203\370\307 \nA@\"\206\374\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 (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 (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 \211@\305>\262\203x \211:?\206 \211@\305>\262\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\242\321=\262\203 \211\242\321=\262\203\322!\203\327 \322 !\203\252 A@G GU\203\247 \323 \"\207\324 \207A@G\315U\203\305 G GU\203\302 \323\321 D\"\207\324 \207A@G GU\203\324 \325 \"\207\324 \207\322 !\203\361 G GU\203\356 \323\321D \"A@\207\324 \207G GU\203\376 \326 \"\207\324 \207\327\312 #\207 \211\242\321=\262\203\327\312 #\207\242\330=\203r \242\330=\203B\331\312A@ A@\"\332\312\3158 A@\"\312\315 8A@\"\"\"\207 \211:?\206M\211@\333>\262\204c \211:?\206]\211@\334>\262?\205q\331\312A@ \"\312\3158 \"\"\207 \242\330=\203\250\211:?\206\204\211@\333>\262\204\231\211:?\206\224\211@\334>\262\204\250\331\312 A@\"\312\315 8\"\"\207\242\335=\203 \211:?\206\272\211@\336>\262\203 \211:\203\344\211@\337>\203\334\211A@\211\250\205\327\211\340W\266\202\202\351\341!\262\202\351\211\340W\262\203\365\342\312\342 !\"!\207\343A@\312\3158 \"\312\3448 \"#\207 \242\335=\203#\211:?\206\211@\336>\262\203#\312 \"\207\242\335=\203\342\345!\203\342 \242\335=\203\342\345 !\203\342\312\315 8\"\312\344 8\"\211\242\335=\204d\335 A@\346>\203_\344\202`\340 \211F\n\242\335=\204}\335 A@\347>\203x\344\202y\340\n\211F\350\315 8 A@\351>\204\221\352\315 8!\205\226 A@\353>\344 8 A@\354>\204\251\352\344 8!\205\256 A@\355>\315\n8 A@\356>\204\301\352\315\n8!\205\306\nA@\357>\344\n8 A@\360>\204\331\352\344\n8!\205\336\nA@\361>&*\207\242\362=\203 \242\362=\203\3158\315 8\232\203\363\312A@ A@\"\3158\"\207\242\362=\203+ \211:?\206\211@\336>\262\203+\363\312A@ \"\3158\"\207 \242\362=\203N\211:?\206=\211@\336>\262\203N\363\312 A@\"\315 8\"\207\242\364=\203w \211:?\206`\211@\365>\262\203w\306\f\315\\ \366\312\367\370\" \"\370\")!\207 \242\364=\203\223\211:?\206\211\211@\365>\262\203\223\312 \"\207\371\372 #\207" [a b hi lo calc-internal-prec (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 (frac float cplx polar hms) (frac float cplx polar hms date sdev intv mod vec) intv (frac float hms) (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 (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
\211@\303>\262\204& \3028\304\232\205J \203& A@\305>\205J \3068\211:?\2063 \211@\303>\262\206J \3068\307\232\205J ?\206J A@\310>\207" [a finite 2 (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 \211\242\306=\262\203 \307\310 #\207\311\312\"\207\313!\203# \314\207\315\211\242\316=\203\244 \3178\320\232\203B A@\321>\203B \3178\3228\323\232\203V A@\324>\203V \3228 \204^ \n\203\244 \325 !\204x \326 !\203\210 \f\327>\204x \330\331\211\203\210 \316\322 \206 \312\n\206\204 \312F\202\265 \332 !\203\240 \333\316\322 \206\226 \312\n\206\233 \312F!\202\265 \334\202\265 \335 !\204\260 \335!\203\264 \336\202\265 \312*\207" [b a bb aa calc-infinite-mode math-known-matrixp vec 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\263 \306=\2062 :\2052 @\307=\2052 A@=\2052 \3108\311U\266\202\203; \n\206\263 \312=\206\\ :\205\\ @\307=\205\\ A@=\205\\ \3108\311U\266\202\203g \313\n!\206\263 \211\242\314=\262\203w \315\n!\204\207 \n\211\242\314=\262\203\217 \315 !\203\217 \316\317 \n#\206\263\n\211:?\206\232 \211@\320>\262\203\266 \211:?\206\252 \211@\320>\262\204\266 \317\n \"\206\263 \242\321=\203\310 \313\317 A@\n\"!\206\263\n\242\321=\203\332 \313\317 \nA@\"!\206\263 \242\305=\203\357 \317 A@\317\310 8\n\"\"\206\263 \242\322=\203\300\310 8\211\211:\203 \211@\323>\203\211A@\211\250\205\211\311W\266\202\202#\324!\262\202#\211\311W\262\206F\211:\205F\211@\321=\206F\211@\325>\205F\326A@!\206F\326\3108!\262\203\300\n\242\322=\203\247\310\n8\211\211:\203z\211@\323>\203r\211A@\211\250\205m\211\311W\266\202\202\324!\262\202\211\311W\262\206\242\211:\205\242\211@\321=\206\242\211@\325>\205\242\326A@!\206\242\326\3108!\262\204\300\315\n\327\"\203\300\330\n\331\322 A@\313\310 8!E!\"\206\263\n\242\322=\203\222\310\n8\211\211:\203\357\211@\323>\203\347\211A@\211\250\205\342\211\311W\266\202\202\364\324!\262\202\364\211\311W\262\206\211:\205\211@\321=\206\211@\325>\205\326A@!\206\326\3108!\262\203\222 \242\322=\203x\310 8\211\211:\203K\211@\323>\203C\211A@\211\250\205>\211\311W\266\202\202P\324!\262\202P\211\311W\262\206s\211:\205s\211@\321=\206s\211@\325>\205s\326A@!\206s\326\3108!\262\204\222\332\nA@!\204\222\330 \331\322\nA@\313\310\n8!E!\"\206\263 \242\333=\203\315\315 \327\"\204\247\315\n\327\"\203\315\334\310 8\n\327\335\327%\211\203\276\317 A@ \"\202\311\330\317 A@\n\"\310 8\")\206\263\n\242\333=\203\342\330\317 \nA@\"\310\n8\"\206\263\n\242\336=\203. \211:?\206\364\211@\337>\262\203.\nA@\211:?\206\211@\337>\262\204 \310\n8\211:?\206\211@\337>\262\203.\340\317 \nA@\"\317 \310\n8\"\"\206\263\n\242\341=\203z \211:?\206@\211@\337>\262\203z\nA@\211:?\206R\211@\337>\262\204i\310\n8\211:?\206d\211@\337>\262\203z\342\317 \nA@\"\317 \310\n8\"\"\206\263\n\242\305=\203\261\nA@\211:?\206\216\211@\337>\262\203\261 \211:?\206\236\211@\337>\262\204\261\317\nA@\317 \310\n8\"\"\206\263 \242\343=\203\372 G\310U\203\372\n\242\343=\203\332\nG\310U\203\332\343\317 A@\nA@\"D\206\263\315\n!\203\353\343\317 A@\n\"D\206\263\332\n!\203\372\317 A@\n\"\206\263\n\242\343=\203(\nG\310U\203(\315 !\203\343\317 \nA@\"D\206\263\332 !\203(\317 \nA@\"\206\263\344 \327\"\203v\n\242\343=\203O\nG\310U\203O\343\317 A@A@\nA@\" GSE\206\263\315\n!\203e\343\317 A@A@\n\" GSE\206\263\332\n!\203v\317 A@A@\n\"\206\263\344\n\327\"\203\304 \242\343=\203\235 G\310U\203\235\343\317 A@\nA@A@\"\nGSE\206\263\315 !\203\263\343\317 \nA@A@\"\nGSE\206\263\332 !\203\304\317 \nA@A@\"\206\263\326\n!\203\325\317\313 !\313\n!\"\206\263\n\242\341=\203\355\326 !\203\355\317\313 !\313\n!\"\206\263\n\242\305=\203\f\334 \nA@\335\211\327%\211\205\317 \310\n8\")\202\334 \n\335\211\211%\206\263 \345\232\203 \206\263\n\346\232\203*\n\206\263 \347\232\2034 \206\263\n\350\232\203>\n\206\263\n\351\232\203\242\352 !\211 \353\267\202`\n\202\236\354\202\236\313\n!\202\236\355\202\236 @\356=\203q\357 !\203q\360\202\236 @\361=\203\216\362 A@!\203\216\305\361\311\363\310 8!E\nE\202\236 @\364=\205\236\305\364\306\310 8E\nE)\206\263 \365\232\203\257\317\n \"\206\263\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 (frac float cplx polar hms date sdev intv mod) neg ^ (frac float) math-negp (* /) math-looks-negp t math-div math-normalize math-known-matrixp / math-combine-prod nil + (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 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 1358 6 1362 1 1366 3 1372)) (intv 3 0 (var inf var-inf)) (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 \211@\306>\262\203\253 \211:?\206 \211@\306>\262\203\253 \307\310 \"\203H \311!\311 !\312\313A@ A@\"\314\315\3168\316 8\"!E*\202\251 \211:?\206S \211@\317>\262\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 !\203M\326 !\203H G\211\242\327=\262\203\325!\203\371 G\nU\203\333 \330\331 ! #\202FA@G\nU\203\364 \332\330\331\332 !!\332! #!\202F\333 \202FG\nU\203\334\330\331 !\335! #\336\"\202F\333 \202F\336=\2065:\2055@\337=\2055A@=\2055\3168\340U\266\202\203@\341 !\202F\323\341 !\")\207\342 \343\"\207\211\242\327=\262\203m \211:?\206b\211@\344>\262\203m\345\313 #\207\242\346=\203\315 \242\346=\203\231\313A@ A@\"\347 \313\350\3168\323\316 8 \"\" A@\"\")\207 \211:?\206\244\211@\351>\262\204\271 \211:?\206\264\211@\352>\262\204\310\347\313A@ \"\313\3168 \"\"\207\342\353 \"\207 \242\346=\203 \211:?\206\337\211@\351>\262\204\364\211:?\206\357\211@\352>\262\204 \313 A@\"\347 \313\323\316 8 \" A@\"\")\207\242\354=\203j \211:?\206 \211@\355>\262\203j \211:\203G\211@\356>\203?\211A@\211\250\205:\211\340W\266\202\202L\357!\262\202L\211\340W\262\203X\360\313\360 !\"!\207\361A@\313\3168 \"\313\3628 \"#\207 \242\354=\203\252\211:?\206|\211@\355>\262\203\252\316 8\211:\203\250\211@\363>\203\240\211A@\211\250\205\233\211\340V\266\202\202\255\364!\262\202\255\211\340V\262\204\345\316 8\211:\203\321\211@\337=\203\311\211A@\340=\262\202\326\365!\262\202\326\211\340=\262\2032 A@\366>\204\345\f\2032\211:\203\n\211@\356>\203\211A@\211\250\205\375\211\340W\266\202\202\357!\262\202\211\340W\262\203\360\313\360! \"!\207\336 \361\367 A@H\313\362 8\"\313\316 8\"#)\207\362 8\211:\203Y\211@\356>\203Q\211A@\211\250\205L\211\340W\266\202\202^\357!\262\202^\211\340W\262\204\226\362 8\211:\203\202\211@\337=\203z\211A@\340=\262\202\207\365!\262\202\207\211\340=\262\203\237 A@\370>\204\226\f\203\237\360\313\360 !\"!\207\f\203\245\371\207\342 \372\"\207\242\354=\203\221\373!\203\221 \242\354=\203\221\373 !\203\221\316 8\211:\203\353\211@\363>\203\343\211A@\211\250\205\336\211\340V\266\202\202\360\364!\262\202\360\211\340V\262\204(\316 8\211:\203\211@\337=\203\f\211A@\340=\262\202\365!\262\202\211\340=\262\203 A@\374>\204(\f\203\336 \313\316 8\" \313\362 8\" @
\242\354=\204R\354 A@\375>\203M\362\202N\340
\211F@\242\354=\204n\354 A@\376>\203g\362\202h\340@\211F@\377\316
8 A@\201B >\204\217\201C \316
8!\205\226\365\316 8!?\205\226
A@\201D >\362
8 A@\201E >\204\266\201C \362
8!\205\275\365\316 8!?\205\275
A@\201F >\316@8 A@\201G >\204\337\201C \316@8!\205\347\365\362 8!?\205\347@A@\201H >\362@8 A@\201I >\204 \201C \362@8!\205\365\362 8!?\205@A@\201J >&+\207\362 8\211:\203<\211@\356>\2034\211A@\211\250\205/\211\340W\266\202\202A\357!\262\202A\211\340W\262\204{\362 8\211:\203e\211@\337=\203]\211A@\340=\262\202j\365!\262\202j\211\340=\262\203\204 A@\201K >\204{\f\203\204\360\313\360 !\"!\207\f\203\214\201L \207\342 \372\"\207\242\201M =\203\302 \242\201M =\203\302\3168\316 8\232\203\302\201N \201O A@ A@\3168#\3168\"\207\242\201M =\203\356 \211:?\206\326\211@\355>\262\203\356\201N \201O A@ \3168#\3168\"\207 \242\201M =\203\211:?\206\211@\355>\262\203\201N \201O A@\316 8#\316 8\"\207\242\201P =\203c \242\201P =\203G\307AT A\313\201Q \201R \"\201Q \201R \"\")!\207\307A\316\\ A\201S \313\201Q \201R \" \"\201R \")!\207\201T \201U #\207" [a b n1 x calc-infinite-mode lo (frac float cplx polar) math-normalize math-want-polar math-polar polar math-div math-fix-circular math-sub 2 (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 (frac float cplx polar hms date sdev intv mod) math-map-vec-2 sdev math-make-sdev math-hypot (frac float cplx polar hms) (frac float cplx polar hms date sdev intv mod vec) realp intv (frac float hms) (frac float) math-negp math-neg math-make-intv 3 (frac float) math-posp 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) (2 3) (1 3) math-combine-intervals hi calc-internal-prec (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 /"] 11])
(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 \211\242\304=\262\203 \305\306 #\207\307\310\"\207\311\232\203# \207\242\312=\203s \313!\203s \314!\204s \315!\204s \n\203n \312\316\317\3208!\203V \n\321>\203V \3208\202W \322\317\3168!\203k \n\323>\203k \3168\202l \324F\207\325\326\"\207 \207" [b a calc-infinite-mode math-known-matrixp vec 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\"\"\206D\n\203! \n\232\204! \312 E\206D\313=\206B :\205B @\314=\205B A@=\205B \3158\316U\266\202\203K \206D\311=\206l :\205l @\314=\205l A@=\205l \3158\316U\266\202\203w \317 !\206D \211\242\320=\262\203\217 \321!\203\217 \322\323 #\206D\242\324=\203#\3158\211\211:\203\276 \211@\325>\203\266 \211A@\211\250\205\261 \211\316W\266\202\202\303 \326!\262\202\303 \211\316W\262\206\346 \211:\205\346 \211@\327=\206\346 \211@\330>\205\346 \331A@!\206\346 \331\3158!\262\204 \313=\206\f:\205\f@\314=\205\fA@=\205\f\3158\316U\266\202\203#\307 \332\324A@\317\3158!E!\"\206D \242\327=\2035\317\323 A@\"!\206D\242\327=\203G\317\323 A@\"!\206D \242\312=\203\\\323 A@\307\315 8\"\"\206D\242\312=\203\203\321A@\333\"\204u\321\3158\333\"\203\203\323\307 \3158\"A@\"\206D\242\334=\203\230\307\335\3158A@\" \"\206D \242\336=\203\344 A@\211:?\206\254\211@\337>\262\204\303\315 8\211:?\206\276\211@\337>\262\203\344\211:?\206\316\211@\337>\262\203\344\340\323 A@\"\323\315 8\"\"\206D \242\341=\2030 A@\211:?\206\370\211@\337>\262\204\315 8\211:?\206\n\211@\337>\262\2030\211:?\206\211@\337>\262\2030\342\323 A@\"\323\315 8\"\"\206D \242\341=\204=\331 !\203N\331!\203N\323\317 !\317!\"\206D\242\341=\203f\331 !\203f\323\317 !\317!\"\206D \242\343=\203\257 G\315U\203\257\242\343=\203\217G\315U\203\217\343\323 A@A@\"D\206D\321!\203\240\343\323 A@\"D\206D\306!\203\257\323 A@\"\206D\242\343=\203\335G\315U\203\335\321 !\203\316\343\323 A@\"D\206D\306 !\203\335\323 A@\"\206D \203\344\211 \345!\210
\205\377\f\203\373\323\307
\"\f\"\202\377\307
\"*\206D7\203 \306 !\204\306!\203 \346 \344\333\344%\202\217 \242\347=\203g\242\347=\203M\346 A@A@\344\333\211%\211 8\205I\323\3078\315 8\"\3158\")\202\217\346 A@\344\333\211%\211 8\205c\3078\315 8\")\202\217\242\347=\203\210\346 A@\344\333\211%\211 8\205\204\3238\3158\")\202\217\346 \344\333\344%\206D\350 !\203%\350!\203\240\351\207 \352\232\204\254 \353\232\203\260 \202\" \354\232\203%\355!\204\313\242\356=\203\337\357\3158!\203\337\242\356=\203\333\360\333\"\204\333\361\207 \202\"\326!\204\364\242\356=\203\n\357\3628!\203\n\242\356=\203\360\333\"\204\363\207\317 !\202\"\242\356=\203%\326\3158!\203%\355\3628!\203%\364\206D\350!\203@\365\232\2035\202=\313 9\366 \")\206D\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 ^ (frac float) math-negp neg (* /) math-looks-negp math-normalize t frac math-make-frac + (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:?\206F \211@\313>\262\203X \303!\203X \314 A@\"\207 \242\306=\203q \315 \316\"\203q \303!\203q \317 \"\207 \211:?\206| \211@\320>\262\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 (frac float) math-make-mod math-intv-constp t math-mod-intv (frac float hms) calc-record-why anglep] 3])
(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:\2031 \211@\307=\203) \211A@\305=\262\2026 \310!\262\2026 \211\305=\262\203G \n\203? \311\207\312\313 E\314\"\207\315!\203O \207\316!\203Z \317\306 \"\207\320!\203b \321\207@\322=\203 \n\203 \323\3248!\203 \325\3268!\203 \327\207\313 E\207" [b a calc-infinite-mode math-floatp math-float 0 1 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))] 4 (#$ . 50079)])
(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 \211@\306>\262\203\266 \211:?\206 \211@\306>\262\203\266 \307 !\310>\203S \311\312 !\2035 \313!\2026 !\211\211:?\206C \211@\306>\262\205O \314\n\315\316 \"\")\202{ @\317=\203~ \316 8\250\203~ \316 8\320X\203~ \321\316 8\"\211\205z \322 A@\")\206d \320=\204\212 \323\232\203\227 \324 !\203\227 \325\326 \"\206d \f\203\242 \327 E\206d \330
\316\\ \331\313\315 \332\313!!\"!!)!\207\211:?\206\301 \211@\333>\262\203\326 \211:?\206\321 \211@\334>\262\204\375\335 @A\203\354 A\232\204\354 \327 E\202\373\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\373\327 E\202\373\242\336=\203{\345 !\204j\346A@!\204j\346\3168!\203{\315\314A@ \"\314\3168 \"\"\202\373\242\347=\203\241\345 !\204\220\346\3168!\203\241\350\314A@ \"\314\3168 \"\"\202\373\242\347=\203\315\346A@!\203\315\351A@\352\"\204\315\315\314A@ \"\314\350\352\3168\" \"\"\202\373\242\327=\203\360\345 !\204\342\346A@!\203\360\314A@\315\3168 \"\"\202\373\242\353=\203\345 !\204\346A@!\203\314A@\350 \316\"\"\202\373\242\327=\203@\354\3168!\203@\307 !\355>\203@\356A@!\203@\357\314A@\315\3168 \"\"!\202\373\360!\203t\361 !\203t\354 !\203[\314\362! \"\206i\363 !\205i\362\314\362! \"!\211@\203t@\202\373\242\364=\203\222\356A@!\203\222\354 !\203\222\314A@ \"\202\373\365!\203\353\366\232\203\242\202\373@\367=\203\270\315\314\342 \"\314A@ \"\"\202\373\370 !\203\302\202\373\371 !\203\326\312 !\203\322\372\202\373\373\202\373 \242\374=\203\347\375 !\203\347\376\202\373\377\202\373\365 !\203\257\335 C\371 !\203\314\350\352\"\362 !\"\202\253\370 !\204\201I \202\253\351\201J !\211C\352\"\203&\201K \202\253C\352\201L \"\342U\266\202\203F\312!\203B\201M \202\253\373\202\253\352\201L \"\342U\266\202\203Y \202\253\342\201L \"\342U\266\202\203n\201N \202\253@\374=\203\247\375!\203\247\342\201L \"\342U\266\202\203\241\351\201O 8\352\"\203\233\201P \202\253\201Q \202\253\201R \202\253\327 E)\202\373\242\201S =\203\322G\316U\203\322\345 !\203\322\201S \314A@ \"D\202\373\211:?\206\335\211@\334>\262\203\356\201T \201U \"\210\202\367\201T \201U \"\210\327 E)\207\242\201V =\203\222 \242\201V =\203\222\201W !\203_\201W !\203_\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\373 \211:?\206\246\211@\306>\262\203\373\201W !\203\335\330
\316\\ \314A@\201[ \352\"\" E\201X \315EA@\"\315E\315\3168 \"\"\"*!\207\201X \314A@ \"\315\314A@\201\\ \342\"\"\315\3168 \"\"\"\207 \242\201V =\203A\211:?\206\211@\306>\262\203A\330
\316\\ \332\313!! D\201] \315 A@D\"! E\201X E\315E\315\316 8D\"\"\"+!\207\242\374=\203\226\375!\203\226 \211:?\206[\211@\201^ >\262\203\226 \211\250\205i\211\373Y\262\204`\3168\211:\203\227\211@\201_ >\203\217\211A@\211\250\205\212\211\373V\266\202\202\234\370!\262\202\234\211\373V\262\204`\201` \3168!\203\345 \211:\203\320\211@\201_ >\203\310\211A@\211\250\205\303\211\373V\266\202\202\325\370!\262\202\325\211\373V\262\204`\201a !\203\345F\204`\201O 8\211:\203\211@\201b >\203\211A@\211\250\205\211\373W\266\202\202\371!\262\202\211\373W\262\204`\201` \201O 8!\203\226 \211:\203K\211@\201_ >\203C\211A@\211\250\205>\211\373V\266\202\202P\370!\262\202P\211\373V\262\204`\201a !\203\226F\203\226\201c !\203l\357!\201` \201O 8!\203|\342\202}\352 F\201d A@\314\3168 \"\314\201O 8 \"#)\207 \242\374=\203\372\375 !\203\372\211:?\206\260\211@\201^ >\262\203\372\211:\203\334\211@\201_ >\203\324\211A@\211\250\205\317\211\373V\266\202\202\341\370!\262\202\341\211\373V\262\203\372\201d A@\314\316 8\"\314\201O 8\"#\207\242\374=\203\266\375!\203\266 \242\374=\203\266\375 !\203\266\3168\211:\203=\211@\201b >\2035\211A@\211\250\2050\211\373W\266\202\202B\371!\262\202B\211\373W\262\204v\316 8\211:\203n\211@\201b >\203f\211A@\211\250\205a\211\373W\266\202\202s\371!\262\202s\211\373W\262\203\332\3168\211:\203\237\211@\201_ >\203\227\211A@\211\250\205\222\211\373V\266\202\202\244\370!\262\202\244\211\373V\262\203\266\201O 8\211:\203\322\211@\201_ >\203\312\211A@\211\250\205\305\211\373V\266\202\202\327\370!\262\202\327\211\373V\262\204\266\314\316 8\"\314\201O 8\" G\211 H\242\374=\204 \374 A@\201e >\203\201O \202\373H\211FHG\242\374=\204+\374 A@\201f >\203$\201O \202%\373G\211FG\201g \316H8 A@\201h >\204E\365\316H8!\205MHA@\201i >\201O H8 A@\201j >\204h\365\201O H8!\205pHA@\201k >\316G8 A@\201l >\204\207\365\316G8!\205\217GA@\201m >\201O G8 A@\201n >\204\252\365\201O G8!\205\262GA@\201o >&*\207\242\201p =\203\347 \242\201p =\203\347\3168\316 8\232\203\347\201q \201r A@ A@\3168#\3168\"\207\242\201p =\203 \211:?\206\375\211@\201s >\262\203 \201q \201r A@ \3168#\3168\"\207 \242\201p =\203C \211:?\206+ \211@\201s >\262\203C \201q \201r A@\316 8#\316 8\"\207\211:?\206N \211@\306>\262\204\\ \201t \201u \"\207\201t \201u \"\207" [a b sqrt root calc-symbolic-mode calc-internal-prec (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 (frac float cplx polar hms date sdev intv mod vec) (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 (frac float) (frac float) math-zerop Math-integerp (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 (frac float hms) math-reject-arg numberp] 12])
(defalias 'math-quarter-integer #[(x) "\301!\203 \302\207\303!\203 \304\305!!\211\205\244 \306Z\207@\307=\203H \3108\310=\203- \310\207\3108\306=\205\244 A@\211:\203D A@\202E \306\246\207@\311=\205\244 \3108\302Y\203Y \302\207\3108\312U\203z A@\211:\203p A@\202q \313\246\314U\205\244 \310\207\3108\315U\205\244 A@\211:\203\221 A@\202\222 \316\246\211\317U\203\235 \320\207\321U\205\244 \322\207" [x Math-integerp 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) "\303!\203[ \303 !\203[ \303\n!\203[ \211:\2037 \211@\304>\203/ \211A@\211\250\205* \211\305W\266\202\202< \306!\262\202< \211\305W\262\203M \307\310\311 \211[\262\n#\n#\207\n\310=\203U \305\207\312 \n#\207\313\314 \"\n\"\207" [a b m Math-integerp (frac float) 0 math-negp math-div-mod 1 math-pow-mod math-pow-mod-step math-mod math-pow] 6])
(defalias 'math-pow-mod-step #[(a n m) "\306=\203 \307\310 \"\210\n\311\267\202 \312\2029 \2029 \313\314\315 \211\" \"\316\n! # \317\n!\2031 \f\2028 \320\315 \f\" \") \306=\203E \307\310
\"\210
)\207" [calc-display-working-message a n m rest val lots math-do-working "pow" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 17 1 21)) 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 \211@\303>\262\2045 @\304=\2045 @\305=\203* \306!\2045 \307!\2045 \310\311\"\210\312 \"\207" [a b (var inf var-inf) (frac float hms) date intv math-intv-constp math-infinitep math-reject-arg anglep math-min-list] 3])
(defalias 'math-min-list #[(a b) "\203C @\211:?\206 \211@\302>\262\2043 @@\303=\2043 @@\304=\203, \305@!\2043 \306@!\203= \307\310 @\"A\"\207\311@\312\"\207 \207" [b a (frac float hms) date intv math-intv-constp math-infinitep math-min-list math-min math-reject-arg anglep] 4])
(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 \211@\303>\262\2045 @\304=\2045 @\305=\203* \306!\2045 \307!\2045 \310\311\"\210\312 \"\207" [a b (neg (var inf var-inf)) (frac float hms) date intv math-intv-constp math-infinitep math-reject-arg anglep math-max-list] 3])
(defalias 'math-max-list #[(a b) "\203C @\211:?\206 \211@\302>\262\2043 @@\303=\2043 @@\304=\203, \305@!\2043 \306@!\203= \307\310 @\"A\"\207\311@\312\"\207 \207" [b a (frac float hms) date intv math-intv-constp math-infinitep math-max-list math-max math-reject-arg anglep] 4])
(defalias 'math-abs #[(a) "\211:\203% \211@\305>\203 \211A@\211\250\205 \211\306W\266\202\202* \307!\262\202* \211\306W\262\2031 \310!\207\211:?\206< \211@\311>\262\203C \207@\312=\203S \313A@\3148\"\207@\315=\203^ A@\207@\316=\203\216 AAA\203r \317\320!!\207AA\203\201 \313A@\3148\"\207A\203\214 \321A@!\207\207@\322=\203\240 \322\321A@!\3148E\207@\323=\2032\324!\2032\211:\203\322 \211@\325>\203\312 \211A@\211\250\205\305 \211\306V\266\202\202\327 \326!\262\202\327 \211\306V\262\203\334 \207\310\3148!\327 \3308\"\211\331U\203\332A@\333>\203\374 \314\202\375 \330\306 #\2020\n\306U\203 \332A@\306=\203\314\202\330\306 #\2020\332A@\334>\203*\314\202+\330\306\3308#*\207\335!\203>\336\310!D\207\337!\211\340>\203L\206U \341>\205U\310!)\206x\342!\211 \205l\f\343\232\203k\f\202l\344)\206x\345\346\"\210\336D\207" [a nlo res signs inf (frac float) 0 math-negp math-neg (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>\203< A@\211:?\206) \211@\306>\262\203< @\304A@!\307\3108DE\207@\311=\203v A@@\312=\203v A@A@\211:?\206[ \211@\306>\262\203v \312\304A@A@!\307\311\310A@8\3108EDE\207\313!\203~ \207@\307=\203\207 \207@\314\236\211\205\225 AAB)\206\235 \315\316\"\207" [a func intv mapcar math-float (* /) (frac float cplx polar) 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=\203n\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\311 \211@\326>\203\301 \211A@\211\250\205\274 \211\311W\266\202\202\316 \327!\262\202\316 \211\311W\262\203\3038\211\250\206\352 \211:\205\352 \211@\330=\205\352 \3038\311Y\262\203A@\331>\203\332\305\3038!\325\"\202\305\3038!\3228\211:\203.\211@\333>\203&\211A@\211\250\205!\211\311V\266\202\2023\334!\262\2023\211\311V\262\203g\3228\211\250\206O\211:\205O\211@\330=\205O\3038\311Y\262\203gA@\335>\203g\332\305\3228!\336\"\202l\305\3228!#\207\337!\203v\207\211\242\340=\262\203\205\341\342\"\207\343!\203\233\334!\204\227\327!\203\231\207\344\207\345!\206\245\346\347\"\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 (frac float) math-negp 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] 7])
(defalias 'math-trunc-special #[(a prec) "\211:\205 \211@\303=\205 \3048\305Y\262\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] 5])
(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 \211@\302=\205 \3038\304Y\262\203( \203& \250\203( \304X\203( \207\305\306 \"!\207" [a prec float 2 0 math-float math-trunc] 4])
(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\257 \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\250\206\220 \211:\205\220 \211@\324=\205\220 \3058\320Y\262\203\250 A@\325>\203\250 \310\313\3068!\311\"\202\255 \313\3068!#\207\211\242\326=\262\203\276 \327\330\"\207\331!\203\324 \303!\204\320 \332!\203\322 \207\333\207\334!\206\336 \335\336\"\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 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] 7])
(defalias 'math-floor-special #[(a prec) "\211:\205 \211@\303=\205 \3048\305Y\262\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] 5])
(defalias 'calcFunc-ffloor #[(a &optional prec) "\211:\205 \211@\302=\205 \3038\304Y\262\203( \203& \250\203( \304X\203( \207\305\306 \"!\207" [a prec float 2 0 math-float math-floor] 4])
(defalias 'math-ceiling #[(a &optional prec) "\203E \211:\205 \211@\303=\205 \3048\305Y\262\203 \306!\250\204) \307\310\"\210\305X\2037 \311 !\2037 \207\312\313\314\312 \")![\"\207\315 !\203M \207 \211:\205_ \211@\303=\205_ \3048\305Y\262\203h \306 !\207 \211:?\206s \211@\316>\262\203\260 \211:\203\235 \211@\317>\203\225 \211A@\211\250\205\220 \211\305V\266\202\202\242 \320!\262\202\242 \211\305V\262\203\254 \321\306 !\322\"\207\306 !\207\311 !\203\270 \207 @\323=\203\340 \324 !\204\325 \325\304 8!\203\331 \325\326 8!\203\331 \306 !\207\321\306 !\322\"\207 @\327=\203\357 \327\313 A@!D\207 @\330=\203_\331\304 8\332\232\203 A@\333>\203 \305\202\f\304\326 8\334\232\203 A@\335>\203 \305\202!\322\\\304 8\211\250\206;\211:\205;\211@\303=\205;\3048\305Y\262\203S A@\336>\203S\321\337\304 8!\322\"\202X\313\304 8!\313\326 8!#\207 \211\242\340=\262\203n\341\342 \"\207\343 !\203\204\320 !\204\200\324 !\203\202 \207\344\207\345 !\206\216\307 \346\"\207" [prec a calc-prefer-frac float 2 0 math-trunc math-reject-arg fixnump math-provably-integerp calcFunc-scf math-ceiling t Math-integerp (frac float) (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) (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] 6])
(defalias 'calcFunc-ceil 'math-ceiling)
(defalias 'calcFunc-fceil #[(a &optional prec) "\211:\205 \211@\302=\205 \3038\304Y\262\203( \203& \250\203( \304X\203( \207\305\306 \"!\207" [a prec float 2 0 math-float math-ceiling] 4])
(defvar math-rounding-mode nil)
(defalias 'math-round #[(a &optional prec) "\203E \211:\205 \211@\305=\205 \3068\307Y\262\203 \310!\250\204) \311\312\"\210\307X\2037 \313 !\2037 \207\314\315\316\314 \")![\"\207 \211:?\206P \211@\317>\262\203 \211\250\206l \211:\205l \211@\305=\205l \3068\307Y\262\203u \310 !\207 \211:\203\232 \211@\320>\203\222 \211A@\211\250\205\215 \211\307W\266\202\202\237 \321!\262\202\237 \211\307W\262\203\260 \322=\204\260 \323\315\323 !!!\207\324 \325 \211\211:?\206\277 \211@\326=\262\203\310 \327\202\311 \330\")\211\211\250\206\343 \211:\205\343 \211@\305=\205\343 \3068\307Y\262\203\377 \331=\203\377 \332 !\333 !\204\375 \334 \335\" \207\332 !\207\313 !\203 \207 @\336=\203\336\315 A@!D\207 @\337=\203(\332\325 \340\"!\207 \211\242\341=\262\2037\342\343 \"\207\344 !\203M\345 !\204I\321 !\203K \207\346\207\347 !\206W\311 \350\"\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 (frac float hms) (frac float) math-negp up math-neg deg math-add 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 \211@\302=\205 \3038\304Y\262\203( \203& \250\203( \304X\203( \207\305\306 \"!\207" [a prec float 2 0 math-float math-round] 4])
(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 \211@\301>\262\2037 \211:?\206 \211@\302=\262\204( A@\303=\203* \207\304A@\305\306A@!ZE\207\307\310\"\210\311D\207" [x (frac float) frac 0 float 1 math-numdigs calc-record-why realp calcFunc-mant] 5])
(defalias 'calcFunc-xpon #[(x) "\211:?\206 \211@\301>\262\2037 \211:?\206 \211@\302=\262\204( A@\303=\203* \303\207\304\3058\306A@!S\\!\207\307\310\"\210\311D\207" [x (frac float) frac 0 math-normalize 2 math-numdigs calc-record-why realp calcFunc-xpon] 4])
(defalias 'calcFunc-scf #[(x n) "\250\203\310 \302=\203
\207\303 !\203' \302V\203 \304 \"\207\305 \304\306[\"\"\207 @\307=\203M \302V\203@ \310\304 A@\"\311 8\"\207\310 A@\304\311 8[\"\"\207 @\312=\203_ \313 A@\311 8\\\"\207 @\314>\203x \315 @\316 A@\"\316\311 8\"E!\207 @\317>\203\216 \315 @\316 A@\"\311 8E!\207 @\320=\203\252 \315 @ A@\316\311 8\"\316\321 8\"F!\207 @\322=\203\266 \323\324 \"\207\325 !\203\276 \207\326\327 \"\210\316 E\207\330!\203\341 \3118\331W\203\335 \316 \332!\"\207\333!\207\334!\203\353 \333!\207\326\335\"\210\316 E\207" [n x 0 Math-integerp 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] 7])
(defalias 'calcFunc-incr #[(x &optional step relative-to) "\204 \304\305!\204 \306\307\"\207\305 !\203 \310 \"\207 @\311=\203L \312 !\203: \n\242\311=\203: \313\314\n\304 Z\"\"\207\315 \316\317 8\320 A@! Z\\\"\"\207 @\321=\203i \305 A@!\203` \310 \"\207\310 \322\323\211F\"\207\306 \324\"\207" [step x relative-to calc-internal-prec 1 Math-integerp 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] 7])
(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 \211@\302>\262\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 (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\250\205 \211\303Y\262\203' \211\250\205 \211\303Y\262\203' \303=\204' \304 \"\207\211:?\2062 \211@\305>\262\203V \211:?\206B \211@\305>\262\203Q \306\307\310 \"!)\207\311 \312\"\207\242\313=\203s \242\313=\203n \306\307\310 \"!)\207\311 \314\"\207\242\315=\204\212 \211:?\206\205 \211@\305>\262\203\250 \242\315=\204\241 \211:?\206\234 \211@\305>\262\203\250 \307\310 \"!\207\316!\204\264 \316 !\203\271 \310 \"\207\311\317\"\207" [a b calc-prefer-frac 0 math-quotient (frac float) t math-floor math-div math-reject-arg realp hms hmsp intv math-infinitep anglep] 4])
(defalias 'math-combine-sum #[(a b nega negb scalar-okay) "\203+ \211:?\206 \211@\306>\262\203+ \n\211:?\206 \211@\306>\262\203+ \307 \n \f$\207\310\211 :\203\241 @\311=\203Z A@\211:?\206I \211@\312>\262\203Z A@\313 8\202\241 @\314=\203\223 \313 8\211:?\206n \211@\312>\262\203\223 \315\313 8!\203\204 \316\310\313 8E\202\212 \317\310\313 8\" A@\202\241 @\320=\203\241 \321 A@\n:\203\n@\311=\203\312 \nA@\211:?\206\272 \211@\312>\262\203\312 \nA@\313\n8\202\n@\314=\203\313\n8\211:?\206\336 \211@\312>\262\203\315\313\n8!\203\364 \316\310\313\n8E\202\372 \317\310\313\n8\"\nA@\202\n@\320=\203\321\nA@\203! \n\322\"\323U\266\202\202$ \n\232\205E \2031\324!\f\2039\324
!\325
\"\326 \"*\207" [scalar-okay a b nega negb bmult (frac float cplx polar hms date sdev intv mod vec) math-add-or-sub 1 * (frac float cplx polar hms date sdev intv mod) 2 / Math-integerp frac math-div neg -1 math-compare 0 math-neg math-add math-mul amult math-simplifying] 5])
(defalias 'math-add-or-sub #[(a b aneg bneg) "\203 \304 !\n\203 \304 ! \211\242\305=\262\204$ \211\242\305=\262\203+ \306\307 E!\207\310 \"\207" [aneg a bneg b math-neg vec math-normalize + math-add] 4])
(defvar math-combine-prod-e '(var e var-e))
(defalias 'math-combine-prod #[(a b inva invb scalar-okay) "\203+ \211:\203# \211@\306=\203 \211A@\307=\262\202( \310!\262\202( \211\307=\262\204V \n\203X \211:\203N \211@\306=\203F \211A@\307=\262\202S \310!\262\202S \211\307=\262\203X \311\207\f\203\225 \211:?\206g \211@\312>\262\203\225 \211:?\206w \211@\312>\262\203\225 \313 \n$\211\211:?\206\216 \211@\312>\262\205\375 \207 \242\314=\203\266 \203\266 \315\316 8!\203\266 \317\320 A@\321\316 8!\" \"\207 \242\314=\203\327 \n\203\327 \315\316 8!\203\327 \317 \320 A@\321\316 8!\"\"\207
\203\342 \322 \"\206\375\323\211 ( ) :\203L @\314=\203
\204\n\316 8\211:?\206\211@\324>\262\203\316 8) A@\202L @\325=\203'\326) A@\202L @\327=\203L
\204D A@\211:?\206?\211@\324>\262\203L A@)* :\203t @\330=\203t A@\316 8\331\"\332U\266\202\203t\333\323 \"\321)!) :\203\330 @\314=\203\242
\204\226\316 8\211:?\206\221\211@\324>\262\203\242\316 8( A@\202\330 @\325=\203\263\334( A@\202\330 @\327=\203\330
\204\320 A@\211:?\206\313\211@\324>\262\203\330 A@(* :\203 @\330=\203 A@\316 8\331\"\332U\266\202\203 \333\323 \"\321(!(\203\n\321)!)\n\203\321(!(
\203 \335 \"\202\" \232\203\373\336)(\" +\337 !\203i+\211:\203S\211@\306=\203K\211A@\307=\262\202X\310!\262\202X\211\307=\262\204i)\242\330=(\242\330==\205\367\315+!\203\270 \211:?\206{\211@\330=\262\203\270 \211:\203\245\211@\340>\203\235\211A@\211\250\205\230\211\307V\266\202\202\252\341!\262\202\252\211\307V\262\203\270\333\323 \"\321+!++\342\267\202\316\325 D\202\367\333\323\325 D\"\202\367 *=\203\342 =\203\342\327+D\202\367\3431\357\320 +\"0\202\367 ,\314 +E))\206\374-\203\242.\203\242\344 ! /\311 0/\205\236/\344 !\2110=\205\236 A@/@=\203,\323\2028\345 A@!\307H1\236A@/ A@0@=\203H\323\202T\345 A@!\307H1\236A@0/0\331\"\332U\266\202\203\211\311 2 2 2/20/20)2()2()\317\320\333/0\")\"\320 \336)(\"\"\"*\206\374)(\232\205\374 \211\250\205\263\211\307Y\262\205\374 \211\250\205\301\211\307Y\262\205\374)\346\267\202\342\325\317 \"D\202\374\333\323\325\317 \"D\"\202\374\317 \"\3471\364\320 )\"0\202\374 ,\314 )E)*\207" [inva a invb b scalar-okay math-simplifying float 0 math-zerop nil (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 (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 Math-integerp (frac float) math-posp #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((frac 1 2) 703 (frac -1 2) 709)) (inexact-result) math-check-unit-name symbol-name #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((frac 1 2) 973 (frac -1 2) 982)) (inexact-result) bpow apow math-combine-prod-e sumpow err 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\242\304=\262\204 \211\242\304=\262\203? \305\n\203. \203' \306\307\310\" E\202= \306 E\202= \2039 \306 E\202= \311 E!\207\n\203T \203O \307\211\310\" \"\207\307 \"\207 \203] \307 \"\207\312 \"\207" [a b ainv binv vec math-normalize / math-div 1 * math-mul] 5])
(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)
Zerion Mini Shell 1.0