Skip to main content
13 events
when toggle format what by license comment
Aug 19 at 8:48 comment added Ulrich Neumann @cvgmt Thanks for your helpful comment.
Aug 19 at 4:17 history edited user21 CC BY-SA 4.0
added 93 characters in body
Aug 18 at 23:11 comment added azerbajdzan @cvgmt That worked nicely :-)
Aug 18 at 23:10 comment added cvgmt @azerbajdzan Set AccuracyGoal in the DiscretizeRegion. Clear[ru, mesh]; ru = RegionUnion[ DiscretizeRegion[RegionBoundary[Rectangle[{0, 0}, {1, 1}]], MaxCellMeasure -> \[Infinity]], DiscretizeRegion[Circle[{1/2, 1/2}, 1/4, {0, \[Pi]}], MaxCellMeasure -> \[Infinity], AccuracyGoal -> 3]]; mesh = ToElementMesh[ru]; Show[mesh["Wireframe"], Epilog -> {Red, PointSize[.02]}] .
Aug 18 at 23:06 comment added azerbajdzan @cvgmt Yes that worked but I got the same image as user21, AccuracyGoal had no effect.
Aug 18 at 23:03 comment added cvgmt @azerbajdzan @UlrichNeumann Discretize the region before union. Clear[ru, mesh]; ru = RegionUnion[ DiscretizeRegion@RegionBoundary[Rectangle[{0, 0}, {1, 1}]], DiscretizeRegion@Circle[{1/2, 1/2}, 1/4, {0, \[Pi]}]]; mesh = ToElementMesh[ru, AccuracyGoal -> 2]; Show[mesh["Wireframe"], Epilog -> {Red, PointSize[.02], Circle[{1/2, 1/2}, 1/4, {0, \[Pi]}]}]
Aug 18 at 22:51 comment added azerbajdzan @cvgmt I found out that the code does not work on my version 13.0.1. Not even original code of user21.
Aug 18 at 22:47 comment added cvgmt @azerbajdzan Set AccuracyGoal. ToElementMesh[DiscretizeRegion[ru, AccuracyGoal -> 3]]
Aug 18 at 22:28 comment added azerbajdzan Why are meshes around half circle smaller? And even from both sides.
Aug 18 at 15:50 comment added David Keith This answer is better than mine. Thanks @user21.
Aug 18 at 14:44 comment added Ulrich Neumann How could I make your answer work in Mathematica v12.2? Thanks!
Aug 18 at 13:20 comment added Ulrich Neumann Thanks for your very helpful answer!
Aug 18 at 13:12 history answered user21 CC BY-SA 4.0