ANSYS APDL语言编程 循环?

浏览:1147 回答:2

我正在编写一个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,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

*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


邀请回答 我来回答

全部回答

(2)
默认 最新
工程计算与仿真
这个不结合模型,不好看出来apdl问题。建议,可以求解一两步看看结果和载荷差异。主要问题可能在选择位移单元和删除载荷这部分。希望对你有所帮助。
2017年3月8日
评论 点赞
技术工
@ANSYS专家 @张小@水哥ANSYS @石老师
2017年3月8日
评论 点赞

没解决?试试专家一对一服务

换一批