Попробуйте позапускать следующий макрос. Нижний цилиндр поворачивается на 1 радиан, верхний чуть больше. /prep7 ex,1,1 nuxy,1,0.3 et,1,82 r=0.1 dr=0.02 k,1 k,2,r k,3,r+dr k,4,0,r k,5,0,r+dr k,6,-r k,7,-r-dr k,8,0,-r k,9,0,-r-dr LARC,2,4,1,r, !1 LARC,4,6,1,r, LARC,6,8,1,r, LARC,8,2,1,r, LARC,3,5,1,r+dr, !5 LARC,5,7,1,r+dr, LARC,7,9,1,r+dr, LARC,9,3,1,r+dr, lstr,2,3 !9 lstr,4,5 lstr,6,7 lstr,8,9 al,1,10,5,9 LESIZE,9,,,3,,,,,0 LESIZE,10,,,3,,,,,0 LESIZE,11,,,3,,,,,0 LESIZE,12,,,3,,,,,0 al,2,11,6,10 al,3,12,7,11 al,4,9,8,12 type,1 real,1 mat,1 MSHAPE,0,2D MSHKEY,1 elsize,0.01 AMAP,1,2,3,5,4 AMAP,2,5,4,7,6 AMAP,3,7,6,9,8 AMAP,4,9,8,3,2
ex,2,1 nuxy,2,0.3 et,2,82 r1=0.3 dr1=0.02 dy=-r-dr-r1-dr1 k,11,0,dy k,12,r1,dy k,13,r1+dr1,dy k,14,0,r1+dy k,15,0,r1+dr1+dy k,16,-r1,dy k,17,-r1-dr1,dy k,18,0,-r1+dy k,19,0,-r1-dr1+dy LARC,12,14,11,r1, !13 LARC,14,16,11,r1, LARC,16,18,11,r1, LARC,18,12,11,r1, LARC,13,15,11,r1+dr1, !17 LARC,15,17,11,r1+dr1, LARC,17,19,11,r1+dr1, LARC,19,13,11,r1+dr1, lstr,12,13 !21 lstr,14,15 lstr,16,17 lstr,18,19 LESIZE,21,,,3,,,,,0 LESIZE,22,,,3,,,,,0 LESIZE,23,,,3,,,,,0 LESIZE,24,,,3,,,,,0
num=12 al,num+1,num+10,num+5,num+9 al,num+2,num+11,num+6,num+10 al,num+3,num+12,num+7,num+11 al,num+4,num+9,num+8,num+12 type,2 real,2 mat,2 MSHAPE,0,2D MSHKEY,1 elsize,0.01 AMAP,5,12,13,15,14 AMAP,6,15,14,17,16 AMAP,7,17,16,19,18 AMAP,8,19,18,13,12 mat,3 ET,3,TARGE169 KEYOPT,3,2,1 type,3 R,3,r,0, real,3 tshap,circ n,100000, en,100000,100000 TSHAP,PILO En,100001,100000 et,4,CONTA172 KEYOPT,4,12,5 type,4 real,3 lsel,s,,,1,4 nsll,s,1 esurf allsel,all mat,5 ET,5,TARGE169 KEYOPT,5,2,1 type,5 R,5,r1,0, real,5 tshap,circ n,100010,0,dy en,100010,100010 TSHAP,PILO En,100011,100010 et,6,CONTA172 KEYOPT,6,12,5 type,6 real,5 lsel,s,,,num+1,num+4 nsll,s,1 esurf allsel,all
MU,7,0.8 mat,7 ET,7,TARGE169 type,7 real,7 r,7 RMODIF,7,13,0.0002 lsel,s,,,5,8 nsll,s,1 esurf et,8,CONTA172 KEYOPT,8,4,2 KEYOPT,8,10,5 KEYOPT,8,2,3 type,8 real,7 lsel,s,,,num+5,num+8 nsll,s,1 esurf allsel,all /solu CNVTOL,U,1,0.0001,2, deltim,0.1,0.1,0.1 time,1 nlgeom,on d,100000,ux d,100000,uy,-0.1*dr d,100000,rotz,0 d,100010,ux d,100010,uy,0.0 d,100010,rotz,0 solve deltim,0.005,0.005,0.005 time,2 d,100010,rotz,-1.0 DDELE,100000,ROTZ outres,all,all solve
|