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

*** empty log message ***

parent ba64d88e
No related branches found
No related tags found
No related merge requests found
/******************************
Square uniformly meshed
******************************/
lc = .49999;
Point(1) = {0.0,0.0,0,lc};
Point(2) = {1,0.0,0,lc};
Point(3) = {1,1,0,lc};
Point(4) = {0,1,0,lc};
Point(5) = {0,2,0,lc};
Line(1) = {3,2};
Line(2) = {2,1};
Line(3) = {1,4};
Line(4) = {4,3};
Line Loop(5) = {1,2,3,4};
Plane Surface(6) = {5};
Line(7) = {4,5};
......@@ -10,11 +10,3 @@ Line(4) = {1,4};
Line Loop(5) = {2,3,4,1};
Plane Surface(6) = {5};
Extrude Surface { 6, {0,0.0,1} };
Field[1] = Box;
Field[1].VIn = 0.01;
Field[1].VOut = 0.1;
Field[1].XMax = 0.3;
Field[1].YMax = 0.3;
Field[1].ZMax = 0.3;
Background Field = 1;
lc = 0.1;
Point(1) = {0.0,0.0,0.0,lc};
Point(2) = {1,0.0,0.0,lc};
Point(3) = {1,1,0.0,lc};
Point(4) = {0,1,0.0,lc};
Line(1) = {4,3};
Line(2) = {3,2};
Line(3) = {2,1};
Line(4) = {1,4};
Line Loop(5) = {2,3,4,1};
Plane Surface(6) = {5};
Extrude Surface { 6, {0,0.0,1} };
Field[1] = Box;
Field[1].VIn = 0.01;
Field[1].VOut = 0.1;
Field[1].XMax = 0.3;
Field[1].YMax = 0.3;
Field[1].ZMax = 0.3;
Background Field = 1;
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment