/[emacs]/emacs/lisp/calc/calc-poly.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-poly.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by jpb, Wed Sep 7 19:27:11 2005 UTC revision 1.16 by jpb, Fri Oct 7 21:18:22 2005 UTC
# Line 1069  Line 1069 
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))

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26