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

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]

本作品采用创作共用版权协议, 要求署名、非商业用途和保持一致. 转载本站内容必须也遵循署名-非商业用途-保持一致的创作共用协议.