
(require (quote calc-ext))

(defun calc-Need-calc-store nil (byte-code "À‡" [nil] 1))

(defun calc-store (&optional var) (interactive) (byte-code "ÃˆÁÄ
!)‡" [calc-store-keep t var nil calc-store-into] 2))

(setq calc-store-keep nil)

(defun calc-store-into (&optional var) (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-do (lambda nil (byte-code "ÁÆ† ÇÈÄ\"‰ˆƒ: ÉÊ\"ƒ# ËA!‚6 Ì†, ÍÆ!Î
$ˆÏÐÑ!\")‚i ÒÍÆ!!‰ˆ…i …i Ì@@@AA?…X ÎA?…_ Æ$ˆA‰ˆ‚F *‡" [calc-given-value nil calc-given-value-flag var t found 1 calc-read-var-name "Store: " assq ((+ . calc-store-plus) (- . calc-store-minus) (* . calc-store-times) (/ . calc-store-div) (^ . calc-store-power) (| . calc-store-concat)) funcall calc-store-value calc-top "" message "Stored to variable \"%s\"" calc-var-name calc-is-assignments] 15))] 2))

(defun calc-store-plus (&optional var) (interactive) (byte-code "ÁˆÂÃÄ#‡" [var nil calc-store-binary "+" +] 4))

(defun calc-store-minus (&optional var) (interactive) (byte-code "ÁˆÂÃÄ#‡" [var nil calc-store-binary "-" -] 4))

(defun calc-store-times (&optional var) (interactive) (byte-code "ÁˆÂÃÄ#‡" [var nil calc-store-binary "*" *] 4))

(defun calc-store-div (&optional var) (interactive) (byte-code "ÁˆÂÃÄ#‡" [var nil calc-store-binary "/" /] 4))

(defun calc-store-power (&optional var) (interactive) (byte-code "ÁˆÂÃÄ#‡" [var nil calc-store-binary "^" ^] 4))

(defun calc-store-concat (&optional var) (interactive) (byte-code "ÁˆÂÃÄ#‡" [var nil calc-store-binary "|" |] 4))

(defun calc-store-neg (n &optional var) (interactive "p") (byte-code "ÂˆÃÄÅ	[$‡" [var n nil calc-store-binary "n" /] 5))

(defun calc-store-inv (n &optional var) (interactive "p") (byte-code "ÂˆÃÄÅ	[$‡" [var n nil calc-store-binary "&" ^] 5))

(defun calc-store-incr (n &optional var) (interactive "p") (byte-code "ÂˆÃÄÅ	[$‡" [var n nil calc-store-binary "n" -] 5))

(defun calc-store-decr (n &optional var) (interactive "p") (byte-code "ÂˆÃÄÅ	$‡" [var n nil calc-store-binary "n" -] 5))

