/FILNAME,Bridge ,1!定义工作文件名。

/TITLE,Bridge Analysis!定义工作标题。

/PREP7ET,1, BEAM188ET,2, SHELL63!定义单元。

!定义材料属性。

MPTEMP,,,,,,,,!定义桥面材料1属性。

MPTEMP,1,0MPDATA,EX,1,,1.6e5MPDATA,PRXY,1,,0.35 MPTEMP,,,,,,,,MPTEMP,1,0MPDATA,DENS,1,,6e-6 MPTEMP,,,,,,,,!定义梁材料2属性。

MPTEMP,1,0MPDATA,EX,2,,2.06e5MPDATA,PRXY,2,,0.3MPTEMP,,,,,,,,MPTEMP,1,0MPDATA,DENS,2,,7.83e-6!定义截面。

SECTYPE, 1, BEAM, HREC, , 0!定义1号截面□。

SECOFFSET, CENTSECDATA,300,650,55,55,55,55,0,0,0,0 SECTYPE, 2, BEAM, RECT, , 0!定义2号截面■。

SECOFFSET, CENTSECDATA,850,300,8,8,0,0,0,0,0,0SECTYPE, 3, BEAM, CTUBE, , 0!定义3号截面◎。

SECOFFSET, CENTSECDATA,25,45,8,0,0,0,0,0,0,0SECTYPE, 4, BEAM, RECT, , 0!定义4号截面■。

SECOFFSET, CENTSECDATA,280,280,8,8,0,0,0,0,0,0SECTYPE, 5, BEAM, HREC, , 0!定义5号截面□。

SECOFFSET, USER, -6, 150SECDATA,600,300,8,8,8,8,0,0,0,0!定义实常数。

R,8,12, , , , , ,RMORE, , , ,RMORER,200, , , , , , ,RMORE, , , ,RMORERMORE, ,!建立几何模型!创建主拱。

K,1,4000,5989.3,, !创建主拱关键点。

K,2,4000,5833.3,2500,K,3,4000,5357.6,5000,K,4,4000,4538.3,7500,K,5,4000,3326.6,10000,K,6,4000,1632.3,12500,K,7,4000, ,14318.1,K,8,4000,-3000,33509.9/2,K,9,4000, ,,K,10,4000, ,2500,K,11,4000, ,5000,K,12,4000, ,7500,K,13,4000, ,10000,K,14,4000, ,12500,K,15,4000, ,33509.9/2,FLST,3,8,3 !创建主拱轮廓线。

FITEM,3,1FITEM,3,2FITEM,3,3FITEM,3,4FITEM,3,5FITEM,3,6FITEM,3,7FITEM,3,8BSPLIN, ,P51XLSTR, 1, 9LSTR, 2, 10LSTR, 3, 11LSTR, 4, 12LSTR, 5, 13LSTR, 6, 14LSTR, 15, 8LSTR, 9, 7LSTR, 15, 7FLST,2,2,4,ORDE,2FITEM,2,1FITEM,2,9FITEM,2,1FITEM,2,9FLST,3,6,4,ORDE,3FITEM,3,3FITEM,3,-7FITEM,3,10LSBL,P51X,P51XLSTR, 2, 10LSTR, 3, 11LSTR, 4, 12LSTR, 5, 13LSTR, 6, 14LSTR, 15, 7K,16,4000,-1627.3,19396.9,!创建副拱关键点16～28。

K,17,4000,-706.3,22038.9,K,18,4000, ,27321.6,K,19,4000,-706.3,32604.3,K,20,4000,-1627.3,35246.3,K,21,4000,-3000 ,37888.3,K,22,4000, ,19396.9,K,23,4000, ,22038.9,K,24,4000, ,32604.3,K,25,4000, ,35246.3,K,26,4000, ,37888.3,K,27,4000, ,24680.2,K,28,4000, ,29962.9,FLST,3,4,3 !创建副拱轮廓线。

FITEM,3,8FITEM,3,16FITEM,3,17FITEM,3,18BSPLIN, ,P51XFLST,3,4,3!创建副拱轮廓线。

FITEM,3,18FITEM,3,19FITEM,3,20FITEM,3,21BSPLIN, ,P51XLSTR, 16, 22LSTR, 17, 23LSTR, 19, 24LSTR, 20, 25LSTR, 21, 26LSTR, 26, 24LSTR, 27, 18LSTR, 28, 18LSTR, 28, 24FLST,2,4,4,ORDE,4!副拱分割。

FITEM,2,9FITEM,2,-10FITEM,2,29FITEM,2,-30FLST,3,4,4,ORDE,2FITEM,3,24FITEM,3,-27LSBL,P51X,P51XLSTR, 16, 22!创建副拱立柱。

LSTR, 17, 23LSTR, 19, 24LSTR, 20, 25!创建桥面。

