# Dies ist eine erste Einübung in den Gebrauch von heppack
# Passen Sie den Lesebefehl an Ihr System an.
> read "d:/Programme/Maple V Release 5/hep/heppack5.txt";
# Definition eines Pseudovektors über Angabe von Energie Masse,
# Polarwinkel und
# Azimuthwinkel eines Teilchens
> pe:=[e1,m1,th,ph];
# Umwandlung in eine Vierervektor
> fourvec(pe);
# Die Gamma Matrizen
> evalm(g1);
> evalm(g5);
# Überprüfen der Vertauschungsrelationen
> evalm(g2&*g1+g1&*g2);
# Spinor für ein einlaufendes Teilchen mit positiver Helizität
> u(pe,1);
# Spinor für ein auslaufendes Teilchen mit positiver Helizität
> ubar(pe,1);
# Die Norm
> norm_s:=evalm(ubar(pe,1)&*u(pe,1));
> simplify(norm_s[1,1]);
> evalm(ubar(pe,-1)&*g5&*u(pe,1));