茶的起源

本来例子很简单的，是个圆管焊接构件，给大家分享一下吧 为了提高大家的热情，以两分为限：） /prep7 n,1,0.225 n,28,0.275,27 fill,1,28 n,55,0.225,54 fill,28,55 n,56,-0.225 n,83,-0.275,27 fill,56,83 n,110,-0.225,54 fill,83,110 n,111,0,0,0.7 n,138,0,27,0.7 fill,111,138 n,165,0,54,0.7 fill,138,165 et,1,beam44 r,1,0.0022,3.5942E-6,3.5942E-6,0.0605,0.0605,7.1883E-6 rmodif,1,21,0.0605,0.0605 rmodif,1,25,0.0022,0.0022,,,8.4186E+3 r,2,4.0134E-4,6.7467E-8,6.7467E-8,0.02,0.02,1.3493E-7 rmodif,2,21,0.02,0.02 rmodif,2,25,4.0134E-4,4.0134E-4,,,1.4826E+5 r,3,2.6571E-4,2.428E-8,2.428E-8,0.015,0.015,4.856E-8 rmodif,3,21,0.015,0.015 rmodif,3,25,2.6571E-4,2.6571E-4,,,3.0897E+5 UIMP,1,EX, , ,210000e6, UIMP,1,DENS, , ,7842, type,1 mat,1 real,1 *do,i,1,54 e,i,i+1 e,i+55,i+56 e,i+110,i+111 *enddo type,1 mat,1 real,2 *do,i,111,164 e,i,i-109 e,i,i-54 *enddo type,1 mat,1 real,3 *do,i,1,54 e,i,i+55 e,i+55,i+110 e,i+110,i *enddo /solu *do,i,1,55,6 f,i,fz,-1470 f,i+55,fz,-1470 *enddo d,129,uz,0 d,147,uz,0 solve /eshape,1 gplot /post1 plnsol,s,eqv