MMA绘制引力大小示意图

青青子衿

1. Clear["Global`*"]
2. G = 6.67259*10^(-11);
4. Manipulate[Fg = G*(M*m)/r^2;
5. Show[Plot[G*(M*m)/R^2, {R, 0, 1},
6.    PlotRange -> {{0, 1.2}, {0, 2*10^(-8)}}],
7.   Graphics[{Red, PointSize[Large],
8.     Tooltip[Point[#], #] &[{r, G*(M*m)/r^2}]}]],
9. Row[{Control[{{M, 5}, 1, 10, 0.01}], "  ", Dynamic[M], "(kg)"}],
10. Row[{Control[{{m, 1}, 1, 10, 0.01}], "  ", Dynamic[m], "(kg)"}],
11. Row[{"   ", Control[{{r, 0.3}, 0.1, 1, 0.01}], "  ", Dynamic[r],
12.    "(metre)"}],
13. Text@Style[StringForm["F = ``(N)", Dynamic[Fg]], Black],
14. TrackedSymbols :> {M, m, r}]

复制代码