Phase reversal at fixed boundary
- To: mathgroup at smc.vnet.net
- Subject: [mg106999] Phase reversal at fixed boundary
- From: Jon Joseph <josco.jon at gmail.com>
- Date: Sun, 31 Jan 2010 05:56:53 -0500 (EST)
All: I would like to simulate a wave pulse on a string. The end of the
string is fixed to a wall so when the pulse hits the wall I have perfect
reflection with a phase reversal. The following code is an attempt and
if I could figure out how to put the two animations together I would
just about have it. Any suggestions?
=
Animate[Show[Graphics[Rectangle[{9.5,-1},{10,1}]],Plot[PDF[NormalDistribution[t,.5],x],{x, -4,9.5}, PlotRange->{{-4,10}, {-1,1}}]], {t, 0, 10}]
=
Animate[Show[Graphics[Rectangle[{9.5,-1},{10,1}]],Plot[-PDF[NormalDistribution[10-t,.5],x],{x, 9.5,-4}, PlotRange->{{-4,10}, {-1,1}}]], {t, 0, 10}]
Thanks in advance. Jon=