!Stromdichte auf Wicklung
!
finish
/clear
*abbr,peter77,/input,peter77,txt

!Abmessungen
rada=60e-3
radi=50e-3
lang=30e-3

!--------------------------
/prep7
et,1,solid97
mp,murx,1,2

cyli,radi,rada,0,lang,  0, 90
cyli,radi,rada,0,lang, 90,180
cyli,radi,rada,0,lang,180,270
cyli,radi,rada,0,lang,270,360
vglue,all
!numcmp,volu

!-----Vernetzung-----
esize,rada-radi
mat,1
vmesh,all

!---Elementkoordinatensytem------
local,11,1
emodif,all,esys,11

!---Lasten-----
strdi=1
bfe,all,js,1,0,strdi,0

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

!-----Auswertung-----
/post1
/edge,,1
plns,b,sum