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

!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,36,31,37 !zebro

!AL,37,32,38

!AL,38,33,39

!AL,39,34,40

!AL,40,35,36

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

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

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