S6303339

Mesh

ELm„MJBLJkJk& M jL

3545.

1499

1499 7177 1.3276*4 [4.1496*4 4.505t-7 5.8809-7

I h-10

1 EOUATIONS ) {PO£%. oneforeach varłahle} I h; n*dt(h)=HS*K*drv(grad(h)) {one possfbiłfty}

I • CONSTRAINTS {Integra! constraints)

I BOUNDARfES {The domain defmition}

REGION1 (foreach materiał region}

8TART(-10,1Q) (Walk the domain boundary) value(h)=10 UNETO(-4,10) natural(h)=0 łine to (-4,6.5) va(ue(h)=y linę TO (-4,6)

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

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

|i{vałue(h)=10 LINĘ 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. -8.5) to close

i THE OTO 60*3600 (iffime dependent) f MONITORS {show progress}

I for t=0 by 3600 to 60*3600

Contour(h) painted

{save result displays)

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

Contour(h) painted

I Contour(h)