Abaqus用Dload子程序实现移动载荷

在工程分析领域，尤其是在使用ABAQUS这一先进的有限元分析软件时，实现移动载荷是一种常见的需求。本文将详细介绍如何在ABAQUS中运用子程序DLOAD来实现移动载荷的功能。此功能不仅对于诸如车辙实验和车辆过桥等场景大有裨益，同时也体现了ABAQUS强大的自定义载荷能力。

DLOAD 函数体及参数解释


DLOAD 提供了一个自定义移动载荷的机会，其函数体和相关参数定义如下：


```plaintext

SUBROUTINE DLOAD(F, KSTEP, KINC, TIME, NOEL, NPT, LAYER, KSPT, COORDS, JLTYP, SNAME)

```


F: 需要用户定义的载荷值；


KSTEP: 移动载荷步数，表明移动载荷是在第 KSTEP 个时间步中应用的；




KINC: 增量步数，用于细化移动路径上的载荷变化；

TIME: Time(1) 和 Time(2)，分别代表当前载荷步骤时间、总分析时间；

NOEL: 单元编号；


NPT: 单元积分点编号；


COORDS: 积分点坐标；

JLTYP: 载荷类型（例如， Couple Load, Deformable Membrane, Ceragen存储的载荷）；

SNAME: 名称标签。


案例示例

假设我们在分析一物体上作用一个与时间 t 和移动速度 V 相关的压力载荷 P(t)，此载荷在同一平面上移动。我们实现了一个名为 `DLOAD.for` 的子程序，代码如下：

```plaintext


SUBROUTINE DLOAD()

INCLUDE 'ABA_PARAM.INC' !  引入ABAQUS参数界定符

DIMENSION TIME(2),COORDS(3) ! 定义变量

PARAMETER(P0=5e4, Dm0=250, Dmiu=0.002, speed=80/3.6, DL=6.0, width=0.2) ! 定义参数

Pi=3.1415926535897932384626433832795 ! 圆周率

omega=2.0Pispeed/DL ! 定义角速度


Disp=TIME(1)speed ! 计算移动距离


xMin=Disp+0.002 ! 设置误差范围


xMax=Disp+width0.002 ! 定义加载宽度

IF COORDS(1).ge.xMin AND COORDS(1).lt.xMax THEN ! 输入控制符，判断坐标位置

F=P0+Dm0Dmiuomegaomegasin(omegaTIME(1)) ! 计算载荷大小

ELSE


F=0


END IF


RETURN


END

武汉格发信息技术有限公司，格发许可优化管理系统可以帮你评估贵公司软件许可的真实需求，再低成本合规性管理软件许可,帮助贵司提高软件投资回报率，为软件采购、使用提供科学决策依据。支持的软件有: CAD,CAE,PDM,PLM,Catia,Ugnx, AutoCAD, Pro/E, Solidworks ,Hyperworks, Protel,CAXA,OpenWorks LandMark,MATLAB,Enovia,Winchill,TeamCenter,MathCAD,Ansys, Abaqus,ls-dyna, Fluent, MSC,Bentley,License,UG,ug,catia,Dassault Systèmes,AutoDesk,Altair,autocad,PTC,SolidWorks,Ansys,Siemens PLM Software,Paradigm,Mathworks,Borland,AVEVA,ESRI,hP,Solibri,Progman,Leica,Cadence,IBM,SIMULIA,Citrix,Sybase,Schlumberger,MSC Products...