文档介绍：内部编号：（YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128）
时程分析实例
时程分析实例
finish
/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)=*(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)=
HHX(i)=(i-1)*+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-4