您好,欢迎访问三七文档
当前位置:首页 > 商业/管理/HR > 管理学资料 > 斜拉桥ansys建模
斜拉桥ansys建模/com,newmodeloflinjiangcable_stayedbridge,2004.2.09/prep7/title,cable_stayedbridge,authorisSunhang/com,definethekeypoints*set,alfa1,10!angleoftowerupside*set,alfa2,65!angleoftowerdownside*set,alfa3,79.04594!angleoftowerwithbridgesurface*set,y1,55.5!桥塔顶面到原点的距离*set,y2,33.5!桥塔中部的Y轴向长度*set,pi,3.1415926*set,x3,y2/tan(alfa2*pi/180)!桥塔中部的X轴向长度*set,x2,(y1-y2)*tan(alfa1*pi/180)!桥塔上部的X轴向长度*set,x1,x2+x3!桥塔的X轴向长度*set,kp_yy1,0!定义桥塔上部的索锚固点竖向距离(从塔顶算起)*set,kp_yy2,2.5185*set,kp_yy3,3.5788*set,kp_yy4,4.6469*set,kp_yy5,5.7248*set,kp_yy6,6.8151*set,kp_yy7,7.9211*set,kp_yy8,9.0479*set,kp_yy9,10.2027*set,kp_yy10,11.3965*set,kp_yy11,12.6470*set,kp_yy12,13.9848*set,kp_yy13,15.7143*set,kp_yy14,17.7041*set,kp_yy15,22.0000k,1,-x1,y1,k,6,-x1+kp_yy2*tan(alfa1*pi/180),y1-kp_yy2k,8,-x1+kp_yy3*tan(alfa1*pi/180),y1-kp_yy3k,10,-x1+kp_yy4*tan(alfa1*pi/180),y1-kp_yy4k,12,-x1+kp_yy5*tan(alfa1*pi/180),y1-kp_yy5k,14,-x1+kp_yy6*tan(alfa1*pi/180),y1-kp_yy6k,16,-x1+kp_yy7*tan(alfa1*pi/180),y1-kp_yy7k,18,-x1+kp_yy8*tan(alfa1*pi/180),y1-kp_yy8k,20,-x1+kp_yy9*tan(alfa1*pi/180),y1-kp_yy9k,22,-x1+kp_yy10*tan(alfa1*pi/180),y1-kp_yy10k,24,-x1+kp_yy11*tan(alfa1*pi/180),y1-kp_yy11k,26,-x1+kp_yy12*tan(alfa1*pi/180),y1-kp_yy12k,28,-x1+kp_yy13*tan(alfa1*pi/180),y1-kp_yy13k,30,-x1+kp_yy14*tan(alfa1*pi/180),y1-kp_yy14k,38,-x1+kp_yy15*tan(alfa1*pi/180),y1-kp_yy15kfill,1,6!在已建关键点内内插关键点kfill,6,8kfill,8,10kfill,10,12kfill,12,14kfill,14,16kfill,16,18kfill,18,20kfill,20,22kfill,22,24kfill,24,26kfill,26,28kfill,28,30kfill,30,38*set,kp_numone,38!定义桥塔上部的最后一个关键点号/com,defineandmeshtheabovepartoftower*dim,BBS,,40*dim,HHS,,40*dim,SSS,,40*dim,IIYYS,,40*dim,IIZZS,,40*set,length1,2.9546108*set,length2,4.9251168*set,width1,3*set,width2,5*set,diff1_length,length2-length1!桥塔上部两个截面的长度之差(纵桥向)*set,diff1_width,width2-width1!桥塔上部两个截面的宽度之差(横桥向)*dim,yy,,40!定义桥塔上部的关键点竖向距离数组(从塔顶计算)*do,i,1,38*set,yy(i),y1-ky(i)*set,hhs(i),diff1_length*yy(i)/(y1-y2)+length1*set,bbs(i),diff1_width*yy(i)/(y1-y2)+width1SSS(i)=BBS(i)*HHS(i)!按照实心截面IIZZS(i)=BBS(i)*HHS(i)**3/12IIyyS(i)=HHS(i)*BBS(i)**3/12*enddo*do,i,1,kp_numone-1et,i,beam44keyopt,i,9,0mp,ex,i,3.5e10mp,prxy,i,0.167mp,dens,i,2.6e3mp,alpx,i,1e-05!定义混凝土的线膨胀系数r,i,SSs(i),IIZZS(i),IIyyS(i),BBS(i)/2,HHS(i)/2,IIZZS(i)+IIyyS(i)rmore,SSs(i+1),IIZZS(i+1),IIyyS(i+1),BBS(i+1)/2,HHS(i+1)/2,IIZZS(i+1)+IIyyS(i+1)rmore,0,0,0,0,0,0rmore,0,0,BBS(i)/2,HHS(i)/2,BBS(i+1)/2,HHS(i+1)/2lsel,u,real,,1,kp_numonelstr,i,i+1latt,i,i,ilesize,all,,,1,,1lmesh,all,allallsel,all*enddocm,uptower,elem*get,emin_ts,elem,0,num,min*get,emax_ts,elem,0,num,maxallselkp_ts=emax_ts-emin_ts+1!提取出来桥塔上部的关键点数目/com,createtthekpsoftowerdown*set,zfirst,1.25!三个控制点的横桥向坐标*set,zsecond,7.4839*set,kp_numtwo,kp_ts+2!定义桥塔下部的第一个关键点*set,diff1_elem,67!桥塔下部的单元数目*set,kp_numthree,kp_numtwo+diff1_elem!桥塔下部的最后一个关键点k,kp_numtwo,-y2/tan(alfa2*pi/180),y2,-zfirstk,kp_numthree,,,-zsecondkfill,kp_numtwo,kp_numthree*dim,BBX,,200*dim,HHX,,200*dim,SSX,,200*dim,IIYYX,,200*dim,IIZZX,,200*set,HHXQ,0.8*sin(alfa2*pi/180)!定义砍掉部分的长度*set,BBXQ,0.4*sin(alfa3*pi/180)*set,SSXQ,HHXQ*BBXQ*dim,IIYYXQ,,200*dim,IIZZXQ,,200!*set,w4,2.6875*2!在桥塔折角处单元的宽度!*set,w5,4.3682*2!在坐标原点处单元的宽度*set,w4,4.5361558*set,w5,8.1609208*do,i,1,diff1_elem+1BBX(i+kp_numone)=2.5*sin(alfa3*3.1415926/180)HHX(i+kp_numone)=w4+(i-1)*(w5-w4)/67SSX(i+kp_numone)=BBX(i+kp_numone)*HHX(i+kp_numone)-SSXQ*2IIYYXQ(i+kp_numone)=HHXQ*BBXQ**3/12+SSXQ*BBX(i+kp_numone)**2/4IIZZXQ(i+kp_numone)=BBXQ*HHXQ**3/12+SSXQ*HHX(i+kp_numone)**2/4IIYYX(i+kp_numone)=HHX(i+kp_numone)*BBX(i+kp_numone)**3/12-IIYYXQ(i+kp_numone)*2IIZZX(i+kp_numone)=BBX(i+kp_numone)*HHX(i+kp_numone)**3/12-IIZZXQ(i+kp_numone)*2*enddo*do,i,KP_numone,kp_numone+diff1_elem-1et,i,beam44keyopt,i,9,0mp,ex,i,3.5e10mp,prxy,i,0.167mp,dens,i,2600mp,alpx,i,1e-05!定义混凝土的线膨胀系数r,i,SSX(i+1),IIZZX(i+1),IIYYX(i+1),BBX(i+1)/2,HHX(i+1)/2,IIZZX(i+1)+IIYYX(i+1)rmore,SSX(i+2),IIZZX(i+2),IIYYX(i+2),BBX(i+2)/2,HHX(i+2)/2,IIZZX(i+2)+IIYYX(i+2)rmore,0,0,0,0,0,0rmore,0,0,BBX(i+1)/2,HHX(i+1)/2,BBX(i+2)/2,HHX(i+2)/2*enddo*do,i,kp_numtwo,kp_numthree-1lsel,u,real,,1,150lstr,i,i+1latt,i-1,i-1,i-1lesize,all,,,1,,1lmesh,allallsel,all*enddoesel,u,real,,1,kp_numtwo-2cm,downtower,elemallsel,allcmsel,s,downtower*get,emin_tx,elem,0,num,min*get,emax_tx,elem,0,num,maxallselkp_tx=emax_tx-emin_tx+1esel,all,allcm,tower,elemlsel,s,real,,kp_numone,kp_numthree-2lsymm,z,all,,,100allsel,all*set,kp_numfour,kp_numone+2*kp_tx+100+1!主梁的第一个关键点号!esel,s,ename,,beam44!tunif,0!tref,-30!allsel,all/com,couplethetowerupsideandtowerdowncerig,node(kx(38),ky(38),kz(38)),node(kx(39),ky(39),kz(39)),all,cerig,node(kx(38),ky(38),kz(38)),node(kx(139),ky(139),kz(139)),all,*set,beam_height,1.2725-0.3!主梁节点即锚固点到原点的距离!*set,kp_numfour,kp_numone+2*(kp_tx+1)+100+1!主梁的第一个关键点号*set,kp_numfour_inc,210!主梁的关键点数目-1*set,kp_numfive,kp_numfour+kp_numfour_inck,kp_numfour,,beam_heightk,kp_numfive,105,beam_heightkfill,kp_numfour,kp_numfive*do,i,1,kp_numfour_inclstr,kp_numfour+i-1,kp_numfour+i*enddo*set,enum_beam,emax_tx+1et,enum_beam,beam188mp,ex,enum_beam,3.5e10mp,prxy,enum_beam,0.0.167mp,dens,enum_beam,
本文标题:斜拉桥ansys建模
链接地址:https://www.777doc.com/doc-4238668 .html