TensorTools.m: Remove components generated by symmetries of antisymme…

…tric tensors
ianhinder · Aug 11, 2012 · 4707e0c · 4707e0c
1 parent 479985d
commit 4707e0c
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/Tools/CodeGen/TensorTools.m b/Tools/CodeGen/TensorTools.m
@@ -1172,7 +1172,7 @@
   RemoveDuplicates[Map[#[[1]] &, m]];
 
 removeDuplicatesFromMap[m_] :=
-  Map[# -> (# /. m) &, extractMapDomain[m]];
+  Map[# -> (# /. m) &, removeSymmetryCopies@extractMapDomain[m]];
 
 
 abstractToExplicitMap[m_] :=
@@ -1181,8 +1181,11 @@
     domain = extractMapDomain[explicitMap1];
     Map[# -> (# /. explicitMap1) &, domain]];
 
+removeSymmetryCopies[l_List] := 
+  DeleteCases[l, Times[-1,_Symbol]|0];
+
 explicitVariableList[l_] :=
-  RemoveDuplicates[Flatten[Map[MakeExplicit, l], 1]];
+  removeSymmetryCopies@RemoveDuplicates[Flatten[Map[MakeExplicit, l], 1]];
 
 (* -------------------------------------------------------------------------- 
    Checking tensor expressions for consistency