!Wicklung stromdichtegespeist
!Aufheizung der Wicklung
!Schätzing
!
!
fini  $/clear
*abbr,wick_therm,/input,wick_therm,inp

!------Parameter--------
wiradau=0.5*52e-3    	!Wicklung-Radius außen
wiradin=0.5*23e-3    	!Wicklung-Radius innen
wiho=9e-3       	!Wicklung-Höhe

beradau=120e-3
beradin=80e-3

strdi=6e6               !Stromdichte

!------Modellerstellung-----------------
/prep7  
et,1,plane53,,,1     	!Luft
et,2,plane53,,,1        !Wicklung
et,3,infin110,,,1    	!Randelement
mp,murx,1,1          	!Luft 
mp,murx,2,1             !Wicklung
mp,rsvx,2,1/56e6



!----Geometrie------
pcirc,0,beradau,-90,90
pcirc,0,beradin,-90,90
rectng,wiradin,wiradau,0,-wiho

aovlap,all
numcmp,area
!A1:Wicklung
!A3:Bereich innen A2:Bereich außen
!/eof

!-------Vernetzung--Wicklung--------
eshape,2  !Vernetzen mit Vierecken
esize,wiho/10  !Maschenweite
type,2  $mat,2  
amesh,1

!----Vernetzung---Luft------
csys,1
lsel,s,loc,x,beradin,beradau
lsel,u,loc,x,beradin
lsel,u,loc,x,beradau
lesize,all,,,4,1/4
esize,,32
type,1   $mat,1  
amesh,2

!--------------------------------
eshape
esize,wiho/2
type,1  $mat,1
amesh,3

!----Rand-----
nsel,s,loc,x,beradau
esln
emodif,all,type,3
sf,all,inf
allsel
!------------
csys,0

!-------Lasten-----
esel,s,mat,,2
bfe,all,js,,,,strdi*1

allsel

!--------
/solu
solve

!----------------------
/post1
!/expand,2,polar,half,,90
plf2d
/wait,0.5
ples,jheat

!/eof

!==========thermisch===========
/prep7

et,1,0
et,2,plane77,,,1
mp,dens,2,8900
mp,kxx,2,350
mp,c,2,380


!---Randbedingungen------
!---bei kleinen Zeiten (Minuten) kann darauf verzichtet werden
esel,s,mat,,2
!nsel,s,ext
!sf,all,conv,8,20
!nsel,all
tunif,20

!------Lösung------
/solu
antype,trans
zeitende=120
schritte=10
ldread,hgen,,,,,,rmg
time,zeitende
deltim,zeitende/schritte
solve

!-------Auswertung-------
/post1
plns,temp