12.07.2015 Views

Download full text - European Laboratory for Structural Assessment

Download full text - European Laboratory for Structural Assessment

Download full text - European Laboratory for Structural Assessment

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Numerical SolutionsTOWE02The mesh generation file (K2000):*%siz 50*opti echo 1;*opti trac psc ftra 'towe02_mesh.ps';*opti titr 'TOWE - 02';opti dime 3;*ncir=10;nlon=20;*p11=47.90 0.0 0.0;p12=34.43 0.0 123.90;p13=28. 0.0 50.;p21=0.0 47.90 0.0;*opti elem seg2;line1 = para nlon p11 p13 p12;opti donn 5;*p4=0.0 0.0 0.0;p5=0.0 0.0 123.90;*opti elem tri3;surf1= line1 ncir ROTA 90. p4 p5;*oeilz=0.0 0.0 1000.0;oeilx=1000.0 0.0 0.0;oeily=0.0 1000.0 0.0;*p21=0.0 47.90 0.0;p22=0.0 34.43 123.90;p23=0.0 28.0 50.0;*opti elem seg2;line2 = para nlon p21 p23 p22;*opti elem tri3;surf2= line2 ncir ROTA 90. p4 p5;*p31=-47.90 0.0 0.0;p32=-34.43 0.0 123.90;p33=-28. 0.0 50.;opti elem seg2;line3 = para nlon p31 p33 p32;*surf=surf1 et surf2;tol = 0.0001;elim tol surf;**opti elem seg2;*bloc1 = cerc ncir p11 p4 p21;bloc2 =cerc ncir p21 p4 p31;bloc = bloc1 et bloc2;**mesh=surf et bloc et line3;elim tol mesh;*opti sauv <strong>for</strong>m 'towe02.msh';sauv <strong>for</strong>m mesh;*opti trac psc;trac cach mesh;fin;The EUROPLEXUS input file is:TOWE - 02$ECHO!CONV win383 of 556

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!