!!
!!Rotor
!!
asel,s,,,area1
asel,a,,,area2
allsel,below,area
cp,next,curr,all
cp,next,emf,all
*GET,wicknoder1, NODE, 0,num,min
*Do,ispul,2,z2spul
asel,s,,,area2+(ispul-2)*8+4
asel,a,,,area2+(ispul-2)*8+8
allsel,below,area
cp,next,curr,all
cp,next,emf,all
*GET,wicknoder%ispul%, NODE, 0,num,min
*EndDo

*Do,ip,1,2*p-1
*Do,ispul,z2/(2*p)+1,z2/(2*p)+z2spul
asel,s,,,area2+((ip-1)*z2/(2*p)+(ispul-2))*8+4
asel,a,,,area2+((ip-1)*z2/(2*p)+(ispul-2))*8+8
allsel,below,area
cp,next,curr,all
cp,next,emf,all
*GET,wicknoder%ispul+(ip-1)*z2spul+z2spul-z2/(2*p)%, NODE, 0,num,min
*EndDo
*EndDo

esel,s,mat,,11  
!!esel,a,mat,,13,14   
cm,kraftrot,elem
fmagbc,'kraftrot'

allsel

