7
It looks like you have introduced non-manifold geometry into your model. I explain non-manifold in more detail in my answer here. Even full-featured CAD packages will fail to create non-manifold geometry, as shown here:
We can try an approach using FEMAddOns as shown below. The FEM mesher will tend to create watertight and isotropic meshes.
(*Uncommented ...
3
This is an extended comment rather than an answer.
DiscretizeRegion understands how to mesh 2D objects embedded in 3D to some degree as can be shown by the following:
reg = MeshRegion[{{0, 1, 0}, {1, 0, 0}, {1, 1, 0}, {1, 0, 1}},
Polygon[{{1, 2, 3}, {2, 3, 4}}]];
HighlightMesh[DiscretizeRegion[reg, MaxCellMeasure -> {"Area" -> #}],
1] ...
3
Add the options MeshFunctions {# &, #2 &, #3 &} and Mesh -> 10 when you create surfacegraph:
surfacegraph = ParametricPlot3D[sur[r, phi] + gauss[r*Sin[phi], r*Cos[phi]],
{r, 0, 1}, {phi, 0, Pi},
MeshFunctions -> {# &, #2 &, #3 &}, Mesh -> 10];
Show[handle, surfacegraph, boundary,
PlotRange -> {{-0.5, 2}, {-0.6, ...
1
I just learnt from this post (Possible Bug in DiscretizeRegion with Option MaxCellMeasure) that this might be a bug in Mathematica.
Using one of the solutions recommended here, I applied DiscretizeRegion with the MaxCellMeasure option to the meshed object produced by DiscretizeGraphics:
mr = DiscretizeGraphics[g];
DiscretizeRegion[mr, MaxCellMeasure -> {&...
Only top voted, non community-wiki answers of a minimum length are eligible
Related Tags
mesh × 588finite-element-method × 179
computational-geometry × 121
regions × 116
plotting × 106
graphics3d × 65
graphics × 56
differential-equations × 52
color × 21
bugs × 20
geometry × 19
interpolation × 16
graphs-and-networks × 15
discretization × 15
style × 12
list-manipulation × 11
performance-tuning × 11
lattices × 11
export × 10
polygons × 10
import × 9
visualization × 9
numerical-integration × 8
image-processing × 8
parametric-functions × 8