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