%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defvar math-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 \211@\302>\262\203 \207@\303=\2030 G\304U\2030 \203( \305\202+ A@A@\207@\306\307A\"B\207" [expr calc-rewr-sel (frac float cplx polar hms date mod var) calcFunc-select 2 t mapcar calc-locate-select-marker] 4])
(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\211\242\317=\262\204\\ \312\320!\210\321 \203m \322 \323\324\n\325##\202v \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" vec "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@!\316\"\317
\320\261\210*\202t @ \f\203d r\fq\210\321\322\"c\210)\n\310\323\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 " substring 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 \304\232\204 \305\232\204 \306\307\"\210\3101) \311 \n\206& \312#0\207\306\n A@\")\207" [many expr rules err (var inf var-inf) (neg (var inf var-inf)) math-reject-arg fixnump (error) math-rewrite 1] 4])
(defalias 'calcFunc-match #[(pat vec) "\211\242\300=\262\204 \303\304\"\210\3051 \306 \307#0\207\303 \nA@\")\207" [vec pat err math-reject-arg vectorp (error) math-match-patterns nil] 4])
(defalias 'calcFunc-matchnot #[(pat vec) "\211\242\300=\262\204 \303\304\"\210\3051 \306 \307#0\207\303 \nA@\")\207" [vec pat err math-reject-arg vectorp (error) math-match-patterns t] 4])
(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) "\3031 \304\305 !\"\203 \306\202 \3070\207\310 \nA@\")\207" [expr pat err (error) math-apply-rewrites math-compile-patterns 1 0 math-reject-arg] 4])
(defalias 'calcFunc-vmatches #[(expr pat) "\3031 \304\305 !\"\206 \3060\207\307 \nA@\")\207" [expr pat err (error) math-apply-rewrites math-compile-patterns 0 math-reject-arg] 4])
(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:?\206\211@\371>\262?\205\\N@@\372=\205*\373N@8?\205\\N@@\374>?\205\\N@@\375>\203I\307N@8\202\\C@\376=\203YCA@\242\202\\C@ X\311 YV\203\217V@K\236\211Y\203|Y\211AT\241\210\202\206V@\354BKBKVA\211V\204f)X\377=\203\234\201^ XX\201_ >\203\250\323XX\203\361XL\236\206\303X\327J!BLB\211L@WC\244\210X\201` =\203\201a L\236\206\351\201a \327J!BLB\211L@WC\244\210\202JWC\244JL\211 Z\203Z@WC\244\210ZA\211Z\204).\n\202 \314\201b !\210A\211\204rJ\2033\311JBLBL\363\201c \201d K\201e \"\"KL\311\211\211 Z V W\211 [\203\252[@A\211W\203\241\307W@8\211V:\203\230\362[@@V\"VK\211Z\203\216Z@V>\204\216ZA\211Z\204|W@AAZ@\240\210WA\211W\204^[A\211[\204T,\201^ L\236\211 \\\203\301\377\\ABLBL)\201f G]H\206\334\201d E\201g \"\206\334\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] (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 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:?\206 \211@\310>\262\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) (frac float cplx polar hms date mod var) math-rewrite-heads-rec] 3])
(defalias 'math-rewrite-heads-rec #[(expr) "@ >\206C @\n>\204# @ >\204# \304@\305N>\204# @\nBA\211\205C @\211:?\2066 \211@\306>\262\204# \307@!\210\202# \207" [expr 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] 3])
(defalias 'math-parse-schedule #[(sched) "\301\302\"\207" [sched mapcar #[(s) "\250\203 \207\211\242\301=\262\203 \302A!\207\242\303=\203! \304!\207\305\306!\207" [s vec math-parse-schedule var math-var-to-calcFunc error "Improper component in rewrite schedule"] 3]] 3])
(defalias 'math-rwcomp-match-vars #[(expr) "\211:?\206 \211@\303>\262\203. \242\304=\203, \3058 \236\211\203) \306\nA@!\202* )\207\207@\307=\203B G\305U\203B \310A@!\207@\311=\203r G\305U\203r A@\211:?\206] \211@\303>\262\204r @A@@\312\310A@A\"BD\207@\312\310A\"B\207" [expr math-regs entry (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 \211@\305>\262\203 \207@ =\203* \306\f\307\310A\"\"\207@\307\310A\"B\207" [expr 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] 5])
(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\351\311\n!\211\211:?\2069 \211@\315>\262\203k \n\211:\203] \211@\316=\203U \211A@\317=\262\202b \320!\262\202b \211\317=\262\205\351\321\322!\202\351\n@\323=\203\216 \nG\310U\203\216 \324 \321\325 \314\n8#\210\313\nA@ \")\202\351\n@\323=\203\307 \nG\314U\203\307 \nA@\242\326=\203\307 \nA@G\310U\203\307 \324 \321\325 \314\nA@8#\210\313\nA@A@ \")\202\351\n\242\327\236A\211\203
\nG\314U\203
\nA@\242\330=\203\361 \331>\203\361 \nA@A@\211\204\371 \nA@\211\203
\nA@\211\242\312=\203
\321 A@\"\202\351\n\242\f\236\203i\nG\310U\203i\nA@\242\312=\203i\332\314\n8!\203G\324 \310
@\233\314\n8\240\210\321\333\nA@A@\n@ $)\202\351\314\n8@\312=\203b\321\333\nA@A@\n@\314\n8A@$\202\351\321\334\n\"\202\351\n\242\335=\203\262\nG\310U\203\262\nA@\242\336=\203\262\nA@A@\242\312=\203\262\332\314\nA@8!\203\262\332\314\n8!\203\262\321\337\nA@A@A@\314\nA@8\314\n8$\202\351\n\340\232\203\277\341\211$\202\351\n\242\342=\203\345\nG\314U\203\345$\203\334\343$\nA@E\202\337\nA@\211$\202\351\321\334\n\"*\207" [arg op expr reg calc-tweak-eqn-table math-regs 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 math-remembering] 6])
(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 \211@\302>\262\203, \242\303=?\206x \3048 \236\206x \3048\305=\206x \306!\207@\307=\203@ G\310U\203@ \311\3048!\207@\307=\203h G\304U\203h A@\242\312=\203h A@G\310U\203h \311\304A@8!\207A\211\203v \311@!\204h ?\207" [expr 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] 3])
(defalias 'math-rwcomp-no-vars #[(expr) "\211:?\206 \211@\301>\262\203 \242\302=?\2064 \303!\207@\304>?\2054 A\211\2032 \305@!\204$ ?\207" [expr (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 \211@\302>\262\203$ \242\303=?\206= \304!\206= \3058 \236\207\306@\307N>\205= A\211\203; \310@!\204- ?\207" [expr math-regs (frac float cplx polar hms date mod var) var math-const-var 2 algebraic math-rewrite-props math-rwcomp-is-algebraic] 3])
(defalias 'math-rwcomp-is-constrained #[(expr not-these) "\211:?\206 \211@\302>\262\203 \242\303=?\207@\304=\203$ \305A@ \"\207@\306>\206J @ >\206J \307@\310N>\205J A@\242\311=\206J \3128\242\311=?\207" [expr not-these (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] 3])
(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 \211@\302>\262\203 \303\207@\304=\203 \305\207\303A\211\203. \306@!\\\202 )\207" [expr count (frac float cplx polar hms date mod var) 0 calcFunc-pnot 100 math-rwcomp-count-pnots] 3])
(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\212
\306\211\211\211\211\211\211\211\n @ A B C D E F G \203\206
\307 @8\211C\203G H\203G CH>\203
\310 @8\211C\203X \fC>\203
@@E @A@B\306@E\311I\210B\203
\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=\203PEDA@H\211CE\307D8H\211A\232\204;CA\322\"\311U\266\202\203DBA\211B\202n @\205J\320\211B\202n F\323=\203\331I\203\331I\324=\204\331\307D8@\325=\203\331EDA@H\211C:\203\331C@\325=\203\331\326C!\204\331\310D8ABABA\327H\203\264E\327D8\307C8I\210A\330CAAI\210\202\310E\327D8CA@I\210A\330CAI\210A\311CAI\210A\307\311I\210\202l F\331\267\202r
EDA@H\211C:\203C@\307D8>\203CG\310U\203C@\332=\203 \307C8\211:?\206\211@\333>\262\203\306FDAA\211DA@A\334C@\335N>\203\246A\310H\311U\204\246CA@:\203uCA@@D@>\203uC@\336=\203b\337\307C8!\202f\307C8FBFCA@\211C\202\243\307C8:\203\246\307C8@D@>\203\246\307C8@\336=\204\246CA@FBF\307C8\211C\204=CA@C@\336=\203\273\337\307C8!\202\320C@\332=\203\314\340\307C8!\202\320\307C8FBBFB@B@BABE\307D8F@I\210A\311FI\210A\330FI\210A\307FAA\203 \330\202\n\311I\210\202l \341D8\203{C:\203]C@\342=\203]\307D8@\325=\203]\341D8\330=\203]\310D8ABABE\327D8CA@I\210A\330\343I\210A\307\327I\210\202l \310D8ABABE\327D8CI\210A\307\310I\210\202l @\205\201\320\211B\202n DA@C\310C8\211A\307HFBABE\307D8F\344\267\202\224A\311HA\330H=\203\277A\311HA@\202\230A\311H@\202\230\345A\330H@\346A\311H!\"A\307C8@\211F\325=\203A\237A\325AA@A@ECAAAAA\211A\203\200\325A@CEC\202\370\202\200A@CAAAF\347=\203=A@:\203=A@@\342=\203=\336CA@A@E\202EFCA@ECAA\211A\203\200F\347=\203sA@:\203sA@@\342=\203s\336CA@A@E\202{FCA@EC\202GC\202\230A\330H@\202\230\341C8\202\230A\330HI\210\202l BABEDA@H\211C:\203\307C@\350=\203\307E\307D8CA@I\210\202l J\203\330@\205\322\320\211B\202n E\307D8CI\210\202l EDA@H\211C\351E\307D8H!\211A\232\204CA\322\"\311U\266\202\203BA\211B\202n @\205 \320\211B\202n @@@D@@AB\310D8\2067\352\211A\307H\211F\353\267\202\fA\330HA\211F\203aE\327D8A\330FI@I\210\202l \341D8\203\200A\307\310I\210E\327D8EDA@HI\210\202l @A\211@\205\212\320\211B\202n A\330HA\211F\203\255E\327D8A\330FI@I\210\202l A\310H\330U\203\345\341D8\203\325A\307\310I\210E\327D8EDA@HI\210\202l @A\211@\205\337\320\211B\202n A\307\211I\210A\330\306A\311HBI\210@\205\374\320\211B\202n A\330HA\211F\203\325\345A\330FI@\346A\311H!\"A\307D8@\211F\325=\203XA\237A\325AA@A@ECAAAAA\211A\203\310\325A@CEC\202@\202\310A@CAAAF\347=\203\205A@:\203\205A@@\342=\203\205\336CA@A@E\202\215FCA@ECAA\211A\203\310F\347=\203\273A@:\203\273A@@\342=\203\273\336CA@A@E\202\303FCA@EC\202\217E\327D8CI\210\202l \341D8\203\364A\307\310I\210E\327D8EDA@HI\210\202l @A\211@\205\376\320\211B\202n @A@\202l @A\211@\205\320\211B\202n \354EDA@H\211C!\2034BA\211B\202n C\211:?\206@\211@\355>\262\203Q@\205K\320\211B\202n @ K \356\240\210\357\216\360C!*C\354C!\203rBA\211B\202n @\205x\320\211B\202n EDA@H\211C\211:?\206\222\211@\361>\262\203\240BA\211B\202n C\211:?\206\254\211@\355>\262\203\275@\205\267\320\211B\202n @ K \356\240\210\362\216\360C!*\211C\211:?\206\331\211@\361>\262\203\347BA\211B\202n @\205\355\320\211B\202n \363EDA@H\211C!\203 BA\211B\202n C\211:?\206\211@\355>\262\203(@\205\"\320\211B\202n @ K \356\240\210\364\216\360C!*C\363C!\203IBA\211B\202n @\205O\320\211B\202n \365EDA@H\211C!\203mBA\211B\202n C\211:?\206y\211@\355>\262\203\212@\205\204\320\211B\202n @ K \356\240\210\366\216\360C!*C\365C!\203\253BA\211B\202n @\205\261\320\211B\202n \322EDA@HE\310D8H\"C\307D8FC\307U\203\367 @ K \356\240\210\367\216\360\370\371EDA@HE\310D8H\"!!*CF\372\267\202( C\311=\202) C\373>\202) C\343=\202) C\374>\202) C\330=\202) C\375>\202) \306\2035 BA\211B\202n @\205; \320\211B\202n EDA@H\211C:\203\311 C@DAA\211D@=\203\311 DA\211D@ADADCA\211C\203\207 D\203\207 ED@C@I\210\202g D\204\221 C\203\232 BA\211B\202n BA\211B@@\376=\204\232 BABA\203l EA@AA@@I\210AA\211A\204\261 \202l @\205\317 \320\211B\202n EDA@H\211C:\203 \nC@\307D8=\203 \nCG\307U\203?\nCA@\211C\203?\n\310D8AE\327D8CI\210BA\211B@@\376=\204\nBABA\203l EA@AA@@I\210AA\211A\202$\n\202l BA\211B\202n EDA@H\211C\211:\203r\n\211@\377=\203h\n\211A@\311=\262\202w\n\201L !\262\202w\n\211\311=\262\203\246\n\310D8\211:\203\236\n\211@\377=\203\224\n\211A@\311=\262\202 \201L !\262\202 \211\311=\262\202 \307D8\211:\203\312\n\211@\377=\203\300\n\211A@\311=\262\202\317\n\201L !\262\202\317\n\211\311=\262\204 \201M C\307D8\"\211C\211:?\206\353\n\211@\201N >\262\204 @ K \356\240\210\201O \216\360C!*CC\310D8\322\"\311U\266\202\203 BA\211B\202n @\205# \320\211B\202n EDA@H\211C:\203{ C\211:?\206E \211@\201P >\262\204{ C@\201Q =\204{ E\307D8\201R C@!I\210E\310D8\201S CABI\210BA\211B\202n @\205\201 \320\211B\202n EDA@H\211C:\203\312 C@\201S =\203\312 CA\203\312 E\307D8CA@I\210E\310D8\201S CAABI\210BA\211B\202n @\205\320 \320\211B\202n EDA@H\211C:\203\fC@\201S =\203\fCA\203\fE\307D8\201T C!I\210E\310D8\201U C!I\210BA\211B\202n @\205 \f\320\211B\202n \201V @ K \356\240\210\201W \216\360\201X DA@!!*!\203L\fBA\211B\202n @\205R\f\320\211B\202n EDA@ @ K \356\240\210\201Y \216\201Z \201X \307D8!!*I\210BA\211B\202n E\307D8EDA@HI\210BA\211B\202n E\307D8\337EDA@H!I\210BA\211B\202n B@B@DA@\211B\202n @\203\336\f@@DA@=\204\336\f@A\211@\204\312\f@A@BA\211B\202n \201X DA@!\211G\242\347=\203
\307G8\311=\204
G\242\325=\203
\307G8\330=\203
GA@G\307D8\205?
\201V @ K \356\240\210\201[ \216\360\201X \307D8!!*!CG\232\204V
\201Z G!\211G\232\203\\
\306G\202k
C\203i
\201\\ G\"\210\306\306\211B\202n \201] \201^ 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 #s(hash-table size 23 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (try 480 try2 903 select 1181 same-neg 1253 backtrack 1315 integer 1820 real 1918 constant 2035 negative 2133 rel 2231 func-def 2369 func-opt 2517 mod 2632 apply 2857 cons 2951 rcons 3030 cond 3109 let 3160 copy 3202 copy-neg 3226 alt 3252 end-alt 3269 done 3308)) / (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 938 1 967 2 1157 3 1165)) 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 1348 1 1424 2 1538 4 1796)) Math-integerp (frac float cplx polar hms date mod var) (nil nil nil no-phase) #[nil " \240\207" [rules orig] 2] math-simplify (frac float) #[nil " \240\207" [rules orig] 2] math-constp #[nil " \240\207" [rules orig] 2] math-looks-negp #[nil " \240\207" [rules orig] 2] #[nil " \240\207" [rules orig] 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 2302 calcFunc-neq 2309 calcFunc-lt 2316 calcFunc-leq 2323 calcFunc-gt 2330 calcFunc-geq 2337)) (-1 1) (-1 0) (0 1) func-def float btrack mark pc part inst math-apply-rw-regs op result heads calc-matrix-mode math-rewrite-selections orig math-zerop math-mod (frac float cplx polar) #[nil " \240\207" [rules orig] 2] (frac float cplx polar hms date sdev intv mod vec) var math-calcFunc-to-var vec calcFunc-rhead calcFunc-rtail math-is-true #[nil " \240\207" [rules orig] 2] math-rwapply-replace-regs #[nil " \240\207" [rules orig] 2] math-normalize #[nil " \240\207" [rules orig] 2] math-rwapply-remember error "%s is not a valid rewrite opcode"] 11])
(defalias 'math-rwapply-neg #[(expr) ":\203Q @\301>\203Q \3028\211:?\206 \211@\303>\262\203* @A@\304\3028!E\207@A@\211:?\2069 \211@\303>\262\203F \304A@!\202L \305\306A@E\3028E\207\304!\207" [expr (* /) 2 (frac float cplx polar hms date sdev intv mod) math-neg * -1] 5])
(defalias 'math-rwapply-inv #[(expr) "\302!\203 \203 \303\304\"\207\305\304E\207" [expr calc-prefer-frac Math-integerp math-make-frac 1 /] 3])
(defalias 'math-rwapply-replace-regs #[(expr) "\211:?\206 \211@\306>\262\203 \207@\307=\203D A@H\211\242\310=\203B A@\311=\2034 \312\3138!\207A@\314=\203@ \3138\207\207\207@\315=\203d G\313U\203d \n\316>?\205Z \n\317\320A@!!)\207@\321=\203z G\313U\203z \322\320A@!!\207@\323=\203\220 G\313U\203\220 \324\320A@!!\207@\325=\203\317 G\326U\203\317 \320A@!\320\3138!\327 \f\211\242\330=\262\203\311 \331\332
!\fA\"\211\242\333=\204\311 \202\315 \325
\fE+\207@\334=\203 G\326U\203 \320A@!\320\3138! ( )(\211\242\330=\262\203\330)(ABB\202\334)(E*\207@\335=\203AG\326U\203A\320A@!\320\3138! (\211 )\211\242\330=\262\2039\336)(C\"\202?\335)(E*\207@\337=\203V\340A@!\203V\341A@!\207@\337=\203\204A@\242\307=\203\204 A@A@H\211:?\206w\211@\342>\262\203\204\312\320A@!!\207@\343=\203\240\340A@!\203\240\344\320\3138!\341A@!E\207@\343=\203\274\340\3138!\203\274\344\320A@!\341\3138!E\207@\344=\203\330\340\3138!\203\330\343\320A@!\341\3138!E\207@\310=\203\204A@\311=\203\375\340\3138!\203\365\341\3138!\207\312\320\3138!!\207A@\314=\203 \320\3138!\207\3138\311=\203)\340A@!\203!\341A@!\207\312\320A@!!\207\3138\314=\2037\320A@!\207\320A@!\320\3138! *\211 +\242\345=\203`+A@\314=\203`\345*\313+8E\202\202*\242\345=\203|*A@\314=\203|\345+\313*8E\202\202\310+*E*\207@\345=\203\272\320A@!\320\3138! * +*\242\345=\203\262\345\310+\313*8E*A@E\202\270\345+*E*\207@\346=\203\374G\313U\203\374A@\211:?\206\325\211@\306>\262\203\336A@\207A@@\307=\203\357 A@A@H\207A@@\347\320A@A\"B\207@\347\320A\"B\207" [expr math-apply-rw-regs calc-simplify-mode call args func (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 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)
Zerion Mini Shell 1.0