!Definieren des Berechnungsmodells
!----------------------------------------------------------------------------------------
   
/Prep7

   antype,trans					! Analyse
   
   mp,dens,1,7800				! Dichte kg/m^3
   mp,kxx,1,48					! Wärmeleitkoeffizient W/(m^2*K)
   mp,c,1,452					! spez. Wärmekapazität J/(kg*K)

   
   et,1,solid70
   esize,0.05

   Block,,0.4,,0.4,,1
   vmesh,all


   nsel,s,loc,z
   sf,all,hflux,18750				! Wärmequelle an t=0, Stirnfläche
 
   nsel,s,loc,z,0.5
   d,all,temp,Sensor1				! Definition Sensor1

   nsel,s,loc,z,1				! Definition Sensor2
   d,all,temp,Sensor2

   alls
   
!----------------------------------------------------------------------------------------




! Berechnungsschleife Sensor1,Sensor2,Waermequelle
!----------------------------------------------------------------------------------------
 
*DO,Vergleich,1,1000,1
   
  
   TempMAX=90
   *get,Sensor1
   *get,Sensor2
   *get,TempMAX
 
   nsel,s,loc,z
   d,all,hflux,18750				! Wärmequelle an t=0, Stirnfläche

   				
  *IF,Sensor1,LT,TempMAX,Heizen,THEN		! Heizzyklus an

   nsel,s,loc,z
   sf,all,hflux,18750

  *ELSE,Sensor1,GT,TempMAX,nichtHeizen		! Heizzyklus aus

   nsel,s,loc,z
   sf,all,hflux,0

  *ELSEIF,Sensor1,EQ,Sensor2,90			! Berechnungsstop Temperatur erreicht

   STOP
  
  *ENDIF
  *ENDDO

!----------------------------------------------------------------------------------------