!!
!!Stator
!!
cmsel,s,kstator
csys,0
arsym,y,all,
csys,1
agen,z1,all,,,,360/z1
!!
!!Rotor
!!
asel,s,mat,,13
*GET,area1,area,0,num,max

cmsel,s,krotor
csys,0
arsym,y,all,
cm,krotor,area

asel,s,mat,,13
*GET,area2,area,0,num,max

cmsel,s,krotor
csys,1

agen,z2,all,,,,360/(z2)

ASEL,S,MAT,,1,5 
cm,kstator,area

asel,s,mat,,11,15
cm,krotor,area

NSEL,S,LOC,Y,0  
*Do,iz1,1,2*z1-1
nsel,a,loc,y,iz1*180/z1
*EndDo

!!
!! Rotor korrigieren (Nuten fuellen)
!!
*Do,ispul,z2spul+1,z2/(2*p)
asel,s,,,area2+(ispul-2)*8+4
asel,a,,,area2+(ispul-2)*8+8
aclear,all
*If,nutfuell,eq,1,then
aatt,11,11,11
*Else
aatt,12,12,12
*EndIf
amesh,all
*EndDo
*Do,ip,2,2*p
*Do,ispul,z2spul+1,z2/(2*p)
asel,s,,,area2+(ispul-2+(ip-1)*z2/(2*p))*8+4
asel,a,,,area2+(ispul-2+(ip-1)*z2/(2*p))*8+8
aclear,all
*If,nutfuell,eq,1,then
aatt,11,11,11
*Else
aatt,12,12,12
*EndIf
amesh,all
*EndDo
*EndDo
*EndDo


!
! Elemente Rotoreisen fuer Kraftberechnung zusammenfassen
!

asel,s,mat,,11
allsel,below,area
cm,erotor,elem
fmagf.txt,'erotor'
allsel
