46841 S6302018

V]

V]

SELECT

contours=8

errifm=1e-3

{Fili m me followng secttons (removmg comment marks»if necessary).

and detete tftose mat ara onusedj TTTLE Naw Problem' (przepływ ustalony w okolicach wykopu) COORDINATES cartesian2 { coordinafe system. ID.20.30, etc } VARIABLES { system variab!es }

{choose wur own names >

(mefhod Controls}

DEFINITIONS { parameter definitions)

Hs= 18 t(m) odległość od stropu warstwy nieprzepuszczalnej do swobodnej

te=2.3e-6 Km/s) współczynnik filtracji

de«=f 5*60 Ks) delta t

debc=Q.S !(m) delta x

ne0.351 porowatość

' I INiTIAL VALUES

IEOUATIONS { PDE*, one tor each variabie} h: dt(h)=Hs*K*delK(debrn)*div(grad(h)) (one possibłlity} i !h: (Bv(grad(h))=0

I f CONSTRMKTS {Integra! constraMs} 80UN0ARIES { The domain definition}

REGION 1    { For each materia! region}

START(-10.10) {Walk the domain boundary) value(h)=l O LINĘ TO (-4.10) natural(h)sO iine to (-4,6.5) value(h)xyHne TO (-4.6)

neturaf<h>=0 linę to (-4, 0.5) to (-3.98.-0.5) TO (-3.98.0) natural(h)=o linę (0,0)

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

{fafue(h)=10 UNE TO 04,10)

naturai(h)=0 linę to (-4.-05) TO (-3.98,-0 5) TO (-3.98,0)

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

j natural(h)=0 Une to (0. -6.5) to (-10. -6.5) to cfoae