D = 10.0*0.0999308;
f2d = 0.72;
f = D*f2d;
h = 0.05;
parabolLowerEdgeHeight = -D/2;
parabolPoints = 101;
delta = D/(parabolPoints-1);
For i In {0:parabolPoints-1}
x = (i*delta)+parabolLowerEdgeHeight;
z = (x*x)/(4.0*f);
pList[i] = newp;
Point(pList[i]) = {x, 0, z, h};
EndFor
Line (newl) = pList[];
line1[] = Extrude {{0, 0, 1}, {0, 0, 0}, Pi/2} {Line{pList[]};};
line2[] = Extrude {{0, 0, 1}, {0, 0, 0}, Pi/2} {Line{line1[]};};
I am stuck here. I looking forward to get a physical surface for
discretization.
Regards,
Rao.
_______________________________________________
gmsh mailing list
[email protected]
http://onelab.info/mailman/listinfo/gmsh
