一个接触传热的小例子
finish
/clear
!!!!!!!!!!!!!!!!!!!!!建立模型!!!!!!!!!!!!!!!!!!!!!!!!
/prep7
block,0,10,0,4,0,10
block,3,7,4,10,3,7
et,1,solid70
mp,kxx,1,70
mp,dens,1,7800
mp,c,1,448
lsel,s,,,7
lsel,a,,,11
lsel,a,,,18
lesize,all,,,15
lsel,s,,,6
lsel,a,,,17
lsel,a,,,22
lesize,all,,,8
vmesh,all
!!!!!!!!!!!!!!!!!!!!!!!!定义接触!!!!!!!!!!!!!!!!!!!!!
/com,contact pair creation-start
et,2,170
et,3,173
keyopt,3,1,2
keyopt,3,9,1
keyopt,3,12,4
r,3
rmore,,,,,,,
rmore,,10000
type,2
real,3
mat,1
asel,s,,,9
cm,_target,area
nsla,s,1
esurf,all
allsel
type,3
real,3
mat,1
asel,s,,,4
cm,_contact,area
nsla,s,1
esurf,all
allsel
finish
!!!!!!!!!!!!!!!!!!!!!!!!求解及后处理!!!!!!!!!!!!!!!!!!!!!
/solu
antype,0
da,10,temp,500
da,3,temp,1000
allsel
solve
/post1
plnsol,temp
vsel,s,,,1
eslv
nsle
plnsol,temp |