(defun calc-store-value (var value tag &optional pop) (byte-code "…[ È!
Lˆ… † É!ˆÊËÌ!	E!ˆ…3 ÇÍ
ÎÏÐ!#\")ˆÑ>…F Ò	!Ó=…F ÔÕ\"ˆÖ>…V 	?…V Ô×\"ˆØ!)‡" [var old value pop calc-store-keep tag calc-full-trail-vectors nil calc-var-value calc-pop-stack calc-record-undo store symbol-name calc-record format ">%s%s" calc-var-name (var-e var-i var-pi var-phi var-gamma) car-safe special-const message "(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] 12))

(defun calc-var-name (var) (byte-code "9…
 Á!‰ˆÂÃ\"ƒ ÄÅO‚ ‡" [var symbol-name string-match "\\`var-." 4 nil] 5))

(defun calc-store-binary (var tag func &optional val) (byte-code "ÀÁ!‡" [calc-do (lambda nil (byte-code "Ç=ƒ
 È‚ 
† ÉÊ!†  ËÌÍ\"!‰ˆ…t Î!†3 ÏÐÑ!\"ˆ;…> Ò!‰ˆÓ!Ï=…M ÏÔÕ8\"ˆÖ×Ø ƒ^ 	E‚c 	E!
?…k Ê$ˆÙÚÑ!\")*‡" [calc-simplify-mode value val var tag old func none num calc-top 1 calc-read-var-name format "Store %s: " calc-var-value error "No such variable: \"%s\"" calc-var-name math-read-expr car-safe "Bad format in variable contents: %s" 2 calc-store-value calc-normalize calc-is-inverse message "Stored to variable \"%s\""] 16))] 2))

(defun calc-read-var-name (prompt &optional calc-store-opers) (byte-code "ÁÁ‰ˆÍÈÎ	Ï
Á$+Ð‰ˆÑÐ\"?…u ÑÏ\"?…u ÒÓ\"ƒr ?ƒ? ÔÕ!‚o Ö×ØÙ!O!×ÚØ×!ÁO!‰ˆÛ!Ô=…e ÔÜÝ8\"ˆÞ!‰ˆ)‚u Ö!)‡" [calc-given-value nil calc-aborted-prefix var minibuffer-completion-table obarray minibuffer-completion-predicate minibuffer-completion-confirm t prompt calc-var-name-map calc-given-value-flag svar boundp read-from-minibuffer "var-" "" equal string-match "\\`\\([-a-zA-Z0-9]+\\) *:?=" error "Assignment is not allowed in this command" intern 0 match-end 1 math-read-expr car-safe "Bad format: %s" 2 math-evaluate-expr] 14))

(setq calc-given-value-flag nil)

(defvar calc-var-name-map nil "\
Keymap for reading Calc variable names.")

(if calc-var-name-map nil (setq calc-var-name-map (copy-keymap minibuffer-local-completion-map)) (define-key calc-var-name-map " " (quote self-insert-command)) (mapcar (function (lambda (x) (define-key calc-var-name-map (char-to-string x) (quote calcVar-digit)))) "0123456789") (mapcar (function (lambda (x) (define-key calc-var-name-map (char-to-string x) (quote calcVar-oper)))) "+-*/^|"))

(defun calcVar-digit nil (interactive) (byte-code "ÁˆÂÃ!ƒ Ä=ƒ Å ‚ ÆcˆÇ ‚ ÈÉ!‡" [calc-store-opers nil calc-minibuffer-contains "var-\\'" 0 beep "q" self-insert-and-exit self-insert-command 1] 5))

(defun calcVar-oper nil (interactive) (byte-code "ÂˆÁ=… ÃÄ!ƒ Å ˆÆ ‚ ÇÈ!‡" [calc-store-opers t nil calc-minibuffer-contains "var-\\'" erase-buffer self-insert-and-exit self-insert-command 1] 5))

(defun calc-store-map (&optional oper var) (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-do (lambda nil (byte-code "ÁÌÍÎ\"\"Ï† ÐÑ!@†, ÒÓÔÕ8\"!‰ˆ…¹ Ö!†@ ×ØÙ!\"
Ú=ƒK Û‚M 
ÜV…[ ÝST\"
	Þß!ˆàá!ˆ	;…v â	!‰	ˆã	!×=…‡ ×äÕ	8\"ˆå ƒ— æ	C\"‚ž æ	C\"‰ˆçèÜ8B!Õ8S\\$+-‡" [sel-mode nil calc-dollar-values calc-stack-top calc-stack calc-dollar-used oper nargs var old calc-simplify-mode values mapcar calc-get-stack-element nthcdr 0 calc-get-operator "Store Mapping" calc-read-var-name format "Store Mapping %s: " 2 calc-var-value error "No such variable: \"%s\"" calc-var-name none num 1 calc-top-list message "Working..." calc-set-command-flag clear-message math-read-expr car-safe "Bad format in variable contents: %s" calc-is-inverse append calc-store-value calc-normalize] 24))] 2))

(defun calc-store-exchange (&optional var) (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-do (lambda nil (byte-code "ÁÆÁ† ÇÈ!‰ˆ…J É!†\" ÊËÌ!\"ˆÍ!Î=…/ ÊÏ\"ˆ†7 ÐÆ!‰ˆÑÁ#ˆÒ
ÓÌ!P#)+‡" [calc-given-value nil calc-given-value-flag top var value 1 calc-read-var-name "Exchange with: " calc-var-value error "No such variable: \"%s\"" calc-var-name car-safe special-const "%s is a special constant" calc-top calc-store-value calc-pop-push-record "<>"] 13))] 2))

(defun calc-unstore (&optional var) (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-do (lambda nil (byte-code "†	 ÁÂ!‰ˆ…E Ã>…\" ÄÅ!!Æ=…\" ÇÈ\"ˆÉ!…+ Jƒ7 ÇÊË!\"‚= ÇÌË!\"ˆÍ!ˆÎ!‡" [var calc-read-var-name "Unstore: " (var-e var-i var-pi var-phi var-gamma) car-safe 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] 12))] 2))

(defun calc-let (&optional var) (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-do (lambda nil (byte-code "ÁÈÁÁ† ÉÊ!‰ˆƒ  ËÈ!‰‚) ËÈ!ËÌ!‰ˆƒ5 BC‚8 Í!‰ˆ…~ Î
TÏÐ@@!PÑÒ\"ÓŽ…v @@Ô@A!LˆÕ@@!ˆA‰ˆ‚T ˆÖ!)))#,‡" [calc-given-value nil calc-given-value-flag thing value var saved-val vv 1 calc-read-var-name "Let variable: " calc-top 2 calc-is-assignments calc-pop-push-record "=" calc-var-name mapcar (lambda (v) (byte-code "Á@!…
 @J‡" [v boundp] 2)) ((byte-code "…# @ƒ 	@@@L‚ Â	@@!ˆA	A‰ˆ‚  ˆÃ ‡" [saved-val var makunbound calc-handle-whys] 4)) calc-normalize calc-refresh-evaltos math-evaluate-expr] 15))] 2))

(defun calc-is-assignments (value) (byte-code "Ã!Ä>ƒ ÃÅ8!Æ=… ÇÅ88Ç8BC‚_ Ã!È=…_ ÂA‰…A Ã@!É>…A ÃÅ@8!Æ=…W ÇÅ@88Ç@8B	B‰ˆ‚) ˆ?…^ 	)‡" [value vv nil car-safe (calcFunc-eq calcFunc-assign) 1 var 2 vec (calcFunc-eq calcFunc-assign)] 9))

(defun calc-recall (&optional var) (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-do (lambda nil (byte-code "†	 ÄÅ!‰ˆ…M Æ!	† ÇÈÉ!\"ˆ	;…' Ê	!‰ˆË	!Ç=…6 ÇÌÍ	8\"ˆÎ	!‰ˆÃÏ	ÐÉ!P\")ˆÑ	!)‡" [var value calc-full-trail-vectors nil calc-read-var-name "Recall: " calc-var-value error "No such variable: \"%s\"" calc-var-name math-read-expr car-safe "Bad format in variable contents: %s" 2 calc-normalize calc-record "<" calc-push] 13))] 2))

(defun calc-store-quick nil (interactive) (byte-code "ÁˆÂÃÄÅ\"!!‡" [last-command-char nil calc-store intern format "var-q%c"] 5))

(defun calc-store-into-quick nil (interactive) (byte-code "ÁˆÂÃÄÅ\"!!‡" [last-command-char nil calc-store-into intern format "var-q%c"] 5))

(defun calc-recall-quick nil (interactive) (byte-code "ÁˆÂÃÄÅ\"!!‡" [last-command-char nil calc-recall intern format "var-q%c"] 5))

(defun calc-copy-variable (&optional var1 var2) (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-do (lambda nil (byte-code "†	 ÄÅ!‰ˆ…4 Æ!	† ÇÈÉ
!\"ˆ†) ÄÊË\"!‰ˆ…3 Ì	Í#)‡" [var1 value var var2 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 ""] 10))] 2))

(defun calc-edit-variable (&optional var) (interactive) (byte-code "ÀˆÁÂ!ˆÃ ‡" [nil calc-do (lambda nil (byte-code "† Ä	ƒ ÅÆÇ	!\"‚ È!‰ˆ† 	‰ˆ…S É!Ê
!Ë=…3 ÌÍ\"ˆ‰ˆÎÏÐDDÃÑÇ!P#ˆ
…R ÒÓ
Ô \"Õ\")‡" [var calc-last-edited-variable value t calc-read-var-name format "Edit: (default %s) " calc-var-name "Edit: " calc-var-value car-safe special-const error "%s is a special constant" calc-edit-mode calc-finish-stack-edit quote "Editing " insert math-format-nice-expr screen-width "
"] 13)) calc-show-edit-buffer] 3))

(setq calc-last-edited-variable nil)

(defun calc-edit-Decls nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-Decls] 2))

(defun calc-edit-EvalRules nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-EvalRules] 2))

(defun calc-edit-FitRules nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-FitRules] 2))

(defun calc-edit-GenCount nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-GenCount] 2))

(defun calc-edit-Holidays nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-Holidays] 2))

(defun calc-edit-IntegLimit nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-IntegLimit] 2))

(defun calc-edit-LineStyles nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-LineStyles] 2))

(defun calc-edit-PointStyles nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-PointStyles] 2))

