# Es ist besser, den Impulsbereich zunaecht nur von 0.1 bis 2 GeV zu
# varrieren, da der Unterschied der
# Kurven damit besser zu sehen ist.
> with(plots):
> E:=sqrt(p^2+m^2);

                                     2    2
                          E := sqrt(p  + m )

> p1:=plot(subs(m=0.938,E),p=0.10..2):
> T:=E-m;

                                   2    2
                        T := sqrt(p  + m ) - m

> p2:=plot(subs(m=0.938,T),p=0.10..2,color=green):
> v:=p/E;

                                     p
                          v := -------------
                                     2    2
                               sqrt(p  + m )

> p3:=plot(subs(m=0.938,v),p=0.10..2,color=black):
> display([p1,p2,p3]);

>