Abaqus 移动荷载的模拟子程序.doc

《Abaqus 移动荷载的模拟子程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、通过子程序DLOAD实现移动荷载的模拟。程序根据积分点自动捕捉加载面积，与用户给定的均布荷载相乘获得外荷载，带回结构模型中计算结构相应。需要注意到几个问题：1.子程序内调用的坐标COORDS为积分点对应的坐标值，在设置加载面积对应的外围节点时，需小心策划，否则计算结果是错误的。建议范围值比预期值的坐标增大或减小单元尺寸的1%～5%。2.通过DIS=TIME(1)*0.1来对应分析步时间与移动距离的换算关系，其中的0.1根据用户的情况来折算此数据。3.要求移动面的网格划分必须相等，否则程序根据积分点自动捕捉到的加载面积将出现偏差，导致施加的外荷载出现偏差，从而导致计算结

2、果错误。4.本子程序在加载起始点和终止点的设计还不完善，若要考察支点剪力，则需对程序进行进一步处理。5.本子程序共有4个移动荷载，要求的网格为0.1个单位。       SUBROUTINEDLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,    1COORDS,JLTYP,SNAME)C       INCLUDE'ABA_PARAM.INC'C       DIMENSIONTIME(2),COORDS(3)       CHARACTER*80SNAMEC       C  COORDS--Anarraycontaining

3、thecoordinatesoftheload"integrationpoint".C       DIS=TIME(1)*0.1       X1MIN=0.3-0.101       X1MAX=0.3+0.101       X2MIN=-0.3-0.101       X2MAX=-0.3+0.101             Z1MIN=-0.01+DIS       Z1MAX=0.101+DIS       Z2MIN=0.301+DIS       Z2MAX=0.401+DIS       F=0.0D0C   loadingone       IF(

4、(COORDS(1).LE.X1MAX.AND.COORDS(1).GE.X1MIN).AND.    *  (COORDS(3).LE.Z1MAX.AND.COORDS(3).GE.Z1MIN))THEN        F=2.0E6       ENDIFC   loadingtwo       IF(COORDS(1).LE.X2MAX.AND.COORDS(1).GE.X2MIN.AND.    *  COORDS(3).LE.Z1MAX.AND.COORDS(3).GE.Z1MIN)THEN        F=2.0E6       ENDIF  C   l

5、oadingthree              IF((COORDS(1).LE.X1MAX.AND.COORDS(1).GE.X1MIN).AND.    *  (COORDS(3).LE.Z2MAX.AND.COORDS(3).GE.Z2MIN))THEN        F=2.0E6       ENDIFC   loadingfour       IF(COORDS(1).LE.X2MAX.AND.COORDS(1).GE.X2MIN.AND.    *  COORDS(3).LE.Z2MAX.AND.COORDS(3).GE.Z2MIN)THEN     

6、   F=2.0E6       ENDIF              C         RETURN     END