[Gmsh] RE Generating geometry with a function in Gmsh

[jean pierre aubry]

what about this

cl0=0.1;
D=5;
s0=-1;
L=50;
x0=0;



Function S
        S=D/2*(1-s0*(1+Cos(2*Pi*(x-x0)/L)));
        z=S;
Return

step=10;
lstep=L/2/step;

For i In {0:step}
        x=i*lstep;
        Call S;
        Point(100+i) = {x, 0, z, cl0};
EndFor

For i In {0:step-1}
        Line(100+i) = {100+i, 100+i+1};
EndFor


Extrude {{1, 0, 0}, {0, 0, 0}, Pi/2} {
  Line{100:109};
}

as a skeleton


-- 
jean pierre aubry
33 688 670 795
jeanpierre [at] lamachine.fr

_______________________________________________
gmsh mailing list
gmsh@geuz.org
http://www.geuz.org/mailman/listinfo/gmsh