!!
!!Stator
!!

lsel,s,,,16
*get,laeng,line,40,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,20
lsel,a,,,21
lsel,a,,,43
lsel,a,,,97
*get,laeng,line,20,leng
istue2=nint(laeng/mesheisen)
*if,istue2,lt,1,then
istue2=1
*endif
lesi,all,,,istue2

lsel,s,,,2
lsel,a,,,41
lsel,a,,,11,12
*get,laeng,line,2,leng
istue3=nint(laeng/mesheisen)
*if,istue3,lt,1,then
istue3=1
*endif
lesi,all,,,istue3

lsel,s,,,94
lsel,a,,,95
*get,laeng,line,94,leng
istue3=nint(laeng/mesheisen)
*if,istue3,lt,1,then
istue3=1
*endif
lesi,all,,,istue3

lsel,s,,,1
lsel,a,,,35
lsel,a,,,105,106
*get,laeng,line,1,leng
istue4=nint(laeng/mesheisen)
*if,istue4,lt,1,then
istue4=1
*endif
lesi,all,,,istue4

lsel,s,,,29
lsel,a,,,103
*get,laeng,line,29,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,107,108
lsel,a,,,3
*get,laeng,line,107,leng
istue2=nint(laeng/mesheisen)
*if,istue2,lt,1,then
istue2=1
*endif
lesi,all,,,istue2

lsel,s,,,102,104,2
*get,laeng,line,102,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,40
*get,laeng,line,40,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,5*istue1,5

lsel,s,,,4
lsel,a,,,13
*get,laeng,line,13,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,14
*get,laeng,line,14,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,7
*get,laeng,line,7,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,2.5*istue1,2.5,

lsel,s,,,37
*get,laeng,line,37,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,5*istue1,0.2

lsel,s,,,4,6,2
lsel,a,,,26,27
*get,laeng,line,26,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,5,10,5
*get,laeng,line,5,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,22,23
*get,laeng,line,22,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,24,25
*get,laeng,line,24,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,96
lsel,a,,,30,31
*get,laeng,line,96,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,8,98,91
*get,laeng,line,8,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,15,18,3
lsel,a,,,39
lsel,a,,,70,73
lsel,a,,,88,91
lsel,a,,,100
*get,laeng,line,15,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,50,51
*get,laeng,line,50,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,75,76
lsel,a,,,79
lsel,a,,,82,83
lsel,a,,,86
*get,laeng,line,75,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,56,57
*get,laeng,line,56,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,92,93
*get,laeng,line,93,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,19
lsel,a,,,32
lsel,a,,,46,49,3
lsel,a,,,74
lsel,a,,,77,78
lsel,a,,,80,81
lsel,a,,,84,85
lsel,a,,,87
*get,laeng,line,19,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

!!
!!Stator
!!
asel,s,,,1
asel,a,,,5,8
asel,a,,,29
aatt,1,1,1

asel,s,,,3
asel,a,,,13,17
asel,a,,,19,20
asel,a,,,22,23
asel,a,,,25,26
asel,a,,,28,30,2
aatt,2,2,2

asel,s,,,2
aatt,3,3,3

asel,s,,,18,27,3
*If,kompen,eq,1,then
aatt,23,23,23
*Else
aatt,1,1,1
*EndIf

asel,s,,,4
*If,kompound,eq,1,then
aatt,33,33,33
*Else
aatt,2,2,2
*EndIf

asel,s,,,9,10
asel,a,,,12
*If,wende,eq,1,then
aatt,1,1,1
*Else
aatt,2,2,2
*EndIf

asel,s,,,11
*If,wende,eq,1,then
aatt,43,43,43
*Else
aatt,2,2,2
*EndIf

asel,s,,,1,30
amesh,all

ASEL,S,,,1,30 
cm,kstator,area
cm,_stator,area
