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



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defvar math-rewrite-default-iters 100)
#@40 

(fn RULES-STR &optional MANY PREFIX)
(defalias 'calc-rewrite-selection #[769 "
C\300\301\302$`\"\207" [calc-do make-closure #[0 "\306 \210\307\310`!]\311\312\211\313\314\"\211@\315!\311\307\300\203)\300\316\232\204)\300\317\232\203B\307U\2036\320\321!\210\202\241\322\307\311\"\262\311\262\202\241\300;\203M\323\300!\202N\300\262\242\320=\203^\320\324A@\"\210G\307U\203l@\262\202q\325B\262\242\326>\204\225\327\330\331\300\332Q!!\211\242\320=\203\216\320\324A@\"\210\333E\262\210\242\334=\204\241\335\336\"\210\301\242\337=\203\257\301\340\240\210\202\273\301\242\203\273\301\341\301\242!\240\210\203\314\342@\343D#\262
\202\325
@\262
\312\262\312\344\345\346\345!\301\242#!!\262
\312\347
!\262
:\204\362\312\203\372\350\307!\210\351\307\302\206

\352C	\203
\307\202
\337Z	\205
C%\210+\266\353 \207" [V0 V1 V2 calc-rewr-sel math-rewrite-selections math-rewrite-default-iters calc-preserve-point 1 calc-locate-cursor-element t nil calc-top entry calc-auto-selection "" "$" error "Can't use same stack entry for formula and rules" calc-top-n math-read-exprs "Bad format in expression: %s" vec (vec var calcFunc-assign calcFunc-condition) math-read-expr read-string "Rewrite from:    " "  to: " calcFunc-assign var calc-record "rule" 0 (var inf var-inf) prefix-numeric-value calc-replace-sub-formula calcFunc-select calc-encase-atoms calc-normalize math-rewrite calc-locate-select-marker calc-pop-stack calc-pop-push-record-list "rwrt" calc-handle-whys] 12]] 10 (#$ . 196) "sRewrite rule(s): \np"])
#@13 

(fn EXPR)
(defalias 'calc-locate-select-marker #[257 "\211\211:?\206\211@\301>\262
\203\207\211@\302=\203/\211G\303U\203/\203'\304\202*\211A@\211A@\207\211@\305\306A\"B\207" [calc-rewr-sel (frac float cplx polar hms date mod var) calcFunc-select 2 t mapcar calc-locate-select-marker] 5 (#$ . 1772)])
#@23 

(fn RULES-STR MANY)
(defalias 'calc-rewrite #[514 "\211C\300\301\302#`\"\207" [calc-do make-closure #[0 "\303\211\211\300\203\300\304\232\204\300\305\232\203$\306\307!\262
\306\310\311\"\262\307\262\202\213\300;\203/\312\300!\2020\300\262
\242\313=\203@\313\314A@\"\210
G\310U\203N
@\262\202S\315B\262
\242\316>\204w\317\320\321\300\322Q!!\211\242\313=\203p\313\314A@\"\210\323E\262\210
\242\324=\204\203\325\326\"\210\306\310!\262
\310\262\301\242\327=\203\231\301\330\240\210\202\245\301\242\203\245\301\331\301\242!\240\210\332\333\301\242#!\262
\303\334
!\262
)\335\336C#\266\337 \207" [V0 V1 calc-rewr-sel nil "" "$" calc-top-n 2 1 t math-read-exprs error "Bad format in expression: %s" vec (vec var calcFunc-assign calcFunc-condition) math-read-expr read-string "Rewrite from:    " " to: " calcFunc-assign var calc-record "rule" 0 (var inf var-inf) prefix-numeric-value calc-normalize math-rewrite calc-locate-select-marker calc-pop-push-record-list "rwrt" calc-handle-whys] 8]] 8 (#$ . 2091) "sRewrite rule(s): \nP"])
#@34 

(fn PAT &optional INTERACTIVE)
(defalias 'calc-match #[513 "
C\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\211\300\242\203\300\242\302\232\204\300\242\303\232\203&\304\305!\262
\300\304\306!\240\210\305\262\202^\300\211\242;\2034\307\300\242!\2026\300\242\240\210\300\242\242\310=\203H\310\311\300\242A@\"\210\300\242\242\312=\204V\313\300\242\314\"\210\304\306!\262
\306\262\211\211\242\315=\262
\204l\310\316!\210\317\320\321\300\242\322 ??##\207" [V0 nil "" "$" calc-top-n 2 1 math-read-expr error "Bad format in expression: %s" var calc-record "pat" vec "Argument must be a vector" calc-enter-result "mtcn" math-match-patterns calc-is-inverse] 9]] 7 (#$ . 3162) "sPattern: \np"])
#@51 

(fn REWRITE-WHOLE-EXPR RULES &optional MT-MANY)
(defalias 'math-rewrite #[770 "\211\306!\307!C\310\311!\312\313\314\315\316 \315!\317\320#\"\n\203A\321\315\211E!r\nq\210\316#db\210\322
\323\261\210)\210	\204O
@A@\206N$	\324\232\203W\325	\326\232\203_\327\330\331@8!\210\n\203\210\321\315\211E!r\nq\210\332	\333U\203\334\202\200\335\336\323\261\210)\210.\n\207" [math-rewrite-whole-expr math-mt-many trace-buffer calc-display-just calc-display-origin calc-line-breaking math-compile-rewrites math-rewrite-heads get-buffer "*Trace*" center 39 78 nil t make-closure #[257 "\303
\300A\301\242\300$\211\203+\n\203\"\304
\305\211E!r\nq\210\306
\307\261\210)\210\301\310\301\242\311#\240\210\207" [V0 V1 trace-buffer math-apply-rewrites math-format-stack-value nil "\nrewrite to\n" "\n" math-rewrite-heads t] 7 "\n\n(fn X)"] math-format-stack-value "\n\nBegin rewriting\n" "\n" (var inf var-inf) 1000000 (neg (var inf var-inf)) -1000000 math-rewrite-phase 3 "\nDone rewriting" 0 " (reached iteration limit)" "" ":\n" calc-line-numbering calc-show-selections calc-why math-mt-func truncate-lines math-rewrite-default-iters] 11 (#$ . 3880)])
(defvar math-rewrite-phase 1)
#@14 

(fn SCHED)
(defalias 'math-rewrite-phase #[257 "\211\205{\304U?\205{\211@<\203#	\303@!\210	
\232?\262
\204\202t\211@9\203Q\305
@	D!\n\203t\306	\307\211E!r\nq\210\310\311@!\312\307O\313\314\261\210)\210\202t\211@\n\203cr\nq\210\315\316\"c\210)	\305\317	!!\211
\232?\262
\204c)\211A\262
\202\207" [math-mt-many math-rewrite-whole-expr trace-buffer math-rewrite-phase 0 math-normalize math-format-stack-value nil "\ncall " symbol-name 9 ":\n" "\n" format "\n(Phase %d)\n" math-map-tree-rec] 8 (#$ . 5092)])
#@34 

