桥梁地震分析.docVIP

桥梁地震分析 /clear /filename,ex6-1 !设定工作名 /title, The Dynamic Analysis of the Bridge !设定工作标题 /prep7 !进入前处理模块 !********************************** !定义单元类型及单元实常数 !********************************** Et,1,beam4 !定义单元类型 Et,2,shell63 Et,3,link10 !定义梁单元实常数 *dim,BBS,,43 !初始化描述塔上部截面几何特征的数组 *dim,HHS,,43 *dim,SSS,,43 *dim,IIYYS,,43 *dim,IIZZS,,43 ! *do,i,1,43 !通过DO循环对数组赋值 BBS(i)=1.5*(i-1)/42+3 HHS(i)=(i-1)/21+3 SSS(i)=BBS(i)*HHS(i) IIzzS(i)=BBS(i)*HHS(i)**3/12 IIyyS(i)=HHS(i)*BBS(i)**3/12 *enddo !DO循环赋值结束 ! *dim,BS,,42 !初始化描述塔上部截面平均特征的数组 *dim,HS,,42 *dim,SS,,42 *dim,IYYS,,42 *dim,IZZS,,42 *do,i,1,42 !通过DO循环对数组赋值 hS(i)=(hhS(i)+hhS(i+1))/2 bS(i)=(bbS(i)+bbS(i+1))/2 SS(i)=(SSS(i)+SSS(i+1))/2 IYYS(i)=(IIYYS(i)+IIYYS(i+1))/2 IZZS(i)=(IIZZS(i)+IIZZS(i+1))/2 *enddo !DO循环赋值结束 ! *dim,BBX,,80 !初始化描述塔下部截面几何特征的数组 *dim,HHX,,80 *dim,SSX,,80 *dim,IIYYX,,80 *dim,IIZZX,,80 ! *do,i,1,80 !通过DO循环对数组赋值 BBX(i)=2.5 HHX(i)=(i-1)*4.7164/79+5 SSX(i)=BBX(i)*HHX(i) IIzzX(i)=BBX(i)*HHX(i)**3/12 IIyyX(i)=HHX(i)*BBX(i)**3/12 *enddo !DO循环赋值结束 ! *dim,BX,,79 !初始化描述塔下部截面平均特征的数组 *dim,HX,,79 *dim,SX,,79 *dim,IYYX,,79 *dim,IZZX,,79 *do,i,1,79 !通过DO循环对数组赋值 BX(i)=(BBX(i)+BBX(i+1))/2 HX(i)=(HHX(i)+HHX(i+1))/2 SX(i)=(SSX(i)+SSX(i+1))/2 IYYX(i)=(IIYYX(i)+IIYYX(i+1))/2 IZZX(i)=(IIZZX(i)+IIZZX(i+1))/2 *enddo !DO循环赋值结束 ! *do,i,1,42 !定义塔上部单元实常数 r,i,SS(i),IZZS(i),IYYS(i),bS(i),hS(i) *enddo ! *do,i,43,114 !定义塔下部单元实常数 r,i,SX(i-42),IZZX(i-42),IYYX(i-42),bX(i-42),hX(i-42) *enddo !定义壳单元实常数 r,115,1,,,,, !定义桥面-1单元实常数 r,116,4,,,,, !定义桥面-2单元实常数 r,117,1,,,,,