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

D2=0.50

pa=0.03

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,pa,0,0

K,62,l,0,0

K,100,pa,-D2,0

K,101,pa,0,-D2

K,102,pa,D2,0

K,103,pa,0,D2

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,D2 !dziura zebra linia36

LARC,101,102,61,D2

LARC,102,103,61,D2

LARC,103,100,61,D2

L,100,11 !linie promieniowe zebra pustego linia40

L,101,21

L,102,31

L,103,41

L,100,51

!L,61,11 !linie promieniowe zebra peln linia45

!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,40,31,41,36 !zebro puste

AL,41,32,42,37

AL,42,33,43,38

AL,43,34,44,39

AL,44,35,40

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,25,1 ! wskazanie powierzchni nr 1-6

AATT,1,1,1,0 ! atrybuty podziału na ES wszystkich wskazanych powierzchni:

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