24小时热门版块排行榜

返回列表

当前主题已经存档。

rrainbow

铜虫 (正式写手)

应助: 2 (幼儿园)
金币: -5.6
散金: 487
红花: 1
帖子: 368
在线: 118.6小时
虫号: 573466
注册: 2008-06-14
性别: GG
专业: 金属材料的力学行为

[交流] 【求助】非线性稳定性分析的后处理怎么显示临界压力，临界压力-位移图【已解决】

/Finish
/clear
/filn, E52
/title, Buckling analysis of short cylinder
/units,si !采用国际单位制
Di=1000 ! 筒体中径
t=10 ! 筒体厚度
L=5000  ! 筒体长度
kmodel=2 ! 模型开关，1－全模型，2－1/2模型
nhoop=20 ! 圆周方向线段的剖分数
*if,kmodel,eq,1,then ! 根据模型类型设定筒体轴向剖分数
naxial=40
*else
naxial=20
*endif
nt=1    ! 厚度方向线段的剖分数
p=1    ! 单位压力
EXX1=2e5 ! 材料的弹性模量
NUXY1=0.3 ! 材料的泊松比

/PREP7
ET,1,45             ! 设定单元类型
MP,EX,1,EXX1       ! 定义材料的弹性模量
MP,PRXY,1,NUXY1    ! 定义材料的泊松比

*if,kmodel,eq,1,then ! 根据模型类型设定模型中筒体的长度
L=L
*else
L=L/2 ! 1/2模型中筒体长度取半
*endif
CYL4, , ,Di/2, ,Di/2+t, ,L    ! 建立圆筒体素
lsel,s,radius,,Di/2,Di/2+t    ! 选择圆弧线
LESIZE,all, , ,nhoop,, , , ,1 ! 设定圆周线剖分数
alls                         ! 全选
lsel,u,radius,,Di/2,Di/2+t    ! 去掉圆弧线
LESIZE,all, , ,naxial,, , , ,1 ! 设定轴向线剖分数
alls                         ! 全选
wprot,,90                      ! 旋转工作平面
vsbw,all                      ! 用工作平面切割体素
lsel,u,radius,,Di/2,Di/2+t    ! 去掉圆弧线
lsel,u,length,,L             ! 去掉轴向线
LESIZE,all, , ,nt,, , , ,1 ! 设定厚度方向线剖分数

vsweep,all                   ! 扫略剖分体素

*if,kmodel,eq,1,then ! 根据模型类型设定约束
nsel,s,loc,z,0 ! 对于全模型，约束某端面的一个点轴向位移
nsel,r,loc,x,Di/2+t
D,all,uz,          ! 对于全模型，约束某端面的一个点轴向位移
nsel,s,loc,z,0 ! 选择一侧端面各节点
nsel,a,loc,z,L ! 选择另一侧端面各节点
*else
asel,s,loc,z,0 ! 对于半模型，在对称面上施加对称约束
Da,all,symm
nsel,s,loc,z,L ! 选择另一侧端面各节点
*endif
csys,1 ! 激活总体柱坐标
NROTAT,all ! 旋转所有已选节点的节点坐标系
D,all,UY ! 施加环向位移约束，已保证该截面保持为圆
fini

/SOLU
ANTYPE,STATIC
PSTRES,ON
lsel,s,radius,,Di/2+t
asll
asel,u,loc,z,0
asel,u,loc,z,L
asel,u,loc,y,0
cm,aouter,area
SFA,all,1,PRES,p
Alls
SOLVE
/SOLU                      ! 重新进入求解器
ANTYPE,BUCKLE ! 指定分析类型为屈曲分析
BUCOPT,LANB,1 ! 利用Block Lanczos法进行结算，提取一节模态
MXPAND,1                   ! 设定模态扩展数为1
SOLVE ! 求解
FINISH

/POST1
SET,LAST
UPCOORD,0.1,ON
SAVE,PERT,DB
FINISH
RESU,PERT,DB

/SOLU
outres,,1
ANTYPE,STATIC
NLGEOM,ON
alls
cmsel,s,aouter
SFA,all,1,PRES,p*2.5
NSUBST,50
ARCLEN,ON,5
SOLVE
FINI

/POST1
SET,list,2

/POST1
SET,FIRST
PLDISP,1
ANSYS非线性稳定性分析的后处理怎么显示临界压力？显示临界压力-位移图像？谢谢！

[ Last edited by nono2009 on 2010-1-9 at 20:51 ]

回复此楼