|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
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] |
