【转载分享】摆线演示

永远

1. R := 4;
   
2. Manipulate[
   
3. Show[ParametricPlot[{\[Alpha] R + R Cos[-(\[Pi]/2) - \[Alpha]],
   
4.      R + R Sin[-(\[Pi]/2) - \[Alpha]]}, {\[Alpha], 0, 4 \[Pi]}] //
   
5.    Evaluate,
   
6.   Graphics[{Circle[{\[Alpha] R, R}, R], Red, Thick,
   
7.     Line[{{\[Alpha] R + R Cos[-(\[Pi]/2) - \[Alpha]],
   
8.        R + R Sin[-(\[Pi]/2) - \[Alpha]]}, {\[Alpha] R, R}}],
   
9.     PointSize[Large], Pink,
   
10.     Point[{\[Alpha] R + R Cos[-(\[Pi]/2) - \[Alpha]],
    
11.       R + R Sin[-(\[Pi]/2) - \[Alpha]]}]}]], {\[Alpha], 0, 4 \[Pi]}]

复制代码