!!
!!Stator
!!

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,,,26
*get,laeng,line,26,leng
istue2=nint(laeng/mesheisen)
*if,istue2,lt,1,then
istue2=1
*endif
lesi,all,,,istue2

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

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

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

lsel,s,,,5,10,5
*get,laeng,line,5,leng
istue2=nint(laeng/mesheisen*2)
*if,istue2,lt,2,then
istue2=2
*endif
lesi,all,,,istue2

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

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

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

lsel,s,,,15,18,3
lsel,a,,,28
*get,laeng,line,15,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

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

lsel,s,,,23,25,2
*get,laeng,line,23,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1
!!
!!Stator
!!
asel,s,,,7,9
aatt,2,2,2

asel,s,,,1,4
asel,a,,,6
aatt,1,1,1

asel,s,,,5
aatt,3,3,3

asel,s,,,1,9
amesh,all

ASEL,S,MAT,,1,9 
cm,kstator,area
cm,_stator,area
