76288 S6302016

0:0$

560 1/18? $057 7825e-9 31150-8

{f «ll in the following secSons (removrng comment martcs! ifnecessaiy). and delete tiiose that ara onused.)

TULĘ New Problem’ {pizep?yw usłaKw* okolicach wykopu) COORDINATES carte$ian2 { coordwaie system. 10.20.30. etc) VARIABLES { system variables} h {choose ypur own names }

8ELECT {memod Controls)

contours=8

errlirn=1 e-3

do swobodnego zwierciadła wody

p DEFINITIONS {parameter definitions )

i, hs=18 l(m) odległość od stropu warstwy nieprzepuszczalnej

|k= 2 3e- 6 l(mfs) współczynnik filtracji delt=15*60 !(s) delta I debc=0 5 l(m) delta x n=0.351 porowatość

| IJNIT1AL VALUES

■ E0UA710NS {PDE’s, one for each yariabłe} i |h dt(h)=H$*k*dełtf(dełx*n)*dlv(grad(h)) {one possibility} i I h div(grad(h))=0

jj ICONSTRAINTS {Integra! constraints}

I 0OUNOARIES {The domam definition}

|| REGION 1    {For each materiał region)

START(-10,10) {Walk the domain boundary)

X {    value(h)=10 LINĘ TO (-4,10)

natural(h)=0 linę to (-4,6.5) value(h)=y linę TO (-4,6)

natural(h)=G 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 ctose

E^ł

I value(h)=10 LINĘ TO (-4,10) i natural(h)=0 linę to (-4.-0.5) TO (-3 98,-0.5) TO (-3.98,0) j natural(h)=0 linę (0,0)

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