[Maxima-commits] CVS: maxima/share/tensor iframe.mac,1.8,1.9

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

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

Modified Files:
	iframe.mac 
Log Message:
Yet more frame base fixes. (One they I'll figure out how to do it right...)


Index: iframe.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/tensor/iframe.mac,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- iframe.mac	23 Dec 2004 02:30:47 -0000	1.8
+++ iframe.mac	23 Dec 2004 03:21:40 -0000	1.9
@@ -46,7 +46,7 @@
      if iframe_bracket_form or itorsion_flag then
        'ifr([l[2]],[e])*'ifr([l[3]],[f])*
        ('ifri([l[1],e],[],f)-'ifri([l[1],f],[],e)-
-        _itr([e,f],[m])*ifri([m,l[1]],[])
+        _itr([e,f],[m])*ifri([l[1],m],[])
        )
      else 'ifri([l[1],e],[])*('ifr([l[2]],[f])*'ifr([l[3]],[e],f)-
                          'ifr([l[2]],[e],f)*'ifr([l[3]],[f]))
@@ -104,8 +104,8 @@
 decsym(ichr1,3,0,[sym(1,2)],[]);
 decsym(ichr2,2,1,[sym(all)],[]);
 decsym(icurvature,3,1,[anti(2,3)],[]);
-decsym(ifb,3,0,[anti(2,3)],[]);
-/* decsym(icc1,3,0,[sym(1,2)],[]);
+/* decsym(ifb,3,0,[anti(2,3)],[]);	<-- not valid with torsion
+ * decsym(icc1,3,0,[sym(1,2)],[]);
  * decsym(icc2,2,1,[sym(all)],[]);
  * decsym(ifc1,3,0,[sym(1,2)],[]);
  * decsym(ifc2,2,1,[sym(all)],[]);