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