a: 400
Månen: (14, 0)
C: (0, 0)
Jorden = Circle(C, 4)
FC: (a * UnitVector[Vector[C, Månen]] / Length[Vector[C, Månen]]^(2))
F: (-FC)
P1: (4, 0)
VP1: (400 * UnitVector[Vector[P1, Månen]] / Length[Vector[P1, Månen]]^(2))
P2 = (-4, 0)
FP1: (Vector[P1, Månen] / Length[Vector[P1, Månen]]^(3) * a)
FP2: (Vector[P2, Månen] / Length[Vector[P2, Månen]]^(3) * a)
F1R: FP1 + F
F2R: FP2 + F
P3 = (0, 4)
FP3: (a * Vector[P3, Månen] / Length[Vector[P3, Månen]]^(3))
F3R: FP3 + F
P4: (0, -4)
FP4: (a * Vector[P4, Månen] / Length[Vector[P4, Månen]]^(3))
F4R: FP4 + F
f: F