!Elektrisches Strömungsfeld
!transient thermisch
!für kalyspo
!Schätzing,  29.4.2019
finish  $/clear
*abbr,kalyspo1,/input,kalyspo1,txt

!----Parameter----
breit=12e-3
hoch=15e-3
lang=20e-3
Strom=5000
zeitende=60

!-----
/prep7
!et,1,solid69
et,1,solid226,110
mp,rsvx,1,1/10e6
mp,kxx,1,52
mp,c,1,420
mp,dens,1,7860
!-----Geometrie----
block,0,breit,0,hoch,0,lang
!----Vernetzung---
esize,hoch/6
vmesh,all
!/eof
!---Randbedingungen--elektrisch-----
nsel,s,loc,z,0
*get,node1,node,,num,min  !bestimmt min. Knotennummer des sel. Sets und weist sie node1 zu
f,node1,amps,Strom/4
cp,1,volt,all
nsel,s,loc,z,lang
d,all,volt,0
!/eof
!-----Randbedingungen---thermisch------
nsel,s,loc,x,breit
nsel,a,loc,x,0
nsel,a,loc,y,hoch
nsel,a,loc,y,0
!sf,all,conv,1000,20   !Konvektion
tunif,20
allsel
!---Lösung------------------
/solu
antyp,trans
kbc,1

time,zeitende
deltim,zeitende/20
outres,all,all
solve
!----Abkühlung-----
fdele,all,all
time,zeitende*2
solve
!---Auswertung---------------
/post1
plnsol,temp
!------------------
/post26
nsol,2,node(0,0,lang/2),temp,,Mitte
nsol,3,node(breit/2,hoch/2,lang/2),temp,,Außen
plvar,2,3

/eof

!--------------------
/post1
!/cont,,9,20,,55
set,first
*do,i,1,10
plnsol,temp
/wait,1
set,next
*enddo
!--------------------------
/post1
/cont,,9
set,,,,,60
plns,temp