好心人给俺看看这段程序,边界加载问题
!定义边界1节点数组
NSEL,S,LOC,Z,KZ(10)
N1MAX=NDINQR(0,13)
*DIM,BANODE,,N1MAX !定义节点号数组
*GET,NODEI,DODE,,NUM,MIN
BANODE(1)=NODEI
*DO,I,2,N1MAX
BANODE(I)=NDNEXT(BANODE(I-1))
*ENDDO
ALLSEL,ALL
NSEL,S,LOC,Z,KZ(10)
N1MAX=NDINQR(0,13)
*DIM,BANODE,,N1MAX !定义节点号数组
*GET,NODEI,DODE,,NUM,MIN
BANODE(1)=NODEI
*DO,I,2,N1MAX
BANODE(I)=NDNEXT(BANODE(I-1))
*ENDDO
ALLSEL,ALL
全部回答 (3)
默认 最新
遇到什么问题了?
NSEL,S,LOC,Z,KZ(10)
N1MAX=NDINQR(0,13)
*DIM,BANODE,,N1MAX !定义节点号数组
*GET,NODEI,DODE,,NUM,MIN--------------Node
BANODE(1)=NODEI
*DO,I,2,N1MAX
BANODE(I)=NDNEXT(BANODE(I-1))
*ENDDO
ALLSEL,ALL
*DO,I,1,N1MAX
D,BANODE(I),DZ,1.92E-2+(KZ(I)-(KZ(5)+0.45))*8.54E-4------------uz
D,BANODE(I),DX,6.74E-4----------------ux
D,BANODE(I),DY,6.31E-3------------------uy
*ENDDO
NSEL,S,LOC,Z,KZ(10)
N1MAX=NDINQR(0,13)
*DIM,BANODE,,N1MAX !定义节点号数组
*GET,NODEI,DODE,,NUM,MIN--------------Node
BANODE(1)=NODEI
*DO,I,2,N1MAX
BANODE(I)=NDNEXT(BANODE(I-1))
*ENDDO
ALLSEL,ALL
*DO,I,1,N1MAX
D,BANODE(I),DZ,1.92E-2+(KZ(I)-(KZ(5)+0.45))*8.54E-4------------uz
D,BANODE(I),DX,6.74E-4----------------ux
D,BANODE(I),DY,6.31E-3------------------uy
*ENDDO
2009年3月20日
评论 点赞
!施加边界1的位移边界条件
*DO,I,1,N1MAX
D,BANODE(I),DZ,1.92E-2+(KZ(I)-(KZ(5)+0.45))*8.54E-4
D,BANODE(I),DX,6.74E-4
D,BANODE(I),DY,6.31E-3
*ENDDO
*DO,I,1,N1MAX
D,BANODE(I),DZ,1.92E-2+(KZ(I)-(KZ(5)+0.45))*8.54E-4
D,BANODE(I),DX,6.74E-4
D,BANODE(I),DY,6.31E-3
*ENDDO
2009年3月20日
评论 点赞





















先谢谢大侠了