一个计算J积分的例子:
经PRCINT,1可列出定义的几个轮廓积分的值(图一)
经下列命令后,可以得出J积分的值为下图(图二),可是图一中有六个值,图二有一个值,所以这个问题就是J积分是怎么确定的?
*GET,J,CINT,1,,2,,6
*STATUS,J
命令流
fini
/CLE
/TITLE,CRACK 1
/prep7
et,1,plane183,,,2
mp,ex,1,210e9,
mp,dens,1,7900,
mp,nuxy,1,0.33,
k,1,-0.01,0,0,
k,2,0,0,0,
k,3,0.02,0,0,
k,4,0.02,0.06,0,
k,5,-0.01,0.06,0,
lstr,1,2
lstr,2,3
lstr,3,4
lstr,4,5
lstr,5,1
al,all
kscon,2,0.001,1,15,0.75,
DL,2, ,SYMM
DL,5, ,SYMM
TYPE, 1
MAT, 1
REAL,
ESYS, 0
SECNUM,
ESIZE,0.001,0,
MSHAPE,1,2D
MSHKEY,0
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
AMESH,_Y1
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
FINISH
/SOLU
FLST,2,1,4,ORDE,1 !?
FITEM,2,3 !?
SFL,P51X,PRES,-1000,
FLST,2,1,4,ORDE,1
FITEM,2,4
SFL,P51X,PRES,-5000,
ALLSEL,ALL
NSEL,S,LOC,X,
NSEL,R,LOC,Y,0
CM,CRACKTIP,NODE ! DEFINE CRACK TIP NODE COMPONENT
ALLSEL,ALL
CINT,NEW,1 ! DEFINE CRACK ID
CINT,CTNC,CRACKTIP ! DEFINE CRACK TIP NODE COMPONENT
CINT,SYMM,ON ! SYMMETRY ON
CINT,NCON,6 ! NUMBER OF COUNTOURS
CINT,NORM,0,2 ! DEFINE CRACK PLANE NORMAL
CINT,LIST
ALLSEL,ALL
/STATUS,SOLU
SOLVE
FINISH
/POST1
PRCINT,1
*GET,J,CINT,1,,2,,6
*STATUS,J |