FINISH
/CLEAR,START
/PREP7
r=0.75
d=0.01
h=sqrt((r*r)-(d*d))
y=r*((sqrt(2))/2)
z=r*((sqrt(2))/2)
l=1.25
K,10,-l,-h,-d
K,11,0,-h,-d
K,12,l,-h,-d
K,20,-l,0,-r
K,21,0,0,-r
K,22,l,0,-r
K,30,-l,r,0
K,31,0,r,0
K,32,l,r,0
K,40,-l,0,r
K,41,0,0,r
K,42,l,0,r
K,50,-l,-h,d
K,51,0,-h,d
K,52,l,-h,d
K,60,-l,0,0
K,61,0,0,0
K,62,l,0,0
K,100,0,-D,0
K,101,0,0,-D
K,102,0,D,0
K,103,0,0,D
L,60,10
L,60,20
L,60,30
L,60,40
L,60,50
L,62,12
L,62,22
L,62,32
L,62,42
L,62,52
L,10,11
L,11,12
L,20,21
L,21,22
L,30,31
L,31,32
L,40,41
L,41,42
L,50,51
L,51,52
LARC,10,20,60,r !linia21
LARC,20,30,60,r !pokr1
LARC,30,40,60,r
LARC,40,50,60,r
LARC,50,10,60,r
LARC,12,22,62,r !pokr2 linia26
LARC,22,32,62,r
LARC,32,42,62,r
LARC,42,52,62,r
LARC,52,12,62,r
LARC,11,21,61,r !zebro linia 31
LARC,21,31,61,r
LARC,31,41,61,r
LARC,41,51,61,r
LARC,51,11,61,r
!!LARC,100,101,61,D !dziura zebra linia36
!!LARC,101,102,61,D
!!LARC,102,103,61,D
!!LARC,103,100,61,D
!!L,100,11 !linie promieniowe zebra pustego linia40
!!L,101,21
!!L,102,31
!!L,103,41
!!L,101,51
L,61,11 !linie promieniowe zebra peln linia45 36
L,61,21
L,61,31
L,61,41
L,61,51
AL,1,21,2 !dno1
AL,2,22,3
AL,3,23,4
AL,4,24,5
AL,5,25,1
AL,6,26,7 !dno2
AL,7,27,8
AL,8,28,9
AL,9,29,10
AL,10,30,6
AL,21,13,31,11 !pow boczna walca1
AL,22,15,32,13
AL,23,17,33,15
AL,24,19,34,17
AL,25,11,35,19
AL,31,14,26,12
AL,32,16,27,14
AL,33,18,28,16
AL,34,20,29,18
AL,35,12,30,20
AL,36,31,37 !zebro
AL,37,32,38
AL,38,33,39
AL,39,34,40
AL,40,35,36
FINISH
/PREP7
ET,1, SHELL93
R,1,0.03
MP,EX,1,2.1E11
MP,NUXY,1,0.3
LESIZE,ALL,,,11 ! wstępnie
ESHAPE,0
ASEL,S,AREA,,1,20,1 ! wskazanie powierzchni nr 1-6
AATT,1,1,1,0 ! atrybuty podziału na ES wszystkich wskazanych powierzchni:
! materiał nr 1, parametry elementu nr 1, typ elementu nr 1,
! ele
mentowy układ współrzędnych nr 1AMESH,ALL
FINISH
/PREP7
ET,2, SHELL93
R,2,0.035
MP,EX,2,2.1E11
MP,NUXY,2,0.3
!LESIZE,ALL,,,11 ! wstępnie
ESHAPE,0
ASEL,S,AREA,,21,25,1 ! wskazanie powierzchni nr 1-6
AATT,2,2,2,0 ! atrybuty podziału na ES wszystkich wskazanych powierzchni:
! materiał nr 1, parametry elementu nr 1, typ elementu nr 1,
! elementowy układ współrzędnych nr 1
AMESH,ALL
FINISH
/SOLU
DK,62,UY,0
DK,62,UZ,0
DK,60,UX,0
DK,60,UY,0
DK,60,UZ,0
SFA,15,,PRESS,-15E6
SFA,20,,PRESS,-15E6
FINISH
/SOLU
SOLVE
FINISH