| Author |
Comment/Response |
dustin
|
 11/10/12 12:27pm
How do I plot this in the Mathematica?
I tried this but it doesn't work.
t is the time interval.
[CODE]
u[x_, t_] =
Piecewise[{{t, -1 < x - t < 1 And - 1 < x + t <
1}, {1/2 (1 - x + t), -1 < x - t < 1 And x + t >
1}, {1/2 (x + t + 1), x - t < -1 And - 1 < x + t < 1}, {1,
x - t < -1 And x + t > 1}, {0, x + t < -1}, {0, x - t > 1}}];
Manipulate[Plot[u[x, t], {x, -10, 10}], {t, 0, 1, .01}]
[/CODE]
URL: , |
|
