diff options
| author | Erik Schnetter <schnetter@gmail.com> | 2012-11-19 14:54:04 -0500 |
|---|---|---|
| committer | Erik Schnetter <schnetter@gmail.com> | 2012-11-19 14:54:04 -0500 |
| commit | b0d6b946ffed1d1a66391cef8428d6acd0f18909 (patch) | |
| tree | ea946a0cbb2a89abeeb51e7c200603a7b23a06c7 | |
| parent | a0e9d6ec13933d1f6ae0a3091ccf0a1c198c57e8 (diff) | |
WaveToy: Rename local variable "k" to "kvec"
| -rw-r--r-- | m/WaveToy.m | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/m/WaveToy.m b/m/WaveToy.m index 3256f63..0a21bbe 100644 --- a/m/WaveToy.m +++ b/m/WaveToy.m @@ -64,12 +64,12 @@ initialCalcStanding = {Name -> "WT_Standing", Schedule -> {"AT initial"}, ConditionalOnKeyword -> {"initial_data", "Standing"}, - Shorthands -> {k, omega}, + Shorthands -> {kvec, omega}, Equations -> - {k -> Pi / width, - omega -> Sqrt[3 k^2], - u -> amplitude Cos[k x] Cos[k y] Cos[k z] Cos[omega t], - rho -> amplitude Cos[k x] Cos[k y] Cos[k z] Sin[omega t] (-omega)}}; + {kvec -> Pi / width, + omega -> Sqrt[3 kvec^2], + u -> amplitude Cos[kvec x] Cos[kvec y] Cos[kvec z] Cos[omega t], + rho -> amplitude Cos[kvec x] Cos[kvec y] Cos[kvec z] Sin[omega t] (-omega)}}; (******************************************************************************) (* Evolution equations *) |