ansys变截面梁的定义

本文转载自yuepeng1987121的博客，原文地址

（例1：来源）

变截面梁的定义

定义变截面梁之前需定义两个截面：

SECTYPE，1，BEAM，HREC，，0 ！空芯矩形截面1

SECDATA,10,20,2,2,2,2,0,0,0,0 ！截面1尺寸定义

SECTYPE，2，BEAM，HREC，，0 ！空芯矩形截面2

SECDATA,8,10,2,2,2,2,0,0,0,0 ！截面2尺寸定义

！定义两个截面后,再定义变截面

SECTYPE,3,TAPER,, ！变截面3

SECDATA,1,,,,

SECDATA,2,10 ！截面由1变到2,位置由(0,0,0)变到(10,0,0,)

（例2：转自http://www.luxinzheng.net/download/ANSYS_BEAM54.html）

finish
/clear

/PREP7
A_HYT1=0.4 !A端
A_HYB1=0.1 !A端
B_HYT1=0.2 !B端
B_HYB1=0.1 !B端
OFFSET=0.5 !偏移
!*
ET,1,BEAM54
!*
!*
*SET,_RC_SET,1,
R,_RC_SET,0.08,0.0010666666666667,A_HYT1,A_HYB1,
RMODIF,_RC_SET,9,0,-OFFSET,
RMODIF,_RC_SET,14,0,
RMODIF,_RC_SET,5,0.2*0.2,0.2*0.2**3/12,B_HYT1,B_HYB1,
RMODIF,_RC_SET,11,0,-OFFSET,
RMODIF,_RC_SET,15,0,
RMODIF,_RC_SET,13,0,
RMODIF,_RC_SET,16,0, , ,
!*
*SET,_RC_SET,2,
R,_RC_SET,0.08,0.0010666666666667,A_HYB1,A_HYT1,
RMODIF,_RC_SET,9,0,OFFSET,
RMODIF,_RC_SET,14,0,
RMODIF,_RC_SET,5,0.2*0.2,0.2*0.2**3/12,B_HYB1,B_HYT1,
RMODIF,_RC_SET,11,0,OFFSET,
RMODIF,_RC_SET,15,0,
RMODIF,_RC_SET,13,0,
RMODIF,_RC_SET,16,0, , ,
!*

!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,200e3
MPDATA,PRXY,1,,.2
N,1,0,,,,,,
N,2,5,,,,,,
N,3,10,,,,,,
TYPE, 1
MAT, 1
REAL, 1

!*
e,1,2
REAL, 2
e,3,2
/eshap,1
EPLOT

（例3：转自http://forum.simwe.com/archiver/tid-64381.html）

VM34是个变截面梁的例子，分别用SHELL63和BEAM44做的。

其中BEAM44的实常数是这样设置的：

ET,1,BEAM44

*DO,I,1,10 ! CREATE DO LOOP FOR REAL CONSTANTS

R,I, 1,1,.003125*(I-1),.25,1

RMORE,1,1,.003125* I ,.25,1

*ENDDO

实常数的定义为：

Real Constants

Constants 1-24 (basic set):

AREA1, IZ1, IY1, TKZB1, TKYB1, IX1,

AREA2, IZ2, IY2, TKZB2, TKYB2, IX2,

DX1, DY1, DZ1, DX2, DY2, DZ2,

SHEARZ, SHEARY, TKZT1, TKYT1, TKZT2, TKYT2

（例4：转自http://forum.simwe.com/archiver/tid-64381.html）

用beam188or189可以保证截面的连续性，下面是一个变截面桥墩
fini
/clear
/filname,pounding
/prep7
/title,pounding
et,1,82
et,2,44
et,3,188
mp,ex,2,3.45E10
mp,prxy,2,0.1667
mp,dens,2,2500
mp,ex,3,3.0e10
mp,prxy,3,0.1667
mp,dens,3,2500
!
!建立桥墩
!1号桥墩位置
k,100,0,-15.1,32.65
k,101,0,-7.1,32.65
k,102,0,-6,32.65
k,103,0,-5.0,32.65
k,104,0,-3.9,32.65
k,105,0,-3.2,32.65
k,106,0,-15.1,35 !参考点
lstr,100,101
*do,i,101,104
lstr,i,i+1
*enddo
sectype,10,beam,rect
secdata,5.667,2.0
sectype,11,beam,rect
secdata,5.0,2.0
sectype,12,beam,rect
secdata,5.47.4,2.311
sectype,13,beam,rect
secdata,6.478,2.889
sectype,14,beam,rect
secdata,7.0,3.2
sectype,15,taper
secdata,10,0.0,-15.1,32.65
secdata,11,0.0,-7.1,32.65
sectype,16,taper
secdata,11,0.0,-7.1,32.65
secdata,12,0.0,-6,32.65
sectype,17,taper
secdata,12,0.0,-6.0,32.65
secdata,13,0.0,-5.0,32.65
sectype,18,taper
secdata,13,0.0,-5.0,32.65
secdata,14,0.0,-3.9,32.65
sectype,19,taper
secdata,14,0.0,-3.9,32.65
secdata,14,0.0,-3.2,32.65

!划分网格
*do,i,1,5,1
lsel,s,,,i
latt,3,15+(i-1),3,,106,106,15+(i-1)
lesize,all,2.0
lmesh,i
*enddo
/eshape,1.0
eplot