/PREP7
H=0.9
H1=0.3
L=0.4
A=0.04
ET,1,PLANE77 !定义热分析单元
MP,KXX,1,70 !定义导热系数
MP,C,1,90 !定义比热
MP,DENS,1,7800
MP,EX,1,2.01E11
MP,PRXY,1,0.3
MP,ALPX,1,6.5E-6
K,1,0,0,0
K,2,L,0,0
K,3,L,H-H1,0
K,4,L,H,0
K,5,0,H,0
K,6,0,H-H1,0
K,7,0,H-H1,0
K,8,A,H-H1,0
A,1,2,3,8,6
A,3,4,5,7,8
ESIZE,0.0025,0,
KSCON,8,A/10,1,12,1, !裂纹尖端裂纹控制
LESIZE,1,,,15
LESIZE,7,,,15
LESIZE,6,,,15
LESIZE,2,,,25
AMESH,ALL
/SOL
!定义温度边界条件
DL,8, ,TEMP,-20,0
DL,5, ,TEMP,-20,0
DL,6, ,TEMP,30,0
DL,2, ,TEMP,30,0
SOLVE
/PREP7
ETCHG,TTS !将热分析转换为结构分析
FINISH
/SOL
TREF,20, !定义参考温度
DL,7, ,ALL,
DL,1, ,ALL,
LDREAD,TEMP,,, , ,'file','rth',' '
LOCAL,11,1,A,H-H1,0, , , ,1,1,
CSYS,0
CN=NODE(A,H-H1,0)
NSEL,S, , ,CN
CM,CK,NODE
ALLSEL,ALL
CINT,NEW,1
CINT,TYPE,SIFS
CINT,CTNC,CK
CINT,NCON,5
CINT,SYMM,OFF
CINT,NORM,11,2
SOLVE
/POST1
PRCINT,1,,K1
PRCINT,1,,K2