problem with mesh
Hi,
I have tried making a paraboloid using the parametric equation. When the meshing is done, a surface appears that I don't know why, I attach the image and the code, will there be any way to make a continuous meshing?
SetFactory("OpenCASCADE");
a = 5;
d = 1;
h = 0.1;
For j In {0:10}
i=j/6;
d=0;
x = 2*a*i+d*i/Sqrt(1+i^2);
z = a*i^2-d/Sqrt(1+i^2);
pList[j] = newp;
Point(pList[j]) = {x, 0, z, h};
EndFor
Spline(1) = pList[];
For j In {0:10}
i=j/6;
d=2;
x = 2*a*i+d*i/Sqrt(1+i^2);
z = a*i^2-d/Sqrt(1+i^2);
pList3[j] = newp;
Point(pList3[j]) = {x, 0, z, h};
EndFor
Spline(2) = pList3[];
Line(3) = {1, 12};
Line(4) = {11, 22};
Curve Loop(1) = {1, 4, -2, -3};
Plane Surface(1) = {1};
Extrude { {0,0,1}, {0,0,0}, 2*Pi}{ Surface{1};}
// Physical Volume(1) = {1};
Mesh.Algorithm3D=7;
Mesh.MeshSizeMin = 0.5;
Mesh.MeshSizeMax = 0.5;
Coherence Mesh;`
thanks
Edited by Christophe Geuzaine