jochdicke2=raussen-jochdicke-magnetdicke-delta-rinnen

*afun,deg

allsel

*GET,kmax,kp,0,num,max

csys,1
k,kmax+1,rinnen,0
k,kmax+2,rinnen,360/(2*z2)
k,kmax+3,rinnen+jochdicke2,0
k,kmax+4,rinnen+jochdicke2,360/(2*z2)
k,kmax+5,rinnen+jochdicke2+delta/2,0
k,kmax+6,rinnen+jochdicke2+delta/2,360/(2*z2)
csys,0
k,kmax+7,rinnen+jochdicke2+delta,wickbreite2/2
k,kmax+8,rinnen+jochdicke2-wickhoehe2/2,-wickbreite2/2
k,kmax+9,rinnen+jochdicke2-wickhoehe2/2,wickbreite2/2
*If,zweischicht2,eq,1,then
k,kmax+10,rinnen+jochdicke2-wickhoehe2/2-wickisol2,-wickbreite2/2
k,kmax+11,rinnen+jochdicke2-wickhoehe2/2-wickisol2,wickbreite2/2
k,kmax+12,rinnen+jochdicke2-wickhoehe2-wickisol2,-wickbreite2/2
k,kmax+13,rinnen+jochdicke2-wickhoehe2-wickisol2,wickbreite2/2
*Else
k,kmax+10,rinnen+jochdicke2-wickhoehe2,-wickbreite2/2
k,kmax+11,rinnen+jochdicke2-wickhoehe2,wickbreite2/2
k,kmax+12,rinnen+jochdicke2-wickhoehe2-wickisol2,-wickbreite2/2
k,kmax+13,rinnen+jochdicke2-wickhoehe2-wickisol2,wickbreite2/2
*EndIf

csys,1
l,kmax+1,kmax+2
l,kmax+3,kmax+4
l,kmax+5,kmax+6
csys,0
l,kmax+7,kmax+9
l,kmax+8,kmax+9
l,kmax+10,kmax+11
l,kmax+12,kmax+13
l,kmax+9,kmax+11
l,kmax+11,kmax+13

l,kmax+3,kmax+5
l,kmax+4,kmax+6
l,kmax+1,kmax+3
l,kmax+2,kmax+4

lsel,s,,,4
lsel,a,,,18,22,4
lovlap,all

lsel,s,,,26,27
lsel,a,,,29
lsel,a,,,44
lovlap,all

lsel,s,,,22
lsel,a,,,50
lsel,a,,,54,56,2
ldel,all

allsel

rrotor=rinnen+jochdicke2
mrotor=7900*3.141593*rrotor*rrotor*jochtiefe
jrotor=0.5*mrotor*rrotor*rrotor