[ABAQUS] 利用DLOAD自定义荷载

一、写在前面

当压力载荷比较复杂时，难以通过ABAQUS界面直接进行设置，这时候就需要使用到DLOAD子程序。
下面以一个简单例子为例进行说明。
车辆在道路上运动时，车轮对地面的压力载荷便是一种典型的移动载荷。假设单个车轮对底面的作用面积是227mm*156mm，其中156mm对应的是轮胎宽度。车轮的移动速度为23000mm/s，车轮对底面的压力0.705MPa。

二、建模思路

（1）首先对道路进行建模，建立一个尺寸相对较大的长方体块，模拟地基与混凝土路面，在此路面上切分出轮胎作用的区域；

（2）建立相应的材料参数，创建截面，并指派给模型；
（3）创建装配件；
（4）创建分析步，分析步类型为静力、通用，分析步时间与速度和距离相匹配；
（5）定义压力载荷，并采用子程序；设置相应的力学边界条件；

（6）划分网格，并指派单元类型；

（7）调用子程序进行计算。

三、子程序编程内容如下

SUBROUTINE DLOAD(F, KSTEP, KINC, TIME, NOEL, NPT, LAYER, KSPT, COORDS, JLTYP, SNAME)
INCLUDE ‘ABA_PARAM. INC’
DIMENSION TIME(2), COORDS(3)
CHARACTER*80 SNAME
REAL*8 Z0, length, Vel, Z_left, Z_right, Z_coord 
Z0=4.816E+03
length=227.0
Ve1=23000.0  !mm/s
Z_left = Z0-Vel*time(1)
Z_right = Z_left-length
Z_coord = COORDS (3)
IF ((Z_right. le. Z_coord). and. (Z_coord.le. Z_left))THEN
    F = 0.705
ELSE
    F = 0
END IF
RETURN
END

四、计算结果