Skip to content
Snippets Groups Projects
Commit 88603d15 authored by Christophe Geuzaine's avatar Christophe Geuzaine
Browse files

*** empty log message ***

parent 567a3a60
Branches
Tags
No related merge requests found
/******************************
Square uniformly meshed
******************************/
lc = .1; lc = .1;
Point(1) = {0.0,0.0,0,lc}; Point(1) = {0.0,0.0,0,lc};
Point(2) = {1,0.0,0,lc}; Point(2) = {1,0.0,0,lc};
...@@ -32,8 +29,7 @@ Line(12) = {16,17}; ...@@ -32,8 +29,7 @@ Line(12) = {16,17};
Line(13) = {17,18}; Line(13) = {17,18};
Line(14) = {18,19}; Line(14) = {18,19};
Line(15) = {19,20}; Line(15) = {19,20};
// OK:
Attractor Line{7,8,9,10,11,12,13,14,15} = {.04,lc/30,lc,1000,7} ; r_min = 0.03;
// Argh: r_max = 0.06;
//Attractor Line{7,8,9,10,11,12,13,14,15} = {.2,0.002,10} ; Attractor Line{7,8,9,10,11,12,13,14,15} = {r_min,lc/30,lc,100,r_max/r_min};
//Mesh.Algorithm = 2;
...@@ -13,8 +13,12 @@ Line(4) = {4,3}; ...@@ -13,8 +13,12 @@ Line(4) = {4,3};
Line Loop(5) = {1,2,3,4}; Line Loop(5) = {1,2,3,4};
Plane Surface(6) = {5}; Plane Surface(6) = {5};
Line(5) = {3,1}; Line(5) = {3,1};
Attractor Line{5} = {1,0.01,3};
Attractor Line{1,3} = {1,0.01,3}; num_pts = 100;
Attractor Line{2} = {.1,0.1,3}; lc_min = 0.005;
Mesh.Algorithm = 2; lc_max = lc;
r_min = 0.01;
r_max = 0.5;
Attractor Line{5,1,3,2} = {r_min, lc_min, lc_max, num_pts, r_max / r_min};
...@@ -2,12 +2,9 @@ ...@@ -2,12 +2,9 @@
Point(1) = {0,0,0,1}; Point(1) = {0,0,0,1};
Point(2) = {0,10,0,1}; Point(2) = {0,10,0,1};
Line(1) = {2,1}; Line(1) = {2,1};
Extrude Line {1, {50.0,0.0,0.0}, {1,0,0}, {0,5,0}, 2*Pi}{Recombine;Layers{50,9000,1};}; Extrude Line {1, {50.0,0.0,0.0}, {1,0,0}, {0,5,0}, 2*Pi}{Recombine;Layers{50};};
// //
Point(1000) = {0,0,20,1}; Point(1000) = {0,0,20,1};
Point(2000) = {0,10,20,1}; Point(2000) = {0,10,20,1};
Line(1000) = {2000,1000}; Line(1000) = {2000,1000};
Extrude Line {1000, {50.0,0.0,0.0}, {1,0,0}, {0,5,20}, 2*Pi}; Extrude Line {1000, {50.0,0.0,0.0}, {1,0,0}, {0,5,20}, 2*Pi};
...@@ -6,14 +6,6 @@ ...@@ -6,14 +6,6 @@
* *
*********************************************************************/ *********************************************************************/
// The anisotropic 2D mesh generator can be selected with:
Mesh.Algorithm = 2 ;
// One can force a 4 step Laplacian smoothing of the mesh with:
Mesh.Smoothing = 4 ;
lc = .3; lc = .3;
Point(1) = {0.0,0.0,0,lc}; Point(1) = {0.0,0.0,0,lc};
...@@ -38,9 +30,10 @@ Line(5) = {11,22}; ...@@ -38,9 +30,10 @@ Line(5) = {11,22};
Spline(7) = {4,5,12,2}; Spline(7) = {4,5,12,2};
// Isotropic and anisotropic attractors can be defined on points and num_pts = 100;
// lines (this is still experimental and known to be unstable: use at lc_min = 0.005;
// your own risk!): lc_max = lc;
r_min = 0.01;
Attractor Line{7,5,3,2} = {0.01, 0.01, 10}; r_max = 0.5;
Attractor Line{7,5,3,2} = {r_min, lc_min, lc_max, num_pts, r_max / r_min};
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment