可以用 mathematica 完成 用几何定义画圆锥曲线的演示吗 ?
mathematica吧
全部回复
仅看楼主
level 3
汤发发_ 楼主
椭圆 一个动点到俩定点的距离 之和为一常数
2018年11月22日 06点11分 1
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分 5
level 1
为啥总是自动吞贴???
2018年12月06日 08点12分 8
level 1
代码如图,费了半天劲也发不出帖,度娘真的是。。。没办法了
2018年12月06日 08点12分 10
强 谢谢 了
2019年01月19日 13点01分
1