statorstaerke=jochdicke
rotorstaerke=raussen-jochdicke-delta-rinnen
z1=2*m*p*q

csys,1

k,1,raussen,0
k,2,raussen,360/(2*z1)
k,3,raussen-statorstaerke,0
k,4,raussen-statorstaerke,360/(2*z1)
csys,0
*If,Zweischicht,eq,1,then
k,5,raussen-statorstaerke+wickhoehe1/2+wickisol,0
k,6,raussen-statorstaerke+wickhoehe1/2+wickisol,wickbreite1/2
*Else
k,5,raussen-statorstaerke+wickhoehe1,0
k,6,raussen-statorstaerke+wickhoehe1,wickbreite1/2
*EndIf

k,7,raussen-2*statorstaerke,wickbreite1/2
csys,1
k,8,rinnen,0
k,9,rinnen,360/(4*p)
k,10,rinnen+rotorstaerke,0
k,11,rinnen+rotorstaerke,360/(4*p)
csys,0
k,12,2*raussen,wickbreite1/2
csys,1
k,13,rinnen+rotorstaerke+delta/2,0
k,14,rinnen+rotorstaerke+delta/2,360/(2*z1)
csys,0
*If,zweischicht,eq,1,then
k,15,raussen-statorstaerke+wickhoehe1/2,0
k,16,raussen-statorstaerke+wickhoehe1/2,wickbreite1/2
k,17,raussen-statorstaerke+wickhoehe1+wickisol,0
k,18,raussen-statorstaerke+wickhoehe1+wickisol,wickbreite1/2
*Else
k,15,raussen-statorstaerke+wickhoehe1/2,0
k,16,raussen-statorstaerke+wickhoehe1/2,wickbreite1/2
k,17,raussen-statorstaerke+wickhoehe1+wickisol,0
k,18,raussen-statorstaerke+wickhoehe1+wickisol,wickbreite1/2
*EndIf
csys,1
k,19,rinnen+rotorstaerke+delta/2,0
k,20,rinnen+rotorstaerke+delta/2,360/(4*p)


csys,1
l,1,2
l,3,4
csys,0
l,2,4
l,15,5
l,5,6
l,3,15
l,16,7
csys,1
l,8,9
l,10,11
csys,0
l,8,10
l,9,11
l,4,14
l,11,20
l,3,13
l,10,19
l,6,16
csys,1
l,13,14
csys,0
l,15,16
l,12,18
l,17,1
l,17,18
l,6,18
l,5,17
csys,1
l,19,20



lsel,s,,,2,7,5
lsel,a,,,17
lovlap,all
lsel,s,,,1,19,18
lovlap,all

lsel,s,,,17,27,10
ldel,all

allsel

allsel,below,line
ksel,inve
kdel,all

allsel
NUMCMP,AREA 
NUMCMP,LINE 
NUMCMP,KP   

allsel
lplot
