Computing the Newton polytope of the discriminant from the fiber polytope. Combinatoric-geometric characterization and computation of the intersection numbers of Cartier divisors in compact toric varieties 