| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-rewr.elc |
;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\323 A@\"\210 G\307U\203w @\202{ \324 B \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\3078JB B\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@8JB B 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\211 A B C D E F G H I J K L\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\307C8 MA\203]\352AME\202_MACA@C)\2029C\242\353=\203CG\350U\203\307C8BCA@\211C\203\311C\211 N O\354 P\311\335\311\211FC Q\311\211 R S\311 TA\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!NVFF WC\211 X:?\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\311 ZV\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 [ V W\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) \307 A@!\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\304 8\203 \305\306 A@DD\202 \306 A@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 B C\324\343 CB$\210\317A@C\"\210\317\3108B\"*\207@\344=\203\232G\315U\203\232\314 \314 B C\324\345 CB$\210\317A@C\"\210\317\3108B\"*\207@\346=\203\312G\315U\203\312\314 \314 B C\324\347 CB$\210\317A@C\"\210\317\3108B\"*\207@\350=\203G\315Y\203\317A@ \"\210AA\211\205\351@!\211 D\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\333 A H I E\317A@ \333#\210@\211FG\313 J K @ 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$\210FG H I\317A@ \"\210\364H!\210\324\365I\"\210\324\366!\210I@AIA\240\210I\313\241\210I\211F*\207@\367N M@\370=\203VG\310U\203V\371A@!\204VA@\372M>\203n\335!\203n\336\337\340 !E!\202\373M>\203 G\315U\203 A@\3108\313\211\211\211\211 N I O P Q R S@\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 B C\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\313 Y\201a ZX\203\307\377@X@\"\211 P\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 @ A B C D E F G \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@CA I J\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\211 J:?\206 J@\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\204ACA I J\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\211 J:?\206\206J@\356>)\203\223BA\211B\202n C\211 J:?\206\242J@\357>)\203\262@\205\254\320\211B\202n @ M \360\240\210\361\216\362C!*\211C\211 J:?\206\321J@\356>)\203\336BA\211B\202n @\205\344\320\211B\202n F\363=\203lEDA@H\211C\211 J:?\206J@\364>)\203BA\211B\202n C\211 J:?\206$J@\357>)\2034@\205.\320\211B\202n @ M \360\240\210\365\216\362C!*\211C\211 J:?\206SJ@\364>)\203`BA\211B\202n @\205f\320\211B\202n F\366=\203\327\367EDA@H\211C!\203\213BA\211B\202n C\211 J:?\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\211 J:?\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 =\203 EDA@H\211C:\203\327\nC@\307D8=\203\327\nCG\307U\203 CA@\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\211 J:\203_ J@\201Z >?\205c J@\201[ =\203V JA@\311=\202c \201\\ J!\202c J\311=)\203\241 \310D8\211 J:\203\231 J@\201Z >?\205\235 J@\201[ =\203\220 JA@\311=\202\235 \201\\ J!\202\235 J\311=)\202!\f\307D8\211 J:\203\323 J@\201Z >?\205\327 J@\201[ =\203\312 JA@\311=\202\327 \201\\ J!\202\327 J\311=)\204-\f\201] C\307D8\"\211C\211 J:?\206\367 J@\201^ >)\204\f @ M \360\240\210\201_ \216\362C!*CC\310D8 I J\322JI\"\311U*\203-\fBA\211B\202n @\2053\f\320\211B\202n F\201` =\203\242\fEDA@H\211C:\203\226\fC\211 J:?\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 =\203 B@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\fE AB\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)