diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-09-29 19:14:40 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-09-29 20:40:02 +0200 |
| commit | 89a16379672be072fd18c9a805c03e766691c3d3 (patch) | |
| tree | 876ca57014db34148ac3c9e172ed56fedd20a32c | |
| parent | 18cf85fac56896748b760b8017eaba6cc8057265 (diff) | |
KrancTensor.m: Implement DeleteDuplicates for older Mathematica versions
| -rw-r--r-- | Tools/CodeGen/KrancTensor.m | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Tools/CodeGen/KrancTensor.m b/Tools/CodeGen/KrancTensor.m index 204bc60..4318453 100644 --- a/Tools/CodeGen/KrancTensor.m +++ b/Tools/CodeGen/KrancTensor.m @@ -79,10 +79,13 @@ makeCalculationExplicit[calc_] := CollectList -> ExpandComponents, Equations -> ExpandComponents}]; +deleteDuplicates[l_] := + Split[Sort[l]][[All, 1]]; + makeGroupExplicit[g_] := Module[{variables, newVariables, newGroup}, variables = groupVariables[g]; - newVariables = DeleteDuplicates[ExpandComponents[variables]]; + newVariables = deleteDuplicates[ExpandComponents[variables]]; newGroup = SetGroupVariables[g, newVariables]; newGroup]; |