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]

运行结果：