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

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

1 Answer 1

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]
$\endgroup$

Your Answer

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

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