Re: How to simulate the Doppler Effect ?
- To: mathgroup at smc.vnet.net
- Subject: [mg35869] Re: How to simulate the Doppler Effect ?
- From: "Borut L" <gollum at email.si>
- Date: Sun, 4 Aug 2002 06:00:38 -0400 (EDT)
- References: <aifl0t$pua$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi again Bryan,
My saying Mathematica being uneffective in simulations and all was not meant
precisely as said, explaining is needed, tough I won't delve in it now.
For the sake of "simulating" Dopplet efect, i.e. building an animation, just
follow my previous example :
Module[
{
x2 = 10,
dx = .5,
mach = 1.5
},
Show[
Graphics[
{
Table[Circle[{i, 0}, 1/mach (# - i)], {i, 0, #, dx}]
}
]
, PlotRange -> {{-x2, x2}, {-x2, x2}}
, AspectRatio -> Automatic
] & /@ Range[0, x2, dx]
]
Hope that helps anyway,
Borut
"bryan" <timreh719 at yahoo.com.tw> wrote in message
news:aifl0t$pua$1 at smc.vnet.net...
> Dear All:
> I want to make an animation that simulate the Doppler Effect, just 2D
> circles travel out one by one, and at the same time,the origin of the
> wave also moves toward one direction. I have no idea to make the speed
> of the wave origin and the speed of traveling wave independent.Is
> anyone has any idea to create the animation ?? Thanks in advance.
> sincerely bryan
>