I am trying to generate 1D mesh points on x axis, shown below:
Needs["NDSolve`FEM`"]
eC = 100(*Element Count*);
xMesh = ToGradedMesh[{{Line[{{0}, {3}}], <|"Alignment" -> "Right",
"ElementCount" -> eC|>}, {Line[{{3}, {4}}], <|
"Alignment" -> "Left",
"ElementCount" -> eC|>}, {Line[{{4}, {5}}], <|
"Alignment" -> "Right", "ElementCount" -> eC,
"GradingRatio" -> 1.2|>}, {Line[{{5}, {7}}], <|
"Alignment" -> "Left", "ElementCount" -> eC,
"GradingRatio" -> 1.2|>}}];
MeshRegion[xMesh]
The code worked fine when my element count eC is 10. However, when I try to increase the element count eC to 100, the following error arises:
For more context, I want the mesh points to concentrate in certain regions (x=3, and x=5). Therefore, I used GradingRatio to tune the non-uniformity of their distributions. I realized that the error above also tends to occur when the GradingRatio value increases.
