内容发布更新时间 : 2024/11/19 16:47:59星期一 下面是文章的全部内容请认真阅读。

*SET,concrete(111, 2), ,,,,, ,,,, *SET,concrete(121, 2), ,,,,,,,,, *SET,concrete(131, 2), ,,,,, *SET,concrete(1, 3), , , , , , , , , , *SET,concrete(11, 3), , , , , , , , , , *SET,concrete(21, 3), , , , , , , , , , *SET,concrete(31, 3), , , , , , , , , , *SET,concrete(41, 3), , , , , , , , , , *SET,concrete(51, 3), , , , , , , , , , *SET,concrete(61, 3), , , , , , , , , , *SET,concrete(71, 3), , , , , , , , , , *SET,concrete(81, 3), , , , , , , , , , *SET,concrete(101, 3), ,,,,, ,,,, *SET,concrete(111, 3), ,,,,, ,,,, *SET,concrete(121, 3), ,,,,,,,,, *SET,concrete(131, 3), ,,,,, !节点编号，生成箱梁的节点 *do, i, 1,1,1 *do, j, 1, ni

n, j+ni*i, initial(j,1),initial(j,2),initial(j,3)+z(i) *enddo *enddo

*do, i, nz,nz,1 *do, j, 1, ni

n, j+ni*i, initial(j,1),initial(j,2),initial(j,3)+z(i) *enddo *enddo

*do, i, 2,nz-1,1 *do, j, 1, ni

n, j+ni*i, initial(j,1),initial(j,2),initial(j,3)+z(i) *enddo *enddo

!生成横隔板节点 *set, infl, ni*(nz+1) *set, nfl, 39 *do, i, 1, 18, 1 *SET,k,del(i) *do, j, 1, 25, 1

n, infl+i*nfl+j, vertical(j,1), vertical(j,2), vertical(j,3)+z(k) *enddo *do, j, 26, 32 n,

infl+i*nfl+j,

vertical(j-7,1),

vertical(j-7,2),

vertical(j-7,3)+z(k-1) *enddo

*do, j, 33, nfl n,

infl+i*nfl+j,

vertical(j-14,1),

vertical(j-14,2),

vertical(j-14,3)+z(k+1) *enddo *enddo

!节点编号，生成混凝土的节点 *set,incr,infl+18*nfl+1 *do, i, 1, 1, *do, j, 1, nc

n, incr+j+nc*i, concrete(j,1),concrete(j,2),concrete(j,3)+z(i) *enddo *enddo *do, i, 2, nz *do, j, 1, nc

n, incr+j+nc*i, concrete(j,1),concrete(j,2),concrete(j,3)+z(i) *enddo *enddo

!生成钢绞线的节点

*set,insty1,incr+nc*(nz+1) !Y1

*do, i, 37, 127, 1 n,

insty1+(i-36),

concrete(53,1),concrete(53,2),concrete(53,3)+z(i) n,

insty1+(i-36)+127-37+1,

concrete(68,1),concrete(68,2),concrete(68,3)+z(i) n,

insty1+(i-36)+2*(127-37)+2,

concrete(83,1),concrete(83,2),concrete(83,3)+z(i) *enddo !Y2

*set,insty2,insty1+3*(127-37+1) *do, i, 66,114,1 n,

insty2+(i-65),

concrete(56,1),concrete(56,2),concrete(56,3)+z(i) n,

insty2+(i-65)+141-66+1,

concrete(80,1),concrete(80,2),concrete(80,3)+z(i) *enddo

!生成钢绞线锚固区节点 *set,instb1,insty2+2*(141-66) *set,instb2,instb1+40 !Y1

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

n, instb1+i, , +12*i, +z(k) n, instb2+i, , +12*i, +z(k)

*enddo *do, i, 1, 4 *SET,k,27+i

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

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

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

n, instb1+i+16, 0 , *(i+6), z(k) n, instb2+i+16, 0 , *(i+6), z(k) *enddo *do, i, 1, 4