chg

chg(n,i,j)
Func
Local m
nàm
If i>1:1-m[i-1,j]àm[i-1,j]
If i<5:1-m[i+1,j]àm[i+1,j]
If j>1:1-m[i,j-1]àm[i,j-1]
If j<5:1-m[i,j+1]àm[i,j+1]
1-m[i,j]àm[i,j]
m
EndFunc

xi

xi(i)
14*i-4

yi

yi(i)
14*i-14

xj

xj(i)
14*i-1

yj

yj(i)
14*i-11