/solu


antype,trans
tunif,Umgebungstemperatur
d,nmax,temp,Umgebungstemperatur 

               
                                                            
esel,all

deltim,sw*1e-4,sw*1e-5,sw*1e-1,on             !Zum einstellen der Wärmeentwicklung am Anfang der Erwärmung 
outres,basic,all                ! 

physics,write,thermal  

    
*do,i,1,endzeit/sw   
zeit=zeit+sw            		 
time=zeit




physics,read,emag    
    
/solu

 


*if,i,eq,1,then
 tunif,Umgebungstemperatur                    
    
*else
 ldread,temp,last,,,,,rth    

 *endif


   
   
solve                         
    
physics,read,thermal          
/solu
parsav,scalar,parameter,sav   
*if,i,gt,1,then
 antype,trans,rest            

*endif
parres,new,parameter,sav      
time,zeit                    
   
esel,all 
 esel,u,mat,,1                                                                                    
ldread,hgen,,,,2,,rst        
         
        p=p-1              !Variablendeklaration: P = 33

                
    *if,p,eq,32,then                           
        nsel,s,node,,268 !Wärme an einem beliebigen Knoten (hier: Knoten268)                                                                             
    *get,ntest,node,,num,min
 ic,ntest,temp,3000  !!!!!

nsel,all
       
      *endif                                                                              
   
            

            
solve
                                
*enddo