FINI
/CLEAR

/PREP7 

BLOCK,0,100,0,25,0,100 
BLOCK,0,100,50,75,0,100 

TOFFST,273.15  

ET,1,SOLID70
KEYOPT,1,2,1
ET,2,SHELL57
R,1,0.001 

MPTEMP,1,0
MPDATA,DENS,1,,3210
MPDATA,C,1,,1000
MPDATA,KXX,1,,30

VSEL,S,,,1,2
VATT,1,,1,0

!------------Meshing------------

SMRT,5
MSHAPE,1,3D 
MSHKEY,0
VSEL,S,,,1,2
VMESH,ALL

!----------SURFACE----------

TYPE,2
ASEL,S,,,4
ASEL,A,,,9
AMESH,ALL

!---------- Schreiben der Stahlungs-Matrix ----------

/AUX12

NSLE,S,ENAME,,SHELL57
STEF,5.68E-8
EMIS,1,0.8
VTYPE,0,20
GEOM,0
WRITE

FINI


/PREP7

!Scheinelemente entfernen
ASEL,S,,,4
ASEL,A,,,9
ACLEAR,ALL

!---------- Einfügen des Superelements -----------

ET,3,MATRIX50,1
TYPE,3
SE

!---------- Berechnung ----------

/SOLU

ANTYP,0
TUNIF,25

!----------Konvektion-----------

ASEL,S,,,3
SFA,ALL,,CONV,10,25

!----------Auftragung der Temperatur-----------

ASEL,S,,,10
DA,ALL,TEMP,1000

ALLSEL

LNSRCH,ON
TIME,1
NSUBST,1,1,1
SOLVE

/POST1

PLNSOL,TEMP