level 3
With[{a = 5, b = 3, c = 4},
Manipulate[
Show[Graphics[{Brown, Thickness[0.004],
Line[{{-c, 0}, {a Cos[\[Theta]], b Sin[\[Theta]]}, {c, 0}}], Red,
PointSize[0.02],
Point[{{-c, 0}, {c, 0}, {a Cos[\[Theta]], b Sin[\[Theta]]}}]}],
ParametricPlot[{a Cos[t], b Sin[t]}, {t, 0, 2 \[Pi]}]], {\[Theta],
0, 2 \[Pi]}]]
2018年12月04日 12点12分
