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