!!rschenkel=rinnen+jochdicke2-deltaer
*afun,deg

csys,1

!! Parameter
!!
!!raussen     Aussenradius   ok
!!joch1       Jochdicke
!!jochdicke   Statorstaerke
!!jochtiefe   Jochtiefe
!!delta       Luftspalt
!!p           Polpaarzahl
!!
!!polschhoehe Polschuhhoehe
!!polbreite   Polbreite
!!polschraeg  Polstaerke aussen
!!polwinkel   Polteilung in Grad
!!wickbreite1 Wicklungsbreite
!!wickhoehe1  Wicklungshoehe
statorstaerke=jochdicke

k,1,raussen,0
k,2,raussen,360/(4*p)

k,3,raussen-statorstaerke,0
k,4,raussen-statorstaerke,360/(4*p)

k,5,raussen-statorstaerke-delta/2,0
k,6,raussen-statorstaerke-delta/2,360/(4*p)
csys,0
k,7,raussen,polbreite/2
k,8,raussen-statorstaerke+polschhoehe,polbreite/2
k,9,raussen-statorstaerke+polschhoehe+wickhoehe1,polbreite/2
csys,1
k,10,raussen-statorstaerke+polschraeg,polwinkel/2
csys,0
k,11,raussen-statorstaerke+polschhoehe+wickhoehe1,0
k,12,0,0
k,13,raussen-statorstaerke+polschhoehe,0
k,14,raussen-statorstaerke+polschhoehe,polbreite/2+wickbreite1
k,15,raussen-statorstaerke+polschhoehe+wickhoehe1,polbreite/2+wickbreite1
csys,1
k,16,raussen-joch1,0
k,17,raussen-joch1,360/(4*p)

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


lsel,s,,,2,3
lsel,a,,,9
lovlap,all
lsel,s,,,1,8,7
lsel,a,,,19
lovlap,all

lsel,s,,,9
lsel,a,,,27
ldel,all

allsel
