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

冒冒在进化

在这个算例里面，贴出的子程序，里面有一个参数是zini=4.5，还有zc=zini - distance
zc=zmax。那么在模型中，对应的究竟是哪个位置呢？
代码如下，对应的模型在下面的图里。

1. C User subroutine VDLOAD
   
2.       subroutine vdload (
   
3. C Read only (unmodifiable) variables -
   
4.      *     nblock, ndim, stepTime, totalTime,
   
5.      *     amplitude, curCoords, velocity, dircos,
   
6.      *     jltyp, sname,
   
7. C Write only (modifiable) variable -
   
8.      *     value )
   
9. C
   
10.       include 'vaba_param.inc'
    
11.       parameter (zini=4.5,vel=30,dlen=0.166666667,pressure=0.7d6)
    
12. C
    
13.       dimension curCoords(nblock,ndim),
    
14.      *     velocity(nblock,ndim),
    
15.      *     dircos(nblock,ndim,ndim),
    
16.      *     value(nblock)
    
17.       character*80 sname
    
18. C     -------------------------------------------------------------
    
19. C     distan为steptime时间内荷载移动的距离（车速vel为30km/h）；
    
20. C     zmax和zmin分别为荷载的上下边界（两者相距dlen为0.166666667m）；
    
21. C     -------------------------------------------------------------
    
22.       distan=vel*stepTime
    
23.         zc=zini-distan
    
24.         zmax=zc
    
25.         zmin=zmax-dlen
    
26.       do 100 k=1, nblock
    
27.        if(curCoords(k,3).lt.zmax.and.curCoords(k,3).ge.zmin) then
    
28.              value(k)=pressure
    
29.          else
    
30.                value(k)=0
    
31.         end if
    
32. 100        continue
    
33.         return
    
34.       end

复制代码

Edimion

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


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

冒冒在进化

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

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

冒冒在进化

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

冒冒在进化

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