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