S6303237

^11--

IEND

118/ jijicoORDINATES carte siani (coenflnato system. 1D.2D.3D. etc} 1187 tfjjh

3291 jfi I SELECT (nielhod Controls}

6.67te-5 % I eontour$s4 2.3630-4 ń

■fDEffNmONS {parameter definltlons}

¹^^JIINITIALVALUES

IEOUATIONS (PDE‘s, one for each rartabłe I dWgrad(h))=o (one poeełDIMy}

{(OON8TRMNT8 flnt#0r»lconstralnts)

'IBOUNDARIES { The ćomain defmitioń}

W ^?OK>N1    (For each materiał region)

I 8TART(‘10,10) (walk the domaln bounda/y) value(h)=10 UNETOH.10) natmi(h)=0 llrtd to (-4.-0.5) TO (-3:98.-0 5) TO (-3.98,0) naturaftr)=Q linę (0,0)

natura l(h)=0 Hne to (0, -8.5) to (-10. -6.5) to ctose

jlTlMEOTOI (H Orne dependent)

IMONITORS ( show prógress}

IPLOT8 {save result 0ispJays}

CONTOUR(h)

Conlourfli) painiecJ