[Gmsh] Parabola

[Raavi M. Mohindar Rao]

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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://onelab.info/pipermail/gmsh/attachments/20180404/4e5ddce4/attachment.html>