!Wicklung im Kern
!rotationssymmetrisch
!Schätzing, 17.3.2014

finish  $/clear
*abbr,BSingST,/input,BSingST,txt

radwiin=20e-3   !Rad-Wicklung-innen
radwiau=30e-3   !Radius-Wicklung-außen
howi=40e-3      !Höhe Wicklung

radkeau=36e-3   !Radius Kern außen
hoke=50e-3      !Hohe Kern

radbe=80e-3     !Radius-Bereich

strom=1
wianz=500       !Windungszahl

!--------------------
/prep7
et,1,plane53,,,1    !Luft
et,2,plane53,,,1    !Wicklung
et,3,plane53,,,1    !Kern
et,4,infin110,,1,1  !Rand
!-------Material-----
mp,murx,1,1    !Luft
mp,murx,2,1    !Wicklung
mp,murx,3,200    !Kern

!--------Geometrie---------
/color,outl,blac
rectng,0,radkeau,0,-hoke
rectng,radwiin,radwiau,0,-howi
cyl4,0,0,0,-90,radbe,90

aovlap,all
numcmp,area
!A1:Wicklung,  A2:Kern
!A3:Luft 
!/eof
!---------Vernetzung-Wicklung----
type,2
mat,2
esize,howi/12
amesh,1
!----Kern------
type,3
mat,3
amesh,2
!-----Luft-----
type,1  
mat,1  
amesh,3

!------Rand------
csys,1
nsel,s,loc,x,radbe
esln
emodif,all,type,4
sf,all,inf
csys,0

!-----Lasten------
!---StromDichte-----
strdi=strom*wianz/((radwiau-radwiin)*howi)
esel,s,mat,,2
bfe,all,js,,,,strdi
allsel

!------Lösung-------
/solu
solve

!------Auswertung-------
/post1
plf2d

!plns,b,sum