Mathematica transferfunktion vereinfachung

[wulff_c (Gast)]

Hallo alle zusammen,

ich habe eine aufgabe zu lösen mit mathematica, mit dem ich mich neu 
beschäftige. Leider bekomme ich keine guten Ergebniss, da ich 
wahrscheinlich beim Programm nicht zurzeit so viel verwendet habe. Kann 
jemand evtl. mir helfen, wäre es sehr nett.

Grüße

Subscript[Z, 1] = Subscript[R, L]/(
 1 + Subscript[R, L]*Subscript[C, k]*s)
TransferFunctionModel[%, s]

Subscript[Z, 2] = Subscript[Z, 1] + 1/(s Subscript[C, pt])
TransferFunctionModel[%, s]
Subscript[Z, 3] = (Subscript[Z, 2]*s*Subscript[L, h])/(Subscript[Z,
    2] + s*Subscript[L, h])
TransferFunctionModel[%, s]
Subscript[Z, 4] =
 Subscript[Z, 3] + Subscript[R, pri] + s Subscript[L, st]
TransferFunctionModel[%, s]
Subscript[Z, 5] = (1/Subscript[Z, 4] + s Subscript[C, p] +
   s Subscript[C, v])^-1
TransferFunctionModel[%, s]
Subscript[Z, in] =
 Subscript[Z, 5] + 1/(s Subscript[C, s]) + Subscript[R, Ls] +
  s Subscript[L, s]
TransferFunctionModel[%, s]
TraditionalForm[FullSimplify[%]]
TraditionalForm[FullSimplify[\!\(\*
TagBox[
FractionBox[
RowBox[{
SubscriptBox["Z", "1"], "*",
SubscriptBox["Z", "3"], "*",
SubscriptBox["Z", "5"]}],
RowBox[{
SubscriptBox[
RowBox[{
SubscriptBox["Z", "2"], "*", "Z"}], "4"], "*",
SubscriptBox["Z", "6"]}]],
"MathMLPresentationTag",
AutoDelete->True]\)]

[wulff_c (Gast)]

Einige Ergebnisse sind in Bildern hinzugefügt

Wie kann man diese Gleichungen vereinfachen und zusammenfassen?!

Danke für Eure baldigen Infos