数组问题

yangmingyu

下面命令流输入后总显示数组定义问题 请高手指教！
/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
   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

！初始化描述塔上部截面平均特征的数组

*dim,BS,,42
*dim,HS,,42
*dim,SS,,42
*dim,IYYS,,42
*dim,IZZS,,42
*do,i,1,42
   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

!初始化描塔下部截面几何特性的数组
*dim,BBX,,80
*dim,HHX,,80
*dim,SSX,,80
*dim,IIYYX,,80
*dim,IIZZX,,80
*do,i,1,80
  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

!初始化描述塔下部截面平均特征的数组

                           *dim,BX,,79
*dim,HX,,79
*dim,SX,,79
*dim,IYYX,,79
*dim,IZZX,,79
*do,i,1,79
   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