Hi Gabriel,
I am not sure that it is what you want, but there is a problem with the x and z components of the translation, and here
is a working version of your .geo file.
There also was an inversion between the inner and the outer circle.
Regards,
Dave
--
David Colignon, Ph.D.
Collaborateur Logistique du F.R.S.-FNRS
CÉCI - Consortium des Équipements de Calcul Intensif
ACE - Applied & Computational Electromagnetics
Sart-Tilman B28
Université de Liège
4000 Liège - BELGIQUE
Tél: +32 (0)4 366 37 32
Fax: +32 (0)4 366 29 10
WWW: http://hpc.montefiore.ulg.ac.be/
Agenda: http://www.google.com/calendar/embed?src=david.colignon%40gmail.com
On 01/06/10 18:17, Gabriel Beu Nogueira de Macedo wrote:
Hi all,
I got a problem when I tried to make a coil using extrusion and rotation
of a axisymmetric 2D drawing. In this situation, the coil increases in
each cycle. But the new top surface (that is created right) doesn't
match with the rotated curves. I hope someone can help me.
* The .geo file is attached
** The y-axis view is the best to see what happened.
Thanks
Gabriel Macedo.
_______________________________________________
gmsh mailing list
[email protected]
http://www.geuz.org/mailman/listinfo/gmsh
s1=0.3;
Cx= 10;Cy= 0;
R1=1;R2=2;
Point (1) = { Cx, Cy, 0.,s1};
Point (2) = { Cx + R1, Cy, 0.,s1};
Point (3) = { Cx, Cy + R1, 0.,s1};
Point (4) = { Cx - R1, Cy, 0.,s1};
Point (5) = { Cx, Cy - R1, 0.,s1};
Point (6) = { Cx + R2, Cy, 0.,s1};
Point (7) = { Cx, Cy + R2, 0.,s1};
Point (8) = { Cx - R2, Cy, 0.,s1};
Point (9) = { Cx, Cy - R2, 0.,s1};
Circle(1) = {2,1,3};
Circle(2) = {3,1,4};
Circle(3) = {4,1,5};
Circle(4) = {5,1,2};
Circle(5) = {6,1,7};
Circle(6) = {7,1,8};
Circle(7) = {8,1,9};
Circle(8) = {9,1,6};
Line Loop(10) = {1,2,3,4}; //int circ
Line Loop(20) = {5,6,7,8}; //ext circ
Plane Surface(30) = {10};
Plane Surface(40) = {20,10};
ext1[] = Extrude {{0,1.5,0}, {0,1,0}, {0,0,0}, Pi/2} {
Surface{30,40};
Layers{10}; Recombine;
};
ext2[] = Extrude {{0,1.5,0}, {0,1,0}, {0,0,0}, Pi/2} {
Surface{ext1[0],ext1[6]};
Layers{10}; Recombine;
};
ext3[] = Extrude {{0,1.5,0}, {0,1,0}, {0,0,0}, Pi/2} {
Surface{ext2[0],ext2[6]};
Layers{10}; Recombine;
};
ext4[] = Extrude {{0,1.5,0}, {0,1,0}, {0,0,0}, Pi/2} {
Surface{ext3[0],ext3[6]};
Layers{10}; Recombine;
};
_______________________________________________
gmsh mailing list
[email protected]
http://www.geuz.org/mailman/listinfo/gmsh
