From a7128aa0f728af4ce8c9db5d69eeafeec67d4cf4 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Wed, 21 Mar 2012 21:58:39 +0100 Subject: Add version of WaveCaKernel in script language (untested) --- Examples/WaveCaKernelScript.kranc | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 Examples/WaveCaKernelScript.kranc diff --git a/Examples/WaveCaKernelScript.kranc b/Examples/WaveCaKernelScript.kranc new file mode 100644 index 0000000..12ef712 --- /dev/null +++ b/Examples/WaveCaKernelScript.kranc @@ -0,0 +1,24 @@ +begin thorn WaveCaKernelScript + +use cakernel + +begin variables + phi pi +end variables + +begin calculation initial_gaussian_calc scheduled at initial + phi = exp(-1*((t+x)/0.1)**2) + pi = -2*(t+x)/0.1**2 * exp(-1*((t+x)/0.1)**2) +end calculation + +begin calculation calc_rhs scheduled at MoL_CalcRHS + D_t phi = pi + D_t pi = Euc^ij*D_ij phi +end calculation + +begin calculation calc_bound_rhs scheduled at MoL_RHSBoundaries + D_t phi = 2*(t+x)/0.1**2 * exp(-1*((t+x)/0.1)**2) + D_t pi = -2/(exp((t+x)**2/0.1**2) * 0.1**2) + (4*(t+x)**2)/(exp((t+x)**2/0.1**2) * 0.1**4) +end calculation + +end thorn -- cgit v1.2.3