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



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@12 

(fn ARG)
(defalias 'calc-commute-left #[257 "\211C\211\242\300W\203\301
\242[!\207\302\303\304\"!\207" [0 calc-commute-right calc-do make-closure #[0 "\305 \210\306\307`!]	\300\242\310U\203\300\311\240\210\300\242\203$\300\211\242S\240\310Y\205~
\312
\313\"\211@\314!\311\211\203>\315\"\211\262:\204B\316\317!\210\203

@\f\236\203
\320\"\3218=\203\320\322\211@A@\242\f\236A@>\203\217\321A@8\323A@@\323@A@A@\f##\321
A@8\262	\262
\202\312@\324=\203\247\323\325\326	!\211\262\nA@#\202\312@\327=\203\300\323\330\331\306\n\"\211\262\nA@#\202\312\323@A@##\266\202\2026
\320\"\211:\203\351
\3218=\203\351\211@@=\204\357\311\266\203\2026
\323
@\323@A@\3218##\262A@\262\322#\266\203\2026

A@=\203
\311\262
\2026
\332\"S\333!\211\262\233\211A
@\240\210\211\240\266\211\204\\
\300\242\203G
\316\334!\266\202\n\204T
\335\306C\336$\210\300\310\240\266\202\337\306\340\322#C	\300\242\310=\203u
\n\205w
C%\266\202)\207" [V0 calc-keep-selection calc-sel-reselect calc-assoc-selections calc-assoc-ops calc-preserve-point 1 calc-locate-cursor-element 0 nil calc-top entry calc-auto-selection calc-find-assoc-parent-formula error "No term is selected" calc-find-parent-formula 2 calc-replace-sub-formula calc-build-assoc-term - + math-neg / * calcFunc-div calc-find-sub-formula copy-sequence "Term is already leftmost" calc-pop-push-list (nil) calc-pop-push-record-list "left"] 17]] 6 (#$ . 156) "p"])
#@12 

(fn ARG)
(defalias 'calc-commute-right #[257 "\211C\211\242\300W\203\301
\242[!\207\302\303\304\"!\207" [0 calc-commute-left calc-do make-closure #[0 "\305 \210\306\307`!]	\300\242\310U\203\300\311\240\210\300\242\203$\300\211\242S\240\310Y\205t
\312
\313\"\211@\314!\311\211\203>\315\"\211\262:\204B\316\317!\210\203

@\f\236\203
\320\"
A@=\203\314\321\211@\322\2118\242\f\2368>\203\211\3228A@\323@\323\322	8@\f\322\211\f88##\262
\202\306@\324=\203\236\323\325\326\3228!	#\202\276@\327=\203\264\323\330\331\306\3228\"	#\202\276\323@\3228	#\322
8\262\211\262
#\266\202\202,
\320\"\211:\203\335

A@=\204\343\311\266\203\202,
\323@\323@A@\3228##\262\3228\262\321#\266\203\202,

GS8=\203
\311\262
\202,
\332\"\333!\211\262\233\211
A@\240\210\211A\240\266\211\204R
\300\242\203=
\316\334!\266\202\n\204J
\335\306C\336$\210\300\310\240\266\202\337\306\340\321#C	\300\242\310=\203k
\n\205m
C%\266\202)\207" [V0 calc-keep-selection calc-sel-reselect calc-assoc-selections calc-assoc-ops calc-preserve-point 1 calc-locate-cursor-element 0 nil calc-top entry calc-auto-selection calc-find-assoc-parent-formula error "No term is selected" calc-find-parent-formula calc-replace-sub-formula 2 calc-build-assoc-term - + math-neg / * calcFunc-div calc-find-sub-formula copy-sequence "Term is already rightmost" calc-pop-push-list (nil) calc-pop-push-record-list "rght"] 20]] 6 (#$ . 1647) "p"])
#@19 

(fn OP LHS RHS)
(defalias 'calc-build-assoc-term #[771 "\300=\203*\301
!\204#\211\242\302=\203*\303
A@!\203*\304
8\305=\203*\306\307!E\207\306=\203T\301
!\204M\211\242\302=\203T\303
A@!\203T\304
8\305=\203T\300\307!E\207\310=\203y\211\242\311=\203y\312
A@\313\"\204r\211A@\314\232\203y\311\3048E\207\311=\203\236\211\242\311=\203\236\312
A@\313\"\204\227\211A@\315\232\203\236\311\3048E\207E\207" [+ math-looks-negp cplx math-negp 2 0 - math-neg * / math-equal-int 1 (cplx 1 0) (cplx 1 0)] 7 (#$ . 3133)])
(defalias 'calc-sel-unpack #[0 "\300\301!\207" [calc-do #[0 "\302 \210\303\304`!]\305
\306\"\211@\307!\206\211\310
!\204$\211G\311U\204(\312\313!\210\314\303\315\316\211A@#C	\205<A@C%)\207" [calc-keep-selection calc-sel-reselect calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-auto-selection math-primp 2 error "Selection must be a function of one argument" calc-pop-push-record-list "unpk" calc-replace-sub-formula] 11]] 2 nil nil])
(defalias 'calc-sel-isolate #[0 "\300\301`\"\207" [calc-do #[0 "\304 \210\305\306`!]\307
\310\"\211@\311!\206\312\313!\211\314\315\"\211\262:\204,\312\316!\2033
@\n\236\203\317#\262
\211\204B\312\320!\210\321\322\3238\"?A@==\203W
\202d
@\n\236A@\3238A@E!\262
\324\305\325\326#C		\205{C%\210\327 )\207" [calc-keep-selection calc-sel-reselect calc-tweak-eqn-table calc-hyperbolic-flag calc-preserve-point 1 calc-locate-cursor-element calc-top entry calc-auto-selection error "No selection" nil calc-find-parent-formula "Selection must be a member of an equation" math-solve-eqn "No solution found" calc-encase-atoms calc-find-sub-formula 2 calc-pop-push-record-list "isol" calc-replace-sub-formula calc-handle-whys] 13]] 3 nil nil])
#@13 

(fn MANY)
(defalias 'calc-sel-commute #[257 "\301\302\303\304#\210)\305 \207" [calc-assoc-selections nil calc-rewrite-selection "CommuteRules" "cmut" calc-set-mode-line] 5 (#$ . 4913) "P"])
#@13 

(fn MANY)
(defalias 'calc-sel-jump-equals #[257 "\300\301\302#\207" [calc-rewrite-selection "JumpRules" "jump"] 5 (#$ . 5113) "P"])
#@13 

(fn MANY)
(defalias 'calc-sel-distribute #[257 "\300\301\302#\207" [calc-rewrite-selection "DistribRules" "dist"] 5 (#$ . 5254) "P"])
#@13 

(fn MANY)
(defalias 'calc-sel-merge #[257 "\300\301\302#\207" [calc-rewrite-selection "MergeRules" "merg"] 5 (#$ . 5397) "P"])
#@13 

(fn MANY)
(defalias 'calc-sel-negate #[257 "\300\301\302#\207" [calc-rewrite-selection "NegateRules" "jneg"] 5 (#$ . 5533) "P"])
#@13 

(fn MANY)
(defalias 'calc-sel-invert #[257 "\300\301\302#\207" [calc-rewrite-selection "InvertRules" "jinv"] 5 (#$ . 5671) "P"])
(provide 'calcsel2)