<div dir="ltr">Hello,<div><br></div><div>you can try Bezier curve :</div><div><br></div><div><div>Lc = 0.025;</div><div>R = 0.5;</div><div>H = 0.1;</div><div><br></div><div>Point (1) = {0, 0, 0, Lc};</div><div>Point (2) = {R, 0, H, Lc};</div><div>Point (3) = {R/2, 0, 0};</div><div><br></div><div>Bezier (1) = {1,3,2,2};</div><div><br></div><div>Extrude {{0, 0, 1}, {0, 0, 0}, Pi/2} {</div><div>  Line{1}; </div><div>}</div></div><div><br></div><div>Regards,</div><div><br></div><div>Michel Cassagnes</div></div><div class="gmail_extra"><br><div class="gmail_quote">2018-04-04 22:59 GMT+02:00 Raavi M. Mohindar Rao <span dir="ltr"><<a href="mailto:raavi.mohindar.rao@gmail.com" target="_blank">raavi.mohindar.rao@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><div><div>D = 10.0*0.0999308;<br>f2d = 0.72;<br>f = D*f2d;<br><br>h = 0.05;<br><br>parabolLowerEdgeHeight = -D/2;<br>parabolPoints = 101;<br>delta = D/(parabolPoints-1);<br><br>For i In {0:parabolPoints-1}<br><br>    x = (i*delta)+<wbr>parabolLowerEdgeHeight;<br>    z = (x*x)/(4.0*f);<br>    pList[i] = newp;<br>    Point(pList[i]) = {x, 0, z, h};<br><br>EndFor<br><br>Line (newl) = pList[];<br><br>line1[] = Extrude {{0, 0, 1}, {0, 0, 0}, Pi/2} {Line{pList[]};};<br><br>line2[] = Extrude {{0, 0, 1}, {0, 0, 0}, Pi/2} {Line{line1[]};};<br><br><br></div>I am stuck here. I looking forward to get a physical surface for discretization. <br><br></div>Regards,<br><br></div>Rao.<br></div>
<br>______________________________<wbr>_________________<br>
gmsh mailing list<br>
<a href="mailto:gmsh@onelab.info">gmsh@onelab.info</a><br>
<a href="http://onelab.info/mailman/listinfo/gmsh" rel="noreferrer" target="_blank">http://onelab.info/mailman/<wbr>listinfo/gmsh</a><br>
<br></blockquote></div><br></div>