(defun calc-edit-PlotRejects nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-PlotRejects] 2))

(defun calc-edit-AlgSimpRules nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-AlgSimpRules] 2))

(defun calc-edit-TimeZone nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-TimeZone] 2))

(defun calc-edit-Units nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-Units] 2))

(defun calc-edit-ExtSimpRules nil (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-edit-variable var-ExtSimpRules] 2))

(defun calc-declare-variable (&optional var) (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-do (lambda nil (byte-code "†
 ÉÊË\"‰ˆ† Ì‰ˆÇÇÇÇÇÍÆ!…) Î!Ï=†1 ÏC‰ˆ‰ˆ	A‰…¢ Î	@!Ï=?†¢ Ð	@GÑ\"†¢ Ò	@8‰ˆÎ!Ï=ƒŠ A‰…z Î@!À=?†z Ó@8=?…‚ Çˆ‚b ˆ@‰‚Ÿ Î!À=?†™ Ó8=?…Ÿ Ç‰ˆ?…ª Çˆ‚7 ˆÒÔÕÖ\"…¾ ×Ó	@8Ë\"\"‰ˆØÙ
\"…Ì Ú
!‰ˆÎ
!Û=…Ý ÛÜÓ
8\"ˆ
Aƒë Ï
B‰‚ï 
@‰ˆÎ
!Ï=…
GÓU…Ò
8‰ˆÝÞßà!C
…
C#á\"ˆâ!‰ˆÎ!Ï=ƒ@ãäA\"\"ˆA†=ä	@\"‰‚Iä	@\"‰ˆ
…½Ì=?…W‰ˆ	A‰…|Î	@!Ï=?†|Ð	@GÑ\"†|åÓ	@8
\"?…„Çˆ‚Zˆ	ƒ¯æ	@AÞÎÒ	@8!Ï=ƒ Ò	@8‚¦ÏÒ	@8Dà!C\"\"‚½ÞÏà!
EC\"‰ˆçÆ!-‡" [var dp decl def row rp var-Decls nil unread-command-char calc-read-var-name "Declare: " 0 var-All calc-var-value car-safe vec /= 3 1 2 read-string format "Declare: %s  to be: " 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 setcdr delq equal setcar calc-refresh-evaltos] 38))] 2))

