34 |
(calc-wrapper |
(calc-wrapper |
35 |
(message (if (calc-change-mode 'calc-line-numbering n t t) |
(message (if (calc-change-mode 'calc-line-numbering n t t) |
36 |
"Displaying stack level numbers." |
"Displaying stack level numbers." |
37 |
"Hiding stack level numbers."))) |
"Hiding stack level numbers.")))) |
|
) |
|
38 |
|
|
39 |
(defun calc-line-breaking (n) |
(defun calc-line-breaking (n) |
40 |
(interactive "P") |
(interactive "P") |
48 |
(if (integerp calc-line-breaking) |
(if (integerp calc-line-breaking) |
49 |
(message "Breaking lines longer than %d characters." n) |
(message "Breaking lines longer than %d characters." n) |
50 |
(message "Breaking long lines in Stack display.")) |
(message "Breaking long lines in Stack display.")) |
51 |
(message "Not breaking long lines in Stack display."))) |
(message "Not breaking long lines in Stack display.")))) |
|
) |
|
52 |
|
|
53 |
|
|
54 |
(defun calc-left-justify (n) |
(defun calc-left-justify (n) |
59 |
(list nil n) t) |
(list nil n) t) |
60 |
(if n |
(if n |
61 |
(message "Displaying stack entries indented by %d." n) |
(message "Displaying stack entries indented by %d." n) |
62 |
(message "Displaying stack entries left-justified."))) |
(message "Displaying stack entries left-justified.")))) |
|
) |
|
63 |
|
|
64 |
(defun calc-center-justify (n) |
(defun calc-center-justify (n) |
65 |
(interactive "P") |
(interactive "P") |
69 |
(list 'center n) t) |
(list 'center n) t) |
70 |
(if n |
(if n |
71 |
(message "Displaying stack entries centered on column %d." n) |
(message "Displaying stack entries centered on column %d." n) |
72 |
(message "Displaying stack entries centered in window."))) |
(message "Displaying stack entries centered in window.")))) |
|
) |
|
73 |
|
|
74 |
(defun calc-right-justify (n) |
(defun calc-right-justify (n) |
75 |
(interactive "P") |
(interactive "P") |
79 |
(list 'right n) t) |
(list 'right n) t) |
80 |
(if n |
(if n |
81 |
(message "Displaying stack entries right-justified to column %d." n) |
(message "Displaying stack entries right-justified to column %d." n) |
82 |
(message "Displaying stack entries right-justified in window."))) |
(message "Displaying stack entries right-justified in window.")))) |
|
) |
|
83 |
|
|
84 |
(defun calc-left-label (s) |
(defun calc-left-label (s) |
85 |
(interactive "sLefthand label: ") |
(interactive "sLefthand label: ") |
86 |
(calc-wrapper |
(calc-wrapper |
87 |
(or (equal s "") |
(or (equal s "") |
88 |
(setq s (concat s " "))) |
(setq s (concat s " "))) |
89 |
(calc-change-mode 'calc-left-label s t)) |
(calc-change-mode 'calc-left-label s t))) |
|
) |
|
90 |
|
|
91 |
(defun calc-right-label (s) |
(defun calc-right-label (s) |
92 |
(interactive "sRighthand label: ") |
(interactive "sRighthand label: ") |
93 |
(calc-wrapper |
(calc-wrapper |
94 |
(or (equal s "") |
(or (equal s "") |
95 |
(setq s (concat " " s))) |
(setq s (concat " " s))) |
96 |
(calc-change-mode 'calc-right-label s t)) |
(calc-change-mode 'calc-right-label s t))) |
|
) |
|
97 |
|
|
98 |
(defun calc-auto-why (n) |
(defun calc-auto-why (n) |
99 |
(interactive "P") |
(interactive "P") |
110 |
((eq n t) |
((eq n t) |
111 |
(message "Automatically doing `w' to explain unsimplified results.")) |
(message "Automatically doing `w' to explain unsimplified results.")) |
112 |
(t |
(t |
113 |
(message "Automatically doing `w' only for unusual messages.")))) |
(message "Automatically doing `w' only for unusual messages."))))) |
|
) |
|
114 |
|
|
115 |
(defun calc-group-digits (n) |
(defun calc-group-digits (n) |
116 |
(interactive "P") |
(interactive "P") |
130 |
((integerp n) |
((integerp n) |
131 |
(message "Grouping every %d digits." (math-abs n))) |
(message "Grouping every %d digits." (math-abs n))) |
132 |
(t |
(t |
133 |
(message "Grouping is on.")))) |
(message "Grouping is on."))))) |
|
) |
|
134 |
|
|
135 |
(defun calc-group-char (ch) |
(defun calc-group-char (ch) |
136 |
(interactive "cGrouping character: ") |
(interactive "cGrouping character: ") |
141 |
(setq ch "\\,") |
(setq ch "\\,") |
142 |
(setq ch (char-to-string ch))) |
(setq ch (char-to-string ch))) |
143 |
(calc-change-mode 'calc-group-char ch calc-group-digits) |
(calc-change-mode 'calc-group-char ch calc-group-digits) |
144 |
(message "Digit grouping character is \"%s\"." ch)) |
(message "Digit grouping character is \"%s\"." ch))) |
|
) |
|
145 |
|
|
146 |
(defun calc-point-char (ch) |
(defun calc-point-char (ch) |
147 |
(interactive "cCharacter to use as decimal point: ") |
(interactive "cCharacter to use as decimal point: ") |
149 |
(or (>= ch 32) |
(or (>= ch 32) |
150 |
(error "Control characters not allowed as decimal point.")) |
(error "Control characters not allowed as decimal point.")) |
151 |
(calc-change-mode 'calc-point-char (char-to-string ch) t) |
(calc-change-mode 'calc-point-char (char-to-string ch) t) |
152 |
(message "Decimal point character is \"%c\"." ch)) |
(message "Decimal point character is \"%c\"." ch))) |
|
) |
|
153 |
|
|
154 |
(defun calc-normal-notation (n) |
(defun calc-normal-notation (n) |
155 |
(interactive "P") |
(interactive "P") |
169 |
"Displaying floating-point numbers with %d significant digits." |
"Displaying floating-point numbers with %d significant digits." |
170 |
(nth 1 n)) |
(nth 1 n)) |
171 |
(message "Displaying floating-point numbers with (precision%d)." |
(message "Displaying floating-point numbers with (precision%d)." |
172 |
(nth 1 n))))) |
(nth 1 n)))))) |
|
) |
|
173 |
|
|
174 |
(defun calc-fix-notation (n) |
(defun calc-fix-notation (n) |
175 |
(interactive "NDigits after decimal point: ") |
(interactive "NDigits after decimal point: ") |
178 |
(setq n (list 'fix (if n (prefix-numeric-value n) 0))) |
(setq n (list 'fix (if n (prefix-numeric-value n) 0))) |
179 |
t) |
t) |
180 |
(message "Displaying floats with %d digits after decimal." |
(message "Displaying floats with %d digits after decimal." |
181 |
(math-abs (nth 1 n)))) |
(math-abs (nth 1 n))))) |
|
) |
|
182 |
|
|
183 |
(defun calc-sci-notation (n) |
(defun calc-sci-notation (n) |
184 |
(interactive "P") |
(interactive "P") |
192 |
(message "Displaying scientific notation with %d significant digits." |
(message "Displaying scientific notation with %d significant digits." |
193 |
(nth 1 n)) |
(nth 1 n)) |
194 |
(message "Displaying scientific notation with (precision%d)." |
(message "Displaying scientific notation with (precision%d)." |
195 |
(nth 1 n))))) |
(nth 1 n)))))) |
|
) |
|
196 |
|
|
197 |
(defun calc-eng-notation (n) |
(defun calc-eng-notation (n) |
198 |
(interactive "P") |
(interactive "P") |
206 |
(message "Displaying engineering notation with %d significant digits." |
(message "Displaying engineering notation with %d significant digits." |
207 |
(nth 1 n)) |
(nth 1 n)) |
208 |
(message "Displaying engineering notation with (precision%d)." |
(message "Displaying engineering notation with (precision%d)." |
209 |
(nth 1 n))))) |
(nth 1 n)))))) |
|
) |
|
210 |
|
|
211 |
|
|
212 |
(defun calc-truncate-stack (n &optional rel) |
(defun calc-truncate-stack (n &optional rel) |
238 |
(if calc-line-numbering |
(if calc-line-numbering |
239 |
(calc-refresh)))) |
(calc-refresh)))) |
240 |
(calc-record-undo (list 'set 'saved-stack-top 0)) |
(calc-record-undo (list 'set 'saved-stack-top 0)) |
241 |
(setq calc-stack-top newtop))) |
(setq calc-stack-top newtop)))) |
|
) |
|
242 |
|
|
243 |
(defun calc-truncate-up (n) |
(defun calc-truncate-up (n) |
244 |
(interactive "p") |
(interactive "p") |
245 |
(calc-truncate-stack n t) |
(calc-truncate-stack n t)) |
|
) |
|
246 |
|
|
247 |
(defun calc-truncate-down (n) |
(defun calc-truncate-down (n) |
248 |
(interactive "p") |
(interactive "p") |
249 |
(calc-truncate-stack (- n) t) |
(calc-truncate-stack (- n) t)) |
|
) |
|
250 |
|
|
251 |
(defun calc-display-raw (arg) |
(defun calc-display-raw (arg) |
252 |
(interactive "P") |
(interactive "P") |
254 |
(setq calc-display-raw (if calc-display-raw nil (if arg 0 t))) |
(setq calc-display-raw (if calc-display-raw nil (if arg 0 t))) |
255 |
(calc-do-refresh) |
(calc-do-refresh) |
256 |
(if calc-display-raw |
(if calc-display-raw |
257 |
(message "Press d ' again to cancel \"raw\" display mode."))) |
(message "Press d ' again to cancel \"raw\" display mode.")))) |
|
) |
|
258 |
|
|
259 |
|
|
260 |
|
|
304 |
;; FIXME: why is this here? -cgw 2001.11.12 |
;; FIXME: why is this here? -cgw 2001.11.12 |
305 |
(let ((executing-kbd-macro "")) ; what a kludge! |
(let ((executing-kbd-macro "")) ; what a kludge! |
306 |
(save-buffer)) |
(save-buffer)) |
307 |
(save-buffer)))) |
(save-buffer))))) |
|
) |
|
308 |
|
|
309 |
(defun calc-settings-file-name (name &optional arg) |
(defun calc-settings-file-name (name &optional arg) |
310 |
(interactive |
(interactive |
361 |
(t 1)) |
(t 1)) |
362 |
(cond ((eq calc-infinite-mode 1) 0) |
(cond ((eq calc-infinite-mode 1) 0) |
363 |
(calc-infinite-mode 1) |
(calc-infinite-mode 1) |
364 |
(t -1))) |
(t -1)))) |
|
) |
|
365 |
|
|
366 |
(defun calc-get-modes (n) |
(defun calc-get-modes (n) |
367 |
(interactive "P") |
(interactive "P") |
373 |
(< n (length modes))) |
(< n (length modes))) |
374 |
(nth n modes) |
(nth n modes) |
375 |
(error "Prefix out of range")) |
(error "Prefix out of range")) |
376 |
modes)))) |
modes))))) |
|
) |
|
377 |
|
|
378 |
(defun calc-shift-prefix (arg) |
(defun calc-shift-prefix (arg) |
379 |
(interactive "P") |
(interactive "P") |
384 |
(calc-init-prefixes) |
(calc-init-prefixes) |
385 |
(message (if calc-shift-prefix |
(message (if calc-shift-prefix |
386 |
"Prefix keys are now case-insensitive" |
"Prefix keys are now case-insensitive" |
387 |
"Prefix keys must be unshifted (except V, Z)"))) |
"Prefix keys must be unshifted (except V, Z)")))) |
|
) |
|
388 |
|
|
389 |
(defun calc-mode-record-mode (n) |
(defun calc-mode-record-mode (n) |
390 |
(interactive "P") |
(interactive "P") |
418 |
(format "Recording mode changes in \"%s\"." |
(format "Recording mode changes in \"%s\"." |
419 |
calc-settings-file)) |
calc-settings-file)) |
420 |
(t |
(t |
421 |
"Not recording mode changes permanently.")))) |
"Not recording mode changes permanently."))))) |
|
) |
|
422 |
|
|
423 |
(defun calc-total-algebraic-mode (flag) |
(defun calc-total-algebraic-mode (flag) |
424 |
(interactive "P") |
(interactive "P") |
431 |
'(total nil)) |
'(total nil)) |
432 |
(use-local-map calc-alg-map) |
(use-local-map calc-alg-map) |
433 |
(message |
(message |
434 |
"All keys begin algebraic entry; use Meta (ESC) for Calc keys."))) |
"All keys begin algebraic entry; use Meta (ESC) for Calc keys.")))) |
|
) |
|
435 |
|
|
436 |
(defun calc-algebraic-mode (flag) |
(defun calc-algebraic-mode (flag) |
437 |
(interactive "P") |
(interactive "P") |
447 |
"Numeric keys and ( and [ begin algebraic entry." |
"Numeric keys and ( and [ begin algebraic entry." |
448 |
(if calc-incomplete-algebraic-mode |
(if calc-incomplete-algebraic-mode |
449 |
"Only ( and [ begin algebraic entry." |
"Only ( and [ begin algebraic entry." |
450 |
"No keys except ' and $ begin algebraic entry.")))) |
"No keys except ' and $ begin algebraic entry."))))) |
|
) |
|
451 |
|
|
452 |
(defun calc-symbolic-mode (n) |
(defun calc-symbolic-mode (n) |
453 |
(interactive "P") |
(interactive "P") |
455 |
|
|
456 |
(message (if (calc-change-mode 'calc-symbolic-mode n nil t) |
(message (if (calc-change-mode 'calc-symbolic-mode n nil t) |
457 |
"Inexact computations like sqrt(2) are deferred." |
"Inexact computations like sqrt(2) are deferred." |
458 |
"Numerical computations are always done immediately."))) |
"Numerical computations are always done immediately.")))) |
|
) |
|
459 |
|
|
460 |
(defun calc-infinite-mode (n) |
(defun calc-infinite-mode (n) |
461 |
(interactive "P") |
(interactive "P") |
466 |
(message "Computations like 1 / 0 produce \"inf\".")) |
(message "Computations like 1 / 0 produce \"inf\".")) |
467 |
(message (if (calc-change-mode 'calc-infinite-mode n nil t) |
(message (if (calc-change-mode 'calc-infinite-mode n nil t) |
468 |
"Computations like 1 / 0 produce \"uinf\"." |
"Computations like 1 / 0 produce \"uinf\"." |
469 |
"Computations like 1 / 0 are left unsimplified.")))) |
"Computations like 1 / 0 are left unsimplified."))))) |
|
) |
|
470 |
|
|
471 |
(defun calc-matrix-mode (arg) |
(defun calc-matrix-mode (arg) |
472 |
(interactive "P") |
(interactive "P") |
486 |
"Variables are assumed to be matrices." |
"Variables are assumed to be matrices." |
487 |
(if calc-matrix-mode |
(if calc-matrix-mode |
488 |
"Variables are assumed to be scalars (non-matrices)." |
"Variables are assumed to be scalars (non-matrices)." |
489 |
"Variables are not assumed to be matrix or scalar."))))) |
"Variables are not assumed to be matrix or scalar.")))))) |
|
) |
|
490 |
|
|
491 |
(defun calc-set-simplify-mode (mode arg msg) |
(defun calc-set-simplify-mode (mode arg msg) |
492 |
(calc-change-mode 'calc-simplify-mode |
(calc-change-mode 'calc-simplify-mode |
497 |
mode))) |
mode))) |
498 |
(message (if (eq calc-simplify-mode mode) |
(message (if (eq calc-simplify-mode mode) |
499 |
msg |
msg |
500 |
"Default simplifications enabled.")) |
"Default simplifications enabled."))) |
|
) |
|
501 |
|
|
502 |
(defun calc-no-simplify-mode (arg) |
(defun calc-no-simplify-mode (arg) |
503 |
(interactive "P") |
(interactive "P") |
504 |
(calc-wrapper |
(calc-wrapper |
505 |
(calc-set-simplify-mode 'none arg |
(calc-set-simplify-mode 'none arg |
506 |
"All default simplifications are disabled.")) |
"All default simplifications are disabled."))) |
|
) |
|
507 |
|
|
508 |
(defun calc-num-simplify-mode (arg) |
(defun calc-num-simplify-mode (arg) |
509 |
(interactive "P") |
(interactive "P") |
510 |
(calc-wrapper |
(calc-wrapper |
511 |
(calc-set-simplify-mode 'num arg |
(calc-set-simplify-mode 'num arg |
512 |
"Default simplifications apply only if arguments are numeric.")) |
"Default simplifications apply only if arguments are numeric."))) |
|
) |
|
513 |
|
|
514 |
(defun calc-default-simplify-mode (arg) |
(defun calc-default-simplify-mode (arg) |
515 |
(interactive "p") |
(interactive "p") |
523 |
((= arg 3) (calc-alg-simplify-mode 1)) |
((= arg 3) (calc-alg-simplify-mode 1)) |
524 |
((= arg 4) (calc-ext-simplify-mode 1)) |
((= arg 4) (calc-ext-simplify-mode 1)) |
525 |
((= arg 5) (calc-units-simplify-mode 1)) |
((= arg 5) (calc-units-simplify-mode 1)) |
526 |
(t (error "Prefix argument out of range"))) |
(t (error "Prefix argument out of range")))) |
|
) |
|
527 |
|
|
528 |
(defun calc-bin-simplify-mode (arg) |
(defun calc-bin-simplify-mode (arg) |
529 |
(interactive "P") |
(interactive "P") |
530 |
(calc-wrapper |
(calc-wrapper |
531 |
(calc-set-simplify-mode 'binary arg |
(calc-set-simplify-mode 'binary arg |
532 |
(format "Binary simplification occurs by default (word size=%d)." |
(format "Binary simplification occurs by default (word size=%d)." |
533 |
calc-word-size))) |
calc-word-size)))) |
|
) |
|
534 |
|
|
535 |
(defun calc-alg-simplify-mode (arg) |
(defun calc-alg-simplify-mode (arg) |
536 |
(interactive "P") |
(interactive "P") |
537 |
(calc-wrapper |
(calc-wrapper |
538 |
(calc-set-simplify-mode 'alg arg |
(calc-set-simplify-mode 'alg arg |
539 |
"Algebraic simplification occurs by default.")) |
"Algebraic simplification occurs by default."))) |
|
) |
|
540 |
|
|
541 |
(defun calc-ext-simplify-mode (arg) |
(defun calc-ext-simplify-mode (arg) |
542 |
(interactive "P") |
(interactive "P") |
543 |
(calc-wrapper |
(calc-wrapper |
544 |
(calc-set-simplify-mode 'ext arg |
(calc-set-simplify-mode 'ext arg |
545 |
"Extended algebraic simplification occurs by default.")) |
"Extended algebraic simplification occurs by default."))) |
|
) |
|
546 |
|
|
547 |
(defun calc-units-simplify-mode (arg) |
(defun calc-units-simplify-mode (arg) |
548 |
(interactive "P") |
(interactive "P") |
549 |
(calc-wrapper |
(calc-wrapper |
550 |
(calc-set-simplify-mode 'units arg |
(calc-set-simplify-mode 'units arg |
551 |
"Units simplification occurs by default.")) |
"Units simplification occurs by default."))) |
|
) |
|
552 |
|
|
553 |
(defun calc-auto-recompute (arg) |
(defun calc-auto-recompute (arg) |
554 |
(interactive "P") |
(interactive "P") |
557 |
(calc-refresh-evaltos) |
(calc-refresh-evaltos) |
558 |
(message (if calc-auto-recompute |
(message (if calc-auto-recompute |
559 |
"Automatically recomputing `=>' forms when necessary." |
"Automatically recomputing `=>' forms when necessary." |
560 |
"Not recomputing `=>' forms automatically."))) |
"Not recomputing `=>' forms automatically.")))) |
|
) |
|
561 |
|
|
562 |
(defun calc-working (n) |
(defun calc-working (n) |
563 |
(interactive "P") |
(interactive "P") |
575 |
(calc-display-working-message |
(calc-display-working-message |
576 |
(message "Detailed \"Working...\" messages enabled.")) |
(message "Detailed \"Working...\" messages enabled.")) |
577 |
(t |
(t |
578 |
(message "\"Working...\" messages disabled.")))) |
(message "\"Working...\" messages disabled."))))) |
|
) |
|
579 |
|
|
580 |
(defun calc-always-load-extensions () |
(defun calc-always-load-extensions () |
581 |
(interactive) |
(interactive) |
582 |
(calc-wrapper |
(calc-wrapper |
583 |
(if (setq calc-always-load-extensions (not calc-always-load-extensions)) |
(if (setq calc-always-load-extensions (not calc-always-load-extensions)) |
584 |
(message "Always loading extensions package.") |
(message "Always loading extensions package.") |
585 |
(message "Loading extensions package on demand only."))) |
(message "Loading extensions package on demand only.")))) |
|
) |
|
586 |
|
|
587 |
|
|
588 |
(defun calc-matrix-left-justify () |
(defun calc-matrix-left-justify () |
589 |
(interactive) |
(interactive) |
590 |
(calc-wrapper |
(calc-wrapper |
591 |
(calc-change-mode 'calc-matrix-just nil t) |
(calc-change-mode 'calc-matrix-just nil t) |
592 |
(message "Matrix elements will be left-justified in columns.")) |
(message "Matrix elements will be left-justified in columns."))) |
|
) |
|
593 |
|
|
594 |
(defun calc-matrix-center-justify () |
(defun calc-matrix-center-justify () |
595 |
(interactive) |
(interactive) |
596 |
(calc-wrapper |
(calc-wrapper |
597 |
(calc-change-mode 'calc-matrix-just 'center t) |
(calc-change-mode 'calc-matrix-just 'center t) |
598 |
(message "Matrix elements will be centered in columns.")) |
(message "Matrix elements will be centered in columns."))) |
|
) |
|
599 |
|
|
600 |
(defun calc-matrix-right-justify () |
(defun calc-matrix-right-justify () |
601 |
(interactive) |
(interactive) |
602 |
(calc-wrapper |
(calc-wrapper |
603 |
(calc-change-mode 'calc-matrix-just 'right t) |
(calc-change-mode 'calc-matrix-just 'right t) |
604 |
(message "Matrix elements will be right-justified in columns.")) |
(message "Matrix elements will be right-justified in columns."))) |
|
) |
|
605 |
|
|
606 |
(defun calc-full-vectors (n) |
(defun calc-full-vectors (n) |
607 |
(interactive "P") |
(interactive "P") |
608 |
(calc-wrapper |
(calc-wrapper |
609 |
(message (if (calc-change-mode 'calc-full-vectors n t t) |
(message (if (calc-change-mode 'calc-full-vectors n t t) |
610 |
"Displaying long vectors in full." |
"Displaying long vectors in full." |
611 |
"Displaying long vectors in [a, b, c, ..., z] notation."))) |
"Displaying long vectors in [a, b, c, ..., z] notation.")))) |
|
) |
|
612 |
|
|
613 |
(defun calc-full-trail-vectors (n) |
(defun calc-full-trail-vectors (n) |
614 |
(interactive "P") |
(interactive "P") |
615 |
(calc-wrapper |
(calc-wrapper |
616 |
(message (if (calc-change-mode 'calc-full-trail-vectors n nil t) |
(message (if (calc-change-mode 'calc-full-trail-vectors n nil t) |
617 |
"Recording long vectors in full." |
"Recording long vectors in full." |
618 |
"Recording long vectors in [a, b, c, ..., z] notation."))) |
"Recording long vectors in [a, b, c, ..., z] notation.")))) |
|
) |
|
619 |
|
|
620 |
(defun calc-break-vectors (n) |
(defun calc-break-vectors (n) |
621 |
(interactive "P") |
(interactive "P") |
622 |
(calc-wrapper |
(calc-wrapper |
623 |
(message (if (calc-change-mode 'calc-break-vectors n t t) |
(message (if (calc-change-mode 'calc-break-vectors n t t) |
624 |
"Displaying vector elements one-per-line." |
"Displaying vector elements one-per-line." |
625 |
"Displaying vector elements all on one line."))) |
"Displaying vector elements all on one line.")))) |
|
) |
|
626 |
|
|
627 |
(defun calc-vector-commas () |
(defun calc-vector-commas () |
628 |
(interactive) |
(interactive) |
629 |
(calc-wrapper |
(calc-wrapper |
630 |
(if (calc-change-mode 'calc-vector-commas (if calc-vector-commas nil ",") t) |
(if (calc-change-mode 'calc-vector-commas (if calc-vector-commas nil ",") t) |
631 |
(message "Separating vector elements with \",\".") |
(message "Separating vector elements with \",\".") |
632 |
(message "Separating vector elements with spaces."))) |
(message "Separating vector elements with spaces.")))) |
|
) |
|
633 |
|
|
634 |
(defun calc-vector-brackets () |
(defun calc-vector-brackets () |
635 |
(interactive) |
(interactive) |
637 |
(if (calc-change-mode 'calc-vector-brackets |
(if (calc-change-mode 'calc-vector-brackets |
638 |
(if (equal calc-vector-brackets "[]") nil "[]") t) |
(if (equal calc-vector-brackets "[]") nil "[]") t) |
639 |
(message "Surrounding vectors with \"[]\".") |
(message "Surrounding vectors with \"[]\".") |
640 |
(message "Not surrounding vectors with brackets."))) |
(message "Not surrounding vectors with brackets.")))) |
|
) |
|
641 |
|
|
642 |
(defun calc-vector-braces () |
(defun calc-vector-braces () |
643 |
(interactive) |
(interactive) |
645 |
(if (calc-change-mode 'calc-vector-brackets |
(if (calc-change-mode 'calc-vector-brackets |
646 |
(if (equal calc-vector-brackets "{}") nil "{}") t) |
(if (equal calc-vector-brackets "{}") nil "{}") t) |
647 |
(message "Surrounding vectors with \"{}\".") |
(message "Surrounding vectors with \"{}\".") |
648 |
(message "Not surrounding vectors with brackets."))) |
(message "Not surrounding vectors with brackets.")))) |
|
) |
|
649 |
|
|
650 |
(defun calc-vector-parens () |
(defun calc-vector-parens () |
651 |
(interactive) |
(interactive) |
653 |
(if (calc-change-mode 'calc-vector-brackets |
(if (calc-change-mode 'calc-vector-brackets |
654 |
(if (equal calc-vector-brackets "()") nil "()") t) |
(if (equal calc-vector-brackets "()") nil "()") t) |
655 |
(message "Surrounding vectors with \"()\".") |
(message "Surrounding vectors with \"()\".") |
656 |
(message "Not surrounding vectors with brackets."))) |
(message "Not surrounding vectors with brackets.")))) |
|
) |
|
657 |
|
|
658 |
(defun calc-matrix-brackets (arg) |
(defun calc-matrix-brackets (arg) |
659 |
(interactive "sCode letters (R, O, C, P): ") |
(interactive "sCode letters (R, O, C, P): ") |
665 |
(bad (string-match "[^rRoOcCpP ]" arg))) |
(bad (string-match "[^rRoOcCpP ]" arg))) |
666 |
(if bad |
(if bad |
667 |
(error "Unrecognized character: %c" (aref arg bad))) |
(error "Unrecognized character: %c" (aref arg bad))) |
668 |
(calc-change-mode 'calc-matrix-brackets code t))) |
(calc-change-mode 'calc-matrix-brackets code t)))) |
|
) |
|
669 |
|
|
670 |
|
;;; calc-mode.el ends here |