finish
/clear
/PREP7
et,1,PLANE82 ! 2D plane-stress higher-order
solids
mp,ex,1,1e6
! material properties
mp,prxy,1,0.25
mp,alpx,1,5e-6
TREF,20,
RECTNG,0,4,0,0.5, ! define lower
plate
RECTNG,0,4,1,1.5, ! define upper plate
esize,0.125
amesh,all
DL,2, ,SYMM
! symmetry on right edge
DL,6, ,SYMM
DK,1, , , ,0,ALL, , ! excessive constraint on lower plate
DK,5, , , ,0,UY, , ! minimal (proper) constraint on upper
plate
FINISH
/SOLU
asel,s,,,1,1,1,1 ! assign temperatures to lower area
*GET,nmaxn,NODE,,NUM,MAX, , , ,
*DO,ii,1,nmaxn
yval = ny(ii)
tval = (400/0.5)*yval + 100
BF,ii,TEMP,tval
*enddo
asel,s,,,2,2,1,1 ! assign temperatures to upper area
*GET,nmax2,NODE,,NUM,MAX, , , ,
*DO,ii,nmaxn+1,nmax2
yval = ny(ii)-1
tval = (400/0.5)*yval + 100
BF,ii,TEMP,tval
*enddo
allsel
solve
FINISH
/pbc,u,,1
/pbf,temp,,1
eplot
/post1
plns,s,x
finish