Mathematica transferfunktion vereinfachung

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]\)]