Skip to main content

mesh - Is there a way to make MaxCellMeasure and MaxBoundaryCellMeasure comparable?



I'm trying to learn a little about meshes used for FEA and such.


It seems like a good strategy if you are creating a mesh for a region is to use a finer mesh near features than the mesh used over most of the region, because then you can get higher accuracy near these features without having to do a ton of unnecessary calculations.


So I've created this test structure:


Needs["NDSolve`FEM`"];
myrect = Rectangle[{0, 0}, {5, 8}];
mydisk = Disk[{2, 4}, 1];
rectcirc = RegionDifference[myrect, mydisk];

And I'm trying to make a comparison of the cell size and the number of mesh elements, to illustrate that with a relatively small increase in the number of (boundary) elements, you can get a much more accurate picture. However, I'm running into trouble comparing them.


For example, here's one mesh:



rmesh = NDSolve`FEM`ToElementMesh[rectcirc, 
  MaxCellMeasure -> {"Length" -> .5}]
rmesh["Wireframe"]

enter image description here


So that just limits the length of the maximum side of a cell to .5, and creates 1061 elements.


If I instead do:


rmesh2 = NDSolve`FEM`ToElementMesh[rectcirc, 
  MaxCellMeasure -> {"Length" -> .5}, "MaxBoundaryCellMeasure" -> .1]
rmesh2["Wireframe"]


enter image description here


Which has 2008 elements, and is obviously finer around the boundaries. The documentation for MaxBoundaryCellMeasure is actually a little unclear in my opinion, because the default syntax for MaxCellMeasure (that is, doing MaxCellMeasure->someVal) is to set the max area of a cell (I set it instead by the Length parameter), but it appears that the default of MaxBoundaryCellMeasure is to set the max length of the boundary cells, as far as I can tell, though it actually doesn't say.


Now, I want to compare this last mesh with one where all the cells are the size of the boundary ones in that last one, to basically show how many more cells you'd need to have all the cells be that size. So I do:


rmesh3 = NDSolve`FEM`ToElementMesh[rectcirc, 
  MaxCellMeasure -> {"Length" -> .1}]
rmesh3["Wireframe"]

enter image description here


Which has ~27,000 points. However, this is obviously a lot denser than the previous one. You can see this even more if you zoom in (top one is rmesh2, bottom is rmesh3):



enter image description here


So it seems like rmesh3 is making the cells a lot smaller than I really asked for. What am I missing, why aren't rmesh3's cells roughly the same size as the boundary ones of rmesh2?


Edit: Okay, I think I know the reason now. Because rmesh3 has a smaller interior mesh upper limit, it constrains the boundary mesh size, so even though those boundary elements can be as big as the ones for rmesh2 (which is shown by measuring the Max of rmesh2 and rmesh3 as @user21 did), on average they aren't as big:


Mean@BoundaryEdgeLength@rmesh2
Mean@BoundaryEdgeLength@rmesh3
0.0867
0.0564

This makes sense. But what doesn't make sense to me is, if we define the MaxBoundaryCellMeasure for each before passing it to ToElementMesh, shouldn't they then have the same average boundary cell size (because, at the time of the creation of their boundary meshes, ToBoundaryMesh had no information that it was going to be passed to a ToElementMesh with one value of MaxCellMeasure or another)?


For example:



rmesh2 = NDSolve`FEM`ToElementMesh[
   NDSolve`FEM`ToBoundaryMesh[rectcirc, 
    "MaxBoundaryCellMeasure" -> .1], 
   MaxCellMeasure -> {"Length" -> .5}];
rmesh2["Wireframe"]
rmesh3 = NDSolve`FEM`ToElementMesh[
   NDSolve`FEM`ToBoundaryMesh[rectcirc, 
    "MaxBoundaryCellMeasure" -> .1], 
   MaxCellMeasure -> {"Length" -> .1}];
rmesh3["Wireframe"]


However, you can tell by looking at them and from this, that nothing has changed:


Mean@BoundaryEdgeLength@rmesh2
Mean@BoundaryEdgeLength@rmesh3
0.0867
0.0564

So that implies that ToElementMesh is reworking the boundary mesh somehow, right? That would be strange if that's the case...




Comments

Post a Comment

Popular posts from this blog

plotting - Filling between two spheres in SphericalPlot3D

Manipulate[ SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, Mesh -> None, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], {n, 0, 1}] I cant' seem to be able to make a filling between two spheres. I've already tried the obvious Filling -> {1 -> {2}} but Mathematica doesn't seem to like that option. Is there any easy way around this or ... Answer There is no built-in filling in SphericalPlot3D . One option is to use ParametricPlot3D to draw the surfaces between the two shells: Manipulate[ Show[SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], ParametricPlot3D[{ r {Sin[t] Cos[1.5 Pi], Sin[t] Sin[1.5 Pi], Cos[t]}, r {Sin[t] Cos[0 Pi], Sin[t] Sin[0 Pi], Cos[t]}}, {r, 1, 2 - n}, {t, 0, Pi}, PlotStyle -> Yellow, Mesh -> {2, 15}]], {n, 0, 1}]
Post a Comment
Read more

plotting - Plot 4D data with color as 4th dimension

I have a list of 4D data (x position, y position, amplitude, wavelength). I want to plot x, y, and amplitude on a 3D plot and have the color of the points correspond to the wavelength. I have seen many examples using functions to define color but my wavelength cannot be expressed by an analytic function. Is there a simple way to do this? Answer Here a another possible way to visualize 4D data: data = Flatten[Table[{x, y, x^2 + y^2, Sin[x - y]}, {x, -Pi, Pi,Pi/10}, {y,-Pi,Pi, Pi/10}], 1]; You can use the function Point along with VertexColors . Now the points are places using the first three elements and the color is determined by the fourth. In this case I used Hue, but you can use whatever you prefer. Graphics3D[ Point[data[[All, 1 ;; 3]], VertexColors -> Hue /@ data[[All, 4]]], Axes -> True, BoxRatios -> {1, 1, 1/GoldenRatio}]
Post a Comment
Read more

plotting - Adding a thick curve to a regionplot

Suppose we have the following simple RegionPlot: f[x_] := 1 - x^2 g[x_] := 1 - 0.5 x^2 RegionPlot[{y < f[x], f[x] < y < g[x], y > g[x]}, {x, 0, 2}, {y, 0, 2}] Now I'm trying to change the curve defined by $y=g[x]$ into a thick black curve, while leaving all other boundaries in the plot unchanged. I've tried adding the region $y=g[x]$ and playing with the plotstyle, which didn't work, and I've tried BoundaryStyle, which changed all the boundaries in the plot. Now I'm kinda out of ideas... Any help would be appreciated! Answer With f[x_] := 1 - x^2 g[x_] := 1 - 0.5 x^2 You can use Epilog to add the thick line: RegionPlot[{y < f[x], f[x] < y < g[x], y > g[x]}, {x, 0, 2}, {y, 0, 2}, PlotPoints -> 50, Epilog -> (Plot[g[x], {x, 0, 2}, PlotStyle -> {Black, Thick}][[1]]), PlotStyle -> {Directive[Yellow, Opacity[0.4]], Directive[Pink, Opacity[0.4]],
Post a Comment
Read more