[Maxima-commits] CVS: maxima/share/tensor itensor.lisp,1.19,1.20

[Viktor T. <vt...@us...>]

Update of /cvsroot/maxima/maxima/share/tensor
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20251

Modified Files:
	itensor.lisp 
Log Message:

Contraction of tensors in derivative operator expressions.


Index: itensor.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/tensor/itensor.lisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- itensor.lisp	25 Nov 2004 01:43:29 -0000	1.19
+++ itensor.lisp	25 Nov 2004 04:28:22 -0000	1.20
@@ -909,7 +909,8 @@
 
 (DEFUN SPLICE2 (X)
   (COND ((FIXP X)(EXPLODE X))
-	(T (CDR (EXPLODEc (print-invert-case X))))))
+	(T (CDR (EXPLODEc X)))))
+;	(T (CDR (EXPLODEc (print-invert-case X))))))
 
 (DEFUN DERIV (E) 
        (PROG (EXP Z COUNT V) 
@@ -1351,6 +1352,9 @@
          (DO ((I 1 (1+ I))) ((> I (COND ((CADDDR E) (CADDDR E)) (T 1))))
            (SETQ BOTTOM (CONS (CADDR E) BOTTOM)))
         )
+((MEMQ (CAAR E) '(%DERIVATIVE $DIFF %IDIFF $IDIFF))
+ (SETQ X (INDICES (CADR E)) BOTTOM (APPEND BOTTOM (CADR X)) TOP (APPEND TOP (CAR X)))
+)
 ;;        (T (MERROR "Improper argument to INDICES: ~M" E))
   )
   (RETURN (LIST TOP BOTTOM))