经典示例：HPMESH划分箱梁、降温法施加预应力与DLOAD移动载荷、生死单元应用、加强筋

Lxcad · 发表于 2007-9-19 11:27:12

将DLOAD改一下，就可以验证2个移动载荷了。

   SUBROUTINE DLOAD(F,KSTEP,KINC,TIME,NOEL,NPT,LAYER,KSPT,COORDS,
   1                JLTYP,SNAME)
C
   INCLUDE 'ABA_PARAM.INC'
C
   DIMENSION TIME(2),COORDS(3)
   CHARACTER*80 SNAME
C
   dis=TIME(1)
x1min=80.d0-35.d0
x1max=80.d0+35.d0
x2min=-80.d0-35.d0
x2max=-80.d0+35.d0
ymin=12.5d0-dis
ymax=-12.5d0-dis
   F=0.0d0
if(COORDS(1).le.x1max.and.COORDS(1).ge.x1min.and.
1COORDS(2).le.ymin.and.COORDS(2).ge.ymax) then
F=75.d4/(24.d0*25.d0)
endif
if(COORDS(1).le.x2max.and.COORDS(1).ge.x2min.and.
1COORDS(2).le.ymin.and.COORDS(2).ge.ymax) then
F=75.d4/(24.d0*25.d0)
endif
c    调试专用
c if(TIME(1).ge.60.0d0.and.COORDS(1).le.xmax.and.
c 1COORDS(1).ge.xmin) then
c ii=1
c endif
   RETURN
   END

Lxcad · 发表于 2007-9-19 11:32:32

网格又分了，可以在箱梁随心所欲设置车辆。运行该inp大约30分钟！附所有文件inp,hpmesh,dload。

ztmachine · 发表于 2007-9-19 14:18:01

请问一下楼主： if（）
then ii=1 这句是什么意思呢？

Lxcad · 发表于 2007-9-19 17:03:09

原帖由 ztmachine 于 2007-9-19 14:18 发表
请问一下楼主： if（）
then ii=1 这句是什么意思呢？

我调试时设置断点，看变量值用，没有意义。

dhh_1981 · 发表于 2007-9-19 17:24:21

真是太强拉.

az100 · 发表于 2007-9-19 18:15:02

谢谢努力学习中``

forevereye · 发表于 2007-9-19 21:04:31

好样的！加油啊

shelly31 · 发表于 2007-9-19 22:47:56

强烈支持小乐版主的大作

lindap · 发表于 2007-9-20 08:27:54

多谢小乐版主了

zhltang22 · 发表于 2007-9-21 08:10:21

小乐版主就是牛！！！

回收站 · 发表于 2007-9-21 08:44:34

谢谢版主

hong87 · 发表于 2007-9-21 10:04:32

LZ 每次都是出手不凡，佩服佩服！LZ有一颗大度的心，感谢！

Maplelfin · 发表于 2007-9-21 11:00:07

牛人啊，哈哈，顶，顶，顶！！！

Lxcad · 发表于 2007-9-21 12:12:41

原帖由 hong87 于 2007-9-21 10:04 发表
LZ 每次都是出手不凡，佩服佩服！LZ有一颗大度的心，感谢！

谢谢大家鼓励了，我的水平不高，我会努力的！

omid · 发表于 2007-9-21 14:16:11

太感谢了，一直想做这方面的内容。现在一下子豁然开朗了

gn699990 · 发表于 2007-10-2 02:25:59

好強喔
大大果然不一樣

delubbi · 发表于 2007-10-2 07:53:33

太厉害了.

sl731li · 发表于 2007-10-2 16:47:23

最关心生死单元的使用

denaky · 发表于 2007-10-3 12:31:04

真是

佩服啊

芝芝 · 发表于 2007-10-7 11:16:59

小乐版主：你简直就是我的偶像！太强了！我现在都云里雾里不知道在哪里了！！
小乐版主,不知道怎么回事，我运行出来是错误的！
Errors: User subroutine dload is missing ABAQUS/Standard Analysis exited with an error - Please see the message file for possible error messages if the file exists.
Warnings:The option *temperature is used but the option *initial conditions,type=temperature is not. The initial temperature values are assumed to be zero.
24 elements are distorted. Either the interior angles are out of the suggested limits or the triangular or tetrahedral quality measure is bad. The elements have been identified in element set WarnElemDistorted.
因初学Abaqus没多长时间，也不清楚是什么原因，可否请小乐版主更详细的讲解一下！十分感谢！！
还有：小乐版主说陈火红老师二次开发书中MARC中有一移动载荷的例子，可否拿出来共享？谢谢！！！

账号		自动登录	找回密码
密码			注册

[土木] 经典示例：HPMESH划分箱梁、降温法施加预应力与DLOAD移动载荷、生死单元应用、加强筋

本帖子中包含更多资源

本帖子中包含更多资源

回复 #7 Lxcad 的帖子