About HPC Systems Software User Guides Education Partners

  / gears / hpc / education / tutorials / mathematica / win


Introduction

Definition

Example 01

Example 02

Example 03

Example 04

Example 05

Example 06

Example 07

Example 08

Example 09

Example 10

Example 11

Example 12

Example 13

Example 14

Example 15

Example 16

Example 17

Example 18

References

Example 10

The wave equation


GIVEN: A Second Order PDE with non-constant coefficients

utt-9uxx=0

REQUIRED: Plot the wave propagation

SOLUTION:Generate example10.nb
u[x_, t_] = Sin[x - 3 t]
a = {}
Do[l1 = ToString[t];
l2 = StringJoin["t = ", l1];
graph = Plot[u[x, t], {x, -3, 3}, PlotLabel -> l2];
a = Append[a, graph], {t, 0, 1, 0.2}];
(*Show[GraphicsArray[{{a[[1]], a[[2]]}, {a[[3]], a[[4]]},
{a[[5]], a[[6]]}}]];*)

Example

Homework:

Please send questions or suggestions about this web page to beatnic@aset.psu.edu

ASET | ITS | Penn State