ANSYS三点弯曲梁如何存储K因子?
建模
/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因子。希望大神解答一下