diff options
Diffstat (limited to 'Examples')
-rw-r--r-- | Examples/SimpleWaveCaKernel.m | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/Examples/SimpleWaveCaKernel.m b/Examples/SimpleWaveCaKernel.m index f6908c7..3560710 100644 --- a/Examples/SimpleWaveCaKernel.m +++ b/Examples/SimpleWaveCaKernel.m @@ -21,6 +21,19 @@ initialSineCalc = } }; +f[x_] := Exp[-(x/0.1)^2]; + +initialGaussianCalc = +{ + Name -> "initial_gaussian", + Schedule -> {"AT INITIAL"}, + Equations -> + { + phi -> f[t+x], + pi -> D[f[t+x],t] + } +}; + evolveCalc = { Name -> "calc_rhs", @@ -48,7 +61,7 @@ integrateCalc = CreateKrancThornTT[groups, ".", "SimpleWaveCaKernel", - Calculations -> {initialSineCalc, evolveCalc, integrateCalc}, + Calculations -> {initialGaussianCalc, evolveCalc, integrateCalc}, PartialDerivatives -> derivatives, UseCaKernel -> True, EvolutionTimelevels -> 1, |