diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-11 17:32:03 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-11 17:32:03 +0200 |
| commit | 1550f33098c17cd88d84c68b7b1983111ab0996d (patch) | |
| tree | ebadde6fca1c8e23892b781568ed54b465912a3c | |
| parent | c178d4707d65c1402b41289b70da72e8347dabc5 (diff) | |
MoL.m: Add a version of MoLEvolvedGroups which does not require the calculations
| -rw-r--r-- | Tools/CodeGen/MoL.m | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Tools/CodeGen/MoL.m b/Tools/CodeGen/MoL.m index a71a185..b1431b0 100644 --- a/Tools/CodeGen/MoL.m +++ b/Tools/CodeGen/MoL.m @@ -537,6 +537,10 @@ DefFn[MoLEvolvedGroups[declaredGroups_, calcs_, groups_] := evolvedGroups = containingGroups[evolvedVars, groups]; Return[evolvedGroups]]]; +DefFn[ + MoLEvolvedGroups[declaredGroups_List, groups_List] := + Select[declaredGroups, lookup[GroupExtras[groupFromName[#,groups]], MoLEvolved, False] &]]; + DefFn[MoLNonevolvedGroups[declaredGroups_, calcs_, groups_] := Module[{allVars, evolvedVars, evolvedGroups, nonevolvedGroups}, VerifyGroupNames[declaredGroups]; |