(1)
(1)
(2)
(2)
restart;
with plots :
Tpocz
d 50 : Tl d 0 : Tp d 100 : Td d 0 : Tg d 100 :
n
d 50 : m d 50 : iter d 500 :
T
d Array 0 ..n, 0 ..m :
U
d Array 0 ..n, 0 ..m :
for i from 1 to n K1 do
for j from 1 to m K 1 do
T i, j
d Tpocz :
T i, 0
d Tl :
T i, m
d Tp :
T 0, j
d Td :
T n, j
d Tg :
T n, 0
d
T n K1, 0 C T n, 1
2
:
T n, m
d
T n K 1, m CT n, m K 1
2
:
T 0, m
d
T 0, m K 1 CT 1, m
2
:
T 0, 0
d
T 1, 0 C T 0, 1
2
:
end do:
end do:
print T ;
0..50 x 0..50 Array
Data Type: anything
Storage: rectangular
Order: Fortran_order
from 1 to iter do
for i from 1 to n K1 do
for j from 1 to m K 1 do
U i, j
d 0.25$ T i K1, j CT i C1, j CT i, j K1 CT i, j C1
end do:
end do:
for i from 1 to n K1 do
for j from 1 to m K 1 do
T i, j
d U i, j
end do:
end do:
end do:
print T
0..50 x 0..50 Array
Data Type: anything
Storage: rectangular
Order: Fortran_order
listcontplot
seq
seq T k, l , k = 0 .. n
, l = 0 .. m , contours = 10, 20, 30, 40, 50, 60, 70, 80, 90 ,
