发布于:2005-12-02 14:47:02
来自:建筑结构/钢结构工程
[复制转发]
收费站网架模型,45米跨度,两边铰接,两边自由,跨中有拉索,高手们给点建议!
/prep7
et,1,link8
et,2,link10
et,3,beam188
mp,ex,1,2.1e11
r,1,2.5e-3
r,2,8.1e-4
local,11,0,0,0,0
*do,k,1,11
*do,i,(k-1)*100+1,(k-1)*100+49
n,i,(i-(k-1)*100-1)*1.6*Sqrt(3)/3,(k-1)*1.5,Sin(3.1415926*(i-(k-1)*100-1)*1.6*Sqrt(3)/3/22.5)
*enddo
*do,i,(k-1)*100+50,(k-1)*100+99
n,i,(i-(k-1)*100-50.5)*1.6*Sqrt(3)/3,(k-1)*1.5,Sin(3.1415926*(i-(k-1)*100-1)*1.6*Sqrt(3)/3/22.5)+0.8
*enddo
*enddo
n,10000,44,7.5,-10
n,10001,44,7.5,15
n,10002,44,9.0,15
type,1
mat,1
real,1
*do,k,1,11
*do,i,(k-1)*100+1,(k-1)*100+48
e,i,i+1
*enddo
*do,i,(k-1)*100+50,(k-1)*100+98
e,i,i+1
*enddo
*do,i,(k-1)*100+1,(k-1)*100+49
e,i,i+49
e,i,i+50
*enddo
*enddo
*do,k,1,10
*do,i,(k-1)*100+1,(k-1)*100+49,12
e,i,i+100
e,i+49,i+149
e,i+50,i+150
*enddo
*enddo
*do,k,2,10,2
*do,i,(k-1)*100+1,(k-1)*100+49,12
e,i,i-51
e,i,i-50
e,i,i+149
e,i,i+150
*enddo
*enddo
sectype,1,beam,ctube,
secdata,0.144,0.15,
secnum,1
type,3
mat,1
e,10000,10001,10002
type,2
mat,1
real,1
e,10001,262
e,10001,274
e,10001,862
e,10001,874
/solu
antype,static
D,250,UX,0
D,250,UY,0
D,250,UZ,0
D,850,UX,0
D,850,UY,0
D,850,UZ,0
d,299,all,0
d,899,all,0
*do,k,1,10
*do,i,(k-1)*100+50,(k-1)*100+99
F,i,FZ,-1000
*enddo
*enddo
nlgeom,1
kbc,0
outres,all,all
outpr,all
nsubst,500
solve
finish
全部回复(5 )
只看楼主 我来说两句回复 举报
帮着出个主意
回复 举报