K,29, ,5989.3,, !创建桥面关键点29～48。

K,30, ,5833.3,2500,K,31, ,5357.6,5000,K,32, ,4538.3,7500,K,33, , ,14318.1,K,34, , ,,K,35, , ,2500,K,36, , ,5000,K,37, , ,7500,K,38, , ,10000,K,39, , ,12500,K,40, , ,33509.9/2,K,41, , ,19396.9,K,42, , ,22038.9,K,43, , ,27321.6,K,44, , ,32604.3,K,45, , ,35246.3,K,46, , ,37888.3,K,47, , ,24680.2,K,48, , ,29962.9,!创建桥面关键点完成。

LSTR, 1, 29!创建桥面横梁。

LSTR, 2, 30LSTR, 3, 31LSTR, 4, 32LSTR, 7, 33LSTR, 11, 36LSTR, 12, 37LSTR, 13, 38LSTR, 14, 39LSTR, 15, 40LSTR, 22, 41LSTR, 23, 42LSTR, 18, 43LSTR, 24, 44LSTR, 25, 45LSTR, 26, 46LSTR, 27, 47LSTR, 28, 48FLST,2,4,3!创建桥面。

FITEM,2,46FITEM,2,34FITEM,2,9FITEM,2,26A,P51XFLST,3,14,4,ORDE,5FITEM,3,45FITEM,3,47FITEM,3,-57FITEM,3,59FITEM,3,-60ASBL, 1,P51X!网格划分。

FLST,5,75,4,ORDE,4!单元大小控制。

FITEM,5,1FITEM,5,-60FITEM,5,63FITEM,5,-77CM,_Y,LINELSEL, , , ,P51XCM,_Y1,LINECMSEL,,_YLESIZE,_Y1,260, , , , , , ,1!桥面单元、材料分配及网格划分。

TYPE, 2MAT, 1REAL, 8MSHAPE,0,2DMSHKEY,0FLST,5,15,5,ORDE,2FITEM,5,2FITEM,5,-16CM,_Y,AREAASEL, , , ,P51XCM,_Y1,AREACHKMSH,'AREA'CMSEL,S,_YAMESH,_Y1CMDELE,_YCMDELE,_Y1CMDELE,_Y2!主拱、副拱单元、材料分配及网格划分。

TYPE, 1 !主拱、副拱单元、材料分配。

MAT, 2REAL, 200ESYS, 0SECNUM, 1FLST,2,13,4,ORDE,5!主拱、副拱线共13条：11～17,35,37～41。

FITEM,2,11FITEM,2,-17FITEM,2,35FITEM,2,37FITEM,2,-41LMESH,P51X!桥面主梁单元、材料分配及网格划分。

TYPE, 1 ! 桥面主梁单元、材料分配。

MAT, 2REAL, 200ESYS, 0SECNUM, 2FLST,2,15,4,ORDE,8 !桥面主梁线共15条：7，18～23, 31～34,36,42～44。

FITEM,2,7FITEM,2,18FITEM,2,-23FITEM,2,31FITEM,2,-34FITEM,2,36FITEM,2,42FITEM,2,-44!主拱拉梁、横梁单元、材料分配及网格划分。

TYPE, 1 !主拱拉梁、横梁单元、材料分配。

MAT, 2REAL, 200ESYS, 0SECNUM, 3FLST,2,10,4,ORDE,6 ! 主拱拉梁、横梁线共10条:1～6, 26,27,29,30。

FITEM,2,1FITEM,2,-6FITEM,2,26FITEM,2,-27FITEM,2,29FITEM,2,-30LMESH,P51X!副拱立柱单元、材料分配及网格划分。

TYPE, 1MAT, 2REAL, 200ESYS, 0SECNUM, 4FLST,2,6,4,ORDE,5 ! 副拱立柱线共6条:8～10, 24,25,28。

FITEM,2,8FITEM,2,-10FITEM,2,24FITEM,2,-25FITEM,2,28LMESH,P51X!桥面横梁单元、材料分配及网格划分。

TYPE, 1MAT, 2REAL, 200REAL,ESYS, 0SECNUM, 5FLST,2,16,4,ORDE,2 !桥面横梁线共16条:45～60。

FITEM,2,45FITEM,2,-60LMESH,P51X!扩展显示设置。

/EXPAND,2,LRECT,HALF,0.0001,,,2,LRECT,HALF,,,0.0001, ,RECT,FULL,,,, /REPLOT!单元显示设置。

/ESHAPE,1.0/EFACET,1/RATIO,1,1,1/CFORMAT,32,0/REPLOT!加载并求解。

FLST,2,16,4,ORDE,3 !施加线对称约束（共16条）：线46，63～77。

FITEM,2,46FITEM,2,63FITEM,2,-77DL,P51X, ,SYMMFLST,5,4,1,ORDE,4 !施加节点对称约束。