From cffa920cc754ac8302546824fe87c21bc72e5cb7 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Fri, 27 Jan 2012 00:22:50 -0600 Subject: SimpleWaveCaKernel.m: Fix up several details --- Examples/SimpleWaveCaKernel.m | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Examples') diff --git a/Examples/SimpleWaveCaKernel.m b/Examples/SimpleWaveCaKernel.m index fee9df5..59eb448 100644 --- a/Examples/SimpleWaveCaKernel.m +++ b/Examples/SimpleWaveCaKernel.m @@ -25,11 +25,11 @@ evolveCalc = { Name -> "calc_rhs", Schedule -> {"at EVOL"}, - Where -> Interior, + Where -> Everywhere, Equations -> { dot[phi] -> pi, - dot[pi] -> Euc[ui,uj] PD[phi,li,lj] + dot[pi] -> phi (* Euc[ui,uj] PD[phi,li,lj] *) } }; @@ -41,7 +41,7 @@ integrateCalc = Where -> Interior, Equations -> { - phi -> phi + dt dot[phi] + phi -> phi + dt dot[phi], pi -> pi + dt dot[pi] } }; @@ -51,4 +51,5 @@ CreateKrancThornTT[groups, ".", Calculations -> {initialSineCalc, evolveCalc, integrateCalc}, PartialDerivatives -> derivatives, UseCaKernel -> True, + EvolutionTimelevels -> 1, DeclaredGroups -> {"phi_g","pi_g"}]; -- cgit v1.2.3