S6302004

0:<

errlim=1e-3

lii I DEFINITIONS (pararrteter definitions }    .

11 hs= 18 !(m) odległość od stropu warstwy nieprzepuszczalne) do swobodnego zwierciadła wody

DEFINITIONS

I (c=2.3e-6 !(m/s) współczynnik filtracji

deft=15*60 l(s) delta I delx=0 5 Km) delta x

[f n=0.3S I porowatość

i ! INITIAL WLUES

If EOUATIONS { PDE'ś; one for eacłi yariable}

11 h: dt(h)=Hs*k*deltf(debm)*dKgrad(h)) {one possibility}

|| !h: div(grad(h))=0

| (CONSTRAINTS {Integra! constraints } i BOUNDARIES {The domain definition}

REGION 1 {For each materiał region}

START(-10,10) {Walkthedomafnboundaiy} vaiue(h)=10 LINĘ TO (-4.10) natural(h)=0 linę to (-4,6.5) value(h)=y linę TO (-4,6)

natural(h)=Q linę to (-4,-0 5) to (-3.98.-0.5) TO (-3.98,0) natural(h)=0 linę (0,0)

natural(h)=0 linę to (0, -6.5) to (-10, -6.5) to ciose

{vafue(h)=10 UNE TO (-4.10)

natural(h)=0 linę to (-4.-0.5) TO (-3 98,-0.5) TO (-3.98.0)

natural(h)=0 linę (0,0)

natural(h)=0 linę to (0, -6.5) to (-10. -6.5) to close

n tys