用大质量法做多支点的地震分析时,没有运算结果? 20

浏览:720

跪求各路大神帮我看看 这个求解部分有问题吗?小弟仅有的金币都给你们



!承台约束方程
local,13,,l1+l2/2,-h-pierh1
csys,13
nsel,s,loc,y,0    !建立一号承台约束方程
nsel,r,loc,x,-capwidth/2,capwidth/2
nsel,r,loc,z,-capwidth/2,capwidth/2
d,all,uy,,,,,uz
allsel,alllocal,14,,-(l1+l2/2),-h-pierh2
csys,14
nsel,s,loc,y,0    !建立二号承台约束方程
nsel,r,loc,x,-capwidth/2,capwidth/2
nsel,r,loc,z,-capwidth/2,capwidth/2
d,all,uy,,,,,uz
allsel,alllocal,15,,2*l1+l2+l3,-pierh3
csys,15
nsel,s,loc,y,0    !建立三号承台约束方程
nsel,r,loc,x,-caplength2/2,caplength2/2
nsel,r,loc,z,-capwidth2/2,capwidth2/2
d,all,all
allsel,alllocal,16,,-(2*l1+l2+l3),-pierh4
csys,16
nsel,s,loc,y,0    !建立四号承台约束方程
nsel,r,loc,x,-caplength2/2,caplength2/2
nsel,r,loc,z,-capwidth2/2,capwidth2/2
d,all,all
allsel,all
et,3,mass21
keyopt,3,3,2
r,100,2.8e13
type,3
real,100
e,101540
e,95915
*dim,acex2,,75,2

*creat,ff

*vread,acex2,ell-1,txt,,jik,2,75
(2e8.6)
*end
/input,ff
/solu
antype,trans
outres,nsol,all
*do,i,1,10
Time,acex2(i,1)
f,101540,fx,acex2(i,2)
f,95915,fx,acex2(i+20,2)
solve

邀请回答 我来回答

当前暂无回答

回答可获赠 200金币

没解决?试试专家一对一服务

换一批