!RANDBEDINGUNGSWERTE FESTLEGEN
!Einheit m,s,Kg,N,C,W,

*DIM,Densi,ARRAY,8
*DIM,TLeit,ARRAY,8
*DIM,SWaer,ARRAY,8
!*DIM,Enthalpy,ARRAY,8
*DIM,Tempe,ARRAY,8

Tempe(1) = 25,100,200,300,400,500,600,750                                              !Temperatur [C]

Densi(1) = 2811.2,2796.5,2775.6,2753.47,2729.8,2704.9,2630,2477.9                      !Dichte                        [Kg/m^3]

TLeit(1) = 121.1,129.4,138.6,146.6,154.1,160.5,131.6,83.86                      !Thermische Leitfähigkeit      [W/m C]

SWaer(1) = 860.4,900.7,943.7,983.6,1024.2,1136.6,5697.9,1123.4                     !Spezifische Waermekapazitaet  [J/Kg C]


/PREP7
!KNOTEN
!Wuerfel1
N,1,0,0,0
N,2,2,0,0
N,3,2,2,0
N,4,0,2,0

N,5,0,0,2
N,6,2,0,2
N,7,2,2,2
N,8,0,2,2

N,9,1,0,0
N,10,2,1,0
N,11,1,2,0
N,12,0,1,0

N,13,1,0,2
N,14,2,1,2
N,15,1,2,2
N,16,0,1,2

N,17,0,0,1
N,18,2,0,1
N,19,2,2,1
N,20,0,2,1

NSEL,S,NODES,,1,20
CM,WuerfelN1,NODE

!Wuerfel2
N,21,2,0,0
N,22,4,0,0
N,23,4,2,0
N,24,2,2,0

N,25,2,0,2
N,26,4,0,2
N,27,4,2,2
N,28,2,2,2

N,29,3,0,0
N,30,4,1,0
N,31,3,2,0
N,32,2,1,0

N,33,3,0,2
N,34,4,1,2
N,35,3,2,2
N,36,2,1,2

N,37,2,0,1
N,38,4,0,1
N,39,4,2,1
N,40,2,2,1
NSEL,S,NODES,,21,40
CM,WuerfelN2,NODE


!SOLID

*GET,Enum,ELEM,0,COUNT
*GET,ETyp,ELEM,0,TYPM
Enummax = Enum +1
Etypmax = ETyp +1

!Wuerfel1
ET,Etypmax,90
TYPE,Etypmax
MAT,Etypmax
REAL,Etypmax
SECNUM,Etypmax
E,1,2,3,4,5,6,7,8
EMORE,9,10,11,12,13,14,15,16
EMORE,17,18,19,20
ESEL,S,TYPE,,Etypmax
CM,WUERFEL1,ELEM                 !Named selection

csys,0
toffst,273.15         ! Temperature offset from absolute zero

MPTEMP,,,,,,,,
MPTEMP,1,Tempe(1)
MPTEMP,2,Tempe(2)
MPTEMP,3,Tempe(3)
MPTEMP,4,Tempe(4)
MPTEMP,5,Tempe(5)
MPTEMP,6,Tempe(6)
MPTEMP,7,Tempe(7)
MPTEMP,8,Tempe(8)
MPDATA,DENS,Etypmax, ,Densi(1),Densi(2),Densi(3),Densi(4),Densi(5),Densi(6),
MPDATA,DENS,Etypmax, ,Densi(7),Densi(8),	! kg m^-3
MPTEMP,,,,,,,,
MPTEMP,,,,,,,,
MPTEMP,1,Tempe(1)
MPTEMP,2,Tempe(2)
MPTEMP,3,Tempe(3)
MPTEMP,4,Tempe(4)
MPTEMP,5,Tempe(5)
MPTEMP,6,Tempe(6)
MPTEMP,7,Tempe(7)
MPTEMP,8,Tempe(8)
MPDATA,KXX,Etypmax, ,TLeit(1),TLeit(2),TLeit(3),TLeit(4),TLeit(5),TLeit(6),
MPDATA,KXX,Etypmax, ,TLeit(7),TLeit(8),	! W m^-1 C^-1
MPTEMP,,,,,,,,
MPTEMP,,,,,,,,
MPTEMP,1,Tempe(1)
MPTEMP,2,Tempe(2)
MPTEMP,3,Tempe(3)
MPTEMP,4,Tempe(4)
MPTEMP,5,Tempe(5)
MPTEMP,6,Tempe(6)
MPTEMP,7,Tempe(7)
MPTEMP,8,Tempe(8)
MPDATA,C,Etypmax, ,SWaer(1),SWaer(2),SWaer(3),SWaer(4),SWaer(5),SWaer(6),
MPDATA,C,Etypmax, ,SWaer(7),SWaer(8),	! J kg^-1 C^-1
MPTEMP,,,,,,,,


