求助，为何动荷载加不上
上传newconfig dynamic
gen zone brick size 6,8,8
model mohr
prop bulk=1e8 shear=0.3e8 friction=35
prop cohesion=1e10 tension=1e10 density=2300
set gravity 0,0,0
fix x range x -0.1 0.1
fix x range x 5.9 6.1
fix y range y -0.1 0.1
fix y range y 7.9 8.1
fix z range z -0.1 0.1
his nstep=5
his unb
his gp zdis 4,4,8
;set mec for 50
set dyn off
solve step =100
save 11.sav
restore 11.sav
;---------定义列车荷载-----------
define sour_vibrate
if dytime > 2/fre
sour_vibrate = 0
else
sour_vibrate = apml * sin ( 2*pi*fre*dytime)
endif
end
; ------apply force on gp--------
set dyn on
set fre = 40 apml = 3.5e4
;set dyn time 0
ini xdisp 0 ydisp 0 zdisp 0
ini xvel 0 yvel 0 zvel 0
apply nquiet squiet dquiet range z -0.1 0.1
apply nquiet squiet dquiet range x -0.1 0.1
apply nquiet squiet dquiet range x5.9 6.1
apply nquiet squiet dquiet range y -0.1 0.1
apply nquiet squiet dquiet range y 7.9 8.1
apply ff
apply zacc -1e6his sour_vibrate range x=1 y=1 z=8
;def _TT
;_yy1=dytime*100+0.1
;_yy2=dytime*100-0.1
;command
;apply zforce -1 hist sour_vibrate range x=2 yz=8
;endcommand
;end
;_tt
set dynamic damp rayleigh 0.005 12.1
;定义边界并施加速度动荷载
;－－－选取的几个比较典型的节点进行记录－－－－－
hist reset
hist unbal
hist dytime
hist sour_vibrate
hist gp xvel 0 0 8
hist gp zvel 6 6 8
;-------acc-------
hist gp xacc 0 0 8
hist gp zacc 6 6 8
set dyn dt 1e-3
set dyn multi on
solve age 3
save dynamic.sav
高手指点一下，谢了 不用，本人已经搞定了 那是怎么回事呢 是啊 ，那是怎么回事 呢？
页:
[1]