The discussion revolves around finding the velocity at a final location in a restricted three-body problem using Mathematica. Participants explore methods for differentiating position data to obtain velocity, as well as the tools and data formats involved in the process.
Participants appear to agree on the use of Mathematica for differentiation but have not reached a consensus on the best approach or the specific tools being used for data analysis.
There are unresolved details regarding the specific methods used to obtain position data and the exact process for calculating velocity from that data.
This discussion may be useful for individuals working on computational physics problems, particularly those involving numerical methods in Mathematica and data analysis techniques.
Ackbach said:What mechanism did you employ in Mathematica to get your position object? NDSolve? If so, you should be able to differentiate it numerically by using the usual D[] function.
XYdata = Flatten[
Table[Evaluate[{x1[t], x2[t], x3[t]} /. s], {t, 0, 122400, 3}], 1];
SetDirectory[NotebookDirectory[]];
Export["OrbitData.txt", XYdata, "CSV"];
Earth = {N[x1], 0};
L4 = {N[xL4], N[yL4]};
Export["Earth.txt", Earth, "CSV"];