*SET,k,128+i+6

n, instb1+i+20, , *(i+6), +z(k) n, instb2+i+20, , *(i+6), +z(k) *enddo !Y2

*do, i, 1, 4 *SET,k,56+i

n, instb1+i+24, , +12*i, +z(k) n, instb2+i+24, , +12*i, +z(k) *enddo *do, i, 1, 4 *SET,k,56+i

n, instb1+i+28, ,+12*i, +z(k) n, instb2+i+28, ,+12*i, +z(k) *enddo *do, i, 1, 4 *SET,k,115+i+6

n, instb1+i+32, ,*(i+6), +z(k) n, instb2+i+32, ,*(i+6), +z(k) *enddo *do, i, 1, 4 *SET,k,115+i+6

n, instb1+i+ni, ,*(i+6), +z(k) n, instb2+i+ni, ,*(i+6), +z(k) *enddo !生成箱梁的单元 *do, i, 1,nz-1,1

!底板，shell63， 钢，type,1 mat,1 real,2 *do, j, 1, 10, 1

e, i*ni+j, i*ni+j+1, (i+1)*ni+j+1, (i+1)*ni+j, *enddo

!顶板，shell63， 钢，type,1 mat,1 real,1

*do, j, 27, 30, 1

e, i*ni+j, i*ni+j+1, (i+1)*ni+j+1, (i+1)*ni+j, *enddo

*do, j, 32, 35, 1

e, i*ni+j, i*ni+j+1, (i+1)*ni+j+1, (i+1)*ni+j, *enddo

厚度8 厚度7 !腹板、底板加劲肋，shell63， 钢， 厚度4 type,1 mat,1 real,3 *do, j, 1, 11, 1

e, i*ni+j, (i+1)*ni+j, (i+1)*ni+j+11, i*ni+j+11 *enddo

e, i*ni+12, (i+1)*ni+12, (i+1)*ni+23, i*ni+23 e, i*ni+23, (i+1)*ni+23, (i+1)*ni+24, i*ni+24 e, i*ni+24, (i+1)*ni+24, (i+1)*ni+29, i*ni+29 e, i*ni+22, (i+1)*ni+22, (i+1)*ni+25, i*ni+25 e, i*ni+25, (i+1)*ni+25, (i+1)*ni+26, i*ni+26 e, i*ni+26, (i+1)*ni+26, (i+1)*ni+34, i*ni+34 *enddo !生成横隔板单元 type,1 mat,1 real,3 *do, i, 1, 18, 1 !生成横隔板单元 *do, l, 0, 9, 1

e, del(i)*ni+1+l, del(i)*ni+2+l, del(i)*ni+13+l, del(i)*ni+12+l,

*enddo *do, l, 0, 7,1 e,

infl+i*nfl+l+1,

infl+i*nfl+l+2,

infl+i*nfl+l+11,

infl+i*nfl+l+10,

e, del(i)*ni+l+13,del(i)*ni+l+14, infl+i*nfl+l+2, infl+i*nfl+l+1, *enddo *do, l, 0, 5, 1 e,

infl+i*nfl+l+11,

infl+i*nfl+l+12,

infl+i*nfl+l+20,

infl+i*nfl+l+19, *enddo *do, l, 0, 5, 1 e,

infl+i*nfl+l+19,

infl+i*nfl+l+20,

infl+i*nfl+l+27,

infl+i*nfl+l+26 e,

infl+i*nfl+l+33,

infl+i*nfl+l+34,

infl+i*nfl+l+20,

infl+i*nfl+l+19 *enddo

e, del(i)*ni+31, infl+i*nfl+19, infl+i*nfl+26, (del(i)-1)*ni+31, e, (del(i)+1)*ni+31, infl+i*nfl+33, infl+i*nfl+19, del(i)*ni+31, e, infl+i*nfl+25, del(i)*ni+32, (del(i)-1)*ni+32, infl+i*nfl+32, e, infl+i*nfl+nfl, (del(i)+1)*ni+32, del(i)*ni+32, infl+i*nfl+25, e, del(i)*ni+12, del(i)*ni+13, infl+i*nfl+1,del(i)*ni+23 e, del(i)*ni+23, infl+i*nfl+1, infl+i*nfl+10, del(i)*ni+24,

e, del(i)*ni+24, infl+i*nfl+10, del(i)*ni+31, del(i)*ni+29, e, infl+i*nfl+10, infl+i*nfl+11, infl+i*nfl+19, del(i)*ni+31, e, del(i)*ni+21, del(i)*ni+22, del(i)*ni+25, infl+i*nfl+9, e, infl+i*nfl+9, del(i)*ni+25, del(i)*ni+26, infl+i*nfl+18, e, infl+i*nfl+18, del(i)*ni+26, del(i)*ni+34, del(i)*ni+32, e, infl+i*nfl+17, infl+i*nfl+18, del(i)*ni+32, infl+i*nfl+25, *enddo

!生成混凝土单元 type,2 mat,2 real, 4

*do, i, 1, 153, 1 *do, j, 0, 130, 3 *do, k, 2, 3, 1

e,incr+nc*i+j+k,incr+nc*(i+1)+j+k,incr+nc*(i+1)+j+k+3,incr+nc*i+j+k+3,incr+nc*i+j+k-1,incr+nc*(i+1)+j+k-1,incr+nc*(i+1)+j+k+2, incr+nc*i+j+k+2, *enddo *enddo *enddo

!生成Y1钢绞线单元 type,3