!Pfad-Problem
fini  $/clear
*abbr,pfad,/input,pfadproblem.txt
wiradin=30e-3  !Windungs-Radius innen
wiradau=40e-3  !Windungs-Radius außen
wiho=10e-3     !Windungs-Höhe
ferad=6e-3     !Eisen-Radius
fehoch=12e-3   !Eisen-Höhe
berad=50e-3    !Bereichs-Radius
strom=1000
wifl=(wiradau-wiradin)*wiho  !Wicklungsquerschnitt
strdi=strom/wifl  !Stromdichte
mw=wiho/2         !Maschenweite 
/prep7  
et,1,plane53,,,1 
!et,1,plane13,,,1
et,2,infin110,,,1 
mp,murx,1,1        !Luft 
mp,murx,2,1        !Kupfer
my_rel=1000        !µ-rel
mp,murx,3,my_rel   !Eisen
!----Geometrie------
pcirc,berad,,-90,90
rectng,wiradin,wiradau,-wiho/2,wiho/2
rectng,0,ferad,0,fehoch
aovlap,all
!A2:Wicklung, A4:Eisen, A5:Luft
!-------Vernetzung--Leiter------
esize,mw/2  
mat,2
amesh,2
!-------Vernetzung--Eisen------
esize,fehoch/14
!esize,mw/2
mat,3
amesh,4
!----Vernetzung---Luft------
esize,mw
mat,1   
amesh,5
!-------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
!-------------------
/pbc,path,1
path,achse,2,,
ppath,1,,0,fehoch,0
ppath,2,,ferad,fehoch,0
!ppath,1,,0,0,0
!ppath,2,,ferad,0,0
pdef,h,h,sum
plpa,h
pcalc,add,b,h,,1/my_rel
plpa,b