title
GRUPA 1 - ANALIZA "A"

grid 28,20

model elastic

generate -7,-1010 -7,-1000 7,-1000 7,-1010

plot hold model grid

pause

************************************************************************************

mark j=17 i=1,29

generate line -5,-1010 -3,-1002

table 1 0,-1010 1,-1009 2,-1008.5 3,-1008.25 4,-1008.2 5,-1008.1 6,-1008.05 7,-1008

; call granica.dat

generate table 1

plot hold region grid mark

pause

************************************************************************************

model mohr region 28,20

; model sprezysty: GRANIT
property bulk=44e9 density=2800 rdev 500 shear=30e9 region 1,1
property bulk=44e9 density=2800 rdev 500 shear=30e9 region 28,1

;model sprezysto-plasatyczny: PIASKOWIEC
property bulk=27e9 cohesion=27e6 density=2200 dilation=15 friction=28 shear=7e9 tension=1.2e6 region 28,20
;model sprezysty: PIASKOWIEC
property bulk=27e9 density=2200 var 500,0 shear=7e9 region 10,14

label plot 1 -6,-1003
Granit

label plot 2 0,-1005
Piaskowiec

label plot 3 0,-1001
Piaskowiec

label plot 4 3,-1009
Granit

plot hold model grid mark label black

plot hold density fill grid black mark

window -3 7 -1008 -998
plot hold density fill int 100 grid black
window

pause

************************************************************************************

fix x y i=1

fix x y i=29

fix x y j=1

fix x y j=21

initial syy=-2e7 sxx=-2e7 szz=-2e7

initial xvel=0 yvel=0 xdisp=0 ydisp=0

history 1 unbalance

plot hold grid fix

solve

save pierwotny-1A.sav

pause

************************************************************************************

generate arc 0,-1005 2,-1005 180

generate adjust

mark i=11,19 j=7

mark j=7,11 i=11

mark j=7,11 i=19

model null region 15,10

history 2 yd i=15 j=15

apply yf=-1e3 i=15 j=7

plot hold region grid mark apply yellow history

pause

************************************************************************************

solve

plot hold hist 1

save wtorne-1A.sav

plot hold region syy black int 1e6

plot hold region sxx black int 1e6

plot hold region sxy black int 1e6 zero

plot hold region bou mag disp black

plot hold xd fill bou black

plot hold yd fill bou black

plot hold hist 2

set plot jpg color

set out c:\disp-1A.jpg

plot pen region bou mag disp iwhite

set plot clip color

pause

***********************************************************************************


; return

; quit

new





* xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
* xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
* xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx







title
GRUPA 1 - ANALIZA "B"

grid 28,20

model elastic

generate -7,-1010 -7,-1000 7,-1000 7,-1010

; plot hold model grid

; pause

************************************************************************************

mark j=17 i=1,29

generate line -5,-1010 -3,-1002

; table 1 0,-1010 1,-1009 2,-1008.5 3,-1008.25 4,-1008.2 5,-1008.1 6,-1008.05 7,-1008

call granica.dat

generate table 1

; plot hold region grid mark

; pause

************************************************************************************
*** ***
*** OSLABIENIE PARAMETROW O 3 RZEDY WARTOSCI ***
*** ***
************************************************************************************

model mohr region 28,20

; model sprezysty: GRANIT
property bulk=44e6 density=2800 rdev 500 shear=30e6 region 1,1
property bulk=44e6 density=2800 rdev 500 shear=30e6 region 28,1

;model sprezysto-plasatyczny: PIASKOWIEC
property bulk=27e6 cohesion=27e3 density=2200 dilation=15 friction=28 shear=7e6 tension=1.2e3 region 28,20
;model sprezysty: PIASKOWIEC
property bulk=27e6 density=2200 var 500,0 shear=7e6 region 10,14

label plot 1 -6,-1003
Granit

label plot 2 0,-1005
Piaskowiec

label plot 3 0,-1001
Piaskowiec

label plot 4 3,-1009
Granit

; plot hold model grid mark label black

; plot hold density fill grid black mark

; window -3 7 -1008 -998
; plot hold density fill int 100 grid iwhite
; window

; pause

************************************************************************************

fix x y i=1

fix x y i=29

fix x y j=1

fix x y j=21

initial syy=-2e7 sxx=-2e7 szz=-2e7

initial xvel=0 yvel=0 xdisp=0 ydisp=0

history 1 unbalance

; plot hold grid fix

solve

save pierwotny-1B.sav

; pause

************************************************************************************

generate arc 0,-1005 2,-1005 180

generate adjust

mark i=11,19 j=7

mark j=7,11 i=11

mark j=7,11 i=19

model null region 15,10

history 2 yd i=15 j=15

apply yf=-1e3 i=15 j=7

; plot hold region grid mark apply yellow history

; pause

************************************************************************************


solve

plot hold hist 1

save wtorne-1B.sav

plot hold region syy black int 1e6

plot hold region sxx black int 1e6

plot hold region sxy black int 1e6 zero

plot hold region bou mag disp black

plot hold xd fill bou black

plot hold yd fill bou black

plot hold hist 2

set plot emf color

set out c:\disp-1B.emf

plot pen region bou mag disp iwhite

set plot clip color

; pause

***********************************************************************************


; return

quit

; new