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



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defvar calc-keep-selection t)
(defvar calc-selection-cache-entry nil)
#@32 

(fn NUM &optional ONCE KEEP)
(defalias 'calc-select-here #[769 "C\300\301\302$!\207" [calc-do make-closure #[0 "\305 \210\306 \302\203\307
8\206Y\301\203\310\311\312!\210\313\203V\300\242\203N\300\314\300\242!\240\315V\203N\300\211\242S\240\315Y\203J@=\204J\316@\"\262\202/\202X\317@\"\202X
@!\207" [V0 V1 V2 calc-selection-cache-entry calc-keep-selection calc-prepare-selection calc-find-selected-part 2 nil message "(Selection will apply to next command only)" calc-change-current-selection prefix-numeric-value 0 calc-find-assoc-parent-formula calc-grow-assoc-formula] 6]] 10 (#$ . 227) "P"])
#@12 

(fn NUM)
(defalias 'calc-select-once #[257 "\300
\301\"\207" [calc-select-here t] 4 (#$ . 861) "P"])
#@12 

(fn NUM)
(defalias 'calc-select-here-maybe #[257 "\300
\301\302#\207" [calc-select-here nil t] 5 (#$ . 970) "P"])
#@12 

(fn NUM)
(defalias 'calc-select-once-maybe #[257 "\300
\301\211#\207" [calc-select-here t] 5 (#$ . 1092) "P"])
(defalias 'calc-select-additional #[0 "\300\301!\207" [calc-do #[0 "\302\303 \210)\304 	\305\203;\3068\211\2031\211@=\204-\307
\"\204-\310@\"\262
\202\211\2026\311@\"\262
\202=
@!\207" [calc-keep-selection calc-selection-cache-entry nil calc-prepare-selection calc-find-selected-part calc-change-current-selection 2 calc-find-sub-formula calc-find-assoc-parent-formula calc-grow-assoc-formula] 7]] 2 nil nil])
#@12 

(fn NUM)
(defalias 'calc-select-more #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\302 \210	\303
8\203.\303
8\211@=\204*\300\304\300\242!S\240\305Y\203*\306@\"\262
\202
\307
!\207\310\300\242!\207" [V0 calc-selection-cache-entry calc-prepare-selection 2 prefix-numeric-value 0 calc-find-assoc-parent-formula calc-change-current-selection calc-select-here] 5]] 6 (#$ . 1638) "P"])
#@12 

(fn NUM)
(defalias 'calc-select-less #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\304 \210\305 	\306\205`\3078\310\211\211\203]=\204]\300\211\242S\240\311Y\203]\262\312\"\262
\2057
8\211\262\203\n\203\242\236\211\262\203@8>\203\300\211\242T\240\210\202\266\204!\207" [V0 calc-selection-cache-entry calc-assoc-selections calc-assoc-ops calc-prepare-selection calc-find-selected-part calc-change-current-selection 2 nil 0 calc-find-sub-formula] 10]] 6 (#$ . 2049) "p"])
#@12 

(fn NUM)
(defalias 'calc-select-part #[257 "\211C\211\242\204
\211\301Z\240\210\302\303\304\"!\207" [last-command-event 48 calc-do make-closure #[0 "\302 \210\303\304	8\206\f	@\300\242\"\211\203\305
!\207\306\307\300\242\"\207" [V0 calc-selection-cache-entry calc-prepare-selection calc-find-nth-part 2 calc-change-current-selection error "%d is not a valid sub-formula index"] 4]] 6 (#$ . 2578) "P"])
#@21 

(fn EXPR FNP-NUM)
(defalias 'calc-find-nth-part #[514 "\211	\203
\242\n\236\203\304\305!)\202Q
\242\306=\2030\307Y\205Q\310X\205QT8\202Q
\211:?\206;\211@\311>\262
?\205Q\307Y\205QGW\205Q8)\207" [calc-fnp-num calc-assoc-selections calc-assoc-ops calc-fnp-op nil calc-find-nth-part-rec intv 1 2 (frac float cplx polar hms date mod var)] 5 (#$ . 2994)])
#@13 

(fn EXPR)
(defalias 'calc-find-nth-part-rec #[257 "\211A@\242\236\211\203\211@	A@>\203\303
A@!\202(\nS\211\304U\203+\211A@\206Q\305
8\242\236\211\203E\211@\305	8>\203E\303\3058!\207\nS\211\304U\205Q\305
8\207" [calc-assoc-ops calc-fnp-op calc-fnp-num calc-find-nth-part-rec 0 2] 4 (#$ . 3378)])
#@12 

(fn NUM)
(defalias 'calc-select-next #[257 "\211C\211\242\300W\203\301
\242[!\207\302\303\304\"!\207" [0 calc-select-previous calc-do make-closure #[0 "\304 \210	\305
8\211\203\241\300\211\242S\240\306Y\203\235\307@\"\211\310\311=\203%\310\262
A\211\262\2034
@=\203%
A\203b\n\203Z
A@\242\236\211\262\203Z@\3058>\203Z
A@A@\206]
A@\266\204\202\n\203\225\242\236\211\262\203\225\307@\"\211\262:\203\225
A@=\203\225
@
A@>\203\225\3058\266\204\202\312\313!\266\202\314
!\207
@\211:?\206\255\211@\315>\262
\203\267\314@!\207\316\300\242!\207" [V0 calc-selection-cache-entry calc-assoc-selections calc-assoc-ops calc-prepare-selection 2 0 calc-find-parent-formula nil t error "No \"next\" sub-formula" calc-change-current-selection (frac float cplx polar hms date mod var) calc-select-part] 8]] 6 (#$ . 3698) "p"])
#@12 

(fn NUM)
(defalias 'calc-select-previous #[257 "\211C\211\242\300W\203\301
\242[!\207\302\303\304\"!\207" [0 calc-select-next calc-do make-closure #[0 "\306 \210	\307
8\211\203\243\300\211\242S\240\310Y\203\237\311@\"\211\243\312\211\242\313=\203)A\262@=\204<@\262A\211\262\204)
\203c\n\203]
\242\236\211\262\203]@
A@>\203]\3078\206^
\266\205\202\n\203\227\242\236\211\262\203\227\311@\"\211\262:\203\227\3078=\203\227@\3078>\203\227A@\266\205\202\314\315!\266\202\316
!\207
@\211:?\206\257\211@\317>\262
\203\271\316@!\207\n\203\325
@@\236\203\325\312\310\320@!\210\321\fZ*\202\330
@G\322
\300\242Z!\207" [V0 calc-selection-cache-entry calc-assoc-selections calc-assoc-ops calc-fnp-num calc-fnp-op calc-prepare-selection 2 0 calc-find-parent-formula nil intv error "No \"previous\" sub-formula" calc-change-current-selection (frac float cplx polar hms date mod var) calc-find-nth-part-rec 1 calc-select-part] 9]] 6 (#$ . 4560) "p"])
#@18 

(fn EXPR PART)
(defalias 'calc-find-parent-formula #[514 "

=\203\300\207
\211:?\206\211@\301>\262
\203\302\207
\302
A\211\262\203/\303@\"\211\262\203
\205<\211\300=\203;\207\211\207" [t (frac float cplx polar hms date mod var) nil calc-find-parent-formula] 7 (#$ . 5564)])
#@18 

(fn EXPR PART)
(defalias 'calc-find-assoc-parent-formula #[514 "\300\301\"\"\207" [calc-grow-assoc-formula calc-find-parent-formula] 7 (#$ . 5862)])
#@18 

(fn EXPR PART)
(defalias 'calc-grow-assoc-formula #[514 "\203-\211\242	\236\211\203+\302\303\"\211\262:\203*\211@\304\"8>\203*\211\262\202
\210
\207\207" [calc-assoc-selections calc-assoc-ops nil calc-find-parent-formula calc-find-sub-formula] 8 (#$ . 6022)])
#@18 

(fn EXPR PART)
(defalias 'calc-find-sub-formula #[514 "

=\203\300\207
\211:?\206\211@\301>\262
\203\302\207\303A\211\262\2032\304@\"\2042\211T\262
\202\2057\211\207" [t (frac float cplx polar hms date mod var) nil 1 calc-find-sub-formula] 6 (#$ . 6303)])
#@12 

(fn NUM)
(defalias 'calc-unselect #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\300!\210\302\303!\207" [V0 calc-prepare-selection calc-change-current-selection nil] 2]] 5 (#$ . 6583) "P"])
(defalias 'calc-clear-selections #[0 "\300\301!\207" [calc-do #[0 "\300 \301\211X\203\302
\303\"\203\304
!\210\305\306!\210\211T\262
\202\266\307\310!\207" [calc-stack-size 1 calc-top sel calc-prepare-selection calc-change-current-selection nil calc-clear-command-flag position-point] 5]] 2 nil nil])
#@12 

(fn ARG)
(defalias 'calc-show-selections #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\306 \210\300\203\307\300!\310V\202	?\n\211\203,\311
@8\203%\211@\232\203,\211A\262
\202\211\2038\312 )\204J\203J\3118AA\313\240\210\314
!\266\210\315	\203\\
\203X\316\202e\317\202e
\203d\320\202e\321!\207" [V0 calc-show-selections calc-stack calc-selection-cache-entry calc-selection-cache-default-entry calc-highlight-selections-with-faces calc-preserve-point prefix-numeric-value 0 2 calc-do-refresh nil calc-change-current-selection message "De-emphasizing all but selected part of formulas" "Displaying only selected part of formulas" "Emphasizing selected part of formulas" "Displaying all but selected part of formulas"] 4]] 5 (#$ . 7104) "P"])
(defalias 'calc-preserve-point #[0 "\302\303!\206\304e`\"n\203\305\202\306\\i\307\310!\207" [calc-final-point-line calc-final-point-column looking-at "\\.\n+\\'" count-lines 1 0 calc-set-command-flag position-point] 3])
#@12 

(fn ARG)
(defalias 'calc-enable-selections #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\302 \210\300\203\303\300!\304V\202	?\305\306!\210\307	\203\310\202 \311!\207" [V0 calc-use-selections calc-preserve-point prefix-numeric-value 0 calc-set-command-flag renum-stack message "Commands operate only on selected sub-formulas" "Selections of sub-formulas have no effect"] 2]] 5 (#$ . 8115) "P"])
#@12 

(fn ARG)
(defalias 'calc-break-selections #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\302 \210\300\203\303\300!\304X\202	?\305	\203\306\202\307!\207" [V0 calc-assoc-selections calc-preserve-point prefix-numeric-value 0 message "Selection treats a+b+c as a sum of three terms" "Selection treats a+b+c as (a+b)+c"] 2]] 5 (#$ . 8536) "P"])
#@22 

(fn &optional NUM)
(defalias 'calc-prepare-selection #[256 "\211\204	\306`!\262
\211\307\211\310V\204\311\262
\312
\313\"\211\n\232\204I\211\314@!\240\210\211
\307\315
@\310\")\316
!@G\\\203E\317\202F\310\\\210\320 \207" [calc-selection-true-num calc-keep-selection calc-selection-cache-entry calc-selection-cache-num math-comp-tagged calc-selection-cache-comp calc-locate-cursor-element t 0 1 calc-top entry calc-encase-atoms math-compose-expr math-stack-value-offset 4 calc-preserve-point calc-left-label calc-line-numbering calc-selection-cache-offset] 5 (#$ . 8903)])
#@10 

(fn X)
(defalias 'calc-encase-atoms #[257 "\211:\203\211\300\232\203\301
\302E\207\303
!\210\207" [(float 0 0) cplx 0 calc-encase-atoms-rec] 4 (#$ . 9502)])
#@10 

(fn X)
(defalias 'calc-encase-atoms-rec #[257 "\211\211:?\206\211@\300>\262
\206C\211@\301=\203\211A\262
\211A\211\262\205C\211@:\2030\211@\302\232\203;\211\303@\304E\240\210\202\305
@!\210\202\207" [(frac float cplx polar hms date mod var) intv (float 0 0) cplx 0 calc-encase-atoms-rec] 5 (#$ . 9671)])
(defalias 'calc-find-selected-part #[0 "iZ\306\307\211\212\310 \210`\311\n!\210`\262`
W\203)\312y\210
\313 \\\262T\262\202\314!ZT\262
)\315`%\306	\307Y\203Q\307V\203Q\316\317\"\210A@,\207" [calc-selection-cache-offset math-comp-sel-hpos calc-selection-cache-num calc-selection-cache-comp math-comp-sel-vpos math-comp-sel-cpos nil 0 beginning-of-line calc-cursor-stack-index 1 current-indentation math-comp-ascent - math-composition-to-string 1000000 math-comp-sel-tag calc-selection-true-num] 9])
#@17 

(fn SUB-EXPR)
(defalias 'calc-change-current-selection #[257 "\211\3068=\2064	\307\211
\310\311!\210AA\240\210\312\f!\210`\262
\312\fS!\210\211`|\210\313!\314\261+\266\203\207" [calc-selection-cache-entry calc-selection-cache-comp buffer-read-only calc-prepared-composition calc-selection-cache-num calc-selection-cache-default-entry 2 nil calc-set-command-flag renum-stack calc-cursor-stack-index math-format-stack-value "\n"] 6 (#$ . 10521)])
#@22 

(fn &optional N M)
(defalias 'calc-top-selected #[512 "\205L	\205L
\204\304\262\211\204\304\262
\305\\S!\210\211\n\\S\233\306S\211\262\307Y\203J\310@8\203C\211\203=\311\202A\310@8\262

A\262\202$\262
\207" [calc-any-selections calc-use-selections calc-stack-top calc-stack 1 calc-check-stack nil 0 2 t] 6 (#$ . 10985)])
#@29 

(fn EXPR RSF-OLD RSF-NEW)
(defalias 'calc-replace-sub-formula #[771 "
\302!\303!*\207" [calc-rsf-new calc-rsf-old calc-encase-atoms calc-replace-sub-formula-rec] 6 (#$ . 11334)])
#@13 

(fn EXPR)
(defalias 'calc-replace-sub-formula-rec #[257 "\211=\203	\207\211\211:?\206\211@\302>\262
\203\207\211@\303\304A\"B\207" [calc-rsf-old calc-rsf-new (frac float cplx polar hms date mod var) mapcar calc-replace-sub-formula-rec] 5 (#$ . 11525)])
(defalias 'calc-sel-error #[0 "\300\301!\207" [error "Invalid operation on sub-formulas"] 2])
#@17 

(fn N VALS M)
(defalias 'calc-replace-selections #[771 "\301\"\203\324
G\302 \210
U\203p\303\304#\305\211\211\203[\306@8\203C\307@!\262
\310@@\306@8#B\262\211B\262\202O@B\262\305B\262A\262A\262\202\311\312#\210\313\237\205n\237#\207\211\314U\203\321\303\304#\305
\203\216\306@8\204\216
A\262\202|
\262
\211A\211\262\203\240\306
@8\203\221\211\203\247\315 \210\311\312#\210
\203\315\307@!\313\310@@\306@8#C\205\313C#\207\313!\207\315 \207\311\312#\210\313\"\207" [calc-keep-selection calc-top-selected calc-preserve-point calc-top-list entry nil 2 calc-encase-atoms calc-replace-sub-formula calc-pop-stack t calc-push-list 1 calc-sel-error] 12 (#$ . 11888)])
#@10 

(fn N)
(defalias 'calc-delete-selection #[257 "\301
\302\"\303
8\203\276\303
8
@=\203\304\305\306#\210\307\310\"\207\311
@\3038\"\312\313 \210\304\305\306#\210
@\314>\204G
@\315=\203M\3038\3038=\203M\305\262
\202k
@\316>\204k
@\236\203h
G\317U\203h\320\262
\202k\321\262
\211\320=\203\224\307\322\323@\3038A@=\203\212\3038\202\216A@#!C\"\207\211\203\250\307\322\323@\3038#!C\"\207\307\322\323@\324\303	8\325	!\"#!C\"\207\304\305\306#\207" [calc-tweak-eqn-table calc-top entry 2 calc-pop-stack 1 t calc-push-list (0) calc-find-parent-formula nil calc-preserve-point (* / %) ^ (vec calcFunc-min calcFunc-max) 3 del 0 calc-normalize calc-replace-sub-formula delq copy-sequence] 13 (#$ . 12630)])
#@12 

(fn N M)
(defalias 'calc-roll-down-with-selections #[514 "\300\301\302\"\301ZT\"\"\300\301\302\303#\301ZT\303#\"\304\302$\207" [append calc-top-list 1 sel calc-pop-push-list] 9 (#$ . 13375)])
#@12 

(fn N M)
(defalias 'calc-roll-up-with-selections #[514 "\300\301Z\302\"\301ZT\"\"\300\301Z\302\303#\301ZT\303#\"\304\302$\207" [append calc-top-list 1 sel calc-pop-push-list] 9 (#$ . 13586)])
#@14 

(fn ENTRY)
(defalias 'calc-auto-selection #[257 "\301
8\206\302\303 \210\304
@\305 \"\207" [calc-sel-reselect 2 nil calc-prepare-selection calc-grow-assoc-formula calc-find-selected-part] 4 (#$ . 13801)])
(defalias 'calc-copy-selection #[0 "\300\301!\207" [calc-do #[0 "\300 \210\301\302`!]\303
\304\"\305\306!\206
@!\207" [calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-push calc-auto-selection] 5]] 2 nil nil])
(defalias 'calc-del-selection #[0 "\300\301!\207" [calc-do #[0 "\300 \210\301\302`!]\303
\304\"\305
!
AA
@=?\205
\240\210\306!\207" [calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-auto-selection calc-delete-selection] 6]] 2 nil nil])
#@30 History for calc selections.
(defvar calc-selection-history nil (#$ . 14510))
(defalias 'calc-enter-selection #[0 "\300\301!\207" [calc-do #[0 "\304 \210\305\306`!]\307
\310\"\211@\311!\206\211\312
C\313\314\315\316\312\317$\262
\211\203E\320
@!\262
\321\305\322\323#C	\205BC%\210*\324 )\207" [calc-keep-selection calc-sel-reselect calc-dollar-used calc-dollar-values calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-auto-selection nil 0 calc-do-alg-entry "" "Replace selection with: " calc-selection-history calc-encase-atoms calc-pop-push-record-list "repl" calc-replace-sub-formula calc-handle-whys] 12]] 2 nil nil])
(defalias 'calc-edit-selection #[0 "\300\301!\210\302 \207" [calc-do #[0 "\304 \210\305\306`!]\307
\310\"\211@\311!\206\211\n\312
\313 \")	\314\315\316$!\210
\317\261)\207" [calc-keep-selection calc-sel-reselect calc-full-float-format calc-float-format calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-auto-selection math-format-nice-expr frame-width calc--edit-mode make-closure #[0 "\303\300\301\302#\207" [V0 V1 V2 calc-finish-selection-edit] 4] "\n"] 12] calc-show-edit-buffer] 2 nil nil])
#@25 

(fn NUM SEL RESELECT)
(defalias 'calc-finish-selection-edit #[771 "pd{`\302	!\210\303!C\211\242\242\304=\203(\302!\210

\242A@\\b\210\304\305\2428!\210\306\307\310			%!\207" [calc-edit-top calc-original-buffer switch-to-buffer math-read-expr error 2 calc-do make-closure #[0 "\305 \210\f\203\f\306\307\310\"\210\303\311\312\303\242!!\240\210\313\300\314\"\315
\301\"\2034\316\307\317\320\301\303\242#C\300\302\2051\303\242C%\207\321\303\242!\210\322\323!\207" [V0 V1 V2 V3 calc-edit-disp-trail calc-preserve-point calc-trail-display 1 t calc-encase-atoms calc-normalize calc-top full calc-find-sub-formula calc-pop-push-record-list "edit" calc-replace-sub-formula calc-push error "Original selection has been lost"] 8]] 14 (#$ . 15700)])
#@12 

(fn ARG)
(defalias 'calc-sel-evaluate #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\305 \210\306\307`!]	\310
\311\"\312
!\206\211@\313>?\205\314\315\300!\210\316\317!!\320\306\321\322@#C\n\205>C%\266*\323 )\207" [V0 calc-keep-selection calc-sel-reselect calc-simplify-mode math-simplify-only calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-auto-selection (none num) nil calc-modify-simplify-mode calc-encase-atoms calc-normalize calc-pop-push-record-list "jsmp" calc-replace-sub-formula calc-handle-whys] 11]] 5 (#$ . 16460) "p"])
#@12 

(fn ARG)
(defalias 'calc-sel-expand-formula #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\306 \210\307\310`!]	\311
\312\"\313
!\206\211@\314>?\205\315\316\300!\210\300\317V\320
!\315\300\317X\203A\321!\211\262\203A\320
!\262\322!\262\323\307\324\325@#C\n\205[C%\210)\266*\326 )\207" [V0 calc-keep-selection calc-sel-reselect calc-simplify-mode math-simplify-only math-expand-formulas calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-auto-selection (none num) nil calc-modify-simplify-mode 0 calc-normalize math-expand-formula calc-encase-atoms calc-pop-push-record-list "jexf" calc-replace-sub-formula calc-handle-whys] 12]] 5 (#$ . 17054) "p"])
#@29 

(fn ARG &optional DIVIDE)
(defalias 'calc-sel-mult-both-sides #[513 "\300\301\302#!\207" [calc-do make-closure #[0 "\306 \210\300:\307\310`!]\n\311
\312\"\211@\313!\206\211\211\242\314\211\211\f\315>?\205&\f\316\317\301\2031\320\2022\321\314\322$@)\262\203V
\323=\204I
\236\203	
G\324U\203	
\325>\204\207\326!\203p
\236A@\262\327!\204\207\330\331!\210\202\207\332!\204\207\333!\203\203\330\331!\210\202\207\330\334!\210\301\203\217\323\202\220\335A@E\262\301\203\237\323\202\240\335\3368E\262
\204\344\337!\262\337
!\262
\323=\203\344A@\307\340\"\341U\266\202\204\333A@\342\340\"\341U\266\202\203\344\300\204\344\343
!\262
\300\203\374\204\374\337\344\300\341U?\205\370\300\"!\262
\345\346E!!\262\2027
\301\203
\335\202
\323E\262
\204!
\337
!\262
\345\346\301\203/
\323E\2023
\335E!!\262\347\307\301\203A
\350\202B
\351\352		#C\205S
C%\210\353 )\207" [V0 V1 calc-keep-selection calc-sel-reselect calc-simplify-mode calc-tweak-eqn-table calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-auto-selection nil (none num) calc-do-alg-entry "" "Divide both sides by: " "Multiply both sides by: " calc-selection-history / 3 (/ calcFunc-eq calcFunc-neq) math-known-nonposp math-known-negp message "Assuming this factor is nonzero" math-known-posp math-known-nonnegp "Assuming this factor is positive" * 2 math-simplify math-compare 0 -1 math-expand-term calcFunc-expand calc-encase-atoms calc-normalize calc-pop-push-record-list "div" "mult" calc-replace-sub-formula calc-handle-whys] 16]] 7 (#$ . 17770) "P"])
#@16 

(fn NO-SIMP)
(defalias 'calc-sel-div-both-sides #[257 "\300
\301\"\207" [calc-sel-mult-both-sides t] 4 (#$ . 19386) "P"])
#@35 

(fn NO-SIMP &optional SUBTRACT)
(defalias 'calc-sel-add-both-sides #[513 "\300\301\302#!\207" [calc-do make-closure #[0 "\306 \210\307\310`!]\n\311
\312\"\211@\313!\206\211\211\242\314\211\211\f\315>?\205$\f\316\317\301\203/\320\2020\321\314\322$@)\262\203\314
\236\203\204G\323U\203\204\301\203P\324\202Q\325A@E\262\301\203`\324\202a\325\3268E\262
\300\204w\327!\262\327
!\262
\330\331E!!\262\202\255\301\203\214\325\202\215\324E\262
\300\204\233\327
!\262
\330\331\301\203\245\324\202\246\325E!!\262\332\307\301\203\267\333\202\270\334\335		#C\205\311C%\210\336 )\207" [V0 V1 calc-keep-selection calc-sel-reselect calc-simplify-mode calc-tweak-eqn-table calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-auto-selection nil (none num) calc-do-alg-entry "" "Subtract from both sides: " "Add to both sides: " calc-selection-history 3 - + 2 math-simplify calc-encase-atoms calc-normalize calc-pop-push-record-list "sub" "add" calc-replace-sub-formula calc-handle-whys] 15]] 7 (#$ . 19516) "P"])
#@16 

(fn NO-SIMP)
(defalias 'calc-sel-sub-both-sides #[257 "\300
\301\"\207" [calc-sel-add-both-sides t] 4 (#$ . 20593) "P"])
(provide 'calc-sel)