Make TensorTools style indices work with xTensor interface

ianhinder · Mar 6, 2014 · bfbc669 · bfbc669
1 parent 3d333bf
commit bfbc669
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/Tools/CodeGen/xTensorKranc.m b/Tools/CodeGen/xTensorKranc.m
@@ -30,6 +30,10 @@
 pd::usage = "pd[t, i] represents the i component of the partial derivative of the tensor t.";
 
 $KrancIndices = Symbol /@ CharacterRange["a", "q"];
+Do[
+  Evaluate[Symbol["l"<>ToString[ind]]] = -ind;
+  Evaluate[Symbol["u"<>ToString[ind]]] = ind;
+  , {ind, $KrancIndices}];
 
 Begin["`Private`"];