正弦荷载
ntitle Structure_dynamic_analysis_lakewater
config dyn
sel pile id=1 beg 0 0 0 end 0 0 1
sel pile prop dens 2400 &
Emod 1.0e10 Nu 0.3 XCArea 0.3 &
XCJ 0.16375 XCIy 0.00625 XCIz 0.01575 &
Per 2.8 &
CS_sK 1.3e11 CS_sCoh 0.0 CS_sFric 10.0 &
CS_nK 1.3e11 CS_nCoh 0.0 CS_nFric 0.0 CS_nGap off
def f1
whilestepping
f0=10000*sin(10*dytime)
np = nd_head
loop while np # null
if nd_pos(np,1,3)=1
nd_apply(np,1)=f0
endif
np = nd_next(np)
endloop
end
sel node fix x y z xr yr zr ran id=1
sel set damp combined
plo cre pile
plo current pile
plo set back black fore white mag 0.8
plo add sel geo id on sca .04 magf 1e3
plo add sel fapp lgreen magf 1e3
plo add sel pile mom my lblue lred magf 1e3 axe yel
set movie avi step 100 file pile.avi
movie start
sol age 1
movie finish
这个程序中怎么把桩顶水平正弦荷载改成竖直方向的正弦荷载？
页:
[1]