*enddo !生成箱梁的单元 *do, i, 1,nz-1,1
!底板，shell63， 钢， 厚度8 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， 钢， 厚度7 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
!腹板、底板加劲肋，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 mat,1 real, 5
*do, i, 37, 126, 1 e, insty1+i-36,insty1+i-ni+1
e, insty1+i-36+127-37+1, insty1+i-ni+127-37+2
e, insty1+(i-36)+2*(127-37)+2,insty1+(i-ni)+2*(127-37)+3 *enddo
e, instb1+4, insty1+1, e, instb1+8, insty1+1+127-37+1 e, instb1+12, insty1+1+2*(127-37)+2 e, instb1+13, insty1+(127-36)
e, instb1+17, insty1+(127-36)+127-37+1, e, instb1+21, insty1+(127-36)+2*(127-37)+2 *do, i, 1, 3 *do, j ,0, 5
e, instb1+i+j*4, instb1+i+j*4+1 *enddo *enddo finish /SOL
!进入求解器施加荷载
ESEL,S,TYPE,,3 !选择现有单元类型为LINK8的单元 EPLOT
BFE,all,TEMP,1,tem1 !对目前显示的所有单元施加温度荷载，大小为-tem1