Image may be NSFW.
Clik here to view.
Clik here to view.
Answer by Dr. belisarius for intersection between function and plane
getOneCluster[pts_List, maxDist_?NumericQ] :=(*Returns a cluster*) Module[{f}, f = Nearest[pts]; FixedPoint[Union@Flatten[f[#, {Infinity, maxDist}] & /@ #, 1] &, {First@pts}]] clusters[data_]...
View Article
Image may be NSFW.
Clik here to view.
Clik here to view.
Answer by Michael E2 for intersection between function and plane
Use Mesh and MeshFunctions: gr1 = ParametricPlot3D[ Evaluate[{x[t], y[t], p2[t]} /. sol2], {t, 0, tfin}, PlotPoints -> 4000, MeshFunctions -> {#1 &}, Mesh -> {{0}}, MeshStyle ->...
View Articleintersection between function and plane
I try to solve a ODE system of equations and i want to plot the intersection of the 3D solutions with a costant plane. To do this i use the follow code: Clear["Global`*"] tfin = 500; T = p1^2/2 +...
View Article
More Pages to Explore .....
