斜拉橋ansys建模-在線瀏覽
2024-08-06 18:01本頁面
【正文】 im,BBS,40*dim,HHS,40*dim,SSS,40*dim,IIYYS,40*dim,IIZZS,40*set,length1,*set,length2,*set,width1,3*set,width2,5*set,diff1_length,length2length1 !橋塔上部兩個截面的長度之差（縱橋向）*set,diff1_width,width2width1 !橋塔上部兩個截面的寬度之差（橫橋向）*dim,yy,40 !定義橋塔上部的關鍵點豎向距離數(shù)組（從塔頂計算）*do,i,1,38 *set,yy(i),y1ky(i) *set,hhs(i),diff1_length*yy(i)/(y1y2)+length1 *set,bbs(i),diff1_width*yy(i)/(y1y2)+width1 SSS(i)=BBS(i)*HHS(i) !按照實心截面 IIZZS(i)=BBS(i)*HHS(i)**3/12 IIyyS(i)=HHS(i)*BBS(i)**3/12*enddo*do,i,1,kp_numone1et,i,beam44keyopt,i,9,0mp,ex,i,mp,prxy,i,mp,dens,i,mp,alpx,i,1e05 !定義混凝土的線膨脹系數(shù)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_tsemin_ts+1 !提取出來橋塔上部的關鍵點數(shù)目/,createt the kps of tower down*set,zfirst, !三個控制點的橫橋向坐標*set,zsecond,*set,kp_numtwo,kp_ts+2 !定義橋塔下部的第一個關鍵點*set,diff1_elem,67 !橋塔下部的單元數(shù)目*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,*sin(alfa2*pi/180) !定義砍掉部分的長度*set,BBXQ,*sin(alfa3*pi/180) *set,SSXQ,HHXQ*BBXQ*dim,IIYYXQ,200*dim,IIZZXQ,200!*set,w4,*2 !在橋塔折角處單元的寬度!*set,w5,*2 !在坐標原點處單元的寬度*set,w4,*set,w5,*do,i,1,diff1_elem+1 BBX(i+kp_numone)=*sin(alfa3*) HHX(i+kp_numone)=w4+(i1)*(w5w4)/67 SSX(i+kp_numone)=BBX(i+kp_numone)*HHX(i+kp_numone)SSXQ*2 IIYYXQ(i+kp_numone)=HHXQ*BBXQ**3/12+SSXQ*BBX(i+kp_numone)**2/4 IIZZXQ(i+kp_numone)=BBXQ*HHXQ**3/12+SSXQ*HHX(i+kp_
電大資料相關推薦
鄂ICP備17016276號-1