(defun calc-permanent-variable (&optional var) (interactive) (byte-code "ÀˆÁÂ!‡" [nil calc-do (lambda nil (byte-code "†	 ÃÄ!‰ˆÅ… Æ!… J† ÇÈ!ˆÉÊ
!!qˆƒ0 Ë!‚3 ÌÍ!ˆÎ )‡" [var 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 (lambda (x) (byte-code "ÂÃÄ!\"…# 	>?…# Å!…# ÆJ!Ç=?…# È!‡" [x calc-dont-insert-variables string-match "\\`var-" symbol-name calc-var-value car-safe special-const calc-insert-permanent-variable] 6)) save-buffer] 9))] 2))

(defvar calc-dont-insert-variables (quote (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)))

(defun calc-insert-permanent-variable (var) (byte-code "ebˆÄÅÆ!ÇQÁÂ#ƒF È ‰ˆÉÊ!ˆËÌ!…, ÍÎÏ!Ð ˆ`\"ˆÑ cˆÒÓÆ!G#bˆÔÕ!ˆÖÕ!ˆÍ`\"‚\\ dbˆ×ØÆ!ÙÑ ÚÆ!Û&ˆÖÜ!ˆÝÞ!!cˆÉÕ!‡" [var nil t pos search-forward "(setq " symbol-name " '" point-marker forward-line -1 looking-at ";;; Variable .* stored by Calc on " delete-region match-end 0 end-of-line current-time-string - 8 forward-sexp 1 backward-char insert "
;;; Variable \"" "\" stored by Calc on " "
(setq " " ')
" 2 prin1-to-string calc-var-value] 25))

(defun calc-insert-variables (buf) (interactive "bBuffer in which to save variable values: ") (byte-code "ÁˆŠqˆÂÃ!)‡" [buf nil mapatoms (lambda (x) (byte-code "ÅÆÇ!\"…Z 	>?…Z È!…Z ÉJ!Ê=?…Z Â=?†, Ë
Ì\"?…Z Ã=?†; ËÍ\"?…Z ÎÏÇ!ÐÑÒ>ƒO Ó‚P ÔJÕ\")!Ö%‡" [x calc-dont-insert-variables var-Decls var-Holidays calc-language string-match "\\`var-" symbol-name calc-var-value car-safe special-const equal (vec) (vec (var sat var-sat) (var sun var-sun)) insert "(setq " " " prin1-to-string (nil big) flat math-format-value 100000 ")
"] 15))] 2))

(defun calc-assign (arg) (interactive "P") (byte-code "ÀˆÁÂÃ\"‡" [nil calc-do (lambda nil (byte-code "ÁÂÃ#‡" [arg calc-binary-op ":=" calcFunc-assign] 4)) 13576] 3))

(defun calc-evalto (arg) (interactive "P") (byte-code "ÀˆÁÂÃ\"‡" [nil calc-do (lambda nil (byte-code "ÁÂÃ#‡" [arg calc-unary-op "=>" calcFunc-evalto] 4)) 13744] 3))

(defun calc-subscript (arg) (interactive "P") (byte-code "ÀˆÁÂÃ\"‡" [nil calc-do (lambda nil (byte-code "ÁÂÃ#‡" [arg calc-binary-op "sub" calcFunc-subscr] 4)) 13911] 3))