冒冒在进化 发表于 2018-4-11 20:40:02

《aba道路工程中的应用》p193 路面结构裂缝动态响应问题关...

本帖最后由 冒冒在进化 于 2018-4-12 18:57 编辑

在这个算例里面,贴出的子程序,里面有一个参数是zini=4.5,还有zc=zini - distance
zc=zmax。那么在模型中,对应的究竟是哪个位置呢?
代码如下,对应的模型在下面的图里。
C User subroutine VDLOAD
      subroutine vdload (
C Read only (unmodifiable) variables -
   *   nblock, ndim, stepTime, totalTime,
   *   amplitude, curCoords, velocity, dircos,
   *   jltyp, sname,
C Write only (modifiable) variable -
   *   value )
C
      include 'vaba_param.inc'
      parameter (zini=4.5,vel=30,dlen=0.166666667,pressure=0.7d6)
C
      dimension curCoords(nblock,ndim),
   *   velocity(nblock,ndim),
   *   dircos(nblock,ndim,ndim),
   *   value(nblock)
      character*80 sname
C   -------------------------------------------------------------
C   distan为steptime时间内荷载移动的距离(车速vel为30km/h);
C   zmax和zmin分别为荷载的上下边界(两者相距dlen为0.166666667m);
C   -------------------------------------------------------------
      distan=vel*stepTime
        zc=zini-distan
        zmax=zc
        zmin=zmax-dlen
      do 100 k=1, nblock
       if(curCoords(k,3).lt.zmax.and.curCoords(k,3).ge.zmin) then
             value(k)=pressure
       else
             value(k)=0
        end if
100        continue
        return
      end

Edimion 发表于 2018-4-12 09:26:53

这个应该是定义施加荷载荷载的未知的,zini应该是初始荷载位置
zdistance应该是加载区长度
我就能猜出来这么多了,你以后问问题最好详细一点
比如起码把vdload子程序的核心部分代码贴出来,要不然大家都没法回答


http://forum.simwe.com/thread-1254726-1-1.html

冒冒在进化 发表于 2018-4-12 18:51:52

Edimion 发表于 2018-4-12 09:26
这个应该是定义施加荷载荷载的未知的,zini应该是初始荷载位置
zdistance应该是加载区长度
我就能猜出来这 ...

谢谢回复,昨天网络有点问题没有上传成功,没想到文字先发出来了。

冒冒在进化 发表于 2018-4-12 19:02:03

昨天发现了解决方法,使用query用Query information——Point/Node查询对应的点的坐标值即可。可以看到z坐标的数值是4.5

冒冒在进化 发表于 2018-4-12 19:04:14

本帖最后由 冒冒在进化 于 2018-4-17 21:42 编辑

子程序的其他几个参数的说明。

页: [1]
查看完整版本: 《aba道路工程中的应用》p193 路面结构裂缝动态响应问题关...