【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《beam188铁木辛柯梁元编程》,欢迎阅读!
!变截面梁采用BEAM188(铁木辛柯梁元)
!-------------------程序开始-----------------
FINISH
/CLEAR
/PREP7
ET,1,BEAM188
MP,EX,1,2E5
MP,PRXY,1,0.3
b1=1$h1=1.6$b2=1$h2=1$L=20
!Ndiv=10
!Ndiv=20
!Ndiv=50
!Ndiv=100
!Ndiv=200
!Ndiv=500
!Ndiv=1000
Ndiv=2000
SECTYPE,1,BEAM,RECT
SECDATA,b1,h1
SECTYPE,2,BEAM,RECT
SECDATA,b2,h2
K,1,0,0,0
K,2,L,0,0
K,100,L/2,L/2,0
SECTYPE,3,TAPER
SECDATA,1,kx(1),ky(1),kz(1)
SECDATA,2,kx(2),ky(2),kz(2)
LSTR,1,2
DK,1,ALL
DK,2,UY
LATT,1,,1,,100,,3
LESIZE,ALL,,,Ndiv
LMESH,ALL
!施加均布荷载
SFBEAM,ALL,1,PRES,1000
ALLSEL,ALL
!显示梁单元实际截面形状
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
/ESHAPE,1
/SOLU
SOLVE
FINISH
!进入后处理器
/POST1
!绘制弯矩图
ETABLE,MYI,SMISC,2
ETABLE,MYJ,SMISC,15
PLLS,MYI,MYJ
!-----------------程序结束-----------------