Message Boards Message Boards

5
|
5693 Views
|
2 Replies
|
6 Total Likes
View groups...
Share
Share this post:

Pendulum Waves Animation

Posted 10 years ago
Inpired by this video:

I tried to simulate the cool visual of Pendulum Waves in Wolfram Language.
 pendulum[r_,\[Theta]_,h_]:=With[{d={h,0,0},p={h,-r Sin[\[Theta]],-r Cos[\[Theta]]}},
     Graphics3D[{Specularity[White,30],Red,Sphere[p,0.03],Line[{d,p}]}
         ,PlotRange->{{0,1},{-0.5,0.5},{(*Z*)-0.9,0}}
         ,ViewPoint->Left
     ]
 ]
 
 Animate[Show[Table[pendulum[r,0.5Sin[ 2\[Pi](r) t],r],{r,0.4,0.8,0.02}],ImageSize-> 300]
         ,{t,0,15,0.01}
        ,AnimationRate->0.5
        ]
Here is the result:


I don't know why, but If I try to simulate using the more realist frequency (1/r), the visual effect is not so nice.
Improvments are always welcome!
POSTED BY: Rodrigo Murta
2 Replies
Rodrigo - great! - very concise - thanks for sharing. Have you seen another version by Stan Wagon and S. M. Blinder? 

Pendulum Waves

POSTED BY: Sam Carrettie
@SamCarrettie No, I didn't!
Tks for sharing. Much better then mine!
POSTED BY: Rodrigo Murta
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract