1069 |
(math-add-or-sub (list '/ (nth 1 (nth 1 expr)) (nth 2 expr)) |
(math-add-or-sub (list '/ (nth 1 (nth 1 expr)) (nth 2 expr)) |
1070 |
(list '/ (nth 2 (nth 1 expr)) (nth 2 expr)) |
(list '/ (nth 2 (nth 1 expr)) (nth 2 expr)) |
1071 |
nil (eq (car (nth 1 expr)) '-))) |
nil (eq (car (nth 1 expr)) '-))) |
|
((and (eq calc-matrix-mode 'matrix) |
|
|
(eq (car-safe expr) '^) |
|
|
(natnump (nth 2 expr)) |
|
|
(> (nth 2 expr) 1) |
|
|
(memq (car-safe (nth 1 expr)) '(+ -))) |
|
|
(if (= (nth 2 expr) 2) |
|
|
(math-add-or-sub (list '* (nth 1 (nth 1 expr)) (nth 1 expr)) |
|
|
(list '* (nth 2 (nth 1 expr)) (nth 1 expr)) |
|
|
nil (eq (car (nth 1 expr)) '-)) |
|
|
(math-add-or-sub (list '* (nth 1 (nth 1 expr)) (list '^ (nth 1 expr) |
|
|
(1- (nth 2 expr)))) |
|
|
(list '* (nth 2 (nth 1 expr)) (list '^ (nth 1 expr) |
|
|
(1- (nth 2 expr)))) |
|
|
nil (eq (car (nth 1 expr)) '-)))) |
|
1072 |
((and (eq (car-safe expr) '^) |
((and (eq (car-safe expr) '^) |
1073 |
(memq (car-safe (nth 1 expr)) '(+ -)) |
(memq (car-safe (nth 1 expr)) '(+ -)) |
1074 |
(integerp (nth 2 expr)) |
(integerp (nth 2 expr)) |
1075 |
(if (and (eq calc-matrix-mode 'matrix) |
(if (and |
1076 |
(> (nth 2 expr) 1)) |
(or (math-known-matrixp (nth 1 (nth 1 expr))) |
1077 |
|
(math-known-matrixp (nth 2 (nth 1 expr))) |
1078 |
|
(and |
1079 |
|
calc-matrix-mode |
1080 |
|
(not (eq calc-matrix-mode 'scalar)) |
1081 |
|
(not (and (math-known-scalarp (nth 1 (nth 1 expr))) |
1082 |
|
(math-known-scalarp (nth 2 (nth 1 expr))))))) |
1083 |
|
(> (nth 2 expr) 1)) |
1084 |
(if (= (nth 2 expr) 2) |
(if (= (nth 2 expr) 2) |
1085 |
(math-add-or-sub (list '* (nth 1 (nth 1 expr)) (nth 1 expr)) |
(math-add-or-sub (list '* (nth 1 (nth 1 expr)) (nth 1 expr)) |
1086 |
(list '* (nth 2 (nth 1 expr)) (nth 1 expr)) |
(list '* (nth 2 (nth 1 expr)) (nth 1 expr)) |