fini
/cle

!Variablenvereinbarung & Geometriedaten
mm=1e-3
fr=50
uamp=27e3*sqrt(2)

!Kupferleiter
Kupferleiterdicke=20
Kupferleiterhöhe=50
AbsoluteHöhe=52
Kantenradius=2
spezW=1/57e6

!Trennender Grundwickel
Grundwickeldicke=1


!Vlieskontkatstreifen

Kupferkontaktbreite=1
Leitvliesdicke=1
epsr=30        ! Leitvlies







!Preprocessing

/prep7
et,1,plane121



mp,perx,1,epsr
mp,perx,2,1
mp,perx,3,1
mp,rsvx,3,1/(57e6 )
!Modulierung der Geometrie


! 1.Kupferleiter


rect,0,Kupferleiterdicke*mm,0,Kupferleiterhöhe*mm

rect,Kantenradius*mm,(Kantenradius+(Kupferleiterdicke-2*Kantenradius)/4)*mm,Kupferleiterhöhe*mm,Kupferleiterhöhe*mm+Kantenradius*mm
rect,(Kantenradius+(Kupferleiterdicke-2*Kantenradius)/4)*mm,(Kupferleiterdicke/2)*mm,Kupferleiterhöhe*mm,Kupferleiterhöhe*mm+Kantenradius*mm
rect,(Kupferleiterdicke/2)*mm,(Kupferleiterdicke/2+2*Kantenradius)*mm,Kupferleiterhöhe*mm,Kupferleiterhöhe*mm+Kantenradius*mm
rect,(Kupferleiterdicke/2+2*Kantenradius)*mm,(Kupferleiterdicke-Kantenradius)*mm,Kupferleiterhöhe*mm,Kupferleiterhöhe*mm+Kantenradius*mm

rect,Kantenradius*mm,(Kantenradius+(Kupferleiterdicke-2*Kantenradius)/4)*mm,-Kantenradius*mm,0 
rect,(Kantenradius+(Kupferleiterdicke-2*Kantenradius)/4)*mm,(Kupferleiterdicke/2)*mm,-Kantenradius*mm,0
rect,(Kupferleiterdicke/2)*mm,(Kupferleiterdicke/2+2*Kantenradius)*mm,-Kantenradius*mm,0
rect,(Kupferleiterdicke/2+2*Kantenradius)*mm,(Kupferleiterdicke-Kantenradius)*mm,-Kantenradius*mm,0




cyl4,Kupferleiterdicke*mm-Kantenradius*mm,Kupferleiterhöhe*mm,Kantenradius*mm,0,,90
cyl4,Kantenradius*mm,Kupferleiterhöhe*mm,Kantenradius*mm,90,,180
cyl4,Kantenradius*mm,0,Kantenradius*mm,180,,270
cyl4,Kupferleiterdicke*mm-Kantenradius*mm,0,Kantenradius*mm,270,,360



! 2. trennender Grundwickel
rect,-Grundwickeldicke*mm,0,0,Kupferleiterhöhe*mm
rect,Kupferleiterdicke*mm,Kupferleiterdicke*mm+Grundwickeldicke*mm,0,Kupferleiterhöhe*mm
rect,Kantenradius*mm,(Kupferleiterdicke-Kantenradius)*mm,-(Kantenradius+Grundwickeldicke)*mm,-Kantenradius*mm
rect,Kantenradius*mm,(Kantenradius+(Kupferleiterdicke-2*Kantenradius)/4)*mm-Kantenradius*mm,(Kupferleiterhöhe+Kantenradius)*mm,(Kupferleiterhöhe+Kantenradius+Grundwickeldicke)*mm
rect,(Kupferleiterdicke/2+2*Kantenradius)*mm+Kantenradius*mm,(Kupferleiterdicke-Kantenradius)*mm,(Kupferleiterhöhe+Kantenradius)*mm,(Kupferleiterhöhe+Kantenradius+Grundwickeldicke)*mm



cyl4,Kupferleiterdicke*mm-Kantenradius*mm,Kupferleiterhöhe*mm,(Kantenradius+Grundwickeldicke)*mm,0,Kantenradius*mm,90
cyl4,Kantenradius*mm,Kupferleiterhöhe*mm,(Kantenradius+Grundwickeldicke)*mm,90,Kantenradius*mm,180
cyl4,Kantenradius*mm,0,(Kantenradius+Grundwickeldicke)*mm,180,Kantenradius*mm,270
cyl4,Kupferleiterdicke*mm-Kantenradius*mm,0,(Grundwickeldicke+Kantenradius)*mm,270,Kantenradius*mm,360
l2tan,11,63
l2tan,67,15
l,63,68
A,63,62,65,68
ASBL,23,85
ASBL,25,86

!--Flächen addieren
aadd,1,2,3,4,5,6,7,8,9,10,11,12,13
aadd,19,20,21,22,14,15,16,17,18,23,24

aglue,all


! 3. Leitvlieskontkatstreifen
rect,-(Grundwickeldicke+Leitvliesdicke)*mm,-Grundwickeldicke*mm,0,Kupferleiterhöhe*mm
rect,(Kupferleiterdicke+Grundwickeldicke)*mm,(Kupferleiterdicke+Grundwickeldicke)*mm+Grundwickeldicke*mm,0,Kupferleiterhöhe*mm
rect,Kantenradius*mm,(Kupferleiterdicke-Kantenradius)*mm,-(Kantenradius+Grundwickeldicke+Leitvliesdicke)*mm,-(Kantenradius+Grundwickeldicke)*mm

cyl4,Kupferleiterdicke*mm-Kantenradius*mm,Kupferleiterhöhe*mm,(Kantenradius+Grundwickeldicke+Leitvliesdicke)*mm,0,(Kantenradius+Grundwickeldicke)*mm,90
cyl4,Kantenradius*mm,Kupferleiterhöhe*mm,(Kantenradius+Grundwickeldicke+Leitvliesdicke)*mm,90,(Kantenradius+Grundwickeldicke)*mm,180
cyl4,Kantenradius*mm,0,(Kantenradius+Grundwickeldicke+Leitvliesdicke)*mm,180,(Kantenradius+Grundwickeldicke)*mm,270
cyl4,Kupferleiterdicke*mm-Kantenradius*mm,0,(Grundwickeldicke+Kantenradius+Leitvliesdicke)*mm,270,(Kantenradius+Grundwickeldicke)*mm,360
rect,Kantenradius*mm,Kupferleiterdicke*mm-Kantenradius*mm,Kantenradius*mm+Kupferleiterhöhe*mm+Grundwickeldicke*mm,Kupferleiterhöhe*mm+Kantenradius*mm+Grundwickeldicke*mm+Leitvliesdicke*mm

aadd,1,5,6,7,8,9,10,11,2
aglue,all








asel,s,area,,3 !Kupferleiter
aatt,2
asel,s,area,,4  !Trennwickel
aatt,3
asel,s,area,,1  !Vlies
aatt,1




esize,0.5*mm
mshape,1,2d


asel,s,area,,1
amesh,1


asel,s,area,,3
amesh,3
asel,s,area,,4
amesh,4
 allsel


asel,s,area,,3
lsla
dl,all,,volt,uamp
allsel


lSEl,s,line,,44,48
lSEl,a,line,,20
lSEl,a,line,,15
lSEl,a,line,,17

dl,all,,volt,0
allsel



/solu
antype,harm
harfrq,fr
solve


!Postprocessing

/post1




set,1,1    !Realteil Feldstärke
etable,efr,ef,sum