User Portlet
| Discussions |
|---|
| We can add one more option and get a solution on which the invariant J will be conserved with high accuracy r1[x_, y_, u_] := Sqrt[(x + 1 - u)^2 + y^2] u = 1/2; r2[x_, y_, u_] := Sqrt[(x - u)^2 + y^2] Om[x_,... |