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



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

(fn N)
(defalias 'calc-line-numbering #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300\304\211$\203\305\202\306!\207" [V0 message calc-change-mode calc-line-numbering t "Displaying stack level numbers" "Hiding stack level numbers"] 6]] 5 (#$ . 156) "P"])
#@10 

(fn N)
(defalias 'calc-line-breaking #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\211\242\203\300\302\300\242!\240\303V\205\300\242\304W\206\300\242\202	?\240\210\305\301\300\242\306#\2039	\250\2035\307\310\300\242\"\207\307\311!\207\307\312!\207" [V0 calc-line-breaking prefix-numeric-value 0 5 calc-change-mode t message "Breaking lines longer than %d characters" "Breaking long lines in Stack display" "Not breaking long lines in Stack display"] 4]] 6 (#$ . 447) "P"])
#@10 

(fn N)
(defalias 'calc-left-justify #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\203\f\300\301\300\242!\240\210\302\303\304\300\242D\305#\210\300\242\203 \306\307\300\242\"\207\306\310!\207" [V0 prefix-numeric-value calc-change-mode (calc-display-just calc-display-origin) nil t message "Displaying stack entries indented by %d" "Displaying stack entries left-justified"] 4]] 6 (#$ . 958) "P"])
#@10 

(fn N)
(defalias 'calc-center-justify #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\203\f\300\301\300\242!\240\210\302\303\304\300\242D\305#\210\300\242\203 \306\307\300\242\"\207\306\310!\207" [V0 prefix-numeric-value calc-change-mode (calc-display-just calc-display-origin) center t message "Displaying stack entries centered on column %d" "Displaying stack entries centered in window"] 4]] 6 (#$ . 1388) "P"])
#@10 

(fn N)
(defalias 'calc-right-justify #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\203\f\300\301\300\242!\240\210\302\303\304\300\242D\305#\210\300\242\203 \306\307\300\242\"\207\306\310!\207" [V0 prefix-numeric-value calc-change-mode (calc-display-just calc-display-origin) right t message "Displaying stack entries right-justified to column %d" "Displaying stack entries right-justified in window"] 4]] 6 (#$ . 1835) "P"])
#@10 

(fn S)
(defalias 'calc-left-label #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\301\232\204\300\211\242\302P\240\210\303\304\300\242\305#\207" [V0 "" " " calc-change-mode calc-left-label t] 4]] 6 (#$ . 2294) "sLefthand label: "])
#@10 

(fn S)
(defalias 'calc-right-label #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\301\232\204\300\302\300\242P\240\210\303\304\300\242\305#\207" [V0 "" " " calc-change-mode calc-right-label t] 4]] 6 (#$ . 2558) "sRighthand label: "])
#@10 

(fn N)
(defalias 'calc-auto-why #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\203(\300\302\300\242!\240\210\300\242\303X\203\300\304\240\210\202;\300\242\305V\203;\300\306\240\210\202;\300	\306=?\2059	\2038\306\2029\305\240\210\307\301\300\242\304#\210\300\242\204K\310\311!\207\300\242\306=\203V\310\312!\207\310\313!\207" [V0 calc-auto-why prefix-numeric-value 0 nil 1 t calc-change-mode message "User must press `w' to explain unsimplified results" "Automatically doing `w' to explain unsimplified results" "Automatically doing `w' only for unusual messages"] 4]] 6 (#$ . 2825) "P"])
#@10 

(fn N)
(defalias 'calc-group-digits #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\203/\300\302\300\242!\240\210\300\242\303V\2044\300\242\304W\2044\300\242\304U\203(\300\305\240\210\2024\300	\240\210\2024\300	?\240\210\306\301\300\242\307#\210\300\242\204D\310\311!\207\300\242\250\203R\310\312\313\300\242!\"\207\310\314!\207" [V0 calc-group-digits prefix-numeric-value 0 -1 nil calc-change-mode t message "Grouping is off" "Grouping every %d digits" math-abs "Grouping is on"] 4]] 6 (#$ . 3455) "P"])
#@11 

(fn CH)
(defalias 'calc-group-char #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\302Y\204\303\304!\210\300\242\305U\203\300\306\240\210\202 \300\307\300\242!\240\210\310\311\300\242	#\210\312\313\300\242\"\207" [V0 calc-group-digits 32 error "Control characters not allowed for grouping" 92 "\\," char-to-string calc-change-mode calc-group-char message "Digit grouping character is \"%s\""] 4]] 6 (#$ . 3998) "cGrouping character: "])
#@11 

(fn CH)
(defalias 'calc-point-char #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\301Y\204\n\302\303!\210\304\305\306\300!\307#\210\310\311\300\"\207" [V0 32 error "Control characters not allowed as decimal point" calc-change-mode calc-point-char char-to-string t message "Decimal point character is \"%c\""] 4]] 5 (#$ . 4470) "cCharacter to use as decimal point: "])
#@10 

(fn N)
(defalias 'calc-normal-notation #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\242\203\303\300\242!\202\304\211\305\\\306\245
\307W\204 \211\310V\203$\311\312!\210\300\313H\305\\\306\246\305ZD\240\266\202\314#\210\300\242A@\304=\203C\315\316!\207\300\242A@\304V\203T\315\317\300\242A@\"\207\315\320\300\242A@\"\207" [V0 calc-change-mode calc-float-format prefix-numeric-value 0 5000 10000 -5000 3 error "Prefix out of range" [float sci eng fix] t message "Displaying floating-point numbers normally" "Displaying floating-point numbers with %d significant digits" "Displaying floating-point numbers with (precision%d)"] 8]] 6 (#$ . 4861) "P"])
#@10 

(fn N)
(defalias 'calc-fix-notation #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\303\300\242\203\304\300\242!\202\305D\240\306#\210\307\310\311\300\242A@!\"\207" [V0 calc-change-mode calc-float-format fix prefix-numeric-value 0 t message "Displaying floats with %d digits after decimal" math-abs] 6]] 6 (#$ . 5556) "NDigits after decimal point: "])
#@10 

(fn N)
(defalias 'calc-sci-notation #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\303\300\242\203\304\300\242!\202\305D\240\306#\210\300\242A@\305=\203#\307\310!\207\300\242A@\305V\2034\307\311\300\242A@\"\207\307\312\300\242A@\"\207" [V0 calc-change-mode calc-float-format sci prefix-numeric-value 0 t message "Displaying floats in scientific notation" "Displaying scientific notation with %d significant digits" "Displaying scientific notation with (precision%d)"] 6]] 6 (#$ . 5946) "P"])
#@10 

(fn N)
(defalias 'calc-eng-notation #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\303\300\242\203\304\300\242!\202\305D\240\306#\210\300\242A@\305=\203#\307\310!\207\300\242A@\305V\2034\307\311\300\242A@\"\207\307\312\300\242A@\"\207" [V0 calc-change-mode calc-float-format eng prefix-numeric-value 0 t message "Displaying floats in engineering notation" "Displaying engineering notation with %d significant digits" "Displaying engineering notation with (precision%d)"] 6]] 6 (#$ . 6479) "P"])
#@24 

(fn N &optional REL)
(defalias 'calc-truncate-stack #[513 "\300\301\302#!\207" [calc-do make-closure #[0 "\n\211\304\305\306\nE!\210\307\310\300!
\300\203L\301\203
\\\262
\2022\211\307W\203.\211\311 \\\262
\2022\211T\262
\211\312W\203<\312\202Q\211\311 V\203H\311 \202Q\211\202Q\312\313`!]\262U\204k\314\312\315#\210\316\317\"\210\203k\320 \210)\266\304\305\306\307E!\210\211\211\207" [V0 V1 calc-stack-top calc-line-numbering calc-record-undo set saved-stack-top 0 prefix-numeric-value calc-stack-size 1 calc-locate-cursor-element calc-pop-stack t calc-push-list (top-of-stack) calc-refresh] 8]] 7 (#$ . 7015) "P"])
#@10 

(fn N)
(defalias 'calc-truncate-up #[257 "\300
\301\"\207" [calc-truncate-stack t] 4 (#$ . 7665) "p"])
#@10 

(fn N)
(defalias 'calc-truncate-down #[257 "\300
[\301\"\207" [calc-truncate-stack t] 4 (#$ . 7776) "p"])
#@12 

(fn ARG)
(defalias 'calc-display-raw #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "	?\205\300\203
\302\202\303\304 \210	\205\305\306\307\"\207" [V0 calc-display-raw 0 t calc-do-refresh message "%s" "Press d ' again to cancel \"raw\" display mode"] 3]] 5 (#$ . 7890) "P"])
(defalias 'calc-save-modes #[0 "\300\301!\207" [calc-do #[0 "\303\304\305\"	\204
\306\307!\210\310\311	!!q\210eb\210\312\313\303\314#\203:\315 \210`\262\312\316\303\314#\203:\315 \210\317y\210
`|\210\202Cdb\210\320c\210\321u\210\322\323 \324\261\210\211\203\215\211@@
@A@@\211\232\204\200\325\326!\327\261\210\211<\204p\2119\203y\211\330>\204y\331c\210\332
!\333\261\210\266\211A\262

A\262\202K\210\334\335!\210\336c\210\337 \210\n\205\236\340 \207" [calc-mode-var-list calc-settings-file calc-embedded-info nil mapcar #[257 "\211@J\207" [] 2 "\n\n(fn V)"] error "No `calc-settings-file' specified" find-file-noselect substitute-in-file-name search-forward ";;; Mode settings stored by Calc" t beginning-of-line "\n;;; End of mode settings" 1 "\n\n" -1 ";;; Mode settings stored by Calc on " current-time-string "\n" "(setq " symbol-name " " (nil t) "'" prin1-to-string ")\n" run-hooks calc-mode-save-hook ";;; End of mode settings\n" save-buffer calc-embedded-save-original-modes] 9]] 2 nil nil])
#@27 

(fn NAME &optional ARG)
(defalias 'calc-settings-file-name #[513 "\211C\300\301\302#!\207" [calc-do make-closure #[0 "\301\211\242\203
\305\301\242!\202\306\240\210\307\300!\310\230\203\311\312\n\"\207\313\301\242!\314W\203<\211\203;\211@@
@A@L\210\211A\262
\202'\210\300\211\203O\f\n\232\203O\301\242\306V\206`\301\242\306W\206`\315\300\316\"\206`\311\317!\207" [V0 V1 calc-settings-file calc-mode-var-list user-init-file prefix-numeric-value 0 file-name-nondirectory "" message "Calc settings file is \"%s\"" math-abs 2 load t "New file"] 4]] 8 (#$ . 9209) (byte-code "\302\303\304\305!\"!	D\207" [calc-settings-file current-prefix-arg read-file-name format "Settings file name (normally %s): " abbreviate-file-name] 5)])
(defalias 'math-get-modes-vec #[0 "\306	\307 \nA@\310X\203A@\\\202A@@\311\236A\\\f\312\267\202-\313\202.\314\202.\315
\2036\315\2027\310\203@\315\202A\310\316=\203L\315\202M\310\317\267\202`\310\202f\320\202f\321\202f\206f\322\323\267\202\205\322\202\206\310\202\206\313\202\206\314\202\206\324\202\206\325\202\206\315\315=\203\221\310\202\233\203\232\315\202\233\322\257
\207" [calc-internal-prec calc-word-size calc-number-radix calc-float-format calc-angle-mode calc-symbolic-mode vec calc-stack-size 0 ((float . 0) (sci . 10000) (eng . 20000) (fix . 30000)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (rad 37 hms 41)) 2 3 1 polar #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (scalar 84 matrix 88 sqmatrix 92)) -2 -3 -1 #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (none 109 num 113 binary 117 alg 121 ext 125 units 129)) 4 5 calc-prefer-frac calc-complex-mode calc-matrix-mode calc-simplify-mode calc-infinite-mode] 14])
#@10 

(fn N)
(defalias 'calc-get-modes #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\301 \302\303\304\300\242\203*\300\305\300\242!\240\306Y\203$\300\242GW\203$\300\2428\202+\307\310!\202+#\207" [V0 math-get-modes-vec calc-enter-result 0 "mode" prefix-numeric-value 1 error "Prefix out of range"] 7]] 6 (#$ . 11055) "P"])
#@12 

(fn ARG)
(defalias 'calc-shift-prefix #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\203\f\302\300!\303V\202	?\304 \210\305	\203\306\202\307!\207" [V0 calc-shift-prefix prefix-numeric-value 0 calc-init-prefixes message "Prefix keys are now case-insensitive" "Prefix keys must be unshifted (except V, Z)"] 2]] 5 (#$ . 11403) "P"])
#@10 

(fn N)
(defalias 'calc-mode-record-mode #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\304\302\300\242\204J	\204\n\305=\203\306\202\206\305\202\206\n\307\267\2027\310\202\206\311\202\206\312\202\206\305\202\206\313\202\206\306\202\206	?\205\206\n\305=\203F\306\202\206\305\202\206\300\314\300\242!\240\315U\203Y\313\202\206\300\242\316U\203d\310\202\206\300\242\317U\203o\311\202\206\300\242\320U\203z\312\202\206\300\242\321U\203\205\305\202\206\306\"\210\322\323\n\306=\203\230	\203\230\324\202\262\n\325\267\202\261\326\202\262\327\202\262\330\202\262\331\332\"\202\262\333\"\207" [V0 calc-embedded-info calc-mode-save-mode calc-settings-file calc-change-mode save local #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (local 31 edit 35 perm 39 global 43 save 47 nil 51)) edit perm global nil prefix-numeric-value 0 2 3 4 5 message "%s" "Recording mode changes with [calc-mode: ...]" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (edit 158 perm 162 global 166 save 170)) "Recording mode changes with [calc-edit-mode: ...]" "Recording mode changes with [calc-perm-mode: ...]" "Recording mode changes with [calc-global-mode: ...]" format "Recording mode changes in \"%s\"" "Not recording mode changes permanently"] 5]] 6 (#$ . 11763) "P"])
#@23 

(fn &optional FLAG)
(defalias 'calc-total-algebraic-mode #[256 "\300\301!\207" [calc-do #[0 "\302=\203\n\300\303!\207\304\305\306\"\210\307	!\210\310\311!\207" [calc-algebraic-mode calc-alg-map total nil calc-change-mode (calc-algebraic-mode calc-incomplete-algebraic-mode) (total nil) use-local-map message "All keys begin algebraic entry; use Meta (ESC) for Calc keys"] 3]] 3 (#$ . 13140) nil])
#@13 

(fn FLAG)
(defalias 'calc-algebraic-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\203\304\305\306	?D\"\210\202\304\307\n?\306D\"\210\310!\210\311\312\n\203%\313\202.	\203-\314\202.\315\"\207" [V0 calc-incomplete-algebraic-mode calc-algebraic-mode calc-mode-map calc-change-mode (calc-algebraic-mode calc-incomplete-algebraic-mode) nil (calc-algebraic-mode calc-incomplete-algebraic-mode) use-local-map message "%s" "Numeric keys and ( and [ begin algebraic entry" "Only ( and [ begin algebraic entry" "No keys except ' and $ begin algebraic entry"] 4]] 5 (#$ . 13547) "P"])
#@10 

(fn N)
(defalias 'calc-symbolic-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300\304\305$\203\306\202\307!\207" [V0 message calc-change-mode calc-symbolic-mode nil t "Inexact computations like sqrt(2) are deferred" "Numerical computations are always done immediately"] 6]] 5 (#$ . 14158) "P"])
#@10 

(fn N)
(defalias 'calc-infinite-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\301=\203\302\303\304\"\210\305\306!\207\305\302\303\300\307\310$\203\311\202\312!\207" [V0 0 calc-change-mode calc-infinite-mode 1 message "Computations like 1 / 0 produce \"inf\"" nil t "Computations like 1 / 0 produce \"uinf\"" "Computations like 1 / 0 are left unsimplified"] 6]] 5 (#$ . 14493) "P"])
#@12 

(fn ARG)
(defalias 'calc-matrix-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\302\301\300\303=\203\f\304\202B\305\300!\306W\203 \305\300!\307W\205B\310\202B\300\2033\300:\203-\311\202B\305\300!\202B	\312\267\202A\304\202B\313\202B\310\"\210	\250\203O\314\315	\211#\207\314	\310=\203Z\316\202m	\311=\203d\317\202m	\203l\320\202m\321!\207" [V0 calc-matrix-mode calc-change-mode 0 scalar prefix-numeric-value 1 -1 matrix sqmatrix #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (matrix 57 scalar 61)) nil message "Variables are assumed to be %dx%d matrices" "Variables are assumed to be matrices" "Variables are assumed to be square matrices" "Variables are assumed to be scalars (non-matrices)" "Variables are not assumed to be matrix or scalar"] 4]] 5 (#$ . 14909) "P"])
#@21 

(fn MODE ARG MSG)
(defalias 'calc-set-simplify-mode #[771 "\301\300\203\n\202=\203\302\202\"\210\303\304=\203#\202$\305\"\207" [calc-simplify-mode calc-change-mode alg message "%s" "Algebraic simplification occurs by default"] 7 (#$ . 15759)])
#@12 

(fn ARG)
(defalias 'calc-no-simplify-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\303#\207" [V0 calc-set-simplify-mode none "Simplification is disabled"] 4]] 5 (#$ . 16028) "P"])
#@12 

(fn ARG)
(defalias 'calc-num-simplify-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\303#\207" [V0 calc-set-simplify-mode num "Basic simplifications apply only if arguments are numeric"] 4]] 5 (#$ . 16244) "P"])
#@12 

(fn ARG)
(defalias 'calc-default-simplify-mode #[257 "\211\203\n\211\300U\203\301\302!\207\211\303U\203\301\304!\207\211\305U\203\"\306\303!\207\211\305W\203,\307\303!\207\211\310U\2036\311\303!\207\211\312U\203@\313\303!\207\211\314U\203J\315\303!\207\316\317!\207" [3 calc-do #[0 "\300\301\302\303#\207" [calc-set-simplify-mode alg nil "Algebraic simplification occurs by default"] 4] 1 #[0 "\300\301\211\302#\207" [calc-set-simplify-mode nil "Only basic simplifications occur by default"] 4] 0 calc-num-simplify-mode calc-no-simplify-mode 2 calc-bin-simplify-mode 4 calc-ext-simplify-mode 5 calc-units-simplify-mode error "Prefix argument out of range"] 3 (#$ . 16491) "P"])
#@12 

(fn ARG)
(defalias 'calc-bin-simplify-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\302\303\300\304\305	\"#\207" [V0 calc-word-size calc-set-simplify-mode binary format "Binary simplification occurs by default (word size=%d)"] 6]] 5 (#$ . 17187) "P"])
#@12 

(fn ARG)
(defalias 'calc-basic-simplify-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\303#\207" [V0 calc-set-simplify-mode nil "Only basic simplifications occur by default"] 4]] 5 (#$ . 17463) "P"])
#@12 

(fn ARG)
(defalias 'calc-alg-simplify-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\303#\207" [V0 calc-set-simplify-mode alg "Algebraic simplification occurs by default"] 4]] 5 (#$ . 17698) "P"])
#@12 

(fn ARG)
(defalias 'calc-ext-simplify-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\303#\207" [V0 calc-set-simplify-mode ext "Extended algebraic simplification occurs by default"] 4]] 5 (#$ . 17930) "P"])
#@12 

(fn ARG)
(defalias 'calc-units-simplify-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\303#\207" [V0 calc-set-simplify-mode units "Units simplification occurs by default"] 4]] 5 (#$ . 18171) "P"])
#@12 

(fn ARG)
(defalias 'calc-auto-recompute #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\302\301\300\303\304$\210\305 \210\306	\203\307\202\310!\207" [V0 calc-auto-recompute calc-change-mode nil t calc-refresh-evaltos message "Automatically recomputing `=>' forms when necessary" "Not recomputing `=>' forms automatically"] 5]] 5 (#$ . 18403) "P"])
#@10 

(fn N)
(defalias 'calc-working #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300:\203 \302\303\304	\305=\203\306\202	\203\307\202\303#\210\202G\300\307=\203.\310\301\311\"\210\202G\300\303=\203<\310\301\312\"\210\202G\300\306=\203G\310\301\305\"\210	\305=\203Q\313\314!\207	\203Y\313\315!\207\313\316!\207" [V0 calc-display-working-message calc-pop-push-record 0 "work" t 1 2 calc-change-mode lots nil message "\"Working...\" messages enabled" "Detailed \"Working...\" messages enabled" "\"Working...\" messages disabled"] 5]] 5 (#$ . 18772) "P"])
(defalias 'calc-always-load-extensions #[0 "\300\301!\207" [calc-do #[0 "?\211\203\301\302!\207\301\303!\207" [calc-always-load-extensions message "Always loading extensions package" "Loading extensions package on demand only"] 2]] 2 nil nil])
(defalias 'calc-matrix-left-justify #[0 "\300\301!\207" [calc-do #[0 "\300\301\302\303#\210\304\305!\207" [calc-change-mode calc-matrix-just nil t message "Matrix elements will be left-justified in columns"] 4]] 2 nil nil])
(defalias 'calc-matrix-center-justify #[0 "\300\301!\207" [calc-do #[0 "\300\301\302\303#\210\304\305!\207" [calc-change-mode calc-matrix-just center t message "Matrix elements will be centered in columns"] 4]] 2 nil nil])
(defalias 'calc-matrix-right-justify #[0 "\300\301!\207" [calc-do #[0 "\300\301\302\303#\210\304\305!\207" [calc-change-mode calc-matrix-just right t message "Matrix elements will be right-justified in columns"] 4]] 2 nil nil])
#@10 

(fn N)
(defalias 'calc-full-vectors #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300\304\211$\203\305\202\306!\207" [V0 message calc-change-mode calc-full-vectors t "Displaying long vectors in full" "Displaying long vectors in [a, b, c, ..., z] notation"] 6]] 5 (#$ . 20279) "P"])
#@10 

(fn N)
(defalias 'calc-full-trail-vectors #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300\304\305$\203\306\202\307!\207" [V0 message calc-change-mode calc-full-trail-vectors nil t "Recording long vectors in full" "Recording long vectors in [a, b, c, ..., z] notation"] 6]] 5 (#$ . 20596) "P"])
#@10 

(fn N)
(defalias 'calc-break-vectors #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300\304\211$\203\305\202\306!\207" [V0 message calc-change-mode calc-break-vectors t "Displaying vector elements one-per-line" "Displaying vector elements all on one line"] 6]] 5 (#$ . 20927) "P"])
(defalias 'calc-vector-commas #[0 "\300\301!\207" [calc-do #[0 "\301\300?\205\302\303#\203\304\305!\207\304\306!\207" [calc-vector-commas calc-change-mode "," t message "Separating vector elements with \",\"" "Separating vector elements with spaces"] 4]] 2 nil nil])
(defalias 'calc-vector-brackets #[0 "\300\301!\207" [calc-do #[0 "\301\300\302\232?\205\n\302\303#\203\304\305!\207\304\306!\207" [calc-vector-brackets calc-change-mode "[]" t message "Surrounding vectors with \"[]\"" "Not surrounding vectors with brackets"] 4]] 2 nil nil])
(defalias 'calc-vector-braces #[0 "\300\301!\207" [calc-do #[0 "\301\300\302\232?\205\n\302\303#\203\304\305!\207\304\306!\207" [calc-vector-brackets calc-change-mode "{}" t message "Surrounding vectors with \"{}\"" "Not surrounding vectors with brackets"] 4]] 2 nil nil])
(defalias 'calc-vector-parens #[0 "\300\301!\207" [calc-do #[0 "\301\300\302\232?\205\n\302\303#\203\304\305!\207\304\306!\207" [calc-vector-brackets calc-change-mode "()" t message "Surrounding vectors with \"()\"" "Not surrounding vectors with brackets"] 4]] 2 nil nil])
#@12 

(fn ARG)
(defalias 'calc-matrix-brackets #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300\"\205	\304\302\305\300\"\205\306\302\307\300\"\205\310\302\311\300\"\205!\312$\302\313\300\"\211\2031\314\315\300H\"\210\316\317\320#\207" [V0 append string-match "[rR]" (R) "[oO]" (O) "[cC]" (C) "[pP]" (P) "[^rRoOcCpP ]" error "Unrecognized character: %c" calc-change-mode calc-matrix-brackets t] 7]] 5 (#$ . 22348) "sCode letters (R, O, C): "])
(provide 'calc-mode)