(fn EXPR RULES &optional MANY)
(defalias 'calcFunc-rewrite #[770 "\211\203\211\250\204\211\300\232\204\211\301\232\204\302
\303\"\210\3041)\305\206&\306#0\207\302A@\"\207" [(var inf var-inf) (neg (var inf var-inf)) math-reject-arg fixnump (error) math-rewrite 1] 7 (#$ . 5626)])
#@16 

(fn PAT VEC)
(defalias 'calcFunc-match #[514 "\211\211\242\300=\262
\204\301
\302\"\210\3031\304\305#0\207\301A@\"\207" [vec math-reject-arg vectorp (error) math-match-patterns nil] 6 (#$ . 5928)])
#@16 

(fn PAT VEC)
(defalias 'calcFunc-matchnot #[514 "\211\211\242\300=\262
\204\301
\302\"\210\3031\304\305#0\207\301A@\"\207" [vec math-reject-arg vectorp (error) math-match-patterns t] 6 (#$ . 6142)])
#@35 

(fn PAT VEC &optional NOT-FLAG)
(defalias 'math-match-patterns #[770 "\300\301!A\211\262\203 \302@\"?=\203@B\262\202\303\237B\207" [nil math-compile-patterns math-apply-rewrites vec] 8 (#$ . 6357)])
#@17 

(fn EXPR PAT)
(defalias 'calcFunc-matches #[514 "\3001\301\302!\"\203\303\202\3040\207\305A@\"\207" [(error) math-apply-rewrites math-compile-patterns 1 0 math-reject-arg] 6 (#$ . 6579)])
#@17 

(fn EXPR PAT)
(defalias 'calcFunc-vmatches #[514 "\3001\301\302!\"\206\3030\207\304A@\"\207" [(error) math-apply-rewrites math-compile-patterns 0 math-reject-arg] 6 (#$ . 6785)])
(defvar math-rewrite-whole nil)
#@13 

(fn PATS)
(defalias 'math-compile-patterns #[257 "\211\242\301=\203A\302\3038!\203A\303
8\304N\211\204$\305\3038\304\306C\211\262#\210\211@\3038J=\204>\211\307\3038J!\241\210\211\3038J\240\210\211A\207\310\311\312\313\314\242\312=\203SA\202UC\"B!A)\207" [math-rewrite-whole var calc-var-value 2 math-pattern-cache put nil math-compile-patterns t math-compile-rewrites vec mapcar #[257 "\300
\301E\207" [vec t] 4 "\n\n(fn X)"]] 7 (#$ . 7012)])
(defvar math-make-import-list nil)
(defvar math-import-list nil)
#@29 

(fn RULES &optional NAME)
(defalias 'math-compile-rewrites #[513 "
\242\306=\203\211\3078\310N\311\312\311
\313\3078!\204$\314\315A@\"\210\204:\316\3078\310\307	8CCC\211\262#\210@\262
\211\203T\211@@J
@A=\203T\211A\262
\202>\211\203\205\317\320A@\"\210\321\3078J\307	8\"\241\210\317\322A@\"\210\3078\3078JB	B\240\210A*\207
\242\323=\203\256
G\324>\203\265
\211A\211\262\203\250\211@\242\325>\204\230\211\262
\203\265
C\262\202\271
A\262\326\236\203V
\327!\211\262\311\211A@\211\262\203T

\242\326=\203M
\211AA\241\210
A@\242\306=\203\372\313\307A@8!\211\262\203\372\211\242\330>\204\376\314\331!\210\203
\307A@8\307A@8JB	B
AA\211\262\2030

A\204#
\314\332!\210\333
@A@#\262
\202
\211\242\323=\203>
\211A\262
\202B
\211C\262
\334A\"\241\210\202\307A\262\202\307\266\311\211\211\211\211\211\211\211\211\211\211\203\334@\242\335=\203\253
@G\307U\203\253
@A@\250\204\235
@A@\336\232\204\235
@A@\337\232\204\235
\314\340!\210\204\324@A@\262\202\324@\242\341=\203\303
\204\324\342	@A!\262\202\324@\242\343=\203@A\262
\344\232\203\333
\311\262
\211\203\376
\211@\250\204\352
\314\345!\210\211@>\204\367
\211@B\262\211A\262
\202\334
\210\202\324@\242\323=\2031@AA\2031\346	@\233\2041\347	@8\307	@8@A@\211\204w\311@\f\242\350=\203]\fG\347U\203]\307\f8\n\203S\351\nE\202T\211\fA@\210\2027\f\242\352=\203\316\fG\347U\203\316\307\f8\fA@\211\203\316\311C\211@\353A\311\354\311\211FCB\311\211CD\311E\n\205\227\355\n!\356\f\354\"\210\n\203\256\n@\nA\357
!\266\202\235\360\361\312=\203\304\323\362\311\363\364B\"\237\"B\202\307\365!
#\210\211A\262
\366\f!\367\363\370B\"\237!F\f\211:?\206\351\211@\371>\262
?\205'@@\372=\205\373\373@8?\205'@@\374>?\205'@@\375>\203\307@8\202'\f@\376=\203%\fA@\242\202'\f@\311\203P@\236\211\262\203@\211
AT\241\210\202I@\353BB\262A\262\202(\210\211\377=\203\\\201F\262
\211\201G>\203g\323\262
\211\203\253\211\236\206\211\327\n!BB\211\262\f@C\244\210\211\201H=\203\306\201I\236\206\243\201I\327\n!BB\211\262\f@C\244\266\202\310C\244\262	\n\211\203\305\211@C\244\210\211A\262
\202\264\210\266.\210\202\324\314\201J!\210A\262	\202e
\203\350\311BB\262\363\201K\201L\201M\"\"\262\311\211\211\203I@A\262\203B\307@8\211\262:\203;\362@@\"\262	\262
\211\2033\211@>\2043\211A\262
\202!@AA
@\240\210A\262\202A\262\202\375\266\201F\236\211\203^\377
ABB\262\210\201N	\206w\201L\201O\"\206w\353CF,B\207" [math-make-import-list math-import-list math-conds math-rhs math-pattern math-remembering var 2 math-rewrite-cache nil t calc-var-value error "Rules variable %s has no stored value" put message "Compiling rule set %s..." math-compile-rewrites "Compiling rule set %s...done" vec (3 4) (vec calcFunc-assign calcFunc-condition calcFunc-import calcFunc-phase calcFunc-schedule calcFunc-iterations) calcFunc-import copy-sequence (vec calcFunc-assign calcFunc-condition) "Argument of import() must be a rules variable" "import() must have odd number of arguments" math-rwcomp-substitute append calcFunc-iterations (var inf var-inf) (neg (var inf var-inf)) "Invalid argument for iterations(n)" calcFunc-schedule math-parse-schedule calcFunc-phase ((var all var-all)) "Phase numbers must be small integers" 4 3 calcFunc-condition calcFunc-land calcFunc-assign 1 0 math-flatten-lands math-rwcomp-pattern math-rwcomp-cond-instr math-rwcomp-instr done delq mapcar #[257 "\211@\205\300\301@!\302A@!E\207" [calcFunc-assign math-build-var-name math-rwcomp-register-expr] 5 "\n\n(fn V)"] math-rwcomp-match-vars math-rewrite-heads vconcat #[257 "\300
8\207" [3] 3 "\n\n(fn X)"] (frac float cplx polar hms date mod var) try 5 (func-opt apply select alt) (func func-def) calcFunc-quote - math-prog-last math-num-regs math-regs math-bound-vars math-aliased-vars math-copy-neg + (calcFunc-cons calcFunc-rcons) * / "Rewrite rule set must be a vector of A := B rules" car sort #[514 "
A
AW\207" [] 4 "\n\n(fn X Y)"] schedule <] 19 (#$ . 7544)])
#@13 

(fn EXPR)
(defalias 'math-flatten-lands #[257 "\211\242\300=\203\301\302A@!\302\3038!\"\207\211C\207" [calcFunc-land append math-flatten-lands 2] 6 (#$ . 11683)])
#@32 

(fn EXPR &optional MORE ALL)
(defalias 'math-rewrite-heads #[769 "

?\205\303?\205
\304\211:?\206\211@\305>\262
\204$\306!\210\n+\207" [math-rewrite-heads-blanks math-rewrite-heads-skips math-rewrite-heads-heads (calcFunc-apply calcFunc-condition calcFunc-opt calcFunc-por calcFunc-pnot) (calcFunc-quote calcFunc-plain calcFunc-select calcFunc-cons calcFunc-rcons calcFunc-pand) (frac float cplx polar hms date mod var) math-rewrite-heads-rec] 6 (#$ . 11858)])
#@13 

(fn EXPR)
(defalias 'math-rewrite-heads-rec #[257 "\211@>\206D\211@	>\204#\211@\n>\204#\303
@\304N>\204#\211@	B\211A\211\262\205D\211@\211:?\2067\211@\305>\262
\204#\306
@!\210\202#\207" [math-rewrite-heads-skips math-rewrite-heads-heads math-rewrite-heads-blanks algebraic math-rewrite-props (frac float cplx polar hms date mod var) math-rewrite-heads-rec] 4 (#$ . 12339)])
#@14 

(fn SCHED)
(defalias 'math-parse-schedule #[257 "\300\301\"\207" [mapcar #[257 "\211\250\203\207\211\211\242\300=\262
\203\301
A!\207\211\242\302=\203 \303
!\207\304\305!\207" [vec math-parse-schedule var math-var-to-calcFunc error "Improper component in rewrite schedule"] 4 "\n\n(fn S)"]] 4 (#$ . 12733)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-match-vars #[257 "\211\211:?\206\211@\301>\262
\203)\211\242\302=\203(\303
8\236\211\203&\304
A@!\207
\207\207\211@\305=\203=\211G\303U\203=\306
A@!\207\211@\307=\203m\211G\303U\203m\211A@\211:?\206X\211@\301>\262
\204m\211@
A@@\310\306A@A\"BD\207\211@\310\306A\"B\207" [math-regs (frac float cplx polar hms date mod var) var 2 math-rwcomp-register-expr calcFunc-quote math-rwcomp-match-vars calcFunc-plain mapcar] 6 (#$ . 13055)])
#@12 

(fn NUM)
(defalias 'math-rwcomp-register-expr #[257 "
ZS	8\302
8\203\303\304A@DD\207\304
A@D\207" [math-num-regs math-regs 2 neg calcFunc-register] 5 (#$ . 13542)])
#@47 

(fn EXPR RWCOMP-SUBST-OLD RWCOMP-SUBST-NEW)
(defalias 'math-rwcomp-substitute #[771 "


\242\304=\203!\211\242\305>\203!\306!\306!\307!*\202'\310\307!)*\207" [math-rwcomp-subst-new math-rwcomp-subst-old math-rwcomp-subst-new-func math-rwcomp-subst-old-func var (var calcFunc-lambda) math-var-to-calcFunc math-rwcomp-subst-rec nil] 6 (#$ . 13719)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-subst-rec #[257 "\211\232\203	\207\211\211:?\206\211@\304>\262
\203\207\211@\n=\203)\305\306\307A\"\"\207\211@\306\307A\"B\207" [math-rwcomp-subst-old math-rwcomp-subst-new math-rwcomp-subst-old-func math-rwcomp-subst-new-func (frac float cplx polar hms date mod var) math-build-call mapcar math-rwcomp-subst-rec] 6 (#$ . 14087)])
(defvar math-rwcomp-tracing nil)
#@14 

(fn INSTR)
(defalias 'math-rwcomp-trace #[257 "\203\301 \210\302
!\210\207" [math-rwcomp-tracing terpri princ] 3 (#$ . 14503)])
#@20 

(fn &rest INSTR)
(defalias 'math-rwcomp-instr #[128 "\301!C\211\241\207" [math-prog-last math-rwcomp-trace] 4 (#$ . 14642)])
#@25 

(fn TAIL &rest INSTR)
(defalias 'math-rwcomp-multi-instr #[385 "\301\302\"!C\211\241\207" [math-prog-last math-rwcomp-trace append] 7 (#$ . 14778)])
#@16 

(fn REG VAR)
(defalias 'math-rwcomp-bind-var #[514 "\301!\3028\240\210\302
8B\303 \207" [math-bound-vars math-rwcomp-reg-entry 2 math-rwcomp-do-conditions] 5 (#$ . 14939)])
#@13 

(fn MARK)
(defalias 'math-rwcomp-unbind-vars #[257 "
=?\205@	\236\302\240\210A\211\202
\207" [math-bound-vars math-regs nil] 4 (#$ . 15124)])
(defalias 'math-rwcomp-do-conditions #[0 "\211\205$\301
@!\203\211@\302@\"
\303\240\210\304
!\266\211A\262
\202
\207" [math-conds math-rwcomp-all-regs-done delq 1 math-rwcomp-cond-instr] 5])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-cond-instr #[257 "\303\211\242\304=\203'G\305U\203'\306A@!\211\262\242\307=\203'\310\3118A@\"\207\306!\211\262\211:?\2067\211@\312>\262
\203g\211:\203[\211@\313=\203S\211A@\314=\262
\202`\315
!\262
\202`\211\314=\262
\205\323
\316\317!\207@\320=\203\207G\305U\203\207\321 \316\322\3118#\210\310A@\"\207@\320=\203\275G\311U\203\275A@\242\323=\203\275A@G\305U\203\275\321 \316\322\311A@8#\210\310A@A@\"\207\242\324\236A\211\262\203
G\311U\203
A@\242\325=\203\351
\326>\203\351A@A@\211\262\204\362A@\211\262\203
A@\211\262\242\307=\203
\316A@\"\207\242\236\203[
G\305U\203[
A@\242\307=\203[
\327\3118!\203<
\321 \305	@\233\3118\240\210\316\330A@A@@$\207\3118@\307=\203V
\316\330A@A@@\3118A@$\207\316\331\"\207\242\332=\203\244
G\305U\203\244
A@\242\333=\203\244
A@A@\242\307=\203\244
\327\311A@8!\203\244
\327\3118!\203\244
\316\334A@A@A@\311A@8\3118$\207\335\232\203\256
\336\211\207\242\337=\203\317
G\311U\203\317
\n\203\311
\340\nA@E\202\314
A@\211\207\316\331\"\207" [calc-tweak-eqn-table math-regs math-remembering nil calcFunc-matches 3 math-rwcomp-match-vars calcFunc-register math-rwcomp-pattern 2 (frac float cplx polar) float 0 math-zerop math-rwcomp-instr backtrack calcFunc-let math-rwcomp-reg let calcFunc-assign ((calcFunc-integer . integer) (calcFunc-real . real) (calcFunc-constant . constant) (calcFunc-negative . negative)) neg (integer real constant) math-constp rel cond calcFunc-eq % mod (var remember var-remember) 1 calcFunc-remember calcFunc-lor] 9 (#$ . 15481)])
#@22 

(fn REG1 REG2 NEG)
(defalias 'math-rwcomp-same-instr #[771 "\300\301\302!8\301\302!8==\203\303\202\304#\207" [math-rwcomp-instr 2 math-rwcomp-reg-entry same-neg same] 8 (#$ . 17102)])
#@22 

(fn REG1 REG2 NEG)
(defalias 'math-rwcomp-copy-instr #[771 "\300\301!8\300\301!8=
=\203\302\303#\207=\206!\302\304#\207" [2 math-rwcomp-reg-entry math-rwcomp-instr copy-neg copy] 7 (#$ . 17303)])
(defalias 'math-rwcomp-reg #[0 "\302\302\303F	BT\207" [math-num-regs math-regs nil 0] 5])
#@12 

(fn NUM)
(defalias 'math-rwcomp-reg-entry #[257 "
ZS	8\207" [math-num-regs math-regs] 3 (#$ . 17613)])
#@39 

(fn EXPR PART &optional NOT-DIRECT)
(defalias 'math-rwcomp-pattern #[770 "\306!\204@\307=\203;G\310U\203;A@\211\262\203;\242\311=\203,\312A@\313#\207\314 \315@\233\240\210\312\313#\207@\316=\203\212\3108\236\211\203S\312A@\313#\207
\203d\314 \317\"\210\320\313#\207\3108	\236\211\262\203\205\321
A@!\3108\240\210\211\313\240\210\320A@\313#\207\322\"\207@\323=\203\247G\310U\203\247\314 \324\325#\210\317A@\"\207@\326=\203\271G\327>\203\271\330\331!\207@\332=\203\"
A@@\316=\203

\310A@8\236\211\203\334\312A@\333#\207\n\203\362\334A@!\320\333#\210\317A@\"\207\321!AA\333\240\210\317A@\"\207\335A@!\203
\336\337\340!E!\207\314 \324\341\332$\210\317A@\"\207@\342=\203J
G\315U\203J
\314 \314 \324\343$\210\317A@\"\210\317\3108\"\207@\344=\203r
G\315U\203r
\314 \314 \324\345$\210\317A@\"\210\317\3108\"\207@\346=\203\232
G\315U\203\232
\314 \314 \324\347$\210\317A@\"\210\317\3108\"\207@\350=\203\342
G\315Y\203\342
\317A@\"\210A\262A\211\262\205z\351@!\211\203\336
\352
@!\203\322
\336
@!\210\202\327
\211@B\211A\262
\202\277
\210\202\263
@\353=\203\376
G\315U\203\376
\317A@\"\210\317\3108\"\207@\354=\203\237G\315U\203\237\324\355\313\211\356$\210\313\f
\333\317A@\333#\210	\211\f
\313
=\204Q
@\236\262

@
A@\313E	B
A\262\321
A@!\313\240\210\202+@AA\240\210\313\241\210\317\310\f8\"\210\324\357\360\211#\210\f\241\210	\262
=\204\226
@@\203\217\321@A@!@@\240\210
A\262\202x)\266*\266\361 \207@\362=\203\331G\310U\203\331\324\355\313\211\363$\210\f
\317A@\"\210\364
!\210\324\365\"\210\324\366!\210
@AA\240\210
\313\241\210
\211\207@\367N@\370=\203\370G\310U\203\370\371A@!\204\370A@\262\372
>\203\335!\203\336\337\340!E!\202x\373
>\203\251G\315U\203\251A@\3108\313\211\211\211\211\n@\374=\2036\375!\262\334!B\262\334!B\262\376\"\204]\262\262\262\333\262
\377@\"\203m\330\201B!\210\377@\"\262\n@\201C>\203\206\201D\202\232\n@\201E=\203\226\201F\202\232\n@C\262\201G@\"\203\274\201G@\"\203\266\360\202\275\201H\202\275\310\262\201I\205\310C\201J\f\201K\313\211\211\n%\fA&\210\f@\262\317@A\"\210\324\201LA#\210	\360U\203\234\204\234@\204\234A\333=\204\234\n@\201MN\211\262\203\234\314 \314 \3158\315H\360U\2034\3158\315\201HI\210\324\201J	A\201N\232\203J\201O\202L\201K\313\211\211\f\360U\203_\201H\202`\310\313%&\210\f@\262\317@\"\210\324\201L#\210\f@\374=\203\213\201P\202\216\f@A\311DE\211A\266\211\202x\317@A\"\266\207\202x\201Q\201RA\"\201S
!\201T
!\313\201H\203A\377	@@\"\211\2039\201U@\"\262\211@ABB\262\201I\201Q\201V\"\201W	>\203G\201HU\203@@=\204'\201X	>\203-G\310U\203-@A@=\203-\201Y\2020\201Z
@%\210\210A\262\202\300\201I\201Q\201V\"\341\n\f@$\210\201[\376\"\262\205v\317@@@A\"\210\211T\262
A\262\202]\266\205\262
\207" [math-regs math-aliased-vars math-copy-neg math-conds math-prog-last math-bound-vars math-rwcomp-no-vars calcFunc-quote 2 calcFunc-register math-rwcomp-same-instr nil math-rwcomp-reg 3 var math-rwcomp-pattern math-rwcomp-copy-instr math-rwcomp-reg-entry math-rwcomp-bind-var calcFunc-select math-rwcomp-instr select calcFunc-opt (2 3) error "opt( ) occurs in context where it is not allowed" neg t math-rwcomp-best-reg math-rwcomp-is-algebraic math-rwcomp-cond-instr calcFunc-eq math-rwcomp-register-expr func calcFunc-apply apply calcFunc-cons cons calcFunc-rcons rcons calcFunc-condition math-flatten-lands math-rwcomp-all-regs-done calcFunc-pand calcFunc-por alt [nil nil 4] same 0 math-rwcomp-do-conditions calcFunc-pnot [nil nil 4] math-rwcomp-unbind-vars end-alt backtrack math-rewrite-props calcFunc-plain math-primp algebraic commut - math-rwcomp-neg math-rwcomp-order math-rwcomp-optional-arg math-rewrite-whole math-rhs "Too many opt( ) arguments in this context" (+ -) (+ -) * (* /) math-rwcomp-is-constrained 1 math-rwcomp-multi-instr try vector try2 math-rewrite-default (* /) (*) + mapcar #[257 "\211\300!B\207" [math-rwcomp-best-reg] 4 "\n\n(fn X)"] copy-sequence reverse delq cdr unary1 unary2 func-opt func-def sort] 23 (#$ . 17725)])
#@10 

(fn X)
(defalias 'math-rwcomp-best-reg #[257 "\211\242\301=\2030\302
8\236\211\205+\302
8?\205+\302\303A@!8?\205+\211AA\304\240\210\211A@\262
\2062\305 \207" [math-aliased-vars var 2 math-rwcomp-reg-entry t math-rwcomp-reg] 5 (#$ . 22035)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-all-regs-done #[257 "\211\211:?\206\211@\301>\262
\203,\211\242\302=?\206y\303
8\236\206y\303
8\304=\206y\305
!\207\211@\306=\203@\211G\307U\203@\310\3038!\207\211@\306=\203h\211G\303U\203h\211A@\242\311=\203h\211A@G\307U\203h\310\303A@8!\207\211A\211\262\203w\310
@!\204h\211?\207" [math-regs (frac float cplx polar hms date mod var) var 2 var-remember math-const-var calcFunc-let 3 math-rwcomp-all-regs-done calcFunc-assign] 4 (#$ . 22291)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-no-vars #[257 "\211\211:?\206\211@\300>\262
\203\211\242\301=?\2065\302
!\207\211@\303>?\2055\211A\211\262\2033\304
@!\204$\211?\207" [(frac float cplx polar hms date mod var) var math-const-var (calcFunc-condition calcFunc-select calcFunc-quote calcFunc-plain calcFunc-opt calcFunc-por calcFunc-pand calcFunc-pnot calcFunc-apply calcFunc-cons calcFunc-rcons) math-rwcomp-no-vars] 4 (#$ . 22794)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-is-algebraic #[257 "\211\211:?\206\211@\301>\262
\203$\211\242\302=?\206>\303
!\206>\304
8\236\207\305
@\306N>\205>\211A\211\262\203<\307
@!\204-\211?\207" [math-regs (frac float cplx polar hms date mod var) var math-const-var 2 algebraic math-rewrite-props math-rwcomp-is-algebraic] 4 (#$ . 23242)])
#@23 

(fn EXPR NOT-THESE)
(defalias 'math-rwcomp-is-constrained #[514 "
\211:?\206\211@\300>\262
\203
\242\301=?\207
@\302=\203$\303A@\"\207
@\304>\206J
@
>\206J\305@\306N>\205J
A@\242\307=\206J\3108\242\307=?\207" [(frac float cplx polar hms date mod var) var calcFunc-plain math-rwcomp-is-constrained (neg calcFunc-select) commut math-rewrite-props calcFunc-opt 2] 5 (#$ . 23594)])
#@18 

(fn HEAD ARGP)
(defalias 'math-rwcomp-optional-arg #[514 "\211@\211\242\300=\2038\211G\301>\205Y\211A@\242\302=\204\303\304!\210

A@\240\210\211G\305U\2034\306N\206Y\303\307!\207\305
8\207\211\242\310=\205Y\211A@C\311\"\211\205W\312@!\240\205W\313
!\266\202\207" [calcFunc-opt (2 3) var error "First argument of opt( ) must be a variable" 2 math-rewrite-default "opt( ) must include a default in this context" neg math-rwcomp-optional-arg math-rwcomp-neg math-neg] 8 (#$ . 23993)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-neg #[257 "\211\242\300>\2035\211A@\242\301=\203\211@\302A@D\3038E\207\303
8\242\301=\2031\211@
A@\302\3038DE\207\304
!\207\304
!\207" [(* /) var neg 2 math-neg] 6 (#$ . 24497)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-assoc-args #[257 "\211A@\242
@=\203\211A@G\300U\203\301
A@!\210\302
8\242
@=\2051\302
8G\300U\2051\301\3028!\207" [3 math-rwcomp-assoc-args 2] 4 (#$ . 24724)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-addsub-args #[257 "\211A@\242\300>\203\301
A@!\210\211@\302=?\205%\303
8\242\304=\205%\301\3038!\207" [(+ -) math-rwcomp-addsub-args - 2 +] 4 (#$ . 24932)])
#@12 

(fn A B)
(defalias 'math-rwcomp-order #[514 "\300@!\300@!W\207" [math-rwcomp-priority] 5 (#$ . 25135)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-priority #[257 "\301
!
\242\302=\203\303\202g\304!\203\305\202g
@\306=\203#\305\202g
@\307=\203F\3108\236\2036\305\202g\311!\312U\203B\313\202g\314\202g
@\315N\316
>\204V\317
>\203Z\320\202e\321
>\203d\322\202e\323\262
\\\207" [math-regs math-rwcomp-count-pnots calcFunc-opt 10000 math-rwcomp-no-vars 0 calcFunc-quote var 2 math-rwcomp-count-refs 1 50 20 math-rewrite-props commut assoc 40 algebraic 30 10] 5 (#$ . 25249)])
#@12 

(fn VAR)
(defalias 'math-rwcomp-count-refs #[257 "\302\"\206\303	\211\203c\211@\242\304=\203\\\211@G\305U\203/
\302\306@8\"\206)\303\\\262\202\\\211@G\306U\203\\\211@A@\242\307=\203\\\211@A@G\305U\203\\
\302\306@A@8\"\206Y\303\\\262\211A\262
\202	
\207" [math-pattern math-conds math-expr-contains-count 0 calcFunc-let 3 2 calcFunc-assign] 7 (#$ . 25737)])
#@13 

(fn EXPR)
(defalias 'math-rwcomp-count-pnots #[257 "\211\211:?\206\211@\300>\262
\203\301\207\211@\302=\203\303\207\301
A\211\262\203/\211\304@!\\\262
\202\207" [(frac float cplx polar hms date mod var) 0 calcFunc-pnot 100 math-rwcomp-count-pnots] 5 (#$ . 26122)])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\302\321#\210\300\322\302\323#\210\300\324\302\325#\210\300\326\302\327#\210\300\330\302\331#\210\300\332\302\333#\210\300\334\302\335#\210\300\336\302\337#\210\300\340\302\341#\210\300\342\302\343#\210\300\344\302\345#\210\300\346\302\347#\210\300\350\302\351#\210\300\352\302\353#\210\300\354\302\355#\210\300\356\302\357#\210\300\360\302\361#\210\300\362\302\363#\210\300\364\302\365#\210\300\366\302\367#\210\300\370\302\371#\210\300\372\302\373#\210\300\374\302\375#\210\300\376\302\377#\210\300\201@\302\201A#\210\300\201B\302\201C#\210\300\201D\302\201E#\210\300\201F\302\201G#\210\300\301\201H\201I#\210\300\304\201H\201I#\210\300\306\201H\201J#\210\300\310\201H\201J#\210\300\312\201H\201J#\210\300\364\201H\201J#\210\300\366\201H\201I#\210\300\201B\201H\201K#\210\300\201D\201H\201L#\210\300\201M\201H\201N#\210\300\201F\201H\201O#\207" [put + math-rewrite-props (algebraic assoc commut) - (algebraic assoc commut) * (algebraic assoc commut) / (algebraic unary1) ^ (algebraic unary1) % (algebraic) neg (algebraic) calcFunc-idiv (algebraic) calcFunc-abs (algebraic) calcFunc-sign (algebraic) calcFunc-round (algebraic) calcFunc-rounde (algebraic) calcFunc-roundu (algebraic) calcFunc-trunc (algebraic) calcFunc-floor (algebraic) calcFunc-ceil (algebraic) calcFunc-re (algebraic) calcFunc-im (algebraic) calcFunc-conj (algebraic) calcFunc-arg (algebraic) calcFunc-and (assoc commut) calcFunc-or (assoc commut) calcFunc-xor (assoc commut) calcFunc-eq (commut) calcFunc-neq (commut) calcFunc-land (assoc commut) calcFunc-lor (assoc commut) calcFunc-beta (commut) calcFunc-gcd (assoc commut) calcFunc-lcm (assoc commut) calcFunc-max (algebraic assoc commut) calcFunc-min (algebraic assoc commut) calcFunc-vunion (assoc commut) calcFunc-vint (assoc commut) calcFunc-vxor (assoc commut) math-rewrite-default 0 1 (vec) (vec) calcFunc-vdiff (vec) (vec)] 4)
#@23 

(fn &optional BACK)
(defalias 'math-rwfail '(macro . #[256 "\300\301\302\203\303\202\f\304\305BBE\207" [setq pc and (setq btrack (cdr btrack)) btrack ('((backtrack)))] 6 (#$ . 28465)]))
#@13 

(fn FORM)
(defalias 'math-rweval '(macro . #[257 "\300\301\302\303\304BBF\207" [let ((orig (car rules))) (setcar rules '(nil nil nil no-phase)) unwind-protect ((setcar rules orig))] 7 (#$ . 28663)]))
#@52 

(fn EXPR RULES &optional HEADS APPLY-RW-RULESET)
(defalias 'math-apply-rewrites #[1026 "C\211\242\242\236\206\306\242\236A\240\205\311\f
\306\211\211\211\211\211\211\211	\n\242\203\304\f\307\f\242@8\211\262\203C
\203C>\203\272\f\310\f\242@8\211\262\203V\211>\203\272\f\242@@\242@A@\262\306\262\n\311I\210\203\272\f
\203\235\312 \210\313@!\210\314@A@!\203\235@A@\nGW\203\235\313\315\316\n@A@H\"!\210@\211\262@\211\262\n\317=\203\376\nA@H\211\262:\203\364@AA\211\262	@=\203\364A\262A\211\262\203\344\203\344\n@@I\210\202\306\204\364\204\364A\262\202m\205\371\320\262\202m\321=\2039
\nA@H\211\262\n\307	8H\211\262\232\204(
\322\"\311U\266\202\203/
A\262\202m\2054
\320\262\202m\323=\203\266
\f\203\266
\f\324=\204\266
\3078@\325=\203\266
\nA@H\211\262:\203\266
@\325=\203\266
\326!\204\266
\3108\262A\262\327H\203\225
\n\3278\3078I\210\330AAI\210\202\247
\n\3278A@I\210\330AI\210\311AI\210\307\311I\210\202m\331\267\202\255\f\nA@H\211\262:\203\332@\3078>\203\332G\310U\203\332@\332=\203\365
\3078\211:?\206\360
\211@\333>\262
\203\332\306\262	AA\211\262A@\262\334@\335N>\203y\310H\311U\204yA@:\203IA@@@>\203I@\336=\2037\337\3078!\202;\3078	B\262	A@\211\262\202v\3078:\203y\3078@@>\203y\3078@\336=\204yA@	B\262	\3078\211\262\204A@@\336=\203\215\337\3078!\202\242@\332=\203\236\340\3078!\202\242\3078\nBB\262	B\262A\262\n\3078\n@I\210\311\nI\210\330\nI\210\307\nAA\203\324\330\202\325\311I\210\202m\3418\203=:\203\"@\342=\203\"\3078@\325=\203\"\3418\330=\203\"\3108\262A\262\n\3278A@I\210\330\343I\210\307\327I\210\202m\3108\262A\262\n\3278I\210\307\310I\210\202m\205B\320\262\202mA@\262\3108\262\307H\262	A\262\n\3078\n\344\267\202E\311H\330H=\203{\311HA@\202H\311H@\202H\345\330H@\346\311H!\"\262\3078@\262\n\325=\203\311\237\262\325A@@E\262A\262A\211\262\2032\325@	E\262\202\262\2022@\262A\262\n\347=\203\362@:\203\362@@\342=\203\362\336@A@E\202\372\n@E\262A\211\262\2032\n\347=\203%@:\203%@@\342=\203%\336@A@E\202-\n@E\262\202\374\202H\330H@\202H\3418\202H\330HI\210\202mA\262\nA@H\211\262:\203s@\350=\203s\n\3078A@I\210\202m
\203\201\205|\320\262\202m\n\3078I\210\202m\nA@H\211\262\351\n\307\n8H!\211\262\232\204\262\322\"\311U\266\202\203\271A\262\202m\205\276\320\262\202m@@\262@A\262\3108\206\325\352\262\307H\262	\353\267\202}\330HA\211\262\n\203\375\n\3278\330\fI@I\210\202m\3418\203\307\310I\210\n\3278\n	A@HI\210\202mA\211\262\205\"\320\262\202m\330HA\211\262\n\203A\n\3278\330\fI@I\210\202m\310H\330U\203s\3418\203e\307\310I\210\n\3278\n	A@HI\210\202mA\211\262\205n\320\262\202m\307\211I\210\330\306\311HBI\210\205\207\320\262\202m\330HA\211\262\n\203L\345\330I@\346\311H!\"\262\3078@\262	\325=\203\333\237\262\325A@@E\262A\262A\211\262\203@\325@E\262\202\305\202@@\262A\262\347=\203@:\203@@\342=\203\336@A@E\202\n@E\262A\211\262\203@\347=\2034@:\2034@@\342=\2034\336@A@E\202;@E\262\202\f\n\3278I\210\202m\3418\203h\307\310I\210\n\3278\n	A@HI\210\202mA\211\262\205q\320\262\202mA\262\202mA\211\262\205\206\320\262\202m\354\nA@H\211\262!\203\240A\262\202m\211:?\206\253\211@\355>\262
\203\272\205\265\320\262\202m\242@\f\242\356\240\210\357\360#\216\361!)\262
\262\354!\203\342A\262\202m\205\347\320\262\202m\nA@H\211\262\211:?\206\377\211@\362>\262
\203A\262\202m\211:?\206\211@\355>\262
\203%\205 \320\262\202m\242@\f\242\356\240\210\357\363#\216\361!)\262
\262\211:?\206J\211@\362>\262
\203VA\262\202m\205[\320\262\202m\364\nA@H\211\262!\203uA\262\202m\211:?\206\200\211@\355>\262
\203\217\205\212\320\262\202m\242@\f\242\356\240\210\357\365#\216\361!)\262
\262\364!\203\267A\262\202m\205\274\320\262\202m\366\nA@H\211\262!\203\326A\262\202m\211:?\206\341\211@\355>\262
\203\360\205\353\320\262\202m\242@\f\242\356\240\210\357\367#\216\361!)\262
\262\366!\203A\262\202m\205\320\262\202m\322\nA@H\n\310\n8H\"\262\3078\262	\307U\203f\242@\f\242\356\240\210\357\370#\216\361\371\372\nA@H\n\310
8H\"!!)\262
\262\373\267\202\221\311=\202\222\374>\202\222\343=\202\222\375>\202\222\330=\202\222\376>\202\222\306\203\234A\262\202m\205\241\320\262\202m\nA@H\211\262:\203 	@AA\211\262	@=\203 	A\262@\262A\262A\211\262\203\351\203\351\n@@I\210\202\313\204\362\203\371A\262\202mA\211\262@@\377=\204\371A\262\203m\n@A@@I\210A\262\202		\202m\205%	\320\262\202m\nA@H\211\262:\203Q	@\3078=\203Q	G\307U\203\207	A@\211\262\203\207	\3108\262\n\3278I\210A\211\262@@\377=\204`	A\262\203m\n@A@@I\210A\262\202p	\202mA\262\202m\nA@H\211\262\211:\203\271	\211@\201@=\203\257	\211A@\311=\262
\202\276	\201A
!\262
\202\276	\211\311=\262
\203\357	\3108\211:\203\347	\211@\201@=\203\335	\211A@\311=\262
\202d\n\201A
!\262
\202d\n\211\311=\262
\202d\n\3078\211:\203\n\211@\201@=\203\n\211A@\311=\262
\202\n\201A
!\262
\202\n\211\311=\262
\204n\n\201B\307	8\"\262\211:?\2066\n\211@\201C>\262
\204W\n\242@\f\242\356\240\210\357\201D#\216\361!)\262
\262\3108\322\"\311U\266\202\203n\nA\262\202m\205s\n\320\262\202m\nA@H\211\262:\203\303\n\211:?\206\222\n\211@\201E>\262
\204\303\n@\201F=\204\303\n\n\3078\201G@!I\210\n\3108\201HABI\210A\262\202m\205\310\n\320\262\202m\nA@H\211\262:\203	@\201H=\203	A\203	\n\3078A@I\210\n\3108\201HAABI\210A\262\202m\205\320\262\202m\nA@H\211\262:\203O@\201H=\203OA\203O\n\3078\201I!I\210\n\3108\201J!I\210A\262\202m\205T\320\262\202m\201K\f\242@
\242\356\240\210\357\201L#\216\361\201M\nA@!!)\262
!\203\207A\262\202m\205\214\320\262\202m\nA@
\242@\242\356\240\210\357\201N#\216\201O\201M\307\f8!!)\262
I\210A\262\202m\n\3078\n	A@HI\210A\262\202m\n\3078\337\n\nA@H!I\210A\262\202mB\262A@\262\202m\203\f@A@=\204\fA\262\202\371A\262A\262\202m\201MA@!\262\n	\242\347=\2034\f\307\n8\311=\204E\f	\242\325=\203K\f\307\n8\330=\203K\f	A@\262\n\3078\205v\f\201K\f\242@
\242\356\240\210\357\201P#\216\361\201M\3078!!)\262
!\262	\232\204\217\f\201O\n!\211\262\232\203\225\f\306\262\n\202\247\f\203\242\f\201Q\"\210\306\240\210\306\262\202m\201R\201S\n\"\210\202m\211\242A\240\210\202%	*\266\213\207" [math-rwcomp-tracing math-rewrite-phase math-apply-rw-regs math-apply-rw-ruleset calc-matrix-mode math-rewrite-selections nil 2 3 0 terpri princ natnump format "\n  part = %s" func ((backtrack)) same math-compare try scalar * math-known-scalarp 4 1 #s(hash-table size 23 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (try 445 try2 839 select 1101 same-neg 1165 backtrack 1219 integer 1675 real 1772 constant 1888 negative 1985 rel 2082 func-def 2214 func-opt 2346 mod 2446 apply 2680 cons 2765 rcons 2835 cond 2905 let 2961 copy 3009 copy-neg 3029 alt 3051 end-alt 3065 done 3097)) / (frac float cplx polar hms date sdev intv mod) assoc math-rewrite-props - math-rwapply-neg math-rwapply-inv 5 neg -1 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 872 1 898 2 1079 3 1086)) delq copy-sequence + calcFunc-select math-neg [nil nil 4] #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 1251 1 1319 2 1420 4 1654)) Math-integerp (frac float cplx polar hms date mod var) (nil nil nil no-phase) make-closure #[0 "\300\242\301\240\207" [V0 V1] 2] math-simplify (frac float) #[0 "\300\242\301\240\207" [V0 V1] 2] math-constp #[0 "\300\242\301\240\207" [V0 V1] 2] math-looks-negp #[0 "\300\242\301\240\207" [V0 V1] 2] #[0 "\300\242\301\240\207" [V0 V1] 2] calcFunc-sign math-sub #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (calcFunc-eq 2157 calcFunc-neq 2163 calcFunc-lt 2169 calcFunc-leq 2175 calcFunc-gt 2181 calcFunc-geq 2187)) (-1 1) (-1 0) (0 1) func-def float math-zerop math-mod (frac float cplx polar) #[0 "\300\242\301\240\207" [V0 V1] 2] (frac float cplx polar hms date sdev intv mod vec) var math-calcFunc-to-var vec calcFunc-rhead calcFunc-rtail math-is-true #[0 "\300\242\301\240\207" [V0 V1] 2] math-rwapply-replace-regs #[0 "\300\242\301\240\207" [V0 V1] 2] math-normalize #[0 "\300\242\301\240\207" [V0 V1] 2] math-rwapply-remember error "%s is not a valid rewrite opcode"] 24 (#$ . 28872)])
#@13 

(fn EXPR)
(defalias 'math-rwapply-neg #[257 "\211:\203Q\211@\300>\203Q\301
8\211:?\206\211@\302>\262
\203*\211@
A@\303\3018!E\207\211@
A@\211:?\2069\211@\302>\262
\203F\303A@!\202L\304\305A@E\3018E\207\303
!\207" [(* /) 2 (frac float cplx polar hms date sdev intv mod) math-neg * -1] 6 (#$ . 37777)])
#@13 

(fn EXPR)
(defalias 'math-rwapply-inv #[257 "\301
!\203\203\302\303\"\207\304\303E\207" [calc-prefer-frac Math-integerp math-make-frac 1 /] 4 (#$ . 38098)])
#@13 

(fn EXPR)
(defalias 'math-rwapply-replace-regs #[257 "\211\211:?\206\211@\302>\262
\203\207\211@\303=\203B
A@H\262
\211\242\304=\203A\211A@\305=\2034\306\3078!\207\211A@\310=\203@\307
8\207\207\207\211@\311=\203b\211G\307U\203b	\312>?\205X	\313\314A@!!)\207\211@\315=\203x\211G\307U\203x\316\314A@!!\207\211@\317=\203\216\211G\307U\203\216\320\314A@!!\207\211@\321=\203\307\211G\322U\203\307\314
A@!\314\3078!\323
\211\242\324=\262
\203\302\325\326!A\"\211\262\242\327=\204\302\207\321E\207\211@\330=\203\365\211G\322U\203\365\314
A@!\314\3078!\211\211\242\324=\262
\203\360\324ABB\207\330E\207\211@\331=\203\"
\211G\322U\203\"
\314
A@!\314\3078!
\211\242\324=\262
\203
\332C\"\207\331E\207\211@\333=\2037
\334
A@!\2037
\335
A@!\207\211@\333=\203e
\211A@\242\303=\203e

A@A@H\211:?\206X
\211@\336>\262
\203e
\306\314A@!!\207\211@\337=\203\201
\334
A@!\203\201
\340\314\3078!\335A@!E\207\211@\337=\203\235
\334\3078!\203\235
\340\314A@!\335\3078!E\207\211@\340=\203\271
\334\3078!\203\271
\337\314A@!\335\3078!E\207\211@\304=\203S\211A@\305=\203\336
\334\3078!\203\326
\335\3078!\207\306\314\3078!!\207\211A@\310=\203\354
\314\3078!\207\307
8\305=\203\n\334
A@!\203\335
A@!\207\306\314A@!!\207\307
8\310=\203\314
A@!\207\314
A@!\314\3078!
\242\341=\2038
A@\310=\2038\341
\3078E\207\211\242\341=\203N\211A@\310=\203N\341\3078E\207\304E\207\211@\341=\203|\314
A@!\314\3078!\211\242\341=\203w\341\304\3078EA@E\207\341E\207\211@\342=\203\276\211G\307U\203\276\211A@\211:?\206\227\211@\302>\262
\203\240\211A@\207\211A@@\303=\203\261
A@A@H\207\211A@@\343\314A@A\"B\207\211@\343\314A\"B\207" [math-apply-rw-regs calc-simplify-mode (frac float cplx polar hms date mod var) calcFunc-register * -1 math-neg 2 1 calcFunc-eval (none num) math-normalize math-rwapply-replace-regs calcFunc-evalsimp math-simplify calcFunc-evalextsimp math-simplify-extended calcFunc-apply 3 nil vec math-build-call math-var-to-calcFunc calcFunc-call calcFunc-cons calcFunc-rcons append neg math-rwapply-reg-looks-negp math-rwapply-reg-neg (frac float cplx polar hms) + - / calcFunc-plain mapcar] 8 (#$ . 38270)])
#@13 

(fn EXPR)
(defalias 'math-rwapply-reg-looks-negp #[257 "\211\242\301=\203\302A@H!\207\211\242\303>\205#\304
A@!\206#\304\3058!\207" [math-apply-rw-regs calcFunc-register math-looks-negp (* /) math-rwapply-reg-looks-negp 2] 4 (#$ . 40452)])
#@13 

(fn EXPR)
(defalias 'math-rwapply-reg-neg #[257 "\211@\300=\203
\301\302!!\207\303
A@!\203#\302
@\304A@!\3058E!\207\302
@A@\304\3058!E!\207" [calcFunc-register math-neg math-rwapply-replace-regs math-rwapply-reg-looks-negp math-rwapply-reg-neg 2] 7 (#$ . 40707)])
#@16 

(fn OLD NEW)
(defalias 'math-rwapply-remember #[514 "\301@8J\242\236
\242\302=\205K\242\303>?\205K\211\205K
\304\305!\203)\202-\306DEAB\241\210\211\307\310\"\311\312\313E\314\310ED\310\211FAB\241\207" [math-apply-rw-ruleset 2 vec (nil schedule + -) calcFunc-assign math-rwcomp-no-vars calcFunc-quote vector nil same 0 1 done] 10 (#$ . 40986)])
(provide 'calc-rewr)