Computing the Newton polytope of the discriminant from the fiber polytope. Algebraic groups. Volume I: Algebraic geometry. Generalities. Commutative groups. With an appendix `Local class fields' by Michiel Hazewinkel 