1#@!#!123s

��JFIF�� 1#@!#!123s
: / proc / self / root / usr / share / emacs / 24.3 / lisp / calc /
Filename : calc-rewr.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:46 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-rewr.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defvar math-rewrite-default-iters 100)
(defalias 'calc-rewrite-selection #[(rules-str &optional many prefix) "\300\301`\"\207" [calc-do #[nil "\306 \210\307\310`!]\311\312\211\313\304\"\211@\314\f!+\311,\307-.\2035�.\315\232\2045�.\316\232\203L�\307U\203B�\317\320!\210\202\257�\321\307\311\"\311\202\257�.;\203Y�\322.!\202[�.\211\242\317=\203j�\317\323A@\"\210G\307U\203w�@\202{�\324B\242\325>\204\243�\326\327\330.\331Q!!\211/\242\317=\203\234�\317\323/A@\"\210\332/E)\242\333=\204\257�\334\335\"\2100\336=\203\274�\3370\202\307�0\203\307�\3400!0+\203\332�\341\f@+\342+D#\202\342�\f@\312\211,\343\344\345\344
!0#!!\312+\346
!+:\204\377�\312+\n\203\347\307!\210\350\3071\206\351
C\n\203\307\202\336Z	\205\"+C%\210.	\352 \207" [num reselect pop-rules rules entry expr calc-preserve-point 1 calc-locate-cursor-element t nil calc-top 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 calc-rewr-sel math-rewrite-selections math-rewrite-default-iters rules-str rhs many prefix] 7]] 3 nil "sRewrite rule(s): \np"])
(defalias 'calc-locate-select-marker #[(expr) "\211:?\206\f�	@\303>)\203�\207@\304=\2030�G\305U\2030�\n\203(�\306\202+�A@A@\207@\307\310A\"B\207" [expr a calc-rewr-sel (bigpos bigneg frac float cplx polar hms date mod var) calcFunc-select 2 t mapcar calc-locate-select-marker] 5])
(defalias 'calc-rewrite #[(rules-str many) "\300\301`\"\207" [calc-do #[nil "\306\211\211\203�\307\232\204�\310\232\203$�\311\312!\311\313\314\"\312\202\206�;\203/�\315!\2020�\211\242\316=\203?�\316\317	A@\"\210	G\313U\203L�	@\202P�\320	B	\242\321>\204t�\322\323\324\325Q!!\211\242\316=\203n�\316\317\fA@\"\210\326	\fE)	\242\327=\204\200�\330	\331\"\210\311\313!\313
\332=\203\221�\333\202\231�
\203\231�\334
!\335\336	
#!\306#\337!)\340\n\341C#\210+\342 \207" [expr rules n rules-str rhs many 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 calc-rewr-sel] 6]] 3 nil "sRewrite rule(s): \nP"])
(defalias 'calc-match #[(pat &optional interactive) "\300\301`\"\207" [calc-do #[nil "\303\211\n\203�\n\304\232\204�\n\305\232\203!�\306\307!\306\310!\307\202N�\n;\203,�\311\n!\202-�\n\211\242\312=\203<�\312\313\nA@\"\210\n\242\314=\204H�\315\n\316\"\210\306\310!\310\317!\204X�\312\320!\210\321 \203i�\322	\323\324\n\325##\202r�\322	\326\324\n\303##*\207" [expr n pat nil "" "$" calc-top-n 2 1 math-read-expr error "Bad format in expression: %s" var calc-record "pat" math-vectorp "Argument must be a vector" calc-is-inverse calc-enter-result "mtcn" math-match-patterns t "mtch"] 8]] 3 nil "sPattern: \np"])
(defalias 'math-rewrite #[(math-rewrite-whole-expr rules &optional math-mt-many) "\306!\307\n!\310\311!\312\313\314\315 \316!\315\"\317#\f\203>�\320\n\315\211E!$r\fq\210\316%db\210\321$\322\261\210*&\204N�	@A@\206L�'&&\323\232\203X�\324&&\325\232\203b�\326&\327\330	@8!\210\f\203\216�\320\n\315\211E!$r\fq\210\331&\332U\203\205�\333\202\206�\334\335$\322\261\210*\n.\n\207" [rules crules math-rewrite-whole-expr heads trace-buffer calc-display-just math-compile-rewrites math-rewrite-heads get-buffer "*Trace*" center 39 78 nil t #[(x) "\306	A\n	$\211\203(�\f\203\"�\307\310\211E!r\fq\210\311
\312\261\210*\313\n\314#)\207" [x crules heads result trace-buffer fmt math-apply-rewrites math-format-stack-value nil "\nrewrite to\n" "\n" math-rewrite-heads t] 6] 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-display-origin calc-line-breaking calc-line-numbering calc-show-selections calc-why math-mt-func fmt truncate-lines math-mt-many math-rewrite-default-iters] 5])
(defalias 'math-rewrite-phase #[(sched) "\205|�	\306U?\205|�@<\203\"�\n\307@!\210\n\232)\203�\202t�@9\203P�\310@\nD!\f\203t�\311\n\312\211E!r\fq\210\313\314@!\315\312O\316
\317\261\210*\202t�@\f\203d�r\fq\210\320\321\"c\210)\n\310\322\n!!\211\232)\203d�)A\211\204�\312\207" [sched math-mt-many math-rewrite-whole-expr save-expr trace-buffer fmt 0 math-rewrite-phase math-normalize math-format-stack-value nil "\ncall " symbol-name 9 ":\n" "\n" format "\n(Phase %d)\n" math-map-tree-rec] 6])
(defalias 'calcFunc-rewrite #[(expr rules &optional many) "\203�\250\204�\301\232\204�\302\232\204�\303\304\"\210\305\306\307\217\207" [many (var inf var-inf) (neg (var inf var-inf)) math-reject-arg fixnump err (byte-code "\303	\n\206�\304#\207" [expr rules many math-rewrite 1] 4) ((error (byte-code "\302	A@\"\207" [rules err math-reject-arg] 3)))] 3])
(defalias 'calcFunc-match #[(pat vec) "\301!\204�\302\303\"\210\304\305\306\217\207" [vec math-vectorp math-reject-arg vectorp err (math-match-patterns pat vec nil) ((error (byte-code "\302	A@\"\207" [pat err math-reject-arg] 3)))] 3])
(defalias 'calcFunc-matchnot #[(pat vec) "\301!\204�\302\303\"\210\304\305\306\217\207" [vec math-vectorp math-reject-arg vectorp err (math-match-patterns pat vec t) ((error (byte-code "\302	A@\"\207" [pat err math-reject-arg] 3)))] 3])
(defalias 'math-match-patterns #[(pat vec &optional not-flag) "\305\306!A\211\203 �\307@	\"?\f=\203�@\nB\202�\303\n\237*B\207" [pat crules newvec vec not-flag nil math-compile-patterns math-apply-rewrites] 3])
(defalias 'calcFunc-matches #[(expr pat) "\300\301\302\217\207" [err (byte-code "\302\303	!\"\203�\304\207\305\207" [expr pat math-apply-rewrites math-compile-patterns 1 0] 4) ((error (byte-code "\302	A@\"\207" [pat err math-reject-arg] 3)))] 3])
(defalias 'calcFunc-vmatches #[(expr pat) "\300\301\302\217\207" [err (byte-code "\302\303	!\"\206\n�\304\207" [expr pat math-apply-rewrites math-compile-patterns 0] 4) ((error (byte-code "\302	A@\"\207" [pat err math-reject-arg] 3)))] 3])
(defalias 'math-compile-patterns #[(pats) "\242\303=\203B�\304\3058!\203B�\3058\306N\211\204$�\307\3058\306\310C\211#\210	@\3058J=\204>�	\311\3058J!\241\210	\3058J\240\210	A)\207\312\313\314\315\316\242\314=\203T�A\202V�C\"B!A)\207" [pats prop math-rewrite-whole var calc-var-value 2 math-pattern-cache put nil math-compile-patterns t math-compile-rewrites vec mapcar #[(x) "\301\302E\207" [x vec t] 3]] 7])
(defvar math-rewrite-whole nil)
(defvar math-make-import-list nil)
(defvar math-import-list nil)
(defalias 'math-compile-rewrites #[(rules &optional name) "\242\306=\203~�\3078\310N\311\312\311\313\3078!\204\"�\314\315A@\"\210\f\2046�\316\3078\310\3078\311BCC\211#\210\f@\211\203O�	@@J	@A=\203O�	A\211\204=�	\203z�\317\320A@\"\210\f\321\3078J\3078\"\241\210\317\322A@\"\210\f\3078\3078JBB\240\210\fA,\207\242\323=\203\242�G\324>\203\250�	A\211\203\235�	@\242\325>\204\216�	)\203\250�C\202\253�A\326\236\203J\327!\211\311\211@@A@\211\203I	\242\326=\203@@\211AA\241\210	A@\242\306=\203\357�\313\307	A@8!\211\203\357�
\242\330>\204\363�\314\331!\210\n\203\307	A@8\307	A@8JBB	AA\211\203#	A\204\314\332!\210\333
	@	A@#\202
\242\323=\2030
A\2023
C@\334
@A\"\241\210\202\274�@A\211@\202\276�+\311\211\211\335\311\211\211\211\211\211\211\211ABCDEFGHIJKL\203'@\242\336=\203\256@G\307U\203\256@A@\250\204\240@A@\337\232\204\240@A@\340\232\204\240\314\341!\210G\204 @A@G\202 @\242\342=\203\305H\204 \343@A!H\202 @\242\344=\203@A\211F\345\232\203\333\311FF\211\203	@\250\204\354\314\346!\210	@E>\204\373	@EBE	A\211\204\342)\202 @\242\323=\2032@AA\2032\347@\233\2042\350@8A\307@8B@A@\211C\204\213\311A@CC\242\351=\203kCG\350U\203k\307C8MA\203]\352AME\202_MACA@C)\2029C\242\353=\203CG\350U\203\307C8BCA@\211C\203\311C\211NO\354P\311\335\311\211FCQ\311\211RS\311TA\205\257\355A!A\356C\335\"\210A\203\317A@UAAA\357U!\210)\202\267\360\361B\312=\203\346\323\362\311\363\364Q\"\237\"B\202\352\365B!D#\210NAN\366C!V\367\363\370Q\"\237!NVFFWC\211X:?\206X@\371>)?\205^N@@\372=\205,\373N@8?\205^N@@\374>?\205^N@@\375>\203K\307N@8\202^C@\376=\203[CA@\242\202^C@Y\311ZV\203\221V@K\236\211Z\203~Z\211AT\241\210\202\210V@\354BKBKVA\211V\204h)Y\377=\203\236\201_�YY\201`�>\203\252\323YY\203\363YL\236\206\305Y\327J!BLB\211L@WC\244\210Y\201a�=\203\201b�L\236\206\353\201b�\327J!BLB\211L@WC\244\210\202JWC\244JL\211[\203[@WC\244\210[A\211[\204).\n\202 \314\201c�!\210A\211\204rJ\2035\311JBLBL\363\201d�\201e�K\201f�\"\"KL\311\211\211[VW\211\\\203\254\\@A\211W\203\243\307W@8\211V:\203\232\362\\@@V\"VK\211[\203\220[@V>\204\220[A\211[\204~W@AA[@\240\210WA\211W\204`\\A\211\\\204V,\201_�L\236\211]\203\303\377]ABLBL)\201g�G^H\206\336\201e�E\201h�\"\206\336\354CFL.\fB\207" [rules p math-make-import-list math-import-list prop part 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 0 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 math-flatten-lands math-rwcomp-pattern math-rwcomp-cond-instr math-rwcomp-instr done delq mapcar #[(v) "@\205�\301\302@!\303A@!E\207" [v calcFunc-assign math-build-var-name math-rwcomp-register-expr] 4] math-rwcomp-match-vars math-rewrite-heads vconcat #[(x) "\3018\207" [x 3] 2] (bigpos bigneg frac float cplx polar hms date mod var) try 5 (func-opt apply select alt) (func func-def) calcFunc-quote - pp math-conds math-rhs math-pattern math-remembering math-all-phases math-phases math-iterations math-schedule rule-count nil-rules all-heads rule-set cond math-prog math-prog-last math-num-regs math-regs math-bound-vars math-aliased-vars math-copy-neg expr heads rule a head found ptr set plus name + (calcFunc-cons calcFunc-rcons) * / "Rewrite rule set must be a vector of A := B rules" car sort #[(x y) "A	AW\207" [x y] 2] schedule <] 13])
(defalias 'math-flatten-lands #[(expr) "\242\301=\203�\302\303A@!\303\3048!\"\207C\207" [expr calcFunc-land append math-flatten-lands 2] 5])
(defalias 'math-rewrite-heads #[(expr &optional more all) "	?\205�\306	?\205
�\307
\211\n:?\206�\n@\310>)\204&�\311
!\210\f+\207" [more all math-rewrite-heads-blanks math-rewrite-heads-skips math-rewrite-heads-heads expr (calcFunc-apply calcFunc-condition calcFunc-opt calcFunc-por calcFunc-pnot) (calcFunc-quote calcFunc-plain calcFunc-select calcFunc-cons calcFunc-rcons calcFunc-pand) (bigpos bigneg frac float cplx polar hms date mod var) math-rewrite-heads-rec a] 4])
(defalias 'math-rewrite-heads-rec #[(expr) "@	>\206C�@\n>\204#�@>\204#�\305@\306N>\204#�@\nBA\211\205C�@\211:?\2067�\f@\307>)\204#�\310@!\210\202#�\207" [expr math-rewrite-heads-skips math-rewrite-heads-heads math-rewrite-heads-blanks a algebraic math-rewrite-props (bigpos bigneg frac float cplx polar hms date mod var) math-rewrite-heads-rec] 4])
(defalias 'math-parse-schedule #[(sched) "\301\302\"\207" [sched mapcar #[(s) "\250\203�\207\301!\203�\302A!\207\242\303=\203�\304!\207\305\306!\207" [s math-vectorp math-parse-schedule var math-var-to-calcFunc error "Improper component in rewrite schedule"] 2]] 3])
(defalias 'math-rwcomp-match-vars #[(expr) "\211:?\206\f�	@\304>)\203.�\242\305=\203,�\3068\n\236\211\203)�\307A@!\202*�)\207\207@\310=\203B�G\306U\203B�\311A@!\207@\312=\203r�G\306U\203r�A@\211:?\206^�	@\304>)\204r�@A@@\313\311A@A\"BD\207@\313\311A\"B\207" [expr a math-regs entry (bigpos bigneg frac float cplx polar hms date mod var) var 2 math-rwcomp-register-expr calcFunc-quote math-rwcomp-match-vars calcFunc-plain mapcar] 6])
(defalias 'math-rwcomp-register-expr #[(num) "	ZS\n8\3048\203�\305\306A@DD\202�\306A@D)\207" [math-num-regs num math-regs entry 2 neg calcFunc-register] 3])
(defalias 'math-rwcomp-substitute #[(expr math-rwcomp-subst-old math-rwcomp-subst-new) "\242\305=\203�	\242\306>\203�\307!\307	!\310\f!*\207\311\310\f!)\207" [math-rwcomp-subst-old math-rwcomp-subst-new math-rwcomp-subst-new-func math-rwcomp-subst-old-func expr var (var calcFunc-lambda) math-var-to-calcFunc math-rwcomp-subst-rec nil] 3])
(defalias 'math-rwcomp-subst-rec #[(expr) "	\232\203�\n\207\211:?\206�@\306>)\203�\207@\f=\203*�\307
\310\311A\"\"\207@\310\311A\"B\207" [expr math-rwcomp-subst-old math-rwcomp-subst-new a math-rwcomp-subst-old-func math-rwcomp-subst-new-func (bigpos bigneg frac float cplx polar hms date mod var) math-build-call mapcar math-rwcomp-subst-rec] 6])
(defvar math-rwcomp-tracing nil)
(defalias 'math-rwcomp-trace #[(instr) "\203�\302 \210\303	!\210	\207" [math-rwcomp-tracing instr terpri princ] 2])
(defalias 'math-rwcomp-instr #[(&rest instr) "\302	!C\211\241\207" [math-prog-last instr math-rwcomp-trace] 3])
(defalias 'math-rwcomp-multi-instr #[(tail &rest instr) "\303\304	\n\"!C\211\241\207" [math-prog-last instr tail math-rwcomp-trace append] 5])
(defalias 'math-rwcomp-bind-var #[(reg var) "\303!\304	8\240\210\304	8\nB\305 \207" [reg var math-bound-vars math-rwcomp-reg-entry 2 math-rwcomp-do-conditions] 3])
(defalias 'math-rwcomp-unbind-vars #[(mark) "	=?\205�@\n\236\303\240\210A\211\202�\207" [math-bound-vars mark math-regs nil] 3])
(defalias 'math-rwcomp-do-conditions #[nil "\211\205'�\303	@!\203�	@\304	@\"	\305\240\210\306\n!\210)	A\211\204�\307)\207" [math-conds cond expr math-rwcomp-all-regs-done delq 1 math-rwcomp-cond-instr nil] 4])
(defalias 'math-rwcomp-cond-instr #[(expr) "\306\211\n\242\307=\203*�\nG\310U\203*�\311\nA@!\211\242\312=\203*�\313\314\n8A@\"\202\344\315\311\n!\211!\203e�\n\211:\203X�@\316>?\205[�@\317=\203R�A@\320=\202[�\321!\202[�\320=)\205\344\322\323!\202\344\n@\324=\203\210�\nG\310U\203\210�\325 \322\326\f\314\n8#\210\313\nA@\f\")\202\344\n@\324=\203\301�\nG\314U\203\301�\nA@\242\327=\203\301�\nA@G\310U\203\301�\325 \322\326\f\314\nA@8#\210\313\nA@A@\f\")\202\344\n\242\330\236A\211\203\nG\314U\203\nA@\242\331=\203\353�	\332>\203\353�\nA@A@\211\204\363�\nA@\211\203\nA@\211\242\312=\203\322	A@\"\202\344\n\242
\236\203d\nG\310U\203d\nA@\242\312=\203d\333\314\n8!\203B\325 \310%@\233\314\n8\240\210\322\334\nA@A@\n@\f$)\202\344\314\n8@\312=\203]\322\334\nA@A@\n@\314\n8A@$\202\344\322\335\n\"\202\344\n\242\336=\203\255\nG\310U\203\255\nA@\242\337=\203\255\nA@A@\242\312=\203\255\333\314\nA@8!\203\255\333\314\n8!\203\255\322\340\nA@A@A@\314\nA@8\314\n8$\202\344\n\341\232\203\272\342\211&\202\344\n\242\343=\203\340\nG\314U\203\340&\203\327\344&\nA@E\202\332\nA@\211&\202\344\322\335\n\"*\207" [arg op expr a reg calc-tweak-eqn-table nil calcFunc-matches 3 math-rwcomp-match-vars calcFunc-register math-rwcomp-pattern 2 math-numberp (bigpos bigneg) 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 math-regs math-remembering] 7])
(defalias 'math-rwcomp-same-instr #[(reg1 reg2 neg) "\303\304\305!8\304\305	!8=\n=\203�\306\202�\307	#\207" [reg1 reg2 neg math-rwcomp-instr 2 math-rwcomp-reg-entry same-neg same] 5])
(defalias 'math-rwcomp-copy-instr #[(reg1 reg2 neg) "\303\304!8\303\304	!8=\n=\203�\305\306	#\207	=\206!�\305\307	#\207" [reg1 reg2 neg 2 math-rwcomp-reg-entry math-rwcomp-instr copy-neg copy] 4])
(defalias 'math-rwcomp-reg #[nil "\302\302\303F	BT\207" [math-num-regs math-regs nil 0] 5])
(defalias 'math-rwcomp-reg-entry #[(num) "	ZS\n8\207" [math-num-regs num math-regs] 2])
(defalias 'math-rwcomp-pattern #[(expr part &optional not-direct) "\306!\204�@\307=\203<�G\310U\203<�A@\211\203<�\242\311=\203+�\312	A@\313#\207\314 \315@\233\240\210\312	\n\313#)\207@\316=\203\225�\3108\236\211\203W�\312	\fA@\313#\202\223�
\203l�\314 \317\n\"\210\320	\n\313#)\202\223�\3108@\236\211\203\217�\321\fA@!\3108\240\210\f\313\240\210\320	\fA@\313#\202\223�\322	\")\207@\323=\203\264�G\310U\203\264�\314 \324\325	\n#\210\317A@\n\")\207@\326=\203\306�G\327>\203\306�\330\331!\207@\332=\203:A@@\316=\203\310A@8\236\211\203\354�\312	\fA@\333#\202A\203\334A@!\320	\n\333#\210\317A@\n\")\202\321	!AA\333\240\210\317A@	\")\207\335A@!\203(\336\337\340	!E!\207\314 \324\341	\332\n$\210\317A@\n\")\207@\342=\203jG\315U\203j\314 \314 BC\324\343	CB$\210\317A@C\"\210\317\3108B\"*\207@\344=\203\232G\315U\203\232\314 \314 BC\324\345	CB$\210\317A@C\"\210\317\3108B\"*\207@\346=\203\312G\315U\203\312\314 \314 BC\324\347	CB$\210\317A@C\"\210\317\3108B\"*\207@\350=\203G\315Y\203\317A@	\"\210AA\211\205\351@!\211D\203\352D@!\203\336D@!\210\202\fD@EBEDA\211D\204\363)\202\342@\353=\2035G\315U\2035\317A@	\"\210\317\3108	\"\207@\354=\203\356G\315U\203\356\324\355\313\211\356$\210\313FG\333AHIE\317A@	\333#\210@\211FG\313JK@LJH=\204\234J@\236J@\fA@\313E@B@JAJ\321\fA@!\313\240\210\202qI@AIA\240\210I\313\241\210IF\317\3108	\"\210\324\357\360\211#\210KF\241\210@\211JL=\204\351J@@\203\340\321J@A@!J@@\240\210JA\211J\202\306.	\361 \207@\362=\2036G\310U\2036\324\355\313\211\363$\210FGHI\317A@	\"\210\364H!\210\324\365I\"\210\324\366!\210I@AIA\240\210I\313\241\210I\211F*\207@\367NM@\370=\203VG\310U\203V\371A@!\204VA@\372M>\203n\335!\203n\336\337\340	!E!\202\373M>\203G\315U\203A@\3108\313\211\211\211\211NIOPQRS@\374=\203\242\375R!RS\334S!BSR\334R!BR\376SR\"\204\314SPRSPR\333N\377@S\"\203\333\330\201[�!\210\377@R\"P@\201\\�>\203\362\201]�\202@\201^�=\203\201_�\202@CI\201`�S@I\"\203(\201`�R@I\"\203\"\360\202)\201a�\202)\310O\201b�P\2056PC\201c�	I\201d�\313\211\211ON%SA&\210F@Q\317S@SA\"\210\324\201e�QRA#\210	\360U\203P\204T\204U\333=\204@\201f�N\211P\203\314 \314 BC\315Q8\315H\360U\203\246\315Q8\315\201a�I\210\324\201c�RAI\201g�\232\203\274\201h�\202\276I\201d�\313\211\211O\360U\203\321\201a�\202\322\310\313%CP&\210F@Q\317R@C\"\210\324\201e�QB#\210@\374=\203\377\201i�\202@U\311BDE\211U*\202\317R@RA\".\202\201j�\201k�A\"V\201l�V!W\201m�W!X\313Y\201a�ZX\203\307\377@X@\"\211P\203\275\201n�X@W\"WPX@ABYBY\201b�\201j�\201o�W\"\201p�M>\203\221WG\201a�U\203\221W@V@=\204\255\201q�M>\203\263VG\310U\203\263W@VA@=\203\263\201r�\202\266\201s�	@Y%\210)XA\211X\204D\201b�\201j�\201o�V\"\341	@$\210\201t�V\376\"\211V\205�\317V@@V@A\"\210ZTZVA\211V\204\346\313-)\207" [expr part reg math-regs entry not-direct 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-aliased-vars math-copy-neg reg2 reg1 cond math-conds math-prog-last math-bound-vars mark head p tail amark props flip code def try1 arg2 arg1 math-rewrite-whole math-rhs args args2 argp defs num "Too many opt( ) arguments in this context" (+ -) (+ -) * (* /) math-rwcomp-is-constrained 1 math-rwcomp-multi-instr try vector try2 math-rewrite-default (* /) (*) + mapcar #[(x) "\301!B\207" [x math-rwcomp-best-reg] 3] copy-sequence reverse delq cdr unary1 unary2 func-opt func-def sort] 12])
(defalias 'math-rwcomp-best-reg #[(x) "\242\303=\2030�\3048	\236\211\205,�\304\n8?\205,�\304\305\nA@!8?\205,�\nAA\306\240\210\nA@)\2062�\307 \207" [x math-aliased-vars entry var 2 math-rwcomp-reg-entry t math-rwcomp-reg] 4])
(defalias 'math-rwcomp-all-regs-done #[(expr) "\211:?\206\f�	@\303>)\203,�\242\304=?\206x�\3058\n\236\206x�\3058\306=\206x�\307!\207@\310=\203@�G\311U\203@�\312\3058!\207@\310=\203h�G\305U\203h�A@\242\313=\203h�A@G\311U\203h�\312\305A@8!\207A\211\203v�\312@!\204h�?\207" [expr a math-regs (bigpos bigneg 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])
(defalias 'math-rwcomp-no-vars #[(expr) "\211:?\206\f�	@\302>)\203�\242\303=?\2064�\304!\207@\305>?\2054�A\211\2032�\306@!\204$�?\207" [expr a (bigpos bigneg 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] 3])
(defalias 'math-rwcomp-is-algebraic #[(expr) "\211:?\206\f�	@\303>)\203$�\242\304=?\206=�\305!\206=�\3068\n\236\207\307@\310N>\205=�A\211\203;�\311@!\204-�?\207" [expr a math-regs (bigpos bigneg frac float cplx polar hms date mod var) var math-const-var 2 algebraic math-rewrite-props math-rwcomp-is-algebraic] 4])
(defalias 'math-rwcomp-is-constrained #[(expr not-these) "\211:?\206\f�	@\303>)\203�\242\304=?\207@\305=\203$�\306A@\n\"\207@\307>\206J�@\n>\206J�\310@\311N>\205J�A@\242\312=\206J�\3138\242\312=?\207" [expr a not-these (bigpos bigneg 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] 4])
(defalias 'math-rwcomp-optional-arg #[(head argp) "@\211\242\305=\203=�	G\306>\205_�	A@\242\307=\204�\310\311!\210	A@\240\210	G\312U\2037�\n\313N\206_�\310\314!\202_�\312	8\202_�	\242\315=\205_�	A@C\316\n\"\211\205^�\317@!\240\205^�\320\f!*)\207" [argp arg head part partp 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] 4])
(defalias 'math-rwcomp-neg #[(expr) "\242\301>\2035�A@\242\302=\203�@\303A@D\3048E\207\3048\242\302=\2031�@A@\303\3048DE\207\305!\207\305!\207" [expr (* /) var neg 2 math-neg] 5])
(defalias 'math-rwcomp-assoc-args #[(expr) "A@\242@=\203�A@G\301U\203�\302A@!\210\3038\242@=\2051�\3038G\301U\2051�\302\3038!\207" [expr 3 math-rwcomp-assoc-args 2] 3])
(defalias 'math-rwcomp-addsub-args #[(expr) "A@\242\301>\203�\302A@!\210@\303=?\205%�\3048\242\305=\205%�\302\3048!\207" [expr (+ -) math-rwcomp-addsub-args - 2 +] 3])
(defalias 'math-rwcomp-order #[(a b) "\302@!\302	@!W\207" [a b math-rwcomp-priority] 3])
(defalias 'math-rwcomp-priority #[(expr) "\303!\242\304=\203�\305\202g�\306!\203�\307\202g�@\310=\203#�\307\202g�@\311=\203F�\3128	\236\2036�\307\202g�\313!\314U\203B�\315\202g�\316\202g�@\317N\320\n>\204W�\321\n>\203[�\322\202f�\323\n>\203e�\324\202f�\325)\\\207" [expr math-regs props 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] 3])
(defalias 'math-rwcomp-count-refs #[(var) "\305	\"\206�\306\n\203c�@\242\307=\203\\�@G\310U\2030�\f\305\311@8	\"\206+�\306\\\202\\�@G\311U\203\\�@A@\242\312=\203\\�@A@G\310U\203\\�\f\305\311@A@8	\"\206Z�\306\\A\211\204�\f*\207" [math-pattern var math-conds p count math-expr-contains-count 0 calcFunc-let 3 2 calcFunc-assign] 5])
(defalias 'math-rwcomp-count-pnots #[(expr) "\211:?\206\f�	@\303>)\203�\304\207@\305=\203�\306\207\304A\211\203.�\n\307@!\\\202�\n)\207" [expr a count (bigpos bigneg frac float cplx polar hms date mod var) 0 calcFunc-pnot 100 math-rwcomp-count-pnots] 4])
(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)
(defalias 'math-rwfail '(macro . #[(&optional back) "\301\302\303\203�\304\202\f�\305\306BBE\207" [back setq pc and (setq btrack (cdr btrack)) btrack ('((backtrack)))] 5]))
(defalias 'math-rweval '(macro . #[(form) "\301\302\303\304\305BBF\207" [form let ((orig (car rules))) (setcar rules '(nil nil nil no-phase)) unwind-protect ((setcar rules orig))] 6]))
(defvar math-rewrite-phase 1)
(defalias 'math-apply-rewrites #[(expr rules &optional heads math-apply-rw-ruleset) "\242	\236\206\n�\306	\236A\211\205\366\306\211\211\211\211\211\211\211\n@ABCDEFG	\203\362\307	@8\211C\203G�H\203G�CH>\203\353\310	@8\211C\203X�\fC>\203\353	@@E	@A@B\306@E\311I\210B\203\353
\203\242�\312 \210\313B@!\210\314B@A@!\203\242�B@A@EGW\203\242�\313\315\316EB@A@H\"!\210B@\211D@\211F\317=\203
EDA@H\211C:\203C@DAA\211D@=\203DADCA\211C\203\356�D\203\356�ED@C@I\210\202\316�D\204C\204BA\211B\202n�@\205\320\211B\202n�F\321=\203UEDA@H\211CE\307D8H\211A\232\204@CAIJ\322JI\"\311U*\203IBA\211B\202n�@\205O\320\211B\202n�F\323=\203\336K\203\336K\324=\204\336\307D8@\325=\203\336EDA@H\211C:\203\336C@\325=\203\336\326C!\204\336\310D8ABABA\327H\203\271E\327D8\307C8I\210A\330CAAI\210\202\315E\327D8CA@I\210A\330CAI\210A\311CAI\210A\307\311I\210\202l�F\323=\203\216EDA@H\211C:\203C@\307D8>\203CG\310U\203C@\331=\203#\307C8\211J:?\206J@\332>)\203\306FDAA\211DA@A\333C@\334N>\203\255A\310H\311U\204\255CA@:\203|CA@@D@>\203|C@\335=\203i\336\307C8!\202m\307C8FBFCA@\211C\202\252\307C8:\203\255\307C8@D@>\203\255\307C8@\335=\204\255CA@FBF\307C8\211C\204DCA@C@\335=\203\302\336\307C8!\202\327C@\331=\203\323\337\307C8!\202\327\307C8FBBFB@B@BABE\307D8F@I\210A\311FI\210A\330FI\210A\307FAA\203\330\202\311I\210\202l�\340D8\203\202C:\203dC@\341=\203d\307D8@\325=\203d\340D8\330=\203d\310D8ABABE\327D8CA@I\210A\330\342I\210A\307\327I\210\202l�\310D8ABABE\327D8CI\210A\307\310I\210\202l�@\205\210\320\211B\202n�F\343=\203\275DA@C\310C8\211A\307HFBABE\307D8F\311=\203\325A\311HA\330H=\203\315A\311HA@\202\270A\311H@\202\270F\330=\203\227\344A\330H@\345A\311H!\"A\307C8@\211F\325=\203\"A\237A\325AA@A@ECAAAAA\211A\203\222\325A@CEC\202
A@CAAAF\346=\203OA@:\203OA@@\341=\203O\335CA@A@E\202WFCA@ECAA\211A\203\222F\346=\203\205A@:\203\205A@@\341=\203\205\335CA@A@E\202\215FCA@EC\202YC\202\270F\307=\203\246A\330H@\202\270F\310=\203\264\340C8\202\270A\330HI\210\202l�F\347=\203\fBABEDA@H\211C:\203\356C@\350=\203\356E\307D8CA@I\210\202l�L\203\377@\205\371\320\211B\202n�E\307D8CI\210\202l�F\351=\203VEDA@H\211C\352E\307D8H!\211A\232\204ACAIJ\322JI\"\311U*\203JBA\211B\202n�@\205P\320\211B\202n�F\353=\203h@@@D@@AB\310D8\206q\354\211A\307H\211F\311=\203\312A\330HA\211F\203\233E\327D8A\330FI@I\210\202l�\340D8\203\272A\307\310I\210E\327D8EDA@HI\210\202l�@A\211@\205\304\320\211B\202n�F\330=\203CA\330HA\211F\203\356E\327D8A\330FI@I\210\202l�A\310H\330U\203&\340D8\203A\307\310I\210E\327D8EDA@HI\210\202l�@A\211@\205 \320\211B\202n�A\307\211I\210A\330\306A\311HBI\210@\205=\320\211B\202n�F\307=\203IA\330HA\211F\203\344A\330FI@\345A\311H!\"A\307D8@\211F\325=\203\235A\237A\325AA@A@ECAAAAA\211A\203
\325A@CEC\202\210A@CAAAF\346=\203\312A@:\203\312A@@\341=\203\312\335CA@A@E\202\322FCA@ECAA\211A\203
F\346=\203�A@:\203�A@@\341=\203�\335CA@A@E\202FCA@EC\202\324E\327D8CI\210\202l�\340D8\2039A\307\310I\210E\327D8EDA@HI\210\202l�@A\211@\205C\320\211B\202n�F\327=\203X@A@\202l�@A\211@\205b\320\211B\202n�F\355=\203\352EDA@H\211C\211J:?\206\206J@\356>)\203\223BA\211B\202n�C\211J:?\206\242J@\357>)\203\262@\205\254\320\211B\202n�	@M	\360\240\210\361\216\362C!*\211C\211J:?\206\321J@\356>)\203\336BA\211B\202n�@\205\344\320\211B\202n�F\363=\203lEDA@H\211C\211J:?\206J@\364>)\203BA\211B\202n�C\211J:?\206$J@\357>)\2034@\205.\320\211B\202n�	@M	\360\240\210\365\216\362C!*\211C\211J:?\206SJ@\364>)\203`BA\211B\202n�@\205f\320\211B\202n�F\366=\203\327\367EDA@H\211C!\203\213BA\211B\202n�C\211J:?\206\232J@\357>)\203\252@\205\244\320\211B\202n�	@M	\360\240\210\370\216\362C!*C\367C!\203\313BA\211B\202n�@\205\321\320\211B\202n�F\371=\203B	\372EDA@H\211C!\203\366BA\211B\202n�C\211J:?\206	J@\357>)\203	@\205	\320\211B\202n�	@M	\360\240\210\373\216\362C!*C\372C!\2036	BA\211B\202n�@\205<	\320\211B\202n�F\374=\203\n\322EDA@HE\310D8H\"C\307D8FC\307U\203\211		@M	\360\240\210\375\216\362\376\377EDA@HE\310D8H\"!!*CF\201N�=\203\231	C\311=\202\354	F\201O�=\203\253	C\201P�>\202\354	F\201Q�=\203\273	C\342=\202\354	F\201R�=\203\315	C\201S�>\202\354	F\201T�=\203\335	C\330=\202\354	F\201U�=\203\370	C\201V�>\203\370	BA\211B\202n�@\205\376	\320\211B\202n�F\201W�=\203\243\nEDA@H\211C:\203\227\nC@DAA\211D@=\203\227\nDA\211D@ADADCA\211C\203S\nD\203S\nED@C@I\210\2023\nD\204]\nC\203f\nBA\211B\202n�BA\211B@@\201W�=\204f\nBABA\203l�EA@AA@@I\210AA\211A\204\n\202l�@\205\235\n\320\211B\202n�F\201X�=\203EDA@H\211C:\203\327\nC@\307D8=\203\327\nCG\307U\203CA@\211C\203\310D8AE\327D8CI\210BA\211B@@\201W�=\204\347\nBABA\203l�EA@AA@@I\210AA\211A\202\375\nBA\211B\202n�F\201Y�=\2039\fEDA@H\211C\211J:\203_J@\201Z�>?\205cJ@\201[�=\203VJA@\311=\202c\201\\�J!\202cJ\311=)\203\241\310D8\211J:\203\231J@\201Z�>?\205\235J@\201[�=\203\220JA@\311=\202\235\201\\�J!\202\235J\311=)\202!\f\307D8\211J:\203\323J@\201Z�>?\205\327J@\201[�=\203\312JA@\311=\202\327\201\\�J!\202\327J\311=)\204-\f\201]�C\307D8\"\211C\211J:?\206\367J@\201^�>)\204\f	@M	\360\240\210\201_�\216\362C!*CC\310D8IJ\322JI\"\311U*\203-\fBA\211B\202n�@\2053\f\320\211B\202n�F\201`�=\203\242\fEDA@H\211C:\203\226\fC\211J:?\206a\fJ@\201a�>)\204\226\fC@\201b�=\204\226\fE\307D8\201c�C@!I\210E\310D8\201d�CABI\210BA\211B\202n�@\205\234\f\320\211B\202n�F\201e�=\203\372\fEDA@H\211C:\203\356\fC@\201d�=\203\356\fCA\203\356\fE\307D8CA@I\210E\310D8\201d�CAABI\210BA\211B\202n�@\205\364\f\320\211B\202n�F\201f�=\203R
EDA@H\211C:\203F
C@\201d�=\203F
CA\203F
E\307D8\201g�C!I\210E\310D8\201h�C!I\210BA\211B\202n�@\205L
\320\211B\202n�F\201i�=\203\216
\201j�	@M	\360\240\210\201k�\216\362\201l�DA@!!*!\203\202
BA\211B\202n�@\205\210
\320\211B\202n�F\201m�=\203\301
EDA@	@M	\360\240\210\201n�\216\201o�\201l�\307D8!!*I\210BA\211B\202n�F\201p�=\203\342
E\307D8EDA@HI\210BA\211B\202n�F\201q�=\203E\307D8\336EDA@H!I\210BA\211B\202n�F\201r�=\203B@B@DA@\211B\202n�F\201s�=\203O@\203A@@DA@=\204A@A\211@\204-@A@BA\211B\202n�F\201t�=\203\336\201l�DA@!\211G\242\346=\203r\307G8\311=\204\203G\242\325=\203\211\307G8\330=\203\211GA@G\307D8\205\253\201j�	@M	\360\240\210\201u�\216\362\201l�\307D8!!*!CG\232\204\302\201o�G!\211G\232\203\310\306G\202\327C\203\325\201v�G\"\210\306\306\211B\202n�\201w�\201x�F\"\210\202l�	A\211\2040�G.\n\207" [expr rules math-rwcomp-tracing math-rewrite-phase phase tracing nil 2 3 0 terpri princ natnump format "\n  part = %s" func ((backtrack)) same math-compare try scalar * math-known-scalarp 4 1 / (bigpos bigneg frac float cplx polar hms date sdev intv mod) assoc math-rewrite-props - math-rwapply-neg math-rwapply-inv 5 neg -1 try2 delq copy-sequence + select calcFunc-select same-neg math-neg backtrack [nil nil 4] integer (bigpos bigneg) (bigpos bigneg frac float cplx polar hms date mod var) (nil nil nil no-phase) ((setcar rules orig)) math-simplify real (bigpos bigneg frac float) ((setcar rules orig)) constant math-constp ((setcar rules orig)) negative math-looks-negp ((setcar rules orig)) rel ((setcar rules orig)) calcFunc-sign math-sub btrack mark pc part inst math-apply-rw-regs op result heads b a calc-matrix-mode math-rewrite-selections orig calcFunc-eq calcFunc-neq (-1 1) calcFunc-lt calcFunc-leq (-1 0) calcFunc-gt calcFunc-geq (0 1) func-def func-opt mod (bigpos bigneg) float math-zerop math-mod (bigpos bigneg frac float cplx polar) ((setcar rules orig)) apply (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) var math-calcFunc-to-var vec cons rcons calcFunc-rhead calcFunc-rtail cond math-is-true ((setcar rules orig)) math-rwapply-replace-regs let ((setcar rules orig)) math-normalize copy copy-neg alt end-alt done ((setcar rules orig)) math-rwapply-remember error "%s is not a valid rewrite opcode"] 11])
(defalias 'math-rwapply-neg #[(expr) ":\203Q�@\302>\203Q�\3038\211:?\206�	@\304>)\203*�@A@\305\3038!E\207@A@\211:?\206:�	@\304>)\203F�\305A@!\202L�\306\307A@E\3038E\207\305!\207" [expr a (* /) 2 (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-neg * -1] 6])
(defalias 'math-rwapply-inv #[(expr) "\211:?\206\f�	@\303>)\203�\n\203�\304\305\"\207\306\305E\207" [expr a calc-prefer-frac (bigpos bigneg) math-make-frac 1 /] 4])
(defalias 'math-rwapply-replace-regs #[(expr) "\211:?\206\f�	@\306>)\203�\207@\307=\203D�\nA@H\211\242\310=\203B�A@\311=\2034�\312\3138!\207A@\314=\203@�\3138\207\207\207@\315=\203d�G\313U\203d�\316>?\205Z�\317\320A@!!)\207@\321=\203z�G\313U\203z�\322\320A@!!\207@\323=\203\220�G\313U\203\220�\324\320A@!!\207@\325=\203\316�G\326U\203\316�\320A@!\320\3138!\327)\330
!\203\307�\331\332)!
A\"\211\242\333=\204\307�\f\202\314�\325)
E+\207@\334=\203G\326U\203\320A@!\320\3138!*+\330*!\203\374�\335+*ABB\202\334+*E*\207@\336=\2039G\326U\2039\320A@!\320\3138!*+\330+!\2031\337+*C\"\2027\336+*E*\207@\340=\203N\341A@!\203N\342A@!\207@\340=\203rA@\242\307=\203r\343\nA@A@H!\203r\312\320A@!!\207@\344=\203\216\341A@!\203\216\345\320\3138!\342A@!E\207@\344=\203\252\341\3138!\203\252\345\320A@!\342\3138!E\207@\345=\203\306\341\3138!\203\306\344\320A@!\342\3138!E\207@\310=\203rA@\311=\203\353\341\3138!\203\343\342\3138!\207\312\320\3138!!\207A@\314=\203\371\320\3138!\207\3138\311=\203\341A@!\203\342A@!\207\312\320A@!!\207\3138\314=\203%\320A@!\207\320A@!\320\3138!,\211-\242\346=\203N-A@\314=\203N\346,\313-8E\202p,\242\346=\203j,A@\314=\203j\346-\313,8E\202p\310-,E*\207@\346=\203\250\320A@!\320\3138!,-,\242\346=\203\240\346\310-\313,8E,A@E\202\246\346-,E*\207@\347=\203\352G\313U\203\352A@\211:?\206\304	@\306>)\203\314A@\207A@@\307=\203\335\nA@A@H\207A@@\350\320A@A\"B\207@\350\320A\"B\207" [expr a math-apply-rw-regs calc-simplify-mode call args (bigpos bigneg 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 math-vectorp math-build-call math-var-to-calcFunc calcFunc-call calcFunc-cons vec calcFunc-rcons append neg math-rwapply-reg-looks-negp math-rwapply-reg-neg math-scalarp + - / calcFunc-plain mapcar func tail head arg2 arg1] 6])
(defalias 'math-rwapply-reg-looks-negp #[(expr) "\242\302=\203�\303	A@H!\207\242\304>\205#�\305A@!\206#�\305\3068!\207" [expr math-apply-rw-regs calcFunc-register math-looks-negp (* /) math-rwapply-reg-looks-negp 2] 3])
(defalias 'math-rwapply-reg-neg #[(expr) "@\301=\203
�\302\303!!\207\304A@!\203#�\303@\305A@!\3068E!\207\303@A@\305\3068!E!\207" [expr calcFunc-register math-neg math-rwapply-replace-regs math-rwapply-reg-looks-negp math-rwapply-reg-neg 2] 6])
(defalias 'math-rwapply-remember #[(old new) "\305@8J	\242\236\211\242\306=\205I�	\242\307>?\205I�\n\205I�\310\311	!\203*�	\202-�\312	D\fEAB\241\210\n\313\314	\"\315\316\317E\320\f\314ED\314\211F\nAB\241*\207" [math-apply-rw-ruleset old rules varval new 2 vec (nil schedule + -) calcFunc-assign math-rwcomp-no-vars calcFunc-quote vector nil same 0 1 done] 7])
(provide 'calc-rewr)