cmsel,s,kstator
allsel,below,area
NUMMRG,NODE,1e-6 , , ,LOW 
NUMCMP,NODE 
nummrg,kp

cmsel,s,krotor
allsel,below,area
NUMMRG,NODE,1e-6 , , ,LOW 
NUMCMP,NODE 
nummrg,kp

allsel

csys,1
nsel,s,loc,x,raussen
d,all,az,0
nsel,s,loc,x,rinnen
cp,2,az,all

!!
!!Stator
!!
csys,1

*Do,ileit,1,2*p
asel,s,mat,,3
allsel,below,area
ASEL,r,LOC,Y,-360/(4*p)+(ileit-1)*360/(2*p),360/(4*p)+(ileit-1)*360/(2*p) 
allsel,below,area

cp,ileit*4+1,curr,all
cp,ileit*4+2,emf,all
*GET,wicknode1%ileit%, NODE, 0,num,min

asel,s,mat,,4
allsel,below,area
ASEL,r,LOC,Y,-360/(4*p)+(ileit-1)*360/(2*p),360/(4*p)+(ileit-1)*360/(2*p) 
allsel,below,area

cp,ileit*4+3,curr,all
cp,ileit*4+4,emf,all
*GET,wicknode2%ileit%, NODE, 0,num,min

*EndDo

