一、写在前面
当压力载荷比较复杂时,难以通过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