时程分析实例

时程分析实例 finish/clear/filename,ex6-1 !设定工作名/title, The Dynamic Analysis of the Bridge !设定工作标题/prep7 !进入前处理模块!**********************************!定义单元类型及单元实常数!**********************************Et,1,beam4 !定义单元类型Et,2,shell63Et,3,link10!定义梁单元实常数*dim,BBS,,43 !初始化描述塔上部截面几何特征的数组 *dim,HHS,,43*dim,SSS,,43*dim,IIYYS,,43*dim,IIZZS,,43!*do,i,1,43 !通过 DO 循环对数组赋值BBS(i)=*(i-1)/42+3HHS(i)=(i-1)/21+3SSS(i)=BBS(i)*HHS(i) IIzzS(i)=BBS(i)*HHS(i)**3/12IIyyS(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))/2bS(i)=(bbS(i)+bbS(i+1))/2SS(i)=(SSS(i)+SSS(i+1))/2IYYS(i)=(IIYYS(i)+IIYYS(i+1))/2IZZS(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)=HHX(i)=(i-1)*79+5SSX(i)=BBX(i)*HHX(i) IIzzX(i)=BBX(i)*HHX(i)**3/12IIyyX(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))/2HX(i)=(HHX(i)+HHX(i+1))/2SX(i)=(SSX(i)+SSX(i+1))/2IYYX(i)=(IIYYX(i)+IIYYX(i+1))/2IZZX(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,,,,, !定义桥面-3 单元实常数!定义索单元实常数*dim,cable_strain_bs,,2 !定义背索单元实常数数组cable_strain_bs(1)= !定义初始应变（预应力）2500cable_strain_bs(2)= !定义初始应变（预应力）2500!R,118,,cable_strain_bs(1) !定义背索单元实常数R,119,,cable_strain_bs(2)! *dim,cable_strain_zs,,11...