!Trafo von Thomas174
!Schätzing, 6.11.2008
finish
/clear
*abbr,trafo2,/input,trafo2.txt

/prep7
!====Parameter================
fbr=80e-3   !Fenster-Breite
fho=30e-3   !Fenster-Höhe
kbr=10e-3   !Kern-Breite
iso=1e-3    !Isolation
sbr=10e-3   !Spulen-Breite
lbr=160e-3  !Luft-Breite
lho=100e-3  !Luft-Höhe
! =======================================================================================
! Materialbestimmung
! =======================================================================================
!eisenkern
et,1,plane53
mp,murx,1,2000
mp,rsvx,1,40e3

!luft  isolation
et,3,plane53
mp,murx,3,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
rectng,-fbr/2-kbr,fbr/2+kbr,-fho/2-kbr,fho/2+kbr
rectng,-fbr/2,fbr/2,-fho/2,fho/2

!--spule1links
rectng,-fbr/2-kbr-iso-sbr,-fbr/2-kbr-iso,-fho/2+iso,fho/2-iso
!--spule1rechts
rectng,-fbr/2+iso+sbr,-fbr/2+iso,-fho/2+iso,fho/2-iso

!---Luft-----
rectng,-lbr/2,lbr/2,-lho/2,lho/2

aovlap,all
!A3: Spule1links  A4: Spule1rechts
!A6: Kern  A7: Luft innen  A8: Luft außen

! =======================================================================================
! Meshing
! =======================================================================================

!kern
type,1
mat,1
esize,kbr/2
amesh,6

!spulen
type,10
mat,10
esize,sbr/2
amesh,3
amesh,4

!luft
type,3
mat,3
!esize
amesh,7
amesh,8

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

asel,s,,,3
esla
BFE,all,js,,,,20e3
 
asel,s,,,4
esla
BFE,all,js,,,,-20e3

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

nsel,s,ext
D,ALL,AZ,0                 
allsel

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

/SOLU
solve                 

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

/POST1  
PLF2D