;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-store-keep nil)
#@22 

(fn &optional VAR)
(defalias 'calc-store #[256 "\301\302
!)\207" [calc-store-keep t calc-store-into] 3 (#$ . 185) nil])
(defvar calc-given-value-flag nil)
#@22 

(fn &optional VAR)
(defalias 'calc-store-into #[256 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\303\304\300\242\204\300\305\306\307\"\240\210\300\242\203?\300\242\310\236\211\203#\211A \202:\311\300\242\n\206-\312\304!\313	$\314\315\316\300\242!#\262
\262
\202\200\300\317\312\304!!\240\210\300\242\205\200\300\242\205\200\311\300\242@@\300\242@A\300\242A?\205b\313\300\242A?\205j\304$\314\315\316\300\242@@!#\266\300\211\242A\240\210\202L*\207" [V0 calc-given-value-flag calc-given-value nil 1 calc-read-var-name "Store: " t ((+ . calc-store-plus) (- . calc-store-minus) (* . calc-store-times) (/ . calc-store-div) (^ . calc-store-power) (| . calc-store-concat)) calc-store-value calc-top "" message "Stored to variable \"%s\"%s" calc-var-name calc-is-assignments] 6]] 6 (#$ . 349) nil])
#@22 

(fn &optional VAR)
(defalias 'calc-store-plus #[256 "\300
\301\302#\207" [calc-store-binary "+" +] 5 (#$ . 1175) nil])
#@22 

(fn &optional VAR)
(defalias 'calc-store-minus #[256 "\300
\301\302#\207" [calc-store-binary "-" -] 5 (#$ . 1302) nil])
#@22 

(fn &optional VAR)
(defalias 'calc-store-times #[256 "\300
\301\302#\207" [calc-store-binary "*" *] 5 (#$ . 1430) nil])
#@22 

(fn &optional VAR)
(defalias 'calc-store-div #[256 "\300
\301\302#\207" [calc-store-binary "/" /] 5 (#$ . 1558) nil])
#@22 

(fn &optional VAR)
(defalias 'calc-store-power #[256 "\300
\301\302#\207" [calc-store-binary "^" ^] 5 (#$ . 1684) nil])
#@22 

(fn &optional VAR)
(defalias 'calc-store-concat #[256 "\300
\301\302#\207" [calc-store-binary "|" |] 5 (#$ . 1812) nil])
#@24 

(fn N &optional VAR)
(defalias 'calc-store-neg #[513 "\300
\301\302[$\207" [calc-store-binary "n" /] 7 (#$ . 1941) "p"])
#@24 

(fn N &optional VAR)
(defalias 'calc-store-inv #[513 "\300
\301\302[$\207" [calc-store-binary "&" ^] 7 (#$ . 2071) "p"])
#@24 

(fn N &optional VAR)
(defalias 'calc-store-incr #[513 "\300
\301\302[$\207" [calc-store-binary "n" -] 7 (#$ . 2201) "p"])
#@24 

(fn N &optional VAR)
(defalias 'calc-store-decr #[513 "\300
\301\302$\207" [calc-store-binary "n" -] 7 (#$ . 2332) "p"])
#@36 

(fn VAR VALUE TAG &optional POP)
(defalias 'calc-store-value #[1027 "\302\203h\303!L\210\203\204\304!\210\305\306\307!E!\210\2036\310\311\312\313\314!#\"\210)\315>\203O\211\242\316=\203O\312\317\314!\"\262\202b\320>\203b\211\204b\312\321\314!\"\262\322!\266\207" [calc-store-keep calc-full-trail-vectors "" calc-var-value calc-pop-stack calc-record-undo store symbol-name nil calc-record format ">%s%s" calc-var-name (var-e var-i var-pi var-phi var-gamma) special-const " (Note: Built-in definition of %s has been lost)" (var-inf var-uinf var-nan) " (Note: %s has built-in meanings which may interfere)" calc-refresh-evaltos] 13 (#$ . 2462)])
#@12 

(fn VAR)
(defalias 'calc-var-name #[257 "\2119\203\n\300
!\262
\301\302\"\203\211\303\304O\207\207" [symbol-name string-match "\\`var-." 4 nil] 4 (#$ . 3152)])
#@35 

(fn VAR TAG FUNC &optional VAL)
(defalias 'calc-store-binary #[1027 "C\300\301\302%!\207" [calc-do make-closure #[0 "\f\305=\203\n\306\202\f\303\206\307\310!
\300\242\204\"\300\311\312\313\301\"!\240\210\300\242\205\230\314\300\242!\211\242\315=\203:\316\317\320\300\242!\"\210\211\204X\300\242\321>\203P\316\322\320\300\242!\"\210\202X\316\323\320\300\242!\"\210\211;\203b\324
!\262
\211\242\316=\203p\316\325\3268\"\210\327\300\242\330\331 \203\200\302E\202\205\302E!\301\303?\205\215\310$\210\332\333\320\300\242!\"\262
)\207" [V0 V1 V2 V3 calc-simplify-mode none num calc-top 1 calc-read-var-name format "Store %s: " calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" math-read-expr "Bad format in variable contents: %s" 2 calc-store-value calc-normalize calc-is-inverse message "Variable \"%s\" changed"] 9]] 12 (#$ . 3324)])
#@41 Keymap for reading Calc variable names.
(defvar calc-var-name-map nil (#$ . 4308))
(byte-code "\204\302	!\303\304\305#\210\306\307\310\"\210\306\311\312\"\210\302\207" [calc-var-name-map minibuffer-local-completion-map copy-keymap define-key " " self-insert-command mapc #[257 "\301\302!\303#\207" [calc-var-name-map define-key char-to-string calcVar-digit] 5 "\n\n(fn X)"] "0123456789" #[257 "\301\302!\303#\207" [calc-var-name-map define-key char-to-string calcVar-oper] 5 "\n\n(fn X)"] "+-*/^|"] 4)
#@37 History for reading variable names.
(defvar calc-read-var-name-history nil (#$ . 4825))
#@37 

(fn PROMPT &optional STORE-OPERS)
(defalias 'calc-read-var-name #[513 "\306\211\211\307\310\311\312\307\"\"\313\314\315\306\306\316%+P\317\211\307\232?\205f\320\321\"\203c\2049\322\323!\202f\324
\325\326\225O!\325\327\325\225\306O!\211\242\322=\203Y\322\330\3318\"\210\332!\211\262
\202f\324
!)\207" [calc-given-value calc-aborted-prefix calc-store-opers obarray minibuffer-completion-confirm minibuffer-completion-predicate nil "var-" mapcar #[257 "\211\300\301O\207" [4 nil] 4 "\n\n(fn X)"] all-completions #[257 "\300\301\302P!!\207" [boundp intern "var-"] 5 "\n\n(fn X)"] t read-from-minibuffer calc-read-var-name-history "" string-match "\\`\\([-a-zA-Zα-ωΑ-Ω0-9]+\\) *:?=" error "Assignment is not allowed in this command" intern 0 1 math-read-expr "Bad format: %s" 2 math-evaluate-expr minibuffer-completion-table calc-var-name-map calc-given-value-flag] 10 (#$ . 4919)])
(defalias 'calcVar-digit #[0 "\301\302!\203\303=\203\304 \207\305c\210\306 \207\307\310!\207" [calc-store-opers calc-minibuffer-contains "\\'" 0 beep "q" self-insert-and-exit self-insert-command 1] 2 nil nil])
(defalias 'calcVar-oper #[0 "\301=\203\302\303!\203\304 \210\305 \207\306\307!\207" [calc-store-opers t calc-minibuffer-contains "\\'" erase-buffer self-insert-and-exit self-insert-command 1] 2 nil nil])
#@27 

(fn &optional OPER VAR)
(defalias 'calc-store-map #[512 "\211C\300\301\302#!\207" [calc-do make-closure #[0 "\306\307\n\233\"\310\300\206\311\312!\211@\301\242\204#\301\313\314\315\3168\"!\240\210\301\242\205\313\317\301\242!\211\242\320=\203;\321\322\323\301\242!\"\210\211\204Y\301\242\324>\203Q\321\325\323\301\242!\"\210\202Y\321\326\323\301\242!\"\210&\327=\203d\330\202f&\331V\205r\332S
T\"
&\333\334!\210\335\336!\210;\203\207\337!\262\242\321=\203\225\321\340\3168\"\210\341 \203\242\342
C\"\202\247\342C\"\262
\343\301\242\344A@B!\3168
S\\$\210\333\345\323\301\242!\")\266\202\262
*\207" [V0 V1 calc-stack-top calc-stack calc-dollar-values calc-dollar-used mapcar calc-get-stack-element 0 calc-get-operator "Store Mapping" calc-read-var-name format "Store Mapping %s: " 2 calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" none num 1 calc-top-list message "Working..." calc-set-command-flag clear-message math-read-expr "Bad format in variable contents: %s" calc-is-inverse append calc-store-value calc-normalize "Variable \"%s\" changed" calc-simplify-mode] 11]] 8 (#$ . 6262) nil])
#@22 

(fn &optional VAR)
(defalias 'calc-store-exchange #[256 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\303\304\303
\300\242\204\300\305\306!\240\210\300\242\205d\307\300\242!\211\242\310=\203*\311\312\313\300\242!\"\210\211\204H\300\242\314>\203@\311\315\313\300\242!\"\210\202H\311\316\313\300\242!\"\210\n\206O\317\304!\262\320\300\242\303#\210\321	\322\313\300\242!P#\262
*\207" [V0 calc-given-value-flag calc-given-value nil 1 calc-read-var-name "Exchange with: " calc-var-value special-const error "\"%s\" is a special constant" calc-var-name (var-inf var-uinf var-nan) "\"%s\" is a special variable" "No such variable: \"%s\"" calc-top calc-store-value calc-pop-push-record "<>"] 9]] 6 (#$ . 7519) nil])
#@22 

(fn &optional VAR)
(defalias 'calc-unstore #[256 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\204\300\301\302!\240\210\300\242\205P\300\242\303>\203'\304\300\242!\242\305=\203'\306\307\300\242\"\210\310\300\242!\203?\300\242J\203?\306\311\312\300\242!\"\210\202G\306\313\312\300\242!\"\210\314\300\242!\210\315\300\242!\207" [V0 calc-read-var-name "Unstore: " (var-e var-i var-pi var-phi var-gamma) calc-var-value special-const message "(Note: Built-in definition of %s has been lost)" boundp "Unstored variable \"%s\"" calc-var-name "Variable \"%s\" remains unstored" makunbound calc-refresh-evaltos] 4]] 6 (#$ . 8260) nil])
#@22 

(fn &optional VAR)
(defalias 'calc-let #[256 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\303\304\303\211\300\242\204\300\305\306!\240\210	\203 	\262
\307\304!\262\202*\307\304!\262
\307\310!\262\300\211\242\2038\300\242BC\202;\311!\240\210\300\242\205\200\312\nT\313\314\300\242@@!P\315\316\300\242\"C\317\320\300#\216\300\242\211\203v\211@@\321@A!L\210\322
@@!\210\211A\262
\202[\323!\262
)\262
#*\207" [V0 calc-given-value calc-given-value-flag nil 1 calc-read-var-name "Let variable: " calc-top 2 calc-is-assignments calc-pop-push-record "=" calc-var-name mapcar #[257 "\300
@!\205\n\211@J\207" [boundp] 3 "\n\n(fn V)"] make-closure #[0 "\301\242\203-\301\242@\203\300\242@@\301\242@L\210\202\302\300\242@@!\210\301\211\242A\240\210\300\211\242A\240\210\202\303 \207" [V0 V1 makunbound calc-handle-whys] 2] calc-normalize calc-refresh-evaltos math-evaluate-expr] 10]] 6 (#$ . 8921) nil])
#@14 

(fn VALUE)
(defalias 'calc-is-assignments #[257 "\211\242\300>\203\211A@\242\301=\205W\302
A@8\3028BC\207\211\242\303=\205W\304
A\211\262\203O
@\242\305>\203O
@A@\242\301=\203O\302@A@8\302@8B
B\262
\202#
?\205U\211\262
\207" [(calcFunc-eq calcFunc-assign) var 2 vec nil (calcFunc-eq calcFunc-assign)] 5 (#$ . 9859)])
#@22 

(fn &optional VAR)
(defalias 'calc-recall #[256 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\204\300\302\303!\240\210\300\242\205O\304\300\242!\211\204 \305\306\307\300\242!\"\210\211;\203*\310
!\262
\211\242\305=\2038\305\311\3128\"\210\313
!\262
\314\315
\316\307\300\242!P\"\210)\317
!\262
\207" [V0 calc-full-trail-vectors calc-read-var-name "Recall: " calc-var-value error "No such variable: \"%s\"" calc-var-name math-read-expr "Bad format in variable contents: %s" 2 calc-normalize nil calc-record "<" calc-push] 6]] 6 (#$ . 10197) nil])
(defalias 'calc-store-quick #[0 "\301\302\303\304\"!!\207" [last-command-event calc-store intern format "var-q%c"] 5 nil nil])
(defalias 'calc-store-into-quick #[0 "\301\302\303\304\"!!\207" [last-command-event calc-store-into intern format "var-q%c"] 5 nil nil])
(defalias 'calc-recall-quick #[0 "\301\302\303\304\"!!\207" [last-command-event calc-recall intern format "var-q%c"] 5 nil nil])
#@29 

(fn &optional SCONST VAR)
(defalias 'calc-copy-special-constant #[512 "
C
C\300\301\302\303$!\207" [((#1="") ("e" special-const (math-e)) ("pi" special-const (math-pi)) ("i" special-const (math-imaginary 1)) ("phi" special-const (math-phi)) ("gamma" special-const (math-gamma-const))) calc-do make-closure #[0 "\300\242\204\300\303\304\302\305\306$\240\210\300\242\307\230?\205D\310\300\242\302\"A\301\242\204+\301\311\312\313\300\242\"!\240\210\301\242\205B\314\301\242\307#\315\316\300\242\317\301\242!$\262
\262
\207" [V0 V1 V2 completing-read "Special constant: " nil t #1# assoc calc-read-var-name format "Copy special constant %s, to: " calc-store-value message "Special constant \"%s\" copied to \"%s\"%s" calc-var-name] 7]] 11 (#$ . 11173) nil])
#@28 

(fn &optional VAR1 VAR2)
(defalias 'calc-copy-variable #[512 "
C
C\300\301\302#!\207" [calc-do make-closure #[0 "\300\242\204\300\302\303!\240\210\300\242\205L\304\300\242!\211\204 \305\306\307\300\242!\"\210\301\242\2041\301\302\310\311\307\300\242!\"!\240\210\301\242\205J\312\301\242\313#\314\315\307\300\242!\307\301\242!$\262
\262
\207" [V0 V1 calc-read-var-name "Copy variable: " calc-var-value error "No such variable: \"%s\"" calc-var-name format "Copy variable: %s, to: " calc-store-value "" message "Variable \"%s\" copied to \"%s\"%s"] 7]] 9 (#$ . 11945) nil])
(defvar calc-last-edited-variable nil)
#@22 

(fn &optional VAR)
(defalias 'calc-edit-variable #[256 "\211C\300\301\302\"!\210\303 \207" [calc-do make-closure #[0 "\300\242\204\300\302\303\304	\205\305	!\"!\240\210\300\242\204\300	\240\210\300\242\205S\306\300\242!\211\242\307=\2033\310\311\300\242\"\210\300\242\312\313\314\300\"\315\316\317\305\300\242!\"#\210\211\205Q\320
\321 \"\322\261\262
\207" [V0 calc-last-edited-variable calc-read-var-name format-prompt "Edit" calc-var-name calc-var-value special-const error "%s is a special constant" calc--edit-mode make-closure #[0 "\301\300\242!\207" [V0 calc-finish-stack-edit] 2] t format-message "Editing variable `%s'" math-format-nice-expr frame-width "\n"] 8] calc-show-edit-buffer] 6 (#$ . 12574) nil])
(defalias 'calc-edit-Decls #[0 "\300\301!\207" [calc-edit-variable var-Decls] 2 nil nil])
(defalias 'calc-edit-EvalRules #[0 "\300\301!\207" [calc-edit-variable var-EvalRules] 2 nil nil])
(defalias 'calc-edit-FitRules #[0 "\300\301!\207" [calc-edit-variable var-FitRules] 2 nil nil])
(defalias 'calc-edit-GenCount #[0 "\300\301!\207" [calc-edit-variable var-GenCount] 2 nil nil])
(defalias 'calc-edit-Holidays #[0 "\300\301!\207" [calc-edit-variable var-Holidays] 2 nil nil])
(defalias 'calc-edit-IntegLimit #[0 "\300\301!\207" [calc-edit-variable var-IntegLimit] 2 nil nil])
(defalias 'calc-edit-LineStyles #[0 "\300\301!\207" [calc-edit-variable var-LineStyles] 2 nil nil])
(defalias 'calc-edit-PointStyles #[0 "\300\301!\207" [calc-edit-variable var-PointStyles] 2 nil nil])
(defalias 'calc-edit-PlotRejects #[0 "\300\301!\207" [calc-edit-variable var-PlotRejects] 2 nil nil])
(defalias 'calc-edit-AlgSimpRules #[0 "\300\301!\207" [calc-edit-variable var-AlgSimpRules] 2 nil nil])
(defalias 'calc-edit-TimeZone #[0 "\300\301!\207" [calc-edit-variable var-TimeZone] 2 nil nil])
(defalias 'calc-edit-Units #[0 "\300\301!\207" [calc-edit-variable var-Units] 2 nil nil])
(defalias 'calc-edit-ExtSimpRules #[0 "\300\301!\207" [calc-edit-variable var-ExtSimpRules] 2 nil nil])
#@22 

(fn &optional VAR)
(defalias 'calc-declare-variable #[256 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\204\f\300\302\303\304\"\240\210\300\242\204\300\305\240\210\306\211\211\211\307\301!\203&	\242\310=\204)\310C	\262A\211\262\203\214@\242\310=\203,@G\311U\203,@A@\262
\262

\242\310=\203u\211A\211\262\203n\211@\242\312=\203T\313
@8\300\242=\203T\211@\262
\202\210
\242\312=\203\205\3138\300\242=\204\210\306\262
\211\203,\314\315!\210\316\317\320\321\300\242!\"\205\244\322\313@8\304\"\"\262\323\324\"\205\261\325!\262\242\326=\203\301\326\327\3138\"\210A\203\316\310B\262\202\322@\262\242\310=\203\345G\313U\203\345A@\262\330\331\332\333\300\242!C\205\365C#\334\"\210\335	!
\242\310=\203

\336A\"\241\210
A\204 
\336@	\"\202 
\336@	\"\203\210
\300\242\305=?\205-
	\262A\211\262\203P
@\242\310=\203/
@G\311U\203/
\313@8\232\203/
\203{
@A\331@A@\242\310=\203i
@A@\202p
\310@A@D\333\300\242!C\"\240\210\202\210
\331	\310\333\300\242!EC\"\337\301!\207" [V0 var-Decls calc-read-var-name "Declare: " 0 var-All nil calc-var-value vec 3 var 2 calc-unread-command 1 read-string format "Declare: %s  to be: " calc-var-name math-format-flat-expr string-match "[^ 	]" math-read-exprs error "Bad format in declaration: %s" calc-record append (vec) math-build-var-name "decl" copy-sequence delq calc-refresh-evaltos] 9]] 6 (#$ . 14583) nil])
(defvar calc-dont-insert-variables '(var-FitRules var-FactorRules var-CommuteRules var-JumpRules var-DistribRules var-MergeRules var-NegateRules var-InvertRules var-IntegAfterRules var-TimeZone var-PlotRejects var-PlotData1 var-PlotData2 var-PlotData3 var-PlotData4 var-PlotData5 var-PlotData6 var-DUMMY))
#@22 

(fn &optional VAR)
(defalias 'calc-permanent-variable #[256 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\204\300\303\304!\240\210\305\300\242\203#\306\300\242!\203\300\242J\204#\307\310!\210\311\312\n!!q\210\300\242\2037\313\300\242!\210\202;\314\315!\210\316 )\207" [V0 calc-pv-pos calc-settings-file calc-read-var-name "Save variable (default all): " nil boundp error "No such variable" find-file-noselect substitute-in-file-name calc-insert-permanent-variable mapatoms #[257 "\301\302\303!\"\205\"\211>?\205\"\304
!\205\"\211J\242\305=?\205\"\306
!\207" [calc-dont-insert-variables string-match "\\`var-" symbol-name calc-var-value special-const calc-insert-permanent-variable] 5 "\n\n(fn X)"] save-buffer] 3]] 6 (#$ . 16328) nil])
#@12 

(fn VAR)
(defalias 'calc-insert-permanent-variable #[257 "eb\210\302\303\304\305!\306Q\302\307#)\203C\310 \311y\210\312\313!\203+\314\225\302\210`|\210\315 c\210	\316Z\305!GZb\210\317\320!\210\311u\210	`|\210\202Ydb\210\321\305!\322\315 \323\305!\324\261\210\325u\210\326\327!!c\210\320y\207" [case-fold-search calc-pv-pos nil search-forward "(setq " symbol-name " '" t point-marker -1 looking-at ";;; Variable .* stored by Calc on " 0 current-time-string 8 forward-sexp 1 "\n;;; Variable \"" "\" stored by Calc on " "\n(setq " " ')\n" -2 prin1-to-string calc-var-value] 8 (#$ . 17105)])
#@12 

(fn BUF)
(defalias 'calc-insert-variables #[257 "r\211q\210\300\301!)\207" [mapatoms #[257 "\304\305\306!\"\205U\211>?\205U\307
!\205U\211J\242\310=?\205U\211\301=\203,	\311\232?\205U\211\302=\2039\n\312\232?\205U\313\306!\314\315\316>\203I\317\202J\320J\321\")!\322\261\207" [calc-dont-insert-variables var-Decls var-Holidays calc-language string-match "\\`var-" symbol-name calc-var-value special-const (vec) (vec (var sat var-sat) (var sun var-sun)) "(setq " " " prin1-to-string (nil big) flat math-format-value 100000 ")\n"] 8 "\n\n(fn X)"]] 3 (#$ . 17714) "bBuffer in which to save variable values: "])
#@12 

(fn ARG)
(defalias 'calc-assign #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-binary-op ":=" calcFunc-assign] 4]] 5 (#$ . 18348) "P"])
#@12 

(fn ARG)
(defalias 'calc-evalto #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-unary-op "=>" calcFunc-evalto] 4]] 5 (#$ . 18535) "P"])
#@12 

(fn ARG)
(defalias 'calc-subscript #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-binary-op "sub" calcFunc-subscr] 4]] 5 (#$ . 18721) "P"])
(provide 'calc-store)