2021年5月

耶鲁基础物理 6.5 保守力



保守力很奇妙,可以对应势能函数,进而得到能量守恒定律。能量守恒定律很方便我们处理问题。

但是,如果随意地挑出一个力,有很大可能,力做功与路径相关。

有没有做功与路径无关的保守力呢?如果有,如何才能找出它们呢?

不要绝望。现在直接告诉你一个方法:

- 阅读剩余部分 -

Mathematica 画受力示意图

代码:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
g1 = Graphics[Line[{{0, 0}, {20, 0}}]];
g2 = Graphics[Line[{{0, 0}, {15, 15}}]];
g3 = Graphics[{Opacity[0.2], Blue,
Rotate[Rectangle[{8, 8}, {12, 12}], 45 Degree, {Left, Bottom}]}];
g4 = Graphics[{Blue, Thickness[0.01], Arrow[{{8, 10.8}, {8, 2.8}}]}];
g5 = Graphics[{Cyan, Thickness[0.01], Arrow[{{8, 10.8}, {3.8, 15}}]}];
g6 = Graphics[{Orange, Thickness[0.01],
Arrow[{{2.4, 5.2}, {6.6, 9.4}}]}];
g7 = Graphics[
Text[StyleForm["重力", FontSize -> 14, FontWeight -> "Bold"], {9,
6.8}, {0, 1}, {0, -1}]];
g8 = Graphics[
Text[StyleForm["支持力", FontSize -> 14, FontWeight -> "Bold"], {6,
13}, {0, -1}, {1, -1}]];
g9 = Graphics[
Text[StyleForm["摩擦力", FontSize -> 14, FontWeight -> "Bold"], {4.5,
7.2}, {0, 1}, {1, 1}]];
Show[g1, g2, g3, g4, g5, g6, g7, g8, g9]

运行结果: