!eine  Wicklung (Kupfer) stromdurchflossen
!zweidimensional axialsysmmetrisch
!keine Symmetrienutzung
!Prüfung von MrTorque-Ergebnis


fini  $/clear
*abbr,pro_3_5,/input,pro_3_5.inp

wiradin=95e-3  !Windungs-Radius innen
wiradau=105e-3  !Windungs-Radius außen
wiho=10e-3     !Windungs-Höhe
berad=200e-3   !Bereichs-Radius
strom=200
wifl=(wiradau-wiradin)*wiho  !Wicklungsquerschnitt
strdi=strom/wifl  !Stromdichte
rocu=57e6   
mw=wiho/4         !Maschenweite 
/prep7  
et,1,plane53,,,1 
et,2,infin110,,,1 
mp,murx,1,1        !Luft 
mp,murx,2,1        !Kupfer
mp,rsvx,2,1/rocu   !Kupfer

!----Geometrie------
pcirc,berad,,-90,90
rectng,wiradin,wiradau,-wiho/2,wiho/2
aovlap,all
!A2:Leiter A3:Bereich
/pnum,area,1
aplo

!-------Vernetzung--Leiter------
esize,mw  !Maschenweite
mat,2
amesh,2
!----Vernetzung---Luft------
esize,mw*8
mat,1
amesh,3

!-------Rand-------
csys,1
nsel,s,loc,x,berad
esln
emodif,all,type,2
sf,all,inf
csys,0
!-----Stromdichtevorgabe-------------
esel,s,mat,,2
bfe,all,js,,,,strdi
allsel
!--------
/solu
solve
!--------------
/post1
plf2d
plns,b,sum

n1=node(0,0,0)
*get,by0,node,n1,b,y
!Ziel von Mrtorque: 1.26e-3