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