Message Boards Message Boards

GROUPS:
Mathematics Mathematica Wolfram Language
Radek Drozd

How to change the order of results

Radek Drozd
Posted 9 years ago
2869 Views
|
2 Replies
|
1 Total Likes
|

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:
Radek Drozd
Radek Drozd
Posted 9 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

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
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract