www.pudn.com > 87361026FEA.rar > afm.geo, change:2006-02-28,size:6890b


/* Converted from AutoCad DXF file: afm.dxf */
/* Tolerance 0.001: 16 points / 23 curves */

u = 1; 
lc = 1 ;
H = 3;

Point (1) = {80.9174 *u, 38.0505 *u, 0 *u, lc} ;
Point (2) = {80.9174 *u, 58.0505 *u, 0 *u, lc} ;
Point (3) = {80.9174 *u, 138.05 *u, 0 *u, lc} ;
Point (4) = {80.9174 *u, 158.05 *u, 0 *u, lc} ;
Point (5) = {89.8829 *u, 58.0505 *u, 0 *u, lc} ;
Point (6) = {89.8829 *u, 138.05 *u, 0 *u, lc} ;
Point (7) = {95.5894 *u, 44.5964 *u, 0 *u, lc} ;
Point (8) = {95.5894 *u, 151.505 *u, 0 *u, lc} ;
Point (9) = {157.124 *u, 88.0505 *u, 0 *u, lc} ;
Point (10) = {157.124 *u, 108.05 *u, 0 *u, lc} ;
Point (11) = {163.423 *u, 74.8607 *u, 0 *u, lc} ;
Point (12) = {163.423 *u, 121.24 *u, 0 *u, lc} ;
Point (13) = {204.917 *u, 96.0505 *u, 0 *u, lc} ;
Point (14) = {204.917 *u, 100.05 *u, 0 *u, lc} ;
Point (15) = {210.917 *u, 96.0505 *u, 0 *u, lc} ;
Point (16) = {210.917 *u, 100.05 *u, 0 *u, lc} ;

/* mesh parameters */
nH=4;
nu=5;
nv1=4;
nv2=12;
nv3=12;
nm=4;

/* lower foot */
Line(1) = {1,7};
Line(2) = {7,5};
Line(3) = {5,2};
Line(4) = {2,1};
Line Loop(5) = {4,1,2,3};
Plane Surface(6) = {5};
Extrude Surface {6, {0,0,H}};
Transfinite Line{1,3,9,11}=nv1;
Transfinite Line{2,10,4,8}=nu;
Transfinite Line{22,13,14,18}=nH;
Transfinite Surface{6}={1,7,5,2};
Transfinite Surface{28}={18,22,26,17};
Transfinite Surface{19}={1,7,22,18};
Transfinite Surface{27}={2,5,26,17};
Transfinite Surface{23}={7,5,26,22};
Transfinite Surface{15}={1,2,17,18};
Recombine Surface{6,28,19,27,23,15};
Surface Loop(29) = {6,15,19,23,27,28};
Volume(30) = {29};
Transfinite Volume{30}={1,7,5,2,18,22,26,17};

/* upper foot */
Line(100000) = {3,6};
Line(100001) = {6,8};
Line(100002) = {8,4};
Line(100003) = {4,3};
Line Loop(100004) = {100001,100002,100003,100000};
Ruled Surface(100005) = {100004};
Extrude Surface {100005, {0,0,H}};
Transfinite Line{100000,100010,100002,100008}=nv1;
Transfinite Line{100001,100003,100009,100007}=nu;
Transfinite Line{100021,100012,100013,100017}=nH;
Transfinite Surface{100005}={3,6,8,4};
Transfinite Surface{100027}={36,27,28,32};
Transfinite Surface{100026}={3,6,27,36};
Transfinite Surface{100018}={4,8,28,32};
Transfinite Surface{100014}={6,8,28,27};
Transfinite Surface{100022}={3,4,32,36};
Recombine Surface{100005,100026,100027,100022,100014,100018};
Surface Loop(100028) = {100005,100014,100018,100022,100026,100027};
Volume(100029) = {100028};
Transfinite Volume{100029}={3,6,8,4,36,27,28,32};

/* lower leg */
Line(100030) = {7,11};
Line(100031) = {11,9};
Line(100032) = {9,5};
Line Loop(100033) = {-100032,-100031,-100030,2};
Ruled Surface(100034) = {100033};
Extrude Surface {100034, {0,0,H}};
Transfinite Line{100030,100032,100036,100038}=nv2;
Transfinite Line{100031,100037}=nu;
Transfinite Line{100046,100042}=nH;
Transfinite Surface{100034}={7,11,9,5};
Transfinite Surface{100056}={22,42,38,26};
Transfinite Surface{100051}={7,11,42,22};
Transfinite Surface{100043}={5,9,38,26};
Transfinite Surface{100047}={11,9,38,42};
Surface Loop(100057) = {23,100034,100043,100047,100051,100056};
Volume(100058) = {100057};
Transfinite Volume{100058} = {7,11,9,5,22,42,38,26};
Recombine Surface{100034,100056,100051,100043,100047};

/* bottom merge */
Line(100059) = {11,15};
Line(100060) = {15,13};
Line(100061) = {13,9};
Line Loop(100062) = {-100061,-100060,-100059,100031};
Ruled Surface(100063) = {100062};
Extrude Surface {100063, {0,0,H}};
Transfinite Line{100059,100061,100065,100067}=nv3;
Transfinite Line{100060,100066}=nu;
Transfinite Line{100075,100071}=nH;
Transfinite Surface{100063}={11,15,13,9};
Transfinite Surface{100085}={42,48,44,38};
Transfinite Surface{100080}={11,15,48,42};
Transfinite Surface{100072}={9,13,44,38};
Transfinite Surface{100076}={15,13,44,48};
Surface Loop(100086) = {100047,100063,100072,100076,100080,100085};
Volume(100087) = {100086};
Transfinite Volume{100087}={11,15,13,9,42,48,44,38};
Recombine Surface{100063,100085,100080,100072,100076};

/* tip area */
Line(100088) = {13,14};
Line(100089) = {14,16};
Line(100090) = {16,15};
Line Loop(100091) = {100088,100089,100090,100060};
Ruled Surface(100092) = {100091};
Extrude Surface {100092, {0,0,H}};
Transfinite Line{100095,100089}=nu;
Transfinite Line{100088,100094,100096,100090}=nm;
Transfinite Line{100100,100104}=nH;
Transfinite Surface{100092}={13,15,16,14};
Transfinite Surface{100114}={44,48,54,50};
Transfinite Surface{100105}={16,14,50,54};
Transfinite Surface{100101}={13,14,50,44};
Transfinite Surface{100109}={15,16,54,48};
Surface Loop(100115) = {100076,100092,100101,100105,100109,100114};
Volume(100116) = {100115};
Transfinite Volume{100116}={13,15,16,14,44,48,54,50};
Recombine Surface{100092,100114,100105,100101,100109};

/* wedge */
Line(100117) = {9,10};
Line(100118) = {10,14};
Line Loop(100119) = {-100118,-100117,-100061,100088};
Ruled Surface(100120) = {100119};
Extrude Surface {100120, {0,0,H}};
Transfinite Line{100117,100123}=nm;
Transfinite Line{100118,100122}=nv3;
Transfinite Line{100128}=nH;
Transfinite Surface{100120}={9,13,14,10};
Transfinite Surface{100142}={38,44,50,56};
Transfinite Surface{100133}={9,10,56,38};
Transfinite Surface{100129}={10,14,50,56};
Surface Loop(100143) = {100101,100120,100129,100133,100072,100142};
Volume(100144) = {100143};
Transfinite Volume{100144}={9,13,14,10,38,44,50,56};
Recombine Surface{100120,100142,100133,100129}; 

/* top leg */
Line(100145) = {8,12};
Line(100146) = {12,10};
Line(100147) = {10,6};
Line Loop(100148) = {100145,100146,100147,100001};
Ruled Surface(100149) = {100148};
Extrude Surface {100149, {0,0,H}};
Transfinite Line{100153,100145,100147,100151}=nv2;
Transfinite Line{100152,100146}=nu;
Transfinite Line{100157}=nH;
Transfinite Surface{100149}={8,12,10,6};
Transfinite Surface{100171}={28,58,56,27};
Transfinite Surface{100166}={6,10,56,27};
Transfinite Surface{100158}={8,12,58,28};
Transfinite Surface{100162}={10,12,58,56};
Surface Loop(100172) = {100014,100149,100158,100162,100166,100171};
Volume(100173) = {100172};
Transfinite Volume{100173}={8,12,10,6,28,58,56,27};
Recombine Surface{100171,100149,100166,100158,100162};

/* top merge */
Line(100174) = {12,16};
Line Loop(100175) = {100118,100089,-100174,100146};
Ruled Surface(100176) = {100175};
Extrude Surface {100176, {0.0,0.0,0.0}};
Extrude Surface {100176, {0,0,H}};
Transfinite Line{100174,100180}=nv3;
Transfinite Surface{100176}={12,16,14,10};
Transfinite Surface{100198}={58,54,50,56};
Transfinite Surface{100193}={12,16,54,58};
Surface Loop(100199) = {100105,100176,100129,100162,100198,100193};
Volume(100200) = {100199};
Transfinite Volume{100200}={12,16,14,10,58,54,50,56};
Recombine Surface{100176,100198,100193};

/* DOMAIN */
Physical Volume(50) = {100200,100173,100144,100116,100087,100058,100029,30};
/* FIXED SURFACES */
Physical Surface(51) = {15,100022};
/* BOTTOM SURFACE */
Physical Surface(52) = {6,100034,100063,100120,100176,100092,100149,100005};
/* TIP */
Physical Surface(53) = {100092};