ansys循環(huán)加載求解和后處理問(wèn)題?
/PREP7
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e11
MPDATA,PRXY,1,,0.3
FINISH
/SOL
*Dim,Prs,array,2,2,0,,,
*Create,ansuitmp
*Vread,Prs(1,1),'kpres','txt','',2,,,,,,
(E8.2,E11.3)
*end
/input,ansuitmp
*Do,i,1,2
FLST,2,1,1,ORDE,1
FITEM,2,1527
!*
/GO
F,P51X,FX,prs(1,i)
FLST,2,1,1,ORDE,1
FITEM,2,1527
!*
/GO
F,P51X,FY,prs(2,i)
/VIEW, 1, -0.492392348312 , -0.810851710223 , 0.316337287325
/ANG, 1, 47.7252305595
/REPLO
FLST,2,1,5,ORDE,1
FITEM,2,5
!*
/GO
DA,P51X,ALL,
!*
ANTYPE,0
/STATUS,SOLU
SOLVE
*enddo
FINISH
這是求解加載部分,本意是對(duì)一點(diǎn)加x和y向載荷,循環(huán)兩次。
/post1
*cfopen,yg,txt
*dim,xyz,array,2,1
*do,i,1,2
*get,xyz(i,1),node,1527,u,x
*vwrite,xyz(i,1)
(1E23.8)
*enddo
*cfclose
這是后處理部分,得到某節(jié)點(diǎn)x向位移,也需要循環(huán)兩次,但是這樣我做出來(lái)的結(jié)果只有第二次循環(huán)的,因?yàn)檫@是我的一個(gè)小嘗試,我真實(shí)需要循環(huán)一百次以上,不知道我的語(yǔ)句哪里寫錯(cuò)了求大神解答。

鄒正剛



















