!找形时采用很小的弹性模量.docVIP

/prep7 ET,1,LINK10 !找形时采用很小的弹性模量 R,1,0.001468,0.9, MP,EX,1,0.60551e9 MP,NUXY,1,0.3 !定义节点 *do,i,1,5 *do,j,1,2*i-1 k=(i-1)*(i-1)+j n,k,(j-i)*9.15,-36.6+(i-1)*9.15,0 *enddo *enddo *do,i,1,4 *do,j,1,2*i-1 k=(i-1)*(i-1)+j+25 n,k,(j-i)*9.15,36.6-(i-1)*9.15,0 *enddo *enddo !定义单元 *do,i,1,4 *do,j,1,2*i k=i*i+j e,k,k+1 *enddo *enddo *do,i,1,3 *do,j,1,2*i k=i*i+j+25 e,k,k+1 *enddo *enddo *do,i,1,4 *do,j,1,2*i-1 k=(i-1)*(i-1)+j e,k,k+2*i *enddo *enddo *do,i,1,3 *do,j,1,2*i-1 k=(i-1)*(i-1)+j+25 e,k,k+2*i *enddo *enddo *do,i,18,24 e,i,i+17 *enddo !施加位移约束 d,1,u