ANSYS APDL语言编程 循环?
我正在编写一个APDL命令,程序准备实现的功能如下:
1,由于是大变形问题,所以采用自适应时间步长
2,在每个substep停下,将发生位移的接触单元上的载荷去除
3,继续下一个substep,直到所求的时间为止。
但是我根据这个想法遍了一段命令,却并不能实现我想的功能,想请问各位专家,问题出在哪里了?
命令如下:
*DO,I,1,3000
*IF,I,EQ,1
/SOLU
ANTYPE,0
TIME,I*DELL
NSUBST,1
KBC,0
OUTRES,ALL,ALL !SPECIFY FREQUENCY
PSCON,ALL,OFF
NLGEOM,ON
STABILIZE,CONSTANT,ENERGY,0.01,ANYTIME !
RESCONTRL,DEFINE,ALL,ALL,-1
AUTOTS,1
SOLVE
FINI
/POST1
ESEL,R,ENAME,,172
*GET,ENUM,ELEM,0,COUNT
*GET,EMIN,ELEM,0,NUM,MIN
ETABLE,EDOFX,U,X
*DO,II,1,ENUM
*GET,UX,ELEM,EMIN,ETAB,EDOFX
*IF,UX,ABLT,1,THEN
ESEL,U,,,EMIN
*ENDIF
EMIN=ELNEXT(EMIN)
*ENDDO
SFEDELE,ALL,ALL,ALL
ALLSEL
LSWRITE,I
FINI
*ELSE
/SOLU
ANTYPE,0,REST
SOLVE
FINI
/POST1
ESEL,S,REAL,,4
ESEL,R,ENAME,,172
*GET,ENUM,ELEM,0,COUNT
*GET,EMIN,ELEM,0,NUM,MIN
ETABLE,EDOFX,U,X
*DO,II,1,ENUM
*GET,UX,ELEM,EMIN,ETAB,EDOFX
*IF,UX,ABLT,1,THEN
ESEL,U,,,EMIN
*ENDIF
EMIN=ELNEXT(EMIN)
*ENDDO
SFEDELE,ALL,ALL,ALL
ALLSEL
LSWRITE,I
FINI
*ENDIF
*ENDDO