建模

/input,menust,tmp,'',,,,,,,,,,,,,,,,1   

/GRA,POWER

/GST,ON

/PLO,INFO,3

/GRO,CURL,ON

/CPLANE,1   

/REPLOT,RESIZE  

WPSTYLE,,,,,,,,0

/input,menust,tmp,'',,,,,,,,,,,,,,,,1   

/GRA,POWER  

/GST,ON 

/PLO,INFO,3 

/GRO,CURL,ON

/CPLANE,1   

/REPLOT,RESIZE  

WPSTYLE,,,,,,,,0

/REPLOT,RESIZE  

/FILNAME,job1,0 

/TITLE,HOPKINSON PRERRURE BAR   

/PREP7  

!设定参数

ET,1,PLANE183   

KEYOPT,1,1,0

KEYOPT,1,3,3

KEYOPT,1,6,0  

R,1,0.01,   

MPTEMP,,,,,,,,  

MPTEMP,1,0  

MPDATA,EX,1,,2.1E11 

MPDATA,PRXY,1,,0.3  

!建立几何模型

K,1,0,0,0,  

K,2,0,-0.025,0, 

K,3,0.01,-0.025,0,  

K,4,0.01,0,0,   

K,5,0.01,0.025,0,   

K,6,0,0.025,0,  

K,7,0,0,0,  

K,8,0.005,0,0,  

LSTR,       1,       2  

LSTR,       2,       3  

LSTR,       3,       4  

LSTR,       4,       5  

LSTR,       5,       6  

LSTR,       6,       7  

LSTR,       7,       8  

LSTR,       8,       1  

LSTR,       8,       4  

FLST,2,5,4  

FITEM,2,1   

FITEM,2,2   

FITEM,2,3   

FITEM,2,9   

FITEM,2,8   

AL,P51X 

FLST,2,5,4  

FITEM,2,7   

FITEM,2,9   

FITEM,2,4   

FITEM,2,5   

FITEM,2,6   

AL,P51X 

  

KSCON,8,1/900,1,15,1,   

ESIZE,0.4e-3,0, 

MSHAPE,0,2D 

MSHKEY,0

!*  

FLST,5,2,5,ORDE,2   

FITEM,5,1   

FITEM,5,-2  

CM,_Y,AREA  

ASEL, , , ,P51X 

CM,_Y1,AREA 

CHKMSH,'AREA'   

CMSEL,S,_Y  

!*  

AMESH,_Y1   

!*  

CMDELE,_Y   

CMDELE,_Y1  

CMDELE,_Y2  

!*  

FINISH  

/SOL

!*  

ANTYPE,4

!*  

TRNOPT,FULL 

LUMPM,0 

!*  

FLST,2,1,3,ORDE,1   

FITEM,2,6   

!*  

/GO 

DK,P51X, , , ,0,ALL, , , , , ,  

FLST,2,1,3,ORDE,1   

FITEM,2,2   

!*  

/GO 

DK,P51X, , , ,0,ALL, , , , , ,  

*DIM,test,TABLE,81,1,1, , , 

!*  

*DIM,kai,ARRAY,81,1,1, , ,  

!*  

*TREAD,TEST,'TEST2','txt','C:\Users\Administrator\Desktop\', ,   

FLST,2,1,3,ORDE,1   

FITEM,2,4   

!*  

!*  

/GO 

FK,P51X,FX, %TEST%  

*SET,CNODEA,NODE(0.005,0,0) 

ALLSEL,ALL  

NSEL,S, , ,     304 

CM,CKA,NODE 

!*  

LOCAL,11,0,0.005,0,0,0, , ,1,1, 

CINT,NEW,1  

CINT,TYPE,SIFS  

CINT,CTNC,CKA   

CINT,NCON,5 

CINT,SYMM,OFF   

CINT,NORM,11,2  

CINT,LIST   

ALLSEL,ALL  

计算

NSUBST,80,0,0   

OUTRES,ERASE

OUTRES,ALL,1

RESCONTRL,DEFINE,ALL,1,1

TIME,0.4e-4 

/STATUS,SOLU

SOLVE 

SAVE   

*GET,KA1,CINT,1,CTIP,CNODEA,,2,DTYPE,K1

KAI(I,1)=KA1/10E6/SQRT(3.1415*0.005)        

I=I+1

*ENDDO

*CREATE,TEMPLE,MAC

*CFOPEN,KAI,TXT

*DO,I,1,

*VWRITE,KAI(I,1)

(F12.6)

*ENDDO

  

任务流如上，最后求不到K因子。希望大神解答一下