finish
/clear

/prep7

! =======================================================================================
! Materialbestimmung
! =======================================================================================
!eisenkern
et,1,plane53
MAT,1,
mp,murx,1,2000
mp,rsvx,1,40e3

!luft
et,3,plane53
mp,murx,3,1

!isolation
et,4,plane53
mp,murx,4,1

!spulen
et,10,plane53       !Spule Primärseite
mp,murx,10,1
mp,rsvx,10,1/56e6
et,11,plane53       !Spule Sekundärseite
mp,murx,11,1
mp,rsvx,11,1/56e6

! =======================================================================================
! Geometrieerstellung
! =======================================================================================
!--eisenkern
!aussen
k,1,0,0,0
k,2,100,0,0
k,3,0,50,0
k,4,100,50,0
!innen
k,10,10,10,0
k,11,90,10,0
k,12,90,40,0
k,13,10,40,0

a,1,2,4,3
a,10,11,12,13
asba,1,2

asel,s,area,,3
cm,kern,area
aatt,1,1,1
allsel

!--isolation
k,600,10,11,0
k,601,11,11,0
k,602,11,39,0
k,603,10,39,0
a,600,601,602,603

k,604,89,11,0
k,605,90,11,0
k,606,90,39,0
k,607,89,39,0
a,604,605,606,607

asel,s,area,,1
asel,a,area,,2
cm,isolation,area
aatt,4,4,4
allsel

!--spulelinks
k,20,11,11,0
k,21,20,11,0
k,22,20,39,0
k,23,11,39,0
a,20,21,22,23

k,24,0,11,0
k,25,-10,11,0
k,26,-10,39,0
k,27,0,39,0
a,24,25,26,27

asel,s,area,,4
cm,spulelinks_minus,area
aatt,10,10,10
allsel
asel,s,area,,5
cm,spulelinks_plus,area
aatt,10,10,10
allsel

!--spulerechts
k,30,89,11,0
k,31,80,11,0
k,32,80,39,0
k,33,89,39,0
a,30,31,32,33

k,34,100,11,0
k,35,110,11,0
k,36,110,39,0
k,37,100,39,0
a,34,35,36,37

asel,s,area,,6
cm,spulerechts_minus,area
aatt,11,11,11
allsel
asel,s,area,,7
cm,spulerechts_plus,area
aatt,11,11,11
allsel

!--luft
!innen
a,10,11,605,31,32,606,12,13,603,22,21,600
!aussen
!links
k,200,-30,0,0
k,201,-30,50,0
a,1,200,201,3,27,26,25,24
!rechts
k,202,130,0,0
k,203,130,50,0
a,2,202,203,4,37,36,35,34

asel,s,area,,8,10,1
cm,luft,area
aatt,3,3,3
allsel

! =======================================================================================
! Meshing
! =======================================================================================
numstr,node,1000

!kern
cmsel,s,kern,area
mshape,1,2D
SMRTSIZE,3
amesh,all
allsel

!spulen
cmsel,s,spulelinks_minus,area
cmsel,a,spulelinks_plus,area
cmsel,a,spulerechts_minus,area
cmsel,a,spulerechts_plus,area
mshape,1,2D
SMRTSIZE,2
amesh,all
allsel

!luft
cmsel,s,luft,area
mshape,1,2D
SMRTSIZE,5
amesh,all
allsel

! =======================================================================================
! Strom einprägen
! =======================================================================================

cmsel,s,spulelinks_plus,area
esla
BFE,all,js,,,,20e3
allsel
 
cmsel,s,spulelinks_minus,area
esla
BFE,all,js,,,,-20e3
allsel

! =======================================================================================
! Randbedingungen
! =======================================================================================

cmsel,s,kern,area
cmsel,a,luft,area
cmsel,a,isolation,area
esla
cm,loesung,elem
FMAGBC,'loesung'
allsel

nsel,s,loc,y,0
nsel,a,loc,y,50
nsel,a,loc,x,-30
nsel,a,loc,x,130
cm,extern,node
allsel

cmsel,s,extern,node
D,ALL,AZ,0                 
allsel

! =======================================================================================
! Lösung
! =======================================================================================

/SOLU
MAGSOLV                   

! =======================================================================================
! H-Feld Linien
! =======================================================================================

/POST1  
PLF2D