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