Changeset 3939 for vendor/emacs-CVS_HEAD/lisp/calc/calc-ext.el

Timestamp:

2005年11月01日 07時08分22秒 (3 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• vendor/emacs-CVS_HEAD/lisp/calc/calc-ext.el (modified) (3 diffs)

vendor/emacs-CVS_HEAD/lisp/calc/calc-ext.el

@@ -660 +660 @@
-calc-modify-simplify-mode calcFunc-collect calcFunc-esimplify
-calcFunc-islin calcFunc-islinnt calcFunc-lin calcFunc-linnt
-
+calcFunc-writeoutpower 
-math-build-polynomial-expr math-expand-formula math-expr-contains
-math-expr-contains-count math-expr-depends math-expr-height
@@ -924 +924 @@
-calc-expand-formula calc-factor calc-normalize-rat calc-poly-div
-calc-poly-div-rem calc-poly-gcd calc-poly-rem calc-simplify
-
+ calc-writeoutpower
-
- ("calcalg2" calc-alt-summation calc-derivative
@@ -2107 +2107 @@
-    (and (cdr dims)
-         (= (car dims) (nth 1 dims)))))
+
+;;; True if MAT is an identity matrix.
+(defun math-identity-matrix-p (mat &optional mul)
+  (if (math-square-matrixp mat)
+      (let ((a (if mul
+                   (nth 1 (nth 1 mat))
+                 1))
+            (n (1- (length mat)))
+            (i 1))
+        (while (and (<= i n)
+                    (math-ident-row-p (nth i mat) i a))
+          (setq i (1+ i)))
+        (if (> i n)
+            a
+          nil))))
+
+(defun math-ident-row-p (row n &optional a)
+  (unless a
+    (setq a 1))
+  (and
+   (not (memq nil (mapcar 
+                   (lambda (x) (eq x 0))
+                   (nthcdr (1+ n) row))))
+   (not (memq nil (mapcar 
+                   (lambda (x) (eq x 0))
+                   (butlast 
+                    (cdr row)
+                    (- (length row) n)))))
+   (eq (elt row n) a)))
-
-;;; True if A is any scalar data object.  [P x]