Etypmax = Etypmax +1

!Wuerfel2
ET,Etypmax,90
TYPE,Etypmax
MAT,Etypmax
REAL,Etypmax
SECNUM,Etypmax
E,21,22,23,24,25,26,27,28
EMORE,29,30,31,32,33,34,35,36
EMORE,37,38,39,40
ESEL,S,TYPE,,Etypmax
CM,WUERFEL2,ELEM                 !Named selection

MPTEMP,,,,,,,,
MPTEMP,1,Tempe(1)
MPTEMP,2,Tempe(2)
MPTEMP,3,Tempe(3)
MPTEMP,4,Tempe(4)
MPTEMP,5,Tempe(5)
MPTEMP,6,Tempe(6)
MPTEMP,7,Tempe(7)
MPTEMP,8,Tempe(8)
MPDATA,DENS,Etypmax, ,Densi(1),Densi(2),Densi(3),Densi(4),Densi(5),Densi(6),
MPDATA,DENS,Etypmax, ,Densi(7),Densi(8),	! kg m^-3
MPTEMP,,,,,,,,
MPTEMP,,,,,,,,
MPTEMP,1,Tempe(1)
MPTEMP,2,Tempe(2)
MPTEMP,3,Tempe(3)
MPTEMP,4,Tempe(4)
MPTEMP,5,Tempe(5)
MPTEMP,6,Tempe(6)
MPTEMP,7,Tempe(7)
MPTEMP,8,Tempe(8)
MPDATA,KXX,Etypmax, ,TLeit(1),TLeit(2),TLeit(3),TLeit(4),TLeit(5),TLeit(6),
MPDATA,KXX,Etypmax, ,TLeit(7),TLeit(8),	! W m^-1 C^-1
MPTEMP,,,,,,,,
MPTEMP,,,,,,,,
MPTEMP,1,Tempe(1)
MPTEMP,2,Tempe(2)
MPTEMP,3,Tempe(3)
MPTEMP,4,Tempe(4)
MPTEMP,5,Tempe(5)
MPTEMP,6,Tempe(6)
MPTEMP,7,Tempe(7)
MPTEMP,8,Tempe(8)
MPDATA,C,Etypmax, ,SWaer(1),SWaer(2),SWaer(3),SWaer(4),SWaer(5),SWaer(6),
MPDATA,C,Etypmax, ,SWaer(7),SWaer(8),	! J kg^-1 C^-1
MPTEMP,,,,,,,,

Etypmax = Etypmax +1

!KOMPONENT
CMSEL,S,WUERFEL2                                                                             !NEW
NSLE,ALL                                                                                           !NEW
*GET,XMax,NODE,0,MXLOC,X                                                                            !NEW
NSEL,R,LOC,X,XMax,XMax                                                                              !NEW
SF,ALL,CONV,40000,35


!CONTACT PAIR
CMSEL,S,WUERFEL1
NSLE,ALL
NSEL,R,LOC,X,2,2
CM,SSXY1,NODE
CMSEL,S,WUERFEL2
NSLE,ALL 
NSEL,R,LOC,X,2,2
CM,SSXY2,NODE

!!HIER SOLL DER CODE FÜR DAS ERSTELLEN DER KONTAKTE STEHEN


!SOLU
/SOLU
ANTYPE,4
TRNOPT,FULL
TUNIF,700             !Anfangstemperatur festlegen
TIME,20
NSUBST,100,1000,10
OUTRES,ERASE
OUTRES,ALL,1

ALLSEL
EPLOT