Re: How to simulate the Doppler Effect ?
- To: mathgroup at smc.vnet.net
- Subject: [mg36030] Re: How to simulate the Doppler Effect ?
- From: Tim Brophy <timbrophy at eircom.net>
- Date: Tue, 13 Aug 2002 05:22:53 -0400 (EDT)
- References: <aifl0t$pua$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
On 8/3/02 4:04 AM, in article aifl0t$pua$1 at smc.vnet.net, "bryan"
<timreh719 at yahoo.com.tw> wrote:
> 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
>
This will get you started
<< Graphics`
doppler = Table[Show[Graphics[{Table[{Red, PointSize[0.02], Point[{k/2, 0}],
Yellow, Circle[{k/2, 0}, If[t < k + 1, 0, t - k - 0.5]]}, {k, 0, 20,
2}], Text["A", {0, -1}], Text["B", {10, -1}]} ], Background -> Black, Frame
-> True, FrameTicks -> None, ImageSize -> 576, AspectRatio -> Automatic,
PlotRange -> {{-20, 20}, {-20, 20}}], {t, 0, 20}];
Regards,
Tim Brophy