应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » ANSYS & ABAQUS » 【求助】怎么取出径向最大位移？？【已完成】
51/1返回列表
查看: 1664  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

bluecmy

新虫 (小有名气)

[交流] 【求助】怎么取出径向最大位移？？【已完成】 已有3人参与

各位高手，请问一个多层圆柱壳，
怎样取出各层的变形后的径向最大变形？
使用问么命令模型如下：
/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

[ Last edited by adu886886 on 2010-6-28 at 21:31 ]
回复此楼

» 猜你喜欢
1楼 2010-06-20 10:38:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bluecmy

新虫 (小有名气)
★
adu886886(金币+1):分享正确经验 2010-06-28 21:31:26
引用回帖:
Originally posted by hlzhu0001 at 2010-06-23 18:21:03:
首先选中你要的知道的那一层
然后是
/post1
rsys,1
nsort,u,x
*get,drmx,sort,0,max

正解 谢谢
回复此楼
5楼2010-06-28 16:54:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

st200403

至尊木虫 (知名作家)

111
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
adu886886(金币+1):谢谢提供意见 2010-06-23 12:04:04
zzuwangshilei:多谢给出建议 2010-06-23 15:04:23
引用回帖:
Originally posted by bluecmy at 2010-06-20 10:38:53:
各位高手，请问一个多层圆柱壳，
怎样取出各层的变形后的径向最大变形？
使用问么命令模型如下：
/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= ...

NSORT,U,(X,Y,Z,SUM),
*GET,,SORT,,MAX
应该可以的吧

[ Last edited by st200403 on 2010-6-23 at 18:47 ]
赞一下(3人) 回复此楼
Anonymous.
2楼2010-06-23 10:31:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hlzhu0001

铜虫 (小有名气)

这样应当可以

★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
robert2020(金币+1):多谢应助，欢迎常来仿真模拟版交流！ 2010-06-23 22:10:15
首先选中你要的知道的那一层
然后是
/post1
rsys,1
nsort,u,x
*get,drmx,sort,0,max
赞一下(2人) 回复此楼
3楼2010-06-23 18:21:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bluecmy

新虫 (小有名气)
引用回帖:
Originally posted by st200403 at 2010-06-23 10:31:11:


NSORT,U,(X,Y,Z,SUM),
*GET,,SORT,,MAX
应该可以的吧

[ Last edited by st200403 on 2010-6-23 at 18:47 ]

谢谢
回复此楼
4楼2010-06-28 16:53:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