Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
calc-aent.elc	26.22 KB	-rw-r--r--
calc-alg.elc	50.83 KB	-rw-r--r--
calc-arith.elc	79.87 KB	-rw-r--r--
calc-bin.elc	17.6 KB	-rw-r--r--
calc-comb.elc	28.6 KB	-rw-r--r--
calc-cplx.elc	8.25 KB	-rw-r--r--
calc-embed.elc	29.39 KB	-rw-r--r--
calc-ext.elc	109.63 KB	-rw-r--r--
calc-fin.elc	12.05 KB	-rw-r--r--
calc-forms.elc	56.09 KB	-rw-r--r--
calc-frac.elc	5.87 KB	-rw-r--r--
calc-funcs.elc	25.78 KB	-rw-r--r--
calc-graph.elc	35.06 KB	-rw-r--r--
calc-help.elc	20.06 KB	-rw-r--r--
calc-incom.elc	5.16 KB	-rw-r--r--
calc-keypd.elc	15.54 KB	-rw-r--r--
calc-lang.elc	58.62 KB	-rw-r--r--
calc-loaddefs.el	9.2 KB	-rw-r--r--
calc-macs.elc	6.13 KB	-rw-r--r--
calc-map.elc	28.65 KB	-rw-r--r--
calc-math.elc	58.13 KB	-rw-r--r--
calc-menu.elc	38.72 KB	-rw-r--r--
calc-misc.elc	20.67 KB	-rw-r--r--
calc-mode.elc	20.14 KB	-rw-r--r--
calc-mtx.elc	6.76 KB	-rw-r--r--
calc-nlfit.elc	13.45 KB	-rw-r--r--
calc-poly.elc	26.06 KB	-rw-r--r--
calc-prog.elc	51.18 KB	-rw-r--r--
calc-rewr.elc	39.08 KB	-rw-r--r--
calc-rules.elc	17.4 KB	-rw-r--r--
calc-sel.elc	19.6 KB	-rw-r--r--
calc-stat.elc	14.04 KB	-rw-r--r--
calc-store.elc	16.77 KB	-rw-r--r--
calc-stuff.elc	7.42 KB	-rw-r--r--
calc-trail.elc	4.69 KB	-rw-r--r--
calc-undo.elc	3.14 KB	-rw-r--r--
calc-units.elc	56.14 KB	-rw-r--r--
calc-vec.elc	37.91 KB	-rw-r--r--
calc-yank.elc	19.01 KB	-rw-r--r--
calc.elc	102.71 KB	-rw-r--r--
calcalg2.elc	78.71 KB	-rw-r--r--
calcalg3.elc	41.41 KB	-rw-r--r--
calccomp.elc	34.46 KB	-rw-r--r--
calcsel2.elc	5.84 KB	-rw-r--r--

Code Editor : calc-rewr.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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�\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\nA@\")\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\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\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\311YV\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\211Z\203Z@WC\244\210ZA\211Z\204).\n\202\314\201b�!\210A\211\204rJ\2033\311JBLBL\363\201c�\201d�K\201e�\"\"KL\311\211\211ZVW\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\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�\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 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�\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@ABCDEFG	\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!\203BA\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\203BA\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\312C@\201S�=\203\312CA\203\312E\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\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)

${this.title}

Code Editor : calc-rewr.elc