diff options
Diffstat (limited to 'Tests/Kranc.mt')
-rw-r--r-- | Tests/Kranc.mt | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Tests/Kranc.mt b/Tests/Kranc.mt index 3736b62..2daa6a5 100644 --- a/Tests/Kranc.mt +++ b/Tests/Kranc.mt @@ -30,6 +30,25 @@ $evolveCalc = { +Test[ + ClearAllTensors[]; + CreateKrancThornTT[ + Append[$groups,{"ode_group", {a, b}}], + "TestThorns", "SimpleWaveODE", + PartialDerivatives -> $derivatives, + DeclaredGroups -> {"evolved_group"}, + ODEGroups -> {"ode_group"}, + Calculations -> { + $initialSineCalc /. ((Equations -> l) :> + (Equations -> Join[l, {a->0,b->1}])), + $evolveCalc /. ((Equations -> l) :> + (Equations -> Join[l, {dot[a] -> b, dot[b] -> -a}]))}] + , + Null + , + TestID->"SimpleWaveODE" +] + (****************************************************************) (* CreateThorn *) |