好心人给俺看看这段程序,边界加载问题

!定义边界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
邀请回答 举报

共3个回答

默认排序
  • Mars
    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
    评论 采纳答案 举报
  • maudlin
    2009年3月20日
    遇到什么问题了?
    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
    评论 采纳答案 举报
  • zxuan_0101
    2010年5月13日
    D,DODE,Lab,Value,Value2,NEND,NINC,lab2,lab3,lab4,lab5,lab6详细解释并举例
    先谢谢大侠了
    评论 采纳答案 举报