MODEL(ZHLYJ).doc

MODEL(ZHLYJ)FINI/CLEAR/PREP7!!!!!!!!!!!!结构计算采用beam44单元ET,1,BEAM44ET,2,LINK10 !结构材料定义 !16Mn钢： MP,EX,1,2.06E11 MP,NUXY,1,0.3 MP,DENS,1,7850 !C50混凝土 MP,EX,2,3.5E10 MP,NUXY,2,1/6 MP,DENS,2,2650 !C40 MP,EX,3,3.3E10 MP,NUXY,3,1/6 MP,DENS,3,2650 !C30 MP,EX,4,3.0E10 MP,NUXY,4,1/6 MP,DENS,4,2650 !C25 MP,EX,5,2.85E10 MP,NUXY,5,1/6 MP,DENS,5,2650 !C20 MP,EX,6,2.60E10 MP,NUXY,6,1/6 MP,DENS,6,2650 !定义刚臂单元特性 MP,EX,6,2.1E14 MP,NUXY,6,0.3!!!!!!!!!!!!!!!! 结构材料定义完成!!!!!!!!!!!!!!!!定义结构构件截面 !LAB 主拱肋钢管截面 (1000*20) SECTYPE,1,BEAM,MESH, SECOFFSET,CENT,,, SECREAD,'1000-20(TZ)','SECT',' ',MESH !LBE 主拱肋钢管截面 (单元坐标系内向－y方向移动1cm) SECTYPE,2,BEAM,MESH, SECOFFSET,CENT,,, SECREAD,'1000-16(TZ)','SECT',' ',MESH !主拱肋--腹杆－－钢管截面 (450*14) SECTYPE,3,BEAM,CTUBE, , 0 SECOFFSET, USER, 0, 0 SECDATA,.45-0.028,.45,0,0,0,0,0,0,0,0 !主拱肋--腹杆－－钢管截面 (300*12) SECTYPE,4,BEAM,CTUBE, , 0 SECOFFSET, USER, 0, 0 SECDATA,.3-0.024,.3,0,0,0,0,0,0,0,0 !建立拱肋与桥面板单元处的横撑构件－－－钢梁 SECTYPE,5,BEAM,I,,0 SECOFFSET, USER, , SECDATA,0.6,0.7,0.975,0.025,0.025,0.025,0,0,0,0 !建立横梁单元截面 SECTYPE, 6, BEAM, RECT, , 0 SECOFFSET,CENT SECDATA,1.1,1,0,0,0,0,0,0,0,0 !建立桥面板单元截面 SECTYPE,7,BEAM,MESH, SECOFFSET,user,,-.8118, SECREAD,'BAN','SECT',' ',MESH !建立拱肋上立柱单元截面 SECTYPE,8,BEAM,MESH, SECOFFSET,CENT,,, SECREAD,'LIZHU-GL(TZ)','SECT',' ',MESH !建立拱肋外混凝土立柱单元截面 SECTYPE, 9, BEAM, CSOLID, , 0 SECOFFSET, CENT SECDATA,.6/2,0,0,0,0,0,0,0,0,0 !!!!!!!!!!输入吊索单元的实常数 R,1, R,2,0.0021,65E4/.0021/1.95E11, !短吊索单元性质 R,3,0.0014,65E4/.0014/1.95E11, !长吊索单元性质 !!!!!!!!!!!!!!!!结构截面定义完成!!建立拱肋----上拱肋!以下为上拱肋控制系数 LENGTH=166.3954 !拱肋跨度 RATIO=5.0045 !矢跨比 MM=1.3 !拱轴系数 KK=LOG(MM+SQRT(MM*MM-1))!!!!!!!!!!!!!!!!!!!!!!!!!!! *DO,I,1,25 !建立拱轴上钢管轴线点 X=(I-1)*2.5 Y1=LENGTH/RATIO/(MM-1)*(COSH(KK*X/(LENGTH/2))-1) N,I,-X,-Y1+1.1,*ENDDO X=123.3687/2 Y1=LENGTH/RATIO/(MM-1)*(COSH(KK*X/(LENGTH/2))-1) N,26,-X,-Y1+1.1,0*DO,I,1,9 !建立拱轴上钢管轴线点 X=(I-1)*2.5+62.5 Y1=LENGTH/RATIO/(MM-1)*(COSH(KK*X/(LENGTH/2))-1) N,I+26,-X,-Y1+1.1,*ENDDO X=LENGTH/2 Y1=LENGTH/RATIO/(MM-1)*(COSH(KK)-1) N,36,-X,-Y1+1.1,!!!!!!!!!!!!!建立上拱肋钢管单元 TYPE,1 SECNUM,2 *DO,I,1,26 E,I,I+1 *ENDDO SECNUM,1 *DO,I,1,9 E,I+26,I+1+26 *ENDDO /ESHAPE,1EPLOT!!!!!!!!!!!!!建立下拱肋钢管单元!以下为下拱肋控制系数 LENGTH=163.6117 !拱肋跨度 RATIO=5.0045 !矢跨比 MM=1.3 !拱轴系数 KK=LOG(MM+SQRT(MM*MM-1))!!!!!!!!!!!!!!!!!!!!!!!!!!! *DO,I,1,25 !建立拱轴下钢管轴线点 X=(I-1)*2.5 Y1=LENGTH/RATIO/(MM-1)*(COSH(KK*X/(LENGTH/2))-1) N,I+36,-X,-Y1-1.1,*ENDDO X=121.0976/2 Y1=LENGTH/RATIO/(MM-1)*(COSH(KK*X/(LENGTH/2))-1) N,26+36,-X,-Y1-1.1,0*DO,I,1,8 !建立拱轴下钢管轴线点 X=(I-1)*2.5+62.5 Y1=LENGTH/RATIO/(MM-1)*(COSH(KK*X/(LENGTH/2))-1) N,I+26+36,-X,-Y1-1.1,*ENDDO X=LENGTH/2 Y1=LENGTH/RATIO/(MM-1)*(COSH(KK)-1) N,71,-X,-Y1-1.1,!!!!!!!!!!!!!建立下拱肋钢管单元 TYPE,1 SECNUM,2 *DO,I,1,26 E,I+36,I+1+36 *ENDDO SECNUM,1 *DO,I,1,8 E,I+26+36,I+1+26+36 *ENDDO!!!!!!!!!!!建立腹杆单元SECNUM,3 *DO,I,1,25 E,I,i+36 *ENDDO *DO,I,1,24 E,I+1,i+36 *ENDDO *DO,I,1,8 E,I+26,i+36+26 *ENDDO E,27,61 *DO,I,1,8 E,I+27,i+62 *ENDDO/PNUM,NODE,1/ESHAPE,0EPLOT!!!!!!!!!!!!!建立另一半拱肋单元NGEN,2,71,ALL, , , , ,-11,1, EGEN,2,71,ALL, , , , , , , , , ,-11, !!!!!!!!!!!!!建立横撑单元NSEL,S,,,2,38,36CM,HZ1,NODENGEN,2,142,HZ1,,,,,-1.1NGEN,2,144,HZ1,,,,,-3.3NGEN,2,146,HZ1,,,,,-5.5NGEN,2,148,HZ1,,,,,-7.7NGEN,2,150,HZ1,,,,,-9.9SECNUM,3 E,2,144 E,38,180 E,152,73 E,188,109 *DO,I,1,4 E,144+(I-1)*2,146+(I-1)*2 E,180+(I-1)*2,182+(I-1)*2 *ENDDOSECNUM,4 E,148,182 E,148,186 E,186,152 E,182,144!!!!!!!!!!!!建立其他一字型横撑 NSEL,S,LOC,X,-2.5 NSEL,R,LOC,Y,NY(2) ESEL,S,,,271,281,2 CM,HZQ1,NODE CM,HZQ1,ELEM ALLSEL,ALL,ALL NGEN,2,1000,HZQ1, , , -25,-3.4538 ,,1, EGEN,2,1000,HZQ1, , , , , , , , -25, -3.4538,, NUMMRG,NODE NUMCMP,NODE NGEN,2,1000,HZQ1, , , -25,NY(48)-NY(2) ,,1, EGEN,2,1000,HZQ1, , , , , , , , -25, NY(48)-NY(2),, NUMMRG,NODE NUMCMP,NODE SECNUM,4 E,153,159 E,159,155 E,155,161 E,161,157 NGEN,2,1000,HZQ1, , , -50,NY(22)-NY(2),,1, EGEN,2,1000,HZQ1, , , , , , , , -50, NY(22)-NY(2),, NUMMRG,NODE NUMCMP,NODE NGEN,2,1000,HZQ1, , , -50,NY(58)-NY(2),,1, EGEN,2,1000,HZQ1, , , , , , , , -50, NY(58)-NY(2),, NUMMRG,NODE NUMCMP,NODE SECNUM,4 E,165,169 E,165,171 E,169,163 E,171,167 !!!!!!!!!!!! 建立k字型横撑 N,1000,NX(145),NY(145),NZ(145) N,1002,NX(75),NY(75),NZ(75) FILL SECNUM,3 E,1000,1001 E,1001,1002 N,2000,NX(145),NY(145),NZ(145) N,2002,NX(4),NY(4),NZ(4) FILL SECNUM,3 E,2000,2001 。