曲线梁桥ANSYS计算命令流

!****************************************************************************** ***********************

! case2:无偏载(以跨径布置30m+40m+30m,桥宽8.5为例）

! 上海城市设计研究院L1+L2+L3预应力混凝土曲线连续梁桥结构分析

! 两端为抗扭支座，中间支座为点铰支座

! 每次要记得修改横隔梁的参数，即Mass21单元的实常数

!****************************************************************************** ***********************

FINI

/CLE

/prep7

!DEFINE THE ELEMENTARY PARAMETERS

*DIM,L,ARRAY,10

*DIM,H,ARRAY,10

*DIM,CITA,ARRAY,10

!*****以下参数均可修改***************

N=3 !跨数

L(1)=30 !第一跨

L(2)=40 !第二跨

L(3)=30 !第三跨

e1=1.25 !1#墩处内支座到中心线的间距

e2=1.25 !1#墩处外支座到中心线的间距

e3=0 !2#墩处的支座偏心距（正的表示外偏）

e4=0 !3#墩处的支座偏心距

e5=1.25 !4#墩处内支座到中心线的间距

e6=1.25 !4#墩处外支座到中心线的间距

R=10000 !曲线桥半径

H0=1.0 !梁底到截面形心处的高度

M=16146 !mass21单元质量

J=27246.38 !mass21单元转动惯量

!*************************************

LL=0.0

*DO,I,1,N

LL=LL+L(I)

CITA(I)=L(I)/R/3.1415925*180

*ENDDO

CITA0=LL/R/3.1415925*180

LOCAL,11,1,0,0,0,0,270,0

CSYS,11

!DEFINE THE NODES OF BRIDGE

N, 1, R, -179.9999, H0

N, L(1)+1, R, -179.9999+CITA(1), H0

N, L(1)+L(2)+1, R, -179.9999+CITA(1)+CITA(2), H0 N, L(1)+L(2)+L(3)+1, R, -179.9999+CITA0, H0

FILL,1,L(1)+1

FILL,L(1)+1,L(1)+L(2)+1

FILL,L(1)+L(2)+1,L(1)+L(2)+L(3)+1

!DEFINE THE REFERENCE POINT OF MAIN DECK

N,2000,0,0,0

!***************************************************************** !DEFINE THE NODES OF RIGID BEAM OF MAIN GIRDER

N, 2001, R-e1, -179.9999, H0

N, 2002, R+e2, -179.9999, H0

N, 2003, R+e3, -179.9999+CITA(1), H0

N, 2004, R+e4, -179.9999+CITA(1)+CITA(2), H0

N, 2005, R-e5, -179.9999+CITA0, H0

N, 2006, R+e6, -179.9999+CITA0, H0

NROTA T,ALL

!*****************************************************

! 定义主梁单元材料、几何参数

! 混凝土标号为C40

!**************梁段截面几何特性*******************

ET,1,BEAM4

MP,EX , 1, 3.25E+10

MP,NUXY, 1, 0.2000

MP,DENS, 1, 3950.50

MP,ALPX, 1, 1.00E-05

R,1,4.39129,2.4428,20.7089,8.5,2.0,, !跨中梁断面RMORE ,,5.0388,,,,,

!**************刚臂截面几何特性*******************

! 增设抗扭或偏心支座时采用

ET,3,BEAM4

MP,EX , 3, 3.25E+10

MP,NUXY, 3, 0.2000

MP,DENS, 3, 0.0

MP,ALPX, 3, 1.0E-08

R,3,100,1000,1000,0.5,0.5,,

RMORE ,,1000,,,,,

!****************生成主梁单元**********************

TYPE,1

MA T,1

REAL,1

*DO,I,1,LL,1

E,I,I+1,2000

*ENDDO

!*********************************************************** ! 生成主梁刚臂单元

!*********************************************************** TYPE,3

MA T,3

REAL,3

E,2001,1

E,1,2002

*IF,e3,GT,0.0,THEN

E,2003,L(1)+1

*ELSE

NSEL,U, , ,2003

*ENDIF

*IF,e4,GT,0.0,THEN

E,2004,L(1)+L(2)+1

*ELSE