声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1172|回复: 1

[前后处理] 怎样取出圆柱壳的变形后的径向最大变形

[复制链接]
发表于 2010-6-21 11:54 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
各位高手,请问一个多层圆柱壳,
怎样取出各层的变形后的径向最大变形?使用什么命令

模型如下:
/units,si
T1=0.056
T2=0.284
layer=3
R=0.678-0.5*T1
L=12*(R+3*T1+2*T2)
d=0.5*(R+3*T1+2*T2)
opint=1500000


/prep7
et,1,mesh200
et,2,solid95

keyopt,1,1,6
keyopt,1,2,0

MP,EX,1,2.1e9
MP,PRXY,1,0.3
MP,EX,2,0.7e9
MP,PRXY,2,0.3

cyl4,0,0,R   
cyl4,0,0,R+T1
cyl4,0,0,R+T1+T2
cyl4,0,0,R+2*T1+T2
cyl4,0,0,R+2*T1+2*T2
cyl4,0,0,R+3*T1+2*T2
APTN,all
adele,1

LSTR,      23,       3  
LSTR,       1,      21  
LSTR,      22,       2  
LSTR,       4,      24  
FLST,2,5,5,ORDE,2   
FITEM,2,7   
FITEM,2,-11
FLST,3,4,4,ORDE,2   
FITEM,3,25  
FITEM,3,-28
ASBL,P51X,P51X  
aglue,all
NUMCMP,all

allsel
*do,i,1,2*layer-1,2
*do,j,0,3
aSEL,s,,,4*i-j
aATT,1, , 1, 0
*enddo
*enddo

allsel
*do,i,2,2*layer-1,2
*do,j,0,3
aSEL,s,,,4*i-j
aATT,2, , 1, 0
*enddo
*enddo

allsel
/PNUM,MAT,1
/REPLOT


FLST,5,24,4,ORDE,2  
FITEM,5,1   
FITEM,5,-24  
LSEL, , , ,P51X  
LESIZE,all, , ,8, , , , ,1       !环向

allsel
lsel,s,,,25
*do,j,0,3
*do,i,25+j,25+j+8*(layer-1),8
lsel,a,,,i
*enddo
*enddo
LESIZE,all, , ,1, , , , ,1                     !硬层
  
allsel
lsel,s,,,29
*do,j,0,3
*do,i,29+j,29+j+8*(layer-2),8
lsel,a,,,i
*enddo
*enddo
LESIZE,all, , ,2, , , , ,1                     !软层  
allsel
AMESH,all

K,100,0,0,0
K,101,0,0,L
LSTR,      100,      101
type,2
EXTOPT,ESIZE,80,0,
EXTOPT,ACLEAR,1
EXTOPT,ATTR,1,1,0   
ESYS,0  
VDRAG,all, , , , , ,45
回复
分享到:

使用道具 举报

发表于 2010-6-28 20:47 | 显示全部楼层
可以用圆柱坐标系做为结果坐标系
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-25 17:44 , Processed in 0.075524 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表