!aus dem Forum von alexander89
!thermisch transient
!Version Schätzing, 1.11.2012
!-------------------------------------------------
finish  $/clear
*abbr,alex89,/input,alex89,txt


!------Parameter------------------------
dick=0.01   !Dicke der Platte
breit=0.2   !Breite 
lang=0.4    !Länge

/PREP7
et,1,solid5
block,0,breit,0,lang,0,dick
esize,dick
vmesh,all

MP,KXX,1,40
MP,DENS,1,7800
MP,C,1,500
SFA,all,,CONV,8,293  

tunif,293

/SOLU
ANTYPE,TRANS
TIME,1E-6
SOLVE

TIME,1
F,NODE(breit/2,0,dick),HEAT,700
NSUB,3
OUTRES,ALL,ALL
SOLVE


/solu
schritte=15
*DO,I,2,schritte
TIME,I
F,NODE(breit/2,(I-2)*dick,dick),HEAT,0
F,NODE(breit/2,(I-1)*dick,dick),HEAT,1400
autots,on
SOLVE
*ENDDO




!--------Auswertung-----
/post1
/plopts,minm,0
plns,temp


/cont,,9,293,,850
set,first
plns,temp
*do,i,1,schritte
set,,,,,i
plns,temp
/wait,0.4
*enddo