I have no advantage to this, I just formatted it for you and copied it from another source, and I hope that it will help you
[: ECE 1754, , Eric LaForest, 19 2010 .]
, 1 , .
, :
. , , . , {(1, 0), (0, 1)}.
.
, , .
do i = 2, n-1
do j = 2, m-1
a[i,j] =
(a[a-1,j] + a[i,j-1] + a[i+1,j] + a[i,j+1]) / 4
end do
end do
,
f,
.
, .
- f
,
. , (a, b),
(a, f a + b).
, .
:
do i = 2, n-1
do j = 2+i, m-1+i
a[i,j-i] =
(a[a-1,j-i] + a[i,j-1-i] + a[i+1,j-i] + a[i,j+1-i]) / 4
end do
end do
, {(1, 1), (0, 1)}. - . {(1, 0), (1, 1)}, :
do j = 4, m+n-2
do i = max(2, j-m+1), min(n-1, j-2)
a[i,j-i] =
(a[a-1,j-i] + a[i,j-1-i] + a[i+1,j-i] + a[i,j+1-i]) / 4
end do
end do
, j, . ,
:
.