How to change the order of results

Questions
1

how to change the order so that the results showed that e = S = not 123 = S

Manipulate[ParametricPlot[{a Cos[t], b Sin[t]}, {t, 0, 2 Pi},
  PlotLabel -> {Style[{"a" -> a, "b" -> b}, 16],
    Style[{"= S" "\[Pi]" a b}, 16],
    Style[{"\[TildeTilde] \[ScriptE]" "\[Pi]" (3/2 (a + b) - Sqrt[
         a b])}, 16]},
  PlotRange -> {{-5, 5}, {-5, 5}}], {a, 1, 5}, {b, 5, 1}]
2

Hi,

das hier könnte gehen:

Manipulate[
ParametricPlot[{a Cos[t], b Sin[t]}, {t, 0, 2 Pi}, 
 PlotLabel -> {Style[{"a" -> a, "b" -> b}, 16], 
   Style[{"S=" <> ToString[a b] <> "\[Pi]" }, 16], 
   Style[{"\[ScriptE] \[TildeTilde] " <> 
      ToString[TraditionalForm[(3/2 (a + b) - Sqrt[a b])]] <> 
      "\[Pi]" }, 16]}, PlotRange -> {{-5, 5}, {-5, 5}}], {a, 1, 
 5}, {b, 5, 1}]

Viele Gruesse,

Marco

3

I did not want post a new topic so this will hold further.

How to add asymptote moved with hyperbole

Manipulate[
 ContourPlot[
  Evaluate[x^2/a^2 - y^2/b^2 == 1],
  {x, -25, 25}, {y, -25, 25},
  Frame -> False, Axes -> True],
 {{a, 3}, 1, 5, Appearance -> "Labeled"},
 {{b, 3}, 1, 5, Appearance -> "Labeled"}]