Energie
Taylor-Entwicklung für kleine Geschwindigkeiten:
$Assumptions = c > 0 && Subscript[m, 0] >= 0 && p >= 0 && v >= 0;
\[CapitalEpsilon]nergy :=
Series[Sqrt[Subscript[m, 0]^2*c^4 + p^2*c^2], {p, 0, 5}] //
Simplify;
Print["E" == \[CapitalEpsilon]nergy]