
!!
!!Rotor
!!
lsel,s,,,42,44,2
*get,laeng,line,44,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,41,43,2
*get,laeng,line,43,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,37,38
lsel,a,,,47
*get,laeng,line,37,leng
istue1=nint(laeng/meshluft)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,9
lsel,a,,,46
*get,laeng,line,9,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,35
lsel,a,,,53
*get,laeng,line,35,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,36
lsel,a,,,54
*get,laeng,line,36,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,48,52,2
*get,laeng,line,48,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,40
*get,laeng,line,40,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,8
*get,laeng,line,8,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1

lsel,s,,,1
*get,laeng,line,1,leng
istue1=nint(laeng/mesheisen)
*if,istue1,lt,1,then
istue1=1
*endif
lesi,all,,,istue1
!!
!!Rotor
!!
asel,s,,,10,15,5
aatt,12,12,12

asel,s,,,14
aatt,11,11,11

asel,s,,,11
aatt,13,13,13

*If,zweischicht2,eq,1,then
asel,s,,,12
aatt,12,12,12
asel,s,,,13
aatt,14,14,14
*Else
asel,s,,,12
aatt,13,13,13
asel,s,,,13
aatt,11,11,11
*EndIf


asel,s,mat,,11,15
amesh,all

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