FINISH
/CLEAR,START
/PREP7
a=0.1
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,101,-(l/3)*3,-h,-d
K,102,-(l/3)*2,-h,-d
K,103,-(l/3)*1,-h,-d
K,104, 0,-h,-d
K,105, (l/3)*1,-h,-d
K,106, (l/3)*2,-h,-d
K,107, (l/3)*3,-h,-d
K,201,-(l/3)*3,0,-r
K,202,-(l/3)*2,0,-r
K,203,-(l/3)*1,0,-r
K,204, 0,0,-r
K,205, (l/3)*1,0,-r
K,206, (l/3)*2,0,-r
K,207, (l/3)*3,0,-r
K,301,-(l/3)*3,r,0
K,302,-(l/3)*2,r,0
K,303,-(l/3)*1,r,0
K,304, 0,r,0
K,305, (l/3)*1,r,0
K,306, (l/3)*2,r,0
K,307, (l/3)*3,r,0
K,401,-(l/3)*3,0,r
K,402,-(l/3)*2,0,r
K,403,-(l/3)*1,0,r
K,404, 0,0,r
K,405, (l/3)*1,0,r
K,406, (l/3)*2,0,r
K,407, (l/3)*3,0,r
K,501,-(l/3)*3,-h,d
K,502,-(l/3)*2,-h,d
K,503,-(l/3)*1,-h,d
K,504, 0,-h,d
K,505, (l/3)*1,-h,d
K,506, (l/3)*2,-h,d
K,507, (l/3)*3,-h,d
K,601,-(l/3)*3,0,0
K,602,-(l/3)*2,0,0
K,603,-(l/3)*1,0,0
K,604, 0,0,0
K,605, (l/3)*1,0,0
K,606, (l/3)*2,0,0
K,607, (l/3)*3,0,0
!K,701,0,D2,0
!K,702,0,0,-D2
!K,703,0,-D2,0
!K,704,0,0,D2
L,601,101
L,601,201
L,601,301
L,601,401
L,601,501
L,607,107
L,607,207
L,607,307
L,607,407
L,607,507
L,101,102
L,102,103
L,103,104
L,104,105
L,105,106
L,106,107
L,201,202
L,202,203
L,203,204
L,204,205
L,205,206
L,206,207
L,301,302
L,302,303
L,303,304
L,304,305
L,305,306
L,306,307
L,401,402
L,402,403
L,403,404
L,404,405
L,405,406
L,406,407
L,501,502
L,502,503
L,503,504
L,504,505
L,505,506
L,506,507
ARC,101,201,601,r
ARC,201,301,601,r
ARC,301,401,601,r
ARC,401,501,601,r
ARC,501,101,601,r
ARC,102,202,602,r
ARC,202,302,602,r
ARC,302,402,602,r
ARC,402,502,602,r
ARC,502,102,602,r
ARC,103,203,603,r
ARC,203,303,603,r
ARC,303,403,603,r
ARC,403,503,603,r
ARC,503,103,603,r
ARC,104,204,604,r
ARC,204,304,604,r
ARC,304,404,604,r
ARC,404,504,604,r
ARC,504,104,604,r
ARC,105,205,605,r
ARC,205,305,605,r
ARC,305,405,605,r
ARC,405,505,605,r
ARC,505,105,605,r
ARC,106,206,606,r
ARC,206,306,606,r
ARC,306,406,606,r
ARC,406,506,606,r
ARC,506,106,606,r
ARC,107,207,607,r
ARC,207,307,607,r
ARC,307,407,607,r
ARC,407,507,607,r
ARC,507,107,607,r
L,604,104
L,604,204
L,604,304
L,604,404
L,604,504
AL,1,41,2
AL,2,42,3
AL,3,43,4
AL,4,44,5
AL,5,45,1
AL,6,71,7
AL,7,72,8
AL,8,73,9
AL,9,74,10
AL,10,75,6
AL,76,56,77 !zebro
AL,77,57,78
AL,78,58,79
AL,79,59,80
AL,80,60,76
AL,41,17,46,11 !1
AL,42,23,47,17
AL,43,29,48,23
AL,44,35,49,29
AL,45,11,50,35
AL,66,22,71,16 !2
AL,67,28,72,22
AL,68,34,73,28
AL,69,40,74,34
AL,70,16,75,40
AL,46,18,51,12 !2
AL,47,24,52,18
AL,48,30,53,24
AL,49,36,54,30
AL,50,12,55,36
AL,61,21,66,15
AL,62,27,67,21
AL,63,33,68,27
AL,64,39,69,33
AL,65,15,70,39
AL,51,19,56,13
AL,52,25,57,19
AL,53,31,58,25
AL,54,37,59,31
AL,55,13,60,37
AL,56,20,61,14
AL,57,26,62,20
AL,58,32,63,26
AL,59,38,64,32
AL,60,14,65,38
FINISH
/PREP7
ET,1, SHELL93
R,1,0.02
MP,EX,1,2.1E11
MP,NUXY,1,0.3
LESIZE,ALL,,,7 ! wstępnie
ESHAPE,0
ASEL,S,AREA,,1,15,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 ! elementowy układ współrzędnych nr 1
AMESH,ALL
FINISH
/PREP7
ET,2, SHELL93
R,2,0.020
MP,EX,2,2.1E11
MP,NUXY,2,0.3
!LESIZE,ALL,,,11 ! wstępnie
ESHAPE,0
ASEL,S,AREA,,16,25,1 ! wskazanie powierzchni nr 1-6
AATT,2,2,2,0 ! atrybuty podzi
ału na ES wszystkich wskazanych powierzchni:! materiał nr 1, parametry elementu nr 1, typ elementu nr
! elementowy układ współrzędnych nr 1AMESH,ALL
FINISH
/PREP7
ET,3, SHELL93
R,3,0.02
MP,EX,3,2.1E11
MP,NUXY,3,0.3
!LESIZE,ALL,,,11 ! wstępnie
ESHAPE,0
ASEL,S,AREA,,26,35,1 ! wskazanie powierzchni nr 1-6
AATT,3,3,3,0 ! atrybuty podziału na ES wszystkich wskazanych powierzchni:
! materiał nr 1, parametry eleme
ntu nr 1, typ elementu nr,! elementowy układ współrzędnych nr 1
AMESH,ALL
FINISH
/PREP7
ET,4, SHELL93
R,4,0.03
MP,EX,4,2.1E11
MP,NUXY,4,0.3
!LESIZE,ALL,,, ! wstępnie
ESHAPE,0
ASEL,S,AREA,,36,45,1 ! wskazanie powierzchni nr 1-6
AATT,4,4,4,0 ! atrybuty podziału na ES wszystkich wskazanych powierzchni:
! materiał nr 1, parametry elementu nr 1, typ elementu nr
! elementowy układ współrzędnych nr 1AMESH,ALL
FINISH
/SOLU
DK,607,UY,0
DK,607,UZ,0
DK,601,UX,0
DK,601,UY,0
DK,601,UZ,0
SFA,20,,PRESS,-15E6
SFA,25,,PRESS,-15E6
SFA,30,,PRESS,-15E6
SFA,35,,PRESS,-15E6
SFA,40,,PRESS,-15E6
SFA,45,,PRESS,-15E6
FINISH
/SOLU
SOLVE
FINISH