Tracing a Cycloid
- To: mathgroup at smc.vnet.net
- Subject: [mg84911] Tracing a Cycloid
- From: Narasimham <mathma18 at hotmail.com>
- Date: Sat, 19 Jan 2008 06:00:05 -0500 (EST)
Cycloid[t_]:=Show[ Graphics[
{Circle[{t, 1}, 1], Circle[{t, 0}, .04],Circle[{t, 1}, .
02],Disk[{t-Sin[t],1-Cos[t]},.1 ]}],
AspectRatio -> Automatic,PlotRange->{{-1,7.2},{-.
1,2.1}}] ;
Do[Cycloid[v],{v,-1,8.,.1}];
How to leave behind the mark/trace of the black point on rolling
circle periphery while tracing out the cycloid?
Also, how to modify this using Animate command for same animation
tracing effect instead of the Do command?
Thanks for suggestions.
Narasimham