!!
!!Rotor
!!
csys,1

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

cp,next,curr,all
cp,next,emf,all
*GET,wicknoder1%ileit%, NODE, 0,num,min

*If,zweischicht2,eq,1,then
asel,s,mat,,14
allsel,below,area
ASEL,r,LOC,Y,-360/(2*z2)+(ileit-1)*360/z2,360/(2*z2)+(ileit-1)*360/z2 
allsel,below,area

cp,next,curr,all
cp,next,emf,all
*GET,wicknoder2%ileit%, NODE, 0,num,min
*EndIf

*EndDo

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

allsel

csys,0

allsel
eplot
