各位大神,我做的是左边的刚体以4m/s的速度撞击右边的薄壁钢管,命令流一下,为什么我计算完之后再lsprepost中看应力都没有云图,有撞击的过程,着急啊,老师逼的不行了啊!!
!(1)分析环境设计
/FILNAME,HIT
/TITLE,ANALYSIS OF HIT
!定义单元类型及其算法
/PREP7
ET,1,SHELL163
KEYOPT,1,1,7
R,1,5/6,5,1.5E-3,,,,
ET,2,SOLID164
!定义材料类型1
MP,DENS,1,7960 !定义材料密度
MP,EX,1,2.1e11 !定义材料弹性模量
MP,NUXY,1,0.3 !定义材料泊松比
TB,PLAW,,,,1 !定义双线性各项同性硬化
TBDATA,1,1.7E8 !定义屈服强度
TBDATA,2,1.0e9 !定义切线模量
TBDATA,4,40.0 !C(s-1)
TBDATA,5,5.0 !p
TBDATA,6,3 ! Failure strain (由此应变可删除相应的单元)
EDMP,HGLS,1,5,0.1,1.5,0.06,0.1,0.1
!定义材料刚体
EDMP,RIGID,2,4,7
MP,DENS,2,13500 !定义材料密度
MP,EX,2,2.1e12 !定义材料弹性模量
MP,NUXY,2,0.27 !定义材料泊松比
!定义关键点(右边关键点)
K,1,0,0,0, !关键点1
K,2,0,0.01,, !关键点2
K,3,0.08,0.01,, !关键点3
K,4,0.08,0.088,, !关键点4
K,5,0.08,0.01,0.35, !关键点5
!左边关键点
K,6,0.075,0.088,, !关键点6
K,7,0.075,0.078,, !关键点7
K,8,-0.005,0.078,, !关键点8
K,9,-0.005,0,0, !关键点9
K,10,-0.005,0.078,0.35, !关键点10
LSTR,1,2
LSTR,2,3
LSTR,3,4
LSTR,3,5
LSTR,6,7
LSTR,7,8
LSTR,8,9
LSTR,8,10
!拉伸线成面
ADRAG,1,2,3,,,,4
ADRAG,5,6,7,,,,8
!网格划分
AATT,1,1,1,0
ESIZE,0.005
AMESH,ALL
!建立刚体的模型
BLOCK,-0.0575,0.1425,-0.056,0.144,0.36,1.36
VATT,2,,2,0
ESIZE,0.01
VMESH,ALL
EDPART,CREATE !单元分组
!定义焊缝
*DO,I,4899,4962,7
EDWELD,ADD,I,I+7,I-4750,5600,8000,2,2,0.02,1.0e20,1,,
EDWELD,ADD,I,I+8,I-4749,5600,8000,2,2,0.02,1.0e20,1,,
*ENDDO
*DO,I,2414,2477,7
EDWELD,ADD,I,I+7,I+220,5600,8000,2,2,0.02,1.0e20,1,,
EDWELD,ADD,I,I+8,I+221,5600,8000,2,2,0.02,1.0e20,1,,
*ENDDO
!划分组员和自动接触
NSEL,S,LOC,Z,0.351,1.401 !实体上的所有节点
CM,SOLID,AREA, !将上述选择节点进
ALLSEL,ALL
NSEL,S,LOC,Z,-0.001,0.001 !选择梁自由端的所有节点
CM,CON,NODES, !将上述选择节点进
ALLSEL,ALL
NSEL,S,LOC,Z,-0.001,0.0.351 !薄壁圆筒上的节点
CM,SHEEL,AREA,
ALLSEL,ALL
EDCGEN,ASTS,'SOLID','SHEEL',0.1,0.1,0,0,0,,,,,0,10000000,
EDCGEN,ASSC,'','',0.1,0.1,0,0,0,,,,,0,10000000,
NSEL,S,LOC,Z,0.351,1.401 !实体上的所有节点
CM,SOLID2,NODE, !将上述选择节点进
EDVE,VELO,SOLID2,0,0,-4,0,0,0,,,,,,
!施加端部固定位移约束
NSEL,S,LOC,Z,-0.001,0.001 !实体上的所有节点
D,ALL,,0,,,,UX,UY,UZ,ROTX,ROTY,ROTZ
/SOLU
TIME,0.1, !设置求解时间
EDOPT,ADD,blank,BOTH !指出求解时间
EDRST,100, !指出结果文件输出步
EDHTIME,100, !设置时间历程后处理文件步数
EDINT,5,4,!设置输出用于结果存储的积分点个数
EDOPT,ADD,blank,BOTH
ALLSEL,ALL
SLOVE !求解
FINISH !退出求解器
全部回复(2 )
只看楼主 我来说两句抢地板回复 举报
回复 举报