352 |
(if (eq calc-complex-mode 'polar) 1 0) |
(if (eq calc-complex-mode 'polar) 1 0) |
353 |
(cond ((eq calc-matrix-mode 'scalar) 0) |
(cond ((eq calc-matrix-mode 'scalar) 0) |
354 |
((eq calc-matrix-mode 'matrix) -2) |
((eq calc-matrix-mode 'matrix) -2) |
355 |
|
((eq calc-matrix-mode 'square) -3) |
356 |
(calc-matrix-mode) |
(calc-matrix-mode) |
357 |
(t -1)) |
(t -1)) |
358 |
(cond ((eq calc-simplify-mode 'none) -1) |
(cond ((eq calc-simplify-mode 'none) -1) |
477 |
(cond ((eq arg 0) 'scalar) |
(cond ((eq arg 0) 'scalar) |
478 |
((< (prefix-numeric-value arg) 1) |
((< (prefix-numeric-value arg) 1) |
479 |
(and (< (prefix-numeric-value arg) -1) 'matrix)) |
(and (< (prefix-numeric-value arg) -1) 'matrix)) |
480 |
(arg (prefix-numeric-value arg)) |
(arg |
481 |
|
(if (consp arg) 'square |
482 |
|
(prefix-numeric-value arg))) |
483 |
((eq calc-matrix-mode 'matrix) 'scalar) |
((eq calc-matrix-mode 'matrix) 'scalar) |
484 |
((eq calc-matrix-mode 'scalar) nil) |
((eq calc-matrix-mode 'scalar) nil) |
485 |
(t 'matrix))) |
(t 'matrix))) |
488 |
calc-matrix-mode calc-matrix-mode) |
calc-matrix-mode calc-matrix-mode) |
489 |
(message (if (eq calc-matrix-mode 'matrix) |
(message (if (eq calc-matrix-mode 'matrix) |
490 |
"Variables are assumed to be matrices" |
"Variables are assumed to be matrices" |
491 |
(if calc-matrix-mode |
(if (eq calc-matrix-mode 'square) |
492 |
"Variables are assumed to be scalars (non-matrices)" |
"Variables are assumed to be square matrices" |
493 |
"Variables are not assumed to be matrix or scalar")))))) |
(if calc-matrix-mode |
494 |
|
"Variables are assumed to be scalars (non-matrices)" |
495 |
|
"Variables are not assumed to be matrix or scalar"))))))) |
496 |
|
|
497 |
(defun calc-set-simplify-mode (mode arg msg) |
(defun calc-set-simplify-mode (mode arg msg) |
498 |
(calc-change-mode 'calc-simplify-mode |
(calc-change-mode 'calc-simplify-mode |