$0 = 0
$1 = 0
$2 = 0
$5 = 0
while($0 < H*W)
    $3 = $0/W + 1
    $4 = $0%W + 1
    $5 = $5 + (A[$3,$4] - B[$3,$4])
    $0 = $0 + 1
end
$0 = 0
while($0 < H*W)
    $3 = $0/W + 1
    $4 = $0%W + 1
    $1 = $1 + ((A[$3,$4] - B[$3,$4])*$3)/$5
    $2 = $2 + ((A[$3,$4] - B[$3,$4])*$4)/$5
    $0 = $0 + 1
end
return($1,$2)