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