fini
/cle

! PREPROCESSING
/prep7
ET,1,SOLID70
! Materialeigenschaften
MP,KXX,1,10000 
MP,C,1,100
MP,DENS,1,10000 

! Geometrie
BLOCK,0,10,0,1,0,1
LESIZE,ALL,1/3

! Vernetzung
VSEL,ALL
VMESH,ALL
ALLSEL,ALL

! Anpassungsfaktor
faktor = 1

! SOLUTION

/solu
rescontrol,define,all,1
outres,nsol,1

KBC,1
IC,ALL,TEMP,10 ! Anfangsbedingungen


antyp,trans
timint,on
time,.1
nsub,5

NSEL,S,LOC,X,10
D,ALL,TEMP,50 ! Randbedingung
ALLSEL, ALL
solve ! 1. Schritt


time,100
nsub,5
DDELE,ALL,TEMP
ALLSEL, ALL
solve ! 2. Schritt

*GET,Te,node,38,temp
/output,temperatures,txt
/com, Current temperature at node 38 (START): %Te% 
/output

*DO,i,1,10,1
  fini
  /solu
parsav,all,parameter,prm  
  antyp,,restart,2,1 ! Neustart
parres,change,parameter,prm  
  NSEL,S,LOC,X,0
  DDELE,ALL,TEMP
  D,ALL,TEMP,50*faktor ! Neudefinition der Randbedingung
  ALLSEL, ALL
  solve
  *GET,Te,node,38,temp
/output,temperatures,txt,,append
/com, Current temperature at node 38 (%i%): %Te% 
/output
  *IF,Te,LE,100,THEN
  faktor = faktor+1
  *ELSE
!  i = 10
*exit
  *ENDIF
*ENDDO