/FILNAME,LAB13PELDA
/TITLE,SZORITO

! Geometria elkészítése

/PREP7
K,,33,0,
K,,83,0,
K,,83,16,
K,,43,16,
K,,39,20,
K,,43,20,
K,,39,83,
K,,43,87,
K,,43,83,
K,,83,87,
K,,83,103,
K,,39,103,
K,,0,100,
K,,0,52,

L,1,2
L,2,3
L,3,4
L,5,7
L,8,10
L,10,11
L,11,12
L,12,13
L,13,14
L,14,1

LARC,4,5,6,4
LARC,7,8,9,4

AL,ALL

/VIEW,1,1,1,1
/REPLOT

K,,83,0,20
L,2,15

VDRAG,1,,,,,,13

K,,83,16,15
K,,83,0,15
K,,0,0,20

L,23,28
L,28,29
L,29,17
L,17,23
L,17,30

AL,38,39,40,41

VDRAG,15,,,,,,42

VSBV,1,2

/VIEW,1,1,1,-2
/REPLOT

K,,83,97,0
K,,83,57,0
K,,83,57,14
K,,83,97,14
K,,13,57,0

L,16,18
L,18,19
L,19,20
L,20,16
L,18,21

AL,14,15,16,17

VDRAG,2,,,,,,18

VSBV,3,1

K,46,35,103,0
K,47,27,103,9
K,48,0,103,9
K,49,0,103,0
K,50,0,93,0

L,49,46
L,46,47
L,47,48
L,48,49
L,49,50

AL,4,5,6,12

VDRAG,1,,,,,,14

VSBV,2,1

K,61,0,0,10
K,62,35,0,10
K,63,35,0,0
K,64,0,0,0
K,65,0,59,0

L,61,62
L,62,63
L,63,64
L,64,61
L,64,65

AL,4,5,6,8

VDRAG,1,,,,,,9

VSBV,3,1

K,71,41,0,10
K,72,41,0,0
K,73,51,0,0
K,74,35,11,0

LARC,71,73,72,10

L,62,71
L,73,63
L,63,62
L,63,74

AL,1,4,5,6

VDRAG,1,,,,,,8

VSBV,2,1

K,81,67,0,0
K,82,63.5,0,0
K,83,70.5,0,0
K,84,67,0,3.5

LARC,82,84,81,3.5
LARC,84,83,81,3.5

L,82,83

AL,5,6,19

VDRAG,1,,,,,,2

VSBV,3,1

K,91,0,91,0
K,92,0,79,0
K,93,0,67,0
K,94,0,79,12

LARC,91,94,92,12
LARC,94,93,92,12

L,91,93

AL,3,19,51

VDRAG,1,,,,,,73

VSBV,2,1
! Geometria elkészült

! Anyagtulajdonságok
MP,EX,1,67000   
MP,PRXY,1,0.33  

! Elemtípus
ET,1,SOLID285

! Elemméret és hálózás
ESIZE,3
VMESH,ALL

! Kényszerek
DA,20,UZ
DA,28,UZ
DA,34,UZ
DA,37,UZ
DA,41,UZ
DA,3,ALL
DA,4,ALL

! Terhelés
SFA,13,1,pressure,3.125

! Megoldás
/SOLU
SOLVE
FINISH

! Deformált alak
/POST1
/DSCALE,1,50
PLDISP,2

! Feszültségintenzitás
PLNSOL,S,INT,0,0,

/CTYPE,1
/REPLOT

/CVAL,1,20,40,60,80,100
/CTYPE,0
/REPLOT

PLESOL,S,INT,0,0,


! SOLID187 elemtípussal

/PREP7
VCLEAR,ALL
ET,1,SOLID187
VMESH,ALL
/SOLU
DA,20,UZ
DA,28,UZ
DA,34,UZ
DA,37,UZ
DA,41,UZ
DA,3,ALL
DA,4,ALL
SFA,13,1,pressure,3
SOLVE
FINISH
/POST1
PLNSOL,S,INT,0,0



/CVAL,1
/CTYPE,0
/REPLOT

! SOLID285 elemtípussal

/PREP7
VCLEAR,ALL
ET,1,SOLID285
ESIZE,1
VMESH,ALL
/SOLU
DA,20,UZ
DA,28,UZ
DA,34,UZ
DA,37,UZ
DA,41,UZ
DA,3,ALL
DA,4,ALL
SFA,13,1,pressure,3
SOLVE
FINISH
/POST1
PLNSOL,S,INT,0,0