S6303250

j|7{value(h)=i0 UNE TO (-4,10) fi naluia!(t)}=Q llne to (-4.-0.5) TO (-3.96-0.5) TO (-3.98,0)

Ijj I naturat(h)=o llne (0,0)

I natura!(h)=0 linę to (0, -6.5) to (-10, -6.5) to close

RBOtON 1    { for each materiał region )

STARTY-10,10) {Walkthe domain boundaiy} value(h)=10 LINĘ TO (-4,10) naturai(h)=0 llne to (-4,8.5) value(h)=y linę TO (-4,6)

natural(h)=0 linę to (-4,-0.5) to (-3 98,-0.5) TO (-3.98,0) Ml    nalural(h>=0 llne (0,0)

naturalffi)=0 linę to (0, -6.5) to (-10. -6.5) lo close

I I TIME 0 TO 60*3600 {iftime dependent} J ■MOMTOR8    {show Progress)

I for 1=0 by 3600 to 60*3600

Contour(h) painted

{$ave reeutt displaye)

I for t=0 by 12*3600 to 60*3600

Contour(h) painted