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


!Leitvlieskontkatstreifen

Kupferkontaktbreite=1
Leitvliesdicke=1
epsr=30        !Permittivität Leitvlies

!Hauptisolierung

Hauptisolierungsdicke=5
Epsr1=5             !Permittivität Glimmer


!Schicht 5
Schichtdicke5=1



!Preprocessing

/prep7
et,1,plane121



mp,perx,1,epsr1
mp,perx,2,epsr
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


! 4. Hauptisolation
rect,-(Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,-(Grundwickeldicke+Leitvliesdicke)*mm,0,Kupferleiterhöhe*mm
rect,(Kupferleiterdicke+Grundwickeldicke+Leitvliesdicke)*mm,(Kupferleiterdicke+Grundwickeldicke+Hauptisolierungsdicke)*mm+Grundwickeldicke*mm,0,Kupferleiterhöhe*mm
rect,(Kantenradius)*mm,(Kupferleiterdicke-Kantenradius)*mm,-(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,-(Kantenradius+Grundwickeldicke+Leitvliesdicke)*mm
rect,(Kantenradius)*mm,(Kupferleiterdicke-Kantenradius)*mm,(Kantenradius+Kupferleiterhöhe+Grundwickeldicke+Leitvliesdicke)*mm,(Kantenradius+Kupferleiterhöhe+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm

cyl4,Kupferleiterdicke*mm-Kantenradius*mm,Kupferleiterhöhe*mm,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,0,(Kantenradius+Grundwickeldicke+Leitvliesdicke)*mm,90
cyl4,Kantenradius*mm,Kupferleiterhöhe*mm,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,90,(Kantenradius+Grundwickeldicke+Leitvliesdicke)*mm,180
cyl4,Kantenradius*mm,0,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,180,(Kantenradius+Grundwickeldicke+Leitvliesdicke)*mm,270
cyl4,Kupferleiterdicke*mm-Kantenradius*mm,0,(Grundwickeldicke+Kantenradius+Leitvliesdicke+Hauptisolierungsdicke)*mm,270,(Kantenradius+Grundwickeldicke+Leitvliesdicke)*mm,360
aadd,8,9,10,11,7,2,5,6
aglue,all

!5.Schicht
rect,-(Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke+Schichtdicke5)*mm,-(Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,0,Kupferleiterhöhe*mm
rect,(Kupferleiterdicke+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,(Kupferleiterdicke+Grundwickeldicke+Hauptisolierungsdicke+Schichtdicke5)*mm+Grundwickeldicke*mm,0,Kupferleiterhöhe*mm
rect,(Kantenradius)*mm,(Kupferleiterdicke-Kantenradius)*mm,-(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke+Schichtdicke5)*mm,-(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm
rect,(Kantenradius)*mm,(Kupferleiterdicke-Kantenradius)*mm,(Kantenradius+Kupferleiterhöhe+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,(Schichtdicke5+Kantenradius+Kupferleiterhöhe+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm

cyl4,Kupferleiterdicke*mm-Kantenradius*mm,Kupferleiterhöhe*mm,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke+Schichtdicke5)*mm,0,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,90
cyl4,Kantenradius*mm,Kupferleiterhöhe*mm,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke+Schichtdicke5)*mm,90,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,180
cyl4,Kantenradius*mm,0,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke+Schichtdicke5)*mm,180,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,270
cyl4,Kupferleiterdicke*mm-Kantenradius*mm,0,(Grundwickeldicke+Kantenradius+Leitvliesdicke+Hauptisolierungsdicke+Schichtdicke5)*mm,270,(Kantenradius+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke)*mm,360
aadd,5,6,7,8,9,10,11,12
aglue,all


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

asel,s,area,,2 !Glimmerisolation
aatt,1


asel,s,area,,5    !Schicht5
aatt,3


asel,s,area,,1  !Leitvlies
aatt,3
allsel

esize,0.8*mm
mshape,1,2d


asel,s,area,,1
amesh,1
asel,s,area,,2
amesh,2

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




asel,s,area,,3
da,all,volt,uamp

allsel
asel,s,area,,5

da,all,volt,0
allsel


/solu
antype,harm
harfrq,fr
solve


!Postprocessing

/post1



!plnsol,volt
!plnsol,ef,sum

 set,1,1    !Realteil Feldstärke
etable,efr,ef,sum
!pletab,efr,avg
!---
!set,1,1,,1   !Imaginärteil Feldstärke
!etable,efi,ef,sum
!pletab,efi,avg


!Pfaddefinition
!path,radius,2,,1000
!ppath,1,,(Kupferleiterdicke)*mm,(Kupferleiterhöhe/2)*mm,5*mm
!ppath,2,,(Kupferleiterdicke+Grundwickeldicke+Leitvliesdicke+Hauptisolierungsdicke+Schichtdicke5)*mm,(Kupferleiterhöhe/2)*mm,5*mm
!pdef,efi,ef,sum
!plpath,efi