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