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