24小时热门版块排行榜    

查看: 2863  |  回复: 10
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

jjpbuaa

新虫 (初入文坛)

[求助] Matlab 调用ansys,计算中途不明原因退出 已有1人参与

如题,用MATLAB循环调用ansys结构分析,大致是for i=1:n    (调用ansys)    end。现在的问题是,第一次调用ansys可以运行得到结果,第二次开始,计算中途会自动退出(瞬态结构分析,总在一个时刻退出),没有error,只有几个warning,output文件显示,到退出时刻之前结果都是收敛的。用ansys直接调用APDL文件也是可以运行得到结果的,为什么会自动退出?受MATLAB影响吗?可是ANSYS和MATLAB之间没有数据传递......什么原因,困扰好久,亟待解答!
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjpbuaa

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by werewolves at 2016-03-24 09:00:55
搞个命令流上来看看先

上面是结构计算部分,做了一个宏文件(不做宏文件结果也是一样的),总是在第一个时间步(0.1s)最后退出。结构分析之前有热分析,热分析没有问题。
4楼2016-03-24 11:26:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

werewolves

至尊木虫 (知名作家)

搞个命令流上来看看先
2楼2016-03-24 09:00:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jjpbuaa

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by werewolves at 2016-03-24 09:00:55
搞个命令流上来看看先

!转换单元类型
/PREP7
ETCHG,TTS

CPCYC,ALL,0.0001,1,0,11.25,0,0

NSEL,ALL
CSYS,1
NROTAT,ALL

FINISH  


/SOL
LSCLEAR,ALL

FLST,2,33,1,ORDE,4  
FITEM,2,8402
FITEM,2,-8404   
FITEM,2,8859
FITEM,2,-8888   
/GO
!*  
D,P51X, , , , , ,UX,UY, , , ,   

FLST,2,3,1,ORDE,3   
FITEM,2,8877
FITEM,2,-8878   
FITEM,2,8888
/GO
!*  
D,P51X, , , , , ,UZ, , , , ,

!*  
ANTYPE,4
!*  
TRNOPT,FULL
LUMPM,0
!*  

tstart=3
nrw=ARG1
nrw0p1=nrw/tstart*0.1
nrw0p5=nrw/tstart*0.5
nrw1=nrw/tstart*1

ALLSEL
OUTRES,NSOL,last,  
!指定牛顿-拉夫逊法求解的选项,MODI:修正的牛顿拉夫逊法
NROPT,MODI, ,
!在非线性分析中指定平衡迭代的最大次数
NEQIT,1000

CYC=1
*DO,K,1,CYC,1

        JM=1
        *DO,J,1,JM,1
                I=0.1/JM*J+15.0*(K-1)
                NSUBST,20, , ,1
                KBC,0   
                TIME,I  
                LDREAD,TEMP,,,I, ,'case','rth',' '  
                OMEGA,0,0,nrw0p1/JM*J,
                ALLSEL
                SOLVE
        *ENDDO

        JM=1
        *DO,J,1,JM,1
                I=0.1+0.4/JM*J+15.0*(K-1)
                NSUBST,20, , ,1
                KBC,0   
                TIME,I  
                LDREAD,TEMP,,,I, ,'case','rth',' '  
                OMEGA,0,0,nrw0p1+(nrw0p5-nrw0p1)/JM*J,
                ALLSEL
                SOLVE
        *ENDDO

        JM=1
        *DO,J,1,JM,1
                I=0.5+0.5/JM*J+15.0*(K-1)
                NSUBST,20, , ,1
                KBC,0   
                TIME,I  
                LDREAD,TEMP,,,I, ,'case','rth',' '  
                OMEGA,0,0,nrw0p5+(nrw1-nrw0p5)/JM*J,
                ALLSEL
                SOLVE
        *ENDDO

        JM=2
        *DO,J,1,JM,1
                I=1.0+2.0/JM*J+15.0*(K-1)
                NSUBST,20, , ,1
                KBC,0   
                TIME,I  
                LDREAD,TEMP,,,I, ,'case','rth',' '  
                OMEGA,0,0,nrw1+(nrw-nrw1)/JM*J
                ALLSEL
                SOLVE
        *ENDDO

*ENDDO
FINISH

/POST26
FILE,'case','rst','.'   
/UI,COLL,1  
NUMVAR,200  
SOLU,191,NCMIT  
STORE,MERGE
FILLDATA,191,,,,1,1
REALVAR,191,191

FORCE,TOTAL
!*  
ANSOL,2,7399,EPPL,X,EPPLX_2
STORE,MERGE

FORCE,TOTAL
!*  
ANSOL,3,7399,EPEL,X,EPELX_3
STORE,MERGE

FORCE,TOTAL
!*  
ANSOL,4,7399,S,X,SX_4  
STORE,MERGE

ADD,5,3,2, ,et, , ,1,1,1,

NSOL,5,7399, ,
STORE,MERGE
*GET,SIZE,VARI,,NSETS
*DIM,STRAINT,ARRAY,SIZE
VGET,STRAINT(1),5
*CFOPEN,et,TXT
*VWRITE,STRAINT(1)
(F20.10)
*CFCLOS

NSOL,4,7399, ,
STORE,MERGE
*GET,SIZE,VARI,,NSETS
*DIM,STRESS,ARRAY,SIZE
VGET,STRESS(1),4
*CFOPEN,s,TXT
*VWRITE,STRESS(1)
(F25.5)
*CFCLOS
3楼2016-03-24 11:17:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

nanananathan

新虫 (初入文坛)

楼主,请问这个问题解决了吗?,。我也被这个问题困扰很长时间了,能交流下吗?我q 379586896
谢谢
6楼2016-04-26 00:32:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
信息提示
请填处理意见