fix: Wrong Function call names in Metric.m. Also, minor refactors.

Author: satfra

modules/FEDeriK/Derivatives.m

@@ -53,18 +53,18 @@
     ];
 
 (**********************************************************************************
-    ResolveDerivatives : Iteratively resolve all derivative operators in an FTerm or FEx
+    FResolveDerivatives : Iteratively resolve all derivative operators in an FTerm or FEx
 **********************************************************************************)
 
-ResolveDerivatives::argument = "The given argument is neither an FTerm nor a FEx.
+FResolveDerivatives::argument = "The given argument is neither an FTerm nor a FEx.
 The argument was `1`";
 
-Options[ResolveDerivatives] = {"Symmetries" -> {}};
+Options[FResolveDerivatives] = {"Symmetries" -> {}};
 
-ResolveDerivatives[setup_, term_FTerm, OptionsPattern[]] :=
-    ResolveDerivatives[setup, FEx[term], "Symmetries" -> OptionValue["Symmetries"]]
+FResolveDerivatives[setup_, term_FTerm, OptionsPattern[]] :=
+    FResolveDerivatives[setup, FEx[term], "Symmetries" -> OptionValue["Symmetries"]]
 
-ResolveDerivatives[setup_, eq_FEx, OptionsPattern[]] :=
+FResolveDerivatives[setup_, eq_FEx, OptionsPattern[]] :=
     Module[{ret = eq, annotations, mmap, fw, bw, i, symmetries},
         FunKitDebug[1, "Resolving derivatives"];
         If[FreeQ[ret, FDOp[__], Infinity],
@@ -105,9 +105,9 @@
         Return[MergeFExAnnotations[ret, annotations]];
     ]
 
-ResolveDerivatives[setup_, a___] :=
+FResolveDerivatives[setup_, a___] :=
     Module[{},
-        Message[ResolveDerivatives::argument, {a}];
+        Message[FResolveDerivatives::argument, {a}];
         Abort[];
     ];
 
@@ -126,7 +126,7 @@
         (*First, fix the indices in the input equation, i.e. make everything have unique names*)
         result = FixIndices[setup, FEx[expr]];
         If[Length[derivativeListSIDX] === 0,
-            Return[ResolveDerivatives[setup, result, "Symmetries" -> OptionValue["Symmetries"]]]
+            Return[FResolveDerivatives[setup, result, "Symmetries" -> OptionValue["Symmetries"]]]
         ];
         If[ModuleLoaded[AnSEL] && OptionValue["Symmetries"] === {} && $AutoBuildSymmetryList === True,
             FunKitDebug[2, "Auto-building symmetry list for derivatives"];
@@ -141,7 +141,7 @@
         ];
         FunKitDebug[1, "Adding the derivative operator ", (FTerm @@ (FDOp /@ derivativeListSIDX))];
         (*Perform all the derivatives, one after the other*)
-        result = ResolveDerivatives[setup, (FTerm @@ (FDOp /@ derivativeListSIDX)) ** result];
+        result = FResolveDerivatives[setup, (FTerm @@ (FDOp /@ derivativeListSIDX)) ** result];
         If[ModuleLoaded[AnSEL] && $AutoSimplify === True,
             result = FunKit`FSimplify[setup, result];
         ];

modules/FEDeriK/Global.m

@@ -22,11 +22,11 @@
 FTruncate[expr_] /; Head[$GlobalSetup] =!= Symbol :=
     FTruncate[$GlobalSetup, expr];
 
-TakeDerivatives[expr_, derivativeList_] /; Head[$GlobalSetup] =!= Symbol :=
-    TakeDerivatives[$GlobalSetup, expr, derivativeList, "Symmetries" -> {}];
+FTakeDerivatives[expr_, derivativeList_] /; Head[$GlobalSetup] =!= Symbol :=
+    FTakeDerivatives[$GlobalSetup, expr, derivativeList, "Symmetries" -> {}];
 
-TakeDerivatives[expr_, derivativeList_, OptionsPattern[]] /; Head[$GlobalSetup] =!= Symbol :=
-    TakeDerivatives[$GlobalSetup, expr, derivativeList, "Symmetries" -> OptionValue["Symmetries"]];
+FTakeDerivatives[expr_, derivativeList_, OptionsPattern[]] /; Head[$GlobalSetup] =!= Symbol :=
+    FTakeDerivatives[$GlobalSetup, expr, derivativeList, "Symmetries" -> OptionValue["Symmetries"]];
 
 QMeSForm[expr_] /; Head[$GlobalSetup] =!= Symbol :=
     QMeSForm[$GlobalSetup, expr];
@@ -49,8 +49,8 @@
 FResolveDerivatives[expr_, OptionsPattern[]] /; Head[$GlobalSetup] =!= Symbol :=
     FResolveDerivatives[$GlobalSetup, expr, "Symmetries" -> OptionValue["Symmetries"]];
 
-ResolveFDOp[expr_] /; Head[$GlobalSetup] =!= Symbol :=
-    ResolveFDOp[$GlobalSetup, expr];
+FResolveFDOp[expr_] /; Head[$GlobalSetup] =!= Symbol :=
+    FResolveFDOp[$GlobalSetup, expr];
 
 FOrderFields[expr_] /; Head[$GlobalSetup] =!= Symbol :=
     FOrderFields[$GlobalSetup, expr];

modules/FEDeriK/Metric.m

@@ -57,7 +57,7 @@
         cases = Select[cases, FreeQ[getFields[#], AnyField]&];
         casesFMinus = Select[cases, Head[#] === FMinus&];
         cases = Select[cases, Head[#] === \[Gamma]&];
-        closed = Map[MemberQ[closedSIndices, MakePosIdx[#]]&, Indices /@ cases, {2}];
+        closed = Map[MemberQ[closedSIndices, makePosIdx[#]]&, getIndices /@ cases, {2}];
         casesOpen = Pick[cases, Map[Not[#[[1]] || #[[2]]]&, closed]];
         cases = Pick[cases, Map[#[[1]] || #[[2]]&, closed]];
         (*closed is a truth array indicating which indices of cases are closed *)

modules/FEDeriK/Truncation.m

@@ -72,7 +72,6 @@
 
 LTrunc[setup_, expr_] :=
     (
-        Print[expr];
         Message[FTruncate::wrongExpr];
         Abort[]
     )