FINI
/PREP7
!********SHELL57******** !/AUX12 method uses the old SHELL57 Thermal Shell Element 
CMSEL,S,Cavity           !select all the Named Selection Cavity nodes
*GET,tmax,ETYP,0,NUM,MAX !find the maximum number of element types and put it in the parameter tmax           
ET,tmax+1,57             !define a SHELL57 element with an element type of tmax+1
TYPE,tmax+1              !activate the SHELL57 type
MAT,tmax+1               !activate the SHELL57 material
REAL,tmax+1              !activate the SHELL57 real
ESURF                    !generate shell57 elements on the selected nodes
!*******SpaceNode*******
ALLSEL,ALL               !select all the nodes and elements
*GET,nmax,NODE,0,NUM,MAX !find the maximum number of nodes and put it in the parameter nmax
n_space=nmax+1           !define a parameter n_space equal to nmax + 1 
N,n_space,0,0,0          !create a node with coordinates (0,0,0) which will be the Space Node
FINI
!**Radiation Processor**
/AUX12                   !enter the radiation processor
ESEL,S,TYPE,,tmax+1      !select all the elements of type shell57
NSLE                     !select the attached nodes
STEF,5.67e-8             !define the Stefan-Boltzmann constant 5.67e-8 W m-2 K-4
EMIS,tmax+1,0.8          !specify an emissivity equal to 0.8
VTYPE,0,40               !specify the viewing procedure for the form factors determination
GEOM,0                   !3D geometry
SPACE,n_space            !specify that the created node will be the space node (open system)
WRITE                    !write the radiation matrix file
FINI
!*****SUPERELEMENT****** !superelement creation for the radiation matrix
/PREP7                   !enter the preprocessor
ET,tmax+2,50,1           !define a matrix50 element with element type tmax+2, set keyoption 1 to 1
TYPE,tmax+2 
MAT,tmax+2
MP,KXX,tmax+2,0          !define any material  
SE,                      !define the superelement
ESEL,S,TYPE,,tmax+1
EDEL,ALL                 !delete all shell57 elements
TOFFST,273               !specify temperature offset
ALLSEL                   !select all the nodes and elements
D,n_space,TEMP,50        !apply a temperature of 50 C on the space node (Tbulk)
FINI
/SOLU                    !enter the solution processor
OUTRES,BASIC,LAST        !control the solution data written to the database

