/CWD,D:\NEPTUNKOD
/FILNAME,LAB13PELDA
/TITLE,SZORITO
/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

! Anyagjellemzők
MP,EX,1,67000
MP,PRXY,1,0.33

! Elem típus
ET,1,SOLID285

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

! Kényszerek (Displacement on Area)
DA,20,UZ
DA,28,UZ
DA,34,UZ
DA,37,UZ
DA,41,UZ
DA,3,ALL
DA,4,ALL

! Terhelés (Pressure on Area)
SFA,13,1,pressure,3.125

! Megoldás
/SOLU
SOLVE
FINISH

/RGB,INDEX,100,100,80,0
/RGB,INDEX,0,0,60,15
/IMAGE,SAVE,proba,bmp

/POST1
/DSCALE,1,50
PLDISP,2
PLNSOL,S,INT,0,0,
/CTYPE,1
/REPLOT
/CVAL,1,20,40,60,80,100
/CTYPE,0
/REPLOT
PLESOL,S,INT,0,0,


! Újrahálózás, ismételt megoldás
/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
/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