1
$\begingroup$

I'm trying to recreate this plot. Its over the interval $ u, v \in[0,2 \pi]$

enter image description here

My attempt is horrific.

entomoneis[u_, v_] := Module[{}, 
  {0.1*Cos[12*v^3] + 0.1*Cos[16*v^3],
   0.6 (Cos[14.4*v^3] Cos[1.5*u^2] Sin[18*v^3]*Sin[1.5*u^2] + 
      0.5*Cos[v^3]*Cos[u^3] + 0.6*Sin[u]*Cos[u] + 
      0.5*Cos[3*v^(0.5)]*Sin[v^3]),
   0.6*Sin[u]}
  ]

ParametricPlot3D[{entomoneis[u, v]}, {u, 0, 2*Pi}, {v, 0, 2*Pi}, 
 PlotPoints -> {100, 100}, Lighting -> "Neutral"]

enter image description here

I can't work out why

Improve this question
$\endgroup$
1
  • 2
    $\begingroup$ Seems too complex. ListPointPlot3D[ Table[entomoneis[u, v], {u, Subdivide[0, 2 π, 500]}, {v, Subdivide[0, 2 π, 500]}]] $\endgroup$ Commented Sep 24 at 2:32

0

Reset to default

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.