Message Boards

WOLFRAM COMMUNITY

3557 Views

2 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Mathematica Wolfram Language

How to change the order of results

Radek Drozd

Posted 11 years ago

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}]

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}]

POSTED BY: Radek Drozd

2 Replies

Sort By:

Marco Thiel

Marco Thiel, University of Aberdeen - Dept. of Physics/Mathematics

Posted 11 years ago

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

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

POSTED BY: Marco Thiel

Radek Drozd

Posted 11 years ago

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"}]

POSTED BY: Radek Drozd

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback