DLOAD子程序例子及详细教程

Edimion

带开口加劲肋的钢板，使用DLOAD子程序施加移动荷载。
CAE文件忘了保存了。上传INP 以及DLOAD子程序代码
其实并不复杂，核心就是一个IF语句。相较于UMAT , UEL之类的需要力学和数学背景的子程序，DLOAD和DISP应该算是很简单了。
学习使用子程序，唯一值得恐惧的就是恐惧本身

看帮助文件里面说Dload是可以用于梁单元的，但是还没有找到实例和实现的方法，比如jltyp如何定义

DISP子程序的例子：http://forum.simwe.com/forum.php ... 1&extra=#pid3612755





变量的解释

kstep 分析步编号
kinc 增量步编号
time（1） 当前分析步时间
time（2） 总分析步时间
node 节点编号
Jdof 自由度
coords 积分点的坐标
npt 单元积分点号
jltyp 荷载类型 0为表面压力，1为体力
sname 加载面的名称


F为需要定义的荷载


我也不知道自己当时为啥加了个对称边界条件，大家凑合着看吧



需要说明的是，加载区间的长度应该显著大于单元的尺寸，否则可能出现荷载值不稳定的情况。

1.       SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,
   
2.      1 COORDS,JLTYP,SNAME)
   
3. C
   
4.       INCLUDE 'ABA_PARAM.INC'
   
5. C
   
6.       DIMENSION TIME(2), COORDS (3)
   
7.       CHARACTER*80 SNAME
   
8.       VEL=0.1
   
9.       PLENGTH=0.4
   
10.       XSTART=0.0
    
11.       XLEFT=XSTART+VEL*TIME(1)
    
12.       XRIGHT=XLEFT+PLENGTH
    
13.       IF(COORDS(1).LE.XRIGHT.AND.COORDS(1).GE.XLEFT.AND.
    
14.      1 COORDS(3).GE.0.5.AND.COORDS(3).LE.1.5)THEN
    
15. 
    
16.           F=100
    
17.       ELSE
    
18.           F=0
    
19.       END IF
    
20.       RETURN
    
21.       END

复制代码

*******************************************************************************************************************
以下内容为2018年6月22日新增

写完上面的教程之后，我就开始用Dload做了自己的硕士论文，现在也快毕业了，写论文的过程中又总结了一下技巧，并重新做了一个完整的案例，也算是对硕士论文写作的总结吧，类似的教程还会不断更新，目前包括：
ABAQUS 抽壳教程： http://forum.simwe.com/thread-1297157-1-1.html
ANSYS 断裂力学计算： http://forum.simwe.com/thread-1296684-1-1.html
ABAQUS fluid cavity 模拟气囊充气过程分析： http://forum.simwe.com/thread-1301108-1-1.html
两点声明：

1 本文都是我一个字一个字敲出来的，这篇教程包括做案例在内写了四个小时。而且下载也只要一个仿真币，很便宜，希望大家尊重原创，不要私下传播，谢谢大家

2 后续还会有类似教程，希望哪天版主看到了给个积分，谢谢

教程预览：






教程和计算文件：

yanliuxll

请问运行你的模型和子程序为什么一直处于提交状态，不报错也不计算，求大神指教啊:'(:'(

十八子山石

这样是不是没有分配力和弯矩

Edimion

yanliuxll 发表于 2017-5-10 21:27
请问运行你的模型和子程序为什么一直处于提交状态，不报错也不计算，求大神指教啊 ...

是否相关的开发环境没有配置好

Edimion

十八子山石 发表于 2017-5-10 22:46
这样是不是没有分配力和弯矩

没理解你的意思，能否具体一点

yanliuxll

Edimion 发表于 2017-5-11 08:57
是否相关的开发环境没有配置好

我只是创建job时，在general里添加.for文件，请问电脑必须安装Fortran软件吗

oppowin

yanliuxll 发表于 2017-5-11 09:03
我只是创建job时，在general里添加.for文件，请问电脑必须安装Fortran软件吗

需要编译把！

yanliuxll

oppowin 发表于 2017-5-11 10:28
需要编译把！

具体要怎么做啊，求赐教啊

Edimion

yanliuxll 发表于 2017-5-11 09:03
我只是创建job时，在general里添加.for文件，请问电脑必须安装Fortran软件吗

必须安装visual studio + Intel visual Fortran

oppowin

能加个好友吗？

Edimion

oppowin 发表于 2017-5-14 16:51
能加个好友吗？

********QQ

十八子山石

Edimion 发表于 2017-5-11 08:58
没理解你的意思，能否具体一点

用ANSYS施加移动载荷时，利用雷晓燕提到的梁单元理论，将施加在梁单元任意一点上的力可以按距离关系分配到就近的两个节点上。我不知道abaqus能不能实现~

Edimion

十八子山石 发表于 2017-5-28 13:20
用ANSYS施加移动载荷时，利用雷晓燕提到的梁单元理论，将施加在梁单元任意一点上的力可以按距离关系分配 ...

我觉得似乎可以，需要仔细考虑并尝试。我尝试后跟您交流。
如果梁单元长度一致，会比较容易实现。否则略有难度

十八子山石

Edimion 发表于 2017-5-28 15:56
我觉得似乎可以，需要仔细考虑并尝试。我尝试后跟您交流。
如果梁单元长度一致，会比较容易实现。否则略有 ...

我加你QQ了，在QQ上随时交流吧~合作愉快
from十八子山石

sczygf

请问一下，F的单位是什么？力N，还是压强Pa？

Edimion

sczygf 发表于 2018-1-3 15:17
请问一下，F的单位是什么？力N，还是压强Pa？

压强
F指的是压强，DLoad能定义压强和体力，没有办法定义集中力或者线单元上的力

sczygf

Edimion 发表于 2018-1-5 14:46
压强
F指的是压强，DLoad能定义压强和体力，没有办法定义集中力或者线单元上的力 ...

好的，谢谢啦

希思罗的风

好不容易看到一个dload模型！赞！我想请教一下，模拟里面的step time是不是真实时间啊？（比如模型里面steptime=20，是不是模拟的就是20秒内模型的变化情况？）

Edimion

希思罗的风 发表于 2018-1-9 22:44
好不容易看到一个dload模型！赞！我想请教一下，模拟里面的step time是不是真实时间啊？（比如模型里面step ...

这个不取决于Dload，而是取决于你的分析步。
如果你用了静力的分析步，那么时间就是虚拟的
如果你用了动力的分析步，那么时间就是真实的

希思罗的风

Edimion 发表于 2018-1-11 16:42
这个不取决于Dload，而是取决于你的分析步。
如果你用了静力的分析步，那么时间就是虚拟的
如果你用了动 ...

哦哦。明白了，学习。哈哈