!! 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



*afun,deg

csys,1

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,0
k,18,raussen-statorstaerke+polschhoehe,           polbreite/2+wickbreite1+wickisoko
k,19,raussen-statorstaerke+polschhoehe+wickhoehe1,polbreite/2+wickbreite1+wickisoko
k,20,raussen-statorstaerke+polschhoehe,           polbreite/2+wickbreite1+wickisoko+wickbreiteko
k,21,raussen-statorstaerke+polschhoehe+wickhoehe1,polbreite/2+wickbreite1+wickisoko+wickbreiteko
k,22,raussen,-wendebreite/2
k,23,0,-wendebreite/2
csys,1
k,24,raussen-statorstaerke+wendedel-delta/2,0
k,25,raussen-statorstaerke+wendedel-delta/2,360/(4*p)*1.2
csys,0
k,26,raussen-statorstaerke+wickhoehek,wickbreitek/2
k,27,raussen-statorstaerke+wickhoehek,-wickbreitek/2
k,28,raussen-statorstaerke-2*delta,wickbreitek/2
k,29,raussen-statorstaerke-2*delta,-wickbreitek/2

k,30,raussen-2*joch1-wickhoehewen/2,-wendebreite/2-wickbreitewen
k,31,raussen-2*joch1+wickhoehewen/2,-wendebreite/2-wickbreitewen
k,32,raussen-2*joch1-wickhoehewen/2,delta!!-wendebreite/2+delta
k,33,raussen-2*joch1+wickhoehewen/2,delta!!-wendebreite/2+delta

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
csys,0
l,14,18
l,15,19
l,18,20
l,19,21
l,18,19
l,20,21
csys,1
l,24,25
csys,0
l,22,23
*GET,lmax,line,0,num,max
csys,1
LGEN, ,lmax, , , ,360/(4*p), , , ,1 
allsel
csys,0
l,26,28
l,27,29
l,26,27

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

*afun,rad
pi=4*atan(1)
*afun,deg
lsel,s,,,33
*get,laeng,line,33,leng
win=laeng/(2*pi*(raussen-statorstaerke)/(4*p))*360/(4*p)

lsel,s,,,30,32


csys,1
LGEN, ,all, , , ,win/8, , , ,1 
LGEN,4,all, , , ,win/4, , , ,0 

lsel,s,,,1,8,7
lsel,a,,,19
lsel,a,,,30,33
lsel,a,,,35
lsel,a,,,44,49
lovlap,all


lsel,s,,,3
lsel,a,,,17
lsel,a,,,28,29
lsel,a,,,34,36,2
lsel,a,,,42
!!lsel,a,,,49
lovlap,all


!!neu
csys,0

l,30,31
l,30,32
l,31,33

lsel,s,,,17,28,11
lsel,a,,,3
csys,1
LGEN, ,all, , , ,360/(4*p), , , ,1 

lsel,a,,,33
lsel,a,,,98!!7
lovlap,all

lsel,s,,,38
lsel,a,,,42,44,2
lsel,a,,,45
lsel,a,,,47,48
lsel,a,,,54,55
lsel,a,,,59,69,2
lsel,a,,,101
ldel,all

allsel

