User Portlet User Portlet

Alexander Trounev
Discussions
At first glance, the task is very simple. Why do not you use `NDSolve[]` with `Method -> {"FiniteElement", "InterpolationOrder" -> {}, "MeshOptions" -> {"MaxCellMeasure" -> 0.0005}}` , which automatically generates a mesh in 2D?
Thank you. I got a similar result {{0.852001, 0.0000189641}} after a few minutes without using NMinimize. I created Table and found minimum using MinimalBy
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_,...
There must be another model. Here we must solve the non-stationary problem, since the heat flux at $y = y_p$ is unknown beforehand. The solution tends to stationary for a long time. The question of the velocity of a fluid - is it the quadratic...
Thank you, this very interesting design is being discussed on http://community.wolfram.com/groups/-/m/t/1148582 As I understand it, we are discussing not just "Placing a ContourPlot under a Plot3D ", but a special design that the author of the...
You can delete or add any number of options f[x_, op__] := Graphics3D[{Red, Line[{{0, 0, 0}, {Re[(-1)^x], Im[(-1)^x], 0}}]}, op] Manipulate[ f[a, Axes -> True, Boxed -> False, BoxRatios -> {1, 1, 1}, AxesOrigin -> {0,...
Michael, thank you. In general, this is a very interesting approach to solving the problem of the dynamics of atoms and molecules.
For each pair of p-alpha, it is possible to compute a pair a-b, but this is not the same.
With my computer access is faster `{4.28125, {{Quantity[0.756971, "AstronomicalUnit"], Quantity[-1.17878, "AstronomicalUnit"], Quantity[-0.0432617, "AstronomicalUnit"]},`
Very good, but we see nothing, except pictures, on which nothing can be seen. Where is the code or application?