Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

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=


  • Prev by Date: Re: position of sequence of numbers in list
  • Next by Date: newbe question about Sting Comparison
  • Previous by thread: Coloring a Sum
  • Next by thread: newbe question about Sting Comparison