Tag Info

New answers tagged

14

Update: With the function top defined in the original post you can replicate all the cool things you see in rm-rf's answer in the linked Q/A. For example, with a slight modification of gr1, i.e., Graphics3D[hexTile[20, 20] /. Polygon[l_] :> {Directive[Orange, Opacity[0.8], Specularity[White, 30]], Polygon[l], Polygon[{Pi/5, 0} + {-1, 1} # & ...


2

Are you sure NIntegrate won't work? ρ[θ_?NumericQ,ϕ_?NumericQ] := sol[θ,ϕ] SphericalPlot3D[ρ[θ,ϕ], {θ, 0, π}, {ϕ, 0, 2 π}] NIntegrate[ρ[θ,ϕ]^3/3 Sin[θ], {θ, 0, π}, {ϕ, 0, 2 π}] Assuming that sol[θ,ϕ] returns the value of your function.


2

DiscretizeGraphics already hands out a MeshRegion, so you could go along these lines: meshonly = With[{coords = MeshCoordinates[displot]}, MeshCells[displot, 1] (* 0: points, 1: lines, 2: faces ... *) /. Line[{a_, b_}] :> Line[{coords[[a]], coords[[b]]}]] Graphics3D@meshonly This will also work for your the more exotic shape you ...



Top 50 recent answers are included