loom
1def auto :
2X1 = [1.0, 0.0],
3X2 = [0.0, 1.0],
4m = 1.0
5
6using math {
7print m*(X1-X2)
8print length(X1-X2)
9print length(X1-X2)^3
10print m*(X1-X2)/length(X1-X2)^3
11print m*(X1-X2)/length(X1-X2)^3-m*(X1-X2)/length(X1-X2)^3
12
13def auto : X = { F : m*(X1-X2)/length(X1-X2)^3 }
14
15print X
16
17X["F"] -= m*(X1-X2)/length(X1-X2)^3
18
19print X
20}
21