<<weight.m

(* Examples from http://match.stanford.edu/weight/weight.html  *)

Print["weight diagram of irreducible representation of SL(3,C)"];
Print["having highest weight vector (5,4)"]; 
S=WeightDiagramA2[11,4]; 

Print["weight diagram of irreducible representation of Sp(4,C)"];
Print["having highest weight vector (2,5)"]; 
S=WeightDiagramB2[2,5];

Print["weight diagram of irreducible representation of G2"];
Print["having highest weight vector (2,3)"];
S=WeightDiagramG2[2,3]


