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