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

!-----------------程序结束-----------------

本文来源：https://www.wddqw.com/doc/f53006df9b89680203d825e4.html