保持面积的三角形在锥上的移动

Vanabel/ 5月 25, 2018/ Uncategorized/ 0 comments

x = 20;
\[Alpha] = 30 \[Degree];
s = 5;
min = 0.1 x;
max = 0.5 x;
lines = Table[
   r = 2 s/a/Sin[\[Alpha]]; {{a, 0}, {r Cos[\[Alpha]], 
     r Sin[\[Alpha]]}}, {a, 0.1, x, 0.5}];
Animate[
 
 Graphics[{
   {Thickness[Large], 
    Line[{{x, 0}, {0, 0}, {x Cos[\[Alpha]], x Sin[\[Alpha]]}}]},
   {Red, Thickness[Large],
    Line[{{a, 0}, 2 s/a/Sin[\[Alpha]] { Cos[\[Alpha]], Sin[\[Alpha]]}}]
    }
   }], {{a, 1}, min, max}, AnimationDirection -> ForwardBackward]

Share this Post

Leave a Comment

您的电子邮箱地址不会被公开。 必填项已用*标注

*
*

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据