- 积分
- 0
- 注册时间
- 2007-4-9
- 仿真币
-
- 最后登录
- 1970-1-1
|
;-----dynamic-----
set dyn on
set fluid off
set large
set dyn multi on
ini xvel 0 yvel 0 zvel 0
ini xdisp 0 ydisp 0 zdisp 0
ini state 0
model null range group pile
;定义钢护筒
model elas range group hutong
prop bulk 1.75e11 shear 0.808e11 range group hutong
ini dens 2900 range group hutong
interface 1 face range cylin end1(0,0,0) end2(0,6.1,0) rad 0.81 &
cylin end1(0,0,0) end2(0,6.1,0) rad 0.79
interface 1 prop kn 1e8 ks 1e8 fric 20 coh 30000
;定义受力面
range name mian group hutong y -0.1 0.1
free x y z range mian
;定义波形
def setup
omega=2.0*pi*freq
pulse=1.0/freq
end
def wave
if dytime>pulse
wave=0.0
else
wave=5*(1.0-cos(omega*dytime))
endif
end
set freq=2.0
apply syy=2e6 hist=waverange mian ;请问我这动荷载加上了吗?我自己不敢肯定,因为我怎么改变syy值其加速度都不边且很小?
apply nquiet dquiet squiet range y 14.9 15.1
apply nquiet dquiet squiet range bianjie
fix pp 0 range group hutong
solve age 5.0 |
|