求解过程的命令流如下:
!!!!!!!!求解!!!!!!
Finish
/sol
Allsel
Ldread,temp,,,,,,rst !读入温度场分布
Tref,tkq !!定义参考温度
Nropt,full !!激活完全牛顿拉普斯法
Pred,on !打开变形预测
Lnsrch,on !!激活线性搜索
Antype,0 !静态分析
Autots,1 !!自动时间步长
Nsubst,25,100,1 !!设置载荷步
Outres,all,all !!输出所有结果
Eqslv,pcg !!采用pcg算法
Wpstyl,defa !!工作面恢复为默认
Csys,5 !!激活以y为旋转轴的柱坐标系
Asel,s,loc,y,0
Asel,a,loc,y,-n !选择两纵截面
Da,all,symm !施加对称边界
Allsel
Csys,0 !!激活笛卡尔坐标系
Cmsel,s,flang_dvolu !选择下法兰组件
Nslv,r,1 !!选择依附于体上的点
Nsel,r,loc,y,-gt-h-l
D,all,uy
Allsel
Sload,1,9,loc,forc,force_bolt,1,2
!施加预紧载荷
Time,10 !!设置时间步长
Allsel
Lswrite,1 !写第一个载荷步文件
Time,20 !!设置时间步长
Lswrite,2 !写第2个载荷步文件
!!!!!施加内压
Asel,s,area,,74 !!选择垫片内环面
Nsla,s,1 !!选择依附于面上的节点
Csys,5
Nsel,a,loc,x,dn/2
Sf,all,pres,PI
!!!!!施加轴向载荷
Asel,s,area,,41 !!选择上端轴截面
Nsla,s,1 !!选择依附于面上的节点
Sf,all,pres,Py
Allsel
Time,30
Lswrite,3
Lssolve,1,3,1 !!计算载荷步1-3
Finish |