3
$\begingroup$

I'm new in Mathematica. I'm trying multiple methods to select both holes without success. Any help will be helpful. Thanks.

bmesh = ToBoundaryMesh[ImplicitRegion[
    x^2 + y^2 <= 1 && (x - 0.5)^2 + y^2 - 0.05 >= 
      0 && (x + 0.5)^2 + y^2 - 0.05 >= 0, {x, y}]];
bmesh["Wireframe"]

enter image description here

mesh = ToElementMesh[bmesh]["Wireframe"]

enter image description here

mesh1 = ToElementMesh[bmesh, "RegionHoles" -> {{-0.5, 0.}}, 
 "RegionMarker" -> {{{0.5, 0.}, 0, 0.0001}}]
mesh1["Wireframe"]

enter image description here

Improve this question
$\endgroup$
1
  • 2
    $\begingroup$ Please post the code about bmesh. $\endgroup$
    – cvgmt
    Commented Jul 14, 2021 at 5:13

1 Answer 1

Reset to default
3
$\begingroup$

Try:

ToElementMesh[bmesh, "RegionHoles" -> None, 
"RegionMarker" -> {{{0.5, 0.}, 0, 0.0001}, {{-0.5, 0.}, 1, 
 0.1}}]["Wireframe"]

or

ToElementMesh[bmesh, "RegionHoles" -> None]
Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.