Computing the Newton polytope of the discriminant from the fiber polytope. Sharp polynomial upper estimate of number of positive integral points in tetrahedron and coordinate free characterization of homogeneous polynomials 