发布于:2007-08-12 16:08:12
来自:建筑结构/ANSYS
[复制转发]
目的是在薄壁杆件的面上加beam元素,提高局部屈曲能力,得到近似于纯全局屈曲的解.(正确解应该在3300左右)
*afun,deg
B0=33
H0=20
T=0.405
B=B0-T
H=H0-T
L=425
NG=4
NS=6
NL=50
/prep7
ET,1,SHELL63
ET,2,BEAM4
R,1,t
R,2,0.000001,1000,1000,1,1,0,
RMORE,0,0.000001
R,3,1e-006,100000,100000,1,1,0,
RMORE,0,100,0,0,0,0,
MP,EX,1,21000
MP,PRXY,1,0.3
K,1,0,-H/2,0
K,2,0,-H/2,B/2
K,3,0,H/2,0
K,4,0,H/2,B/2
L,1,2,NG
k,5,L/2,-H/2,0
LATT,1,2,2,,5
LMESH,1
L,3,4,NG
k,5,L/2,H/2,0
LATT,1,2,2,,5
LMESH,2
L,2,4,NS
k,5,L/2,-H/2,0
LATT,1,2,2,,5
LMESH,3
K,5,L/2,H/2,B/2
L,4,5,NL
ADRAG,1,2,3,,,,4
*do,i,1,(nl-1),1
LSEL,NONE
K,9+i*4-3,i*(L/2)/nl,H/2,0
K,9+i*4-2,i*(L/2)/nl,H/2,B/2
K,9+i*4-1,i*(L/2)/nl,-H/2,B/2
K,9+i*4,i*(L/2)/nl,-H/2,0
L,9+i*4-3,9+i*4-2
L,9+i*4-2,9+i*4-1
L,9+i*4-1,9+i*4
LATT,1,3,2
Lmesh,all
allsel,all
*Enddo
LSEL,ALL
NUMMRG, NODE, , , ,LOW
ASEL,S,LOC,Y,-H/2
CM,Obergurt,area
ASEL,S,LOC,Y,H/2
CM,Untergurt,area
ASEL,S,LOC,Z,B/2
CM,Steg,area
AATT,1,1,1
ALLSEL
AMESH,ALL
/SOLU
ANTYPE,STATIC
PSTRESS,ON
LSEL,S,LOC,X,L/2
DL,ALL,,SYMM
ALLSEL
LSEL,S,LOC,Z,0
DL,ALL,,SYMM
ALLSEL
D,NODE(0,0,B/2),UY
FLAECHE=(B+H)*2*T !Querschnittsflaeche
PL=1/FLAECHE*T
LSEL,S,LOC,X,0
SFL,All,PRES,PL,PL
ALLSEL
SOLVE
FINISH
/SOLU
ANTYPE,BUCKLE
BUCOPT,SUBSP,50,0
solve
/POST1
SET,FIRST
SET,LIST
PLDISP,1
FINISH
save
全部回复(1 )
只看楼主 我来说两句 抢板凳