Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

RE: Graphics--How to plot all functions issued from For loop and color

  • To: mathgroup at smc.vnet.net
  • Subject: [mg71821] RE: [mg71796] Graphics--How to plot all functions issued from For loop and color
  • From: "David Park" <djmp at earthlink.net>
  • Date: Thu, 30 Nov 2006 06:05:19 -0500 (EST)

Your plot would be much better if it was done with multiple images, say with
a GraphicsArray, with each plot in a Frame instead of an axis plot. Use one
image for each curve.

Your present plot is just a confusing mess.

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

From: abdou.oumaima at hotmail.com [mailto:abdou.oumaima at hotmail.com]


Hello MathGroup,
I'd like to plot all functions issued from For Loop then color them
automatically. If my loop is =10 it'll be very hard to write all Hue
commands and all legends. Is there any way to plot and color and legend all
functions automatically. I don't want to do that manually.
Please Help.
Many thanks in advance.
Cheers.
Lian.

NB: Please copy and past the code bellow into a notebook file to see what I
did manually then evaluate it.

\!\(\*
  RowBox[{\(<< Graphics`;\),
    "\[IndentingNewLine]", \(<< "\<Graphics`Legend`\>";\),
    "\[IndentingNewLine]", "\[IndentingNewLine]", \(listps = {};\),
    "\[IndentingNewLine]",
    RowBox[{
      RowBox[{"For", "[",
        RowBox[{\(k = 0\), ",", \(k \[LessEqual] 5\), ",",
          RowBox[{"{", "\[IndentingNewLine]",
            RowBox[{
              RowBox[{"ps", "=",
                RowBox[{
                  StyleBox["PolarPlot",
                    FontColor->RGBColor[1, 0, 0]],
                  "[", \(Sin[k\ x], {x, \(-Pi\)/2, Pi/2},
                  PlotStyle \[Rule] Hue[\(k - 1\)\/7],
                  AxesLabel \[Rule] {\[Theta], \[Psi]}, \
                  DisplayFunction \[Rule] Identity\), "]"}]}], ";",
              "\[IndentingNewLine]",
              "\[IndentingNewLine]", \(listps = Join[listps, List[ps]]\),
              ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}],
          ",", \(k++\)}], "\[IndentingNewLine]", "]"}], ";"}],
    "\[IndentingNewLine]",
    RowBox[{
      RowBox[{"pc", "=",
        RowBox[{
          StyleBox["PolarPlot",
            FontColor->RGBColor[1, 0, 0]], "[", \(Cos[x], {x, Pi/2, 3\
Pi/2},
          PlotStyle \[Rule] Hue[\ 0.8], \
          AxesLabel \[Rule] {\[Theta], \[Psi]}, \
          DisplayFunction \[Rule] Identity\), "]"}]}], ";"}],
    "\[IndentingNewLine]",
    "\[IndentingNewLine]", \(ShowLegend[
        DisplayTogether[listps, pc, Ticks \[Rule] {PiScale, Automatic},
          PlotRange \[Rule] {{\(-Pi\)/2, Pi/2}, Automatic},
          ImageSize \[Rule] 700,
          DisplayFunction \[Rule]
            Identity], {{{Hue[0], "\<1\>"}, {Hue[1\/7], "\<Sin(x)\>"}, {Hue[
                2\/7], "\<Sin(2x)\>"}, {Hue[3\/7], "\<Sin(3 x)\>"}, {Hue[
                4\/7], "\<Sin(4 x)\>"}, {Hue[5\/7], "\<Sin(5 x)\>"}, {Hue[
                0.8], "\<Cos (x)\>"}}, LegendPosition \[Rule] { .8,  .1},
          LegendSize \[Rule] { .3,  .2}, \
          LegendShadow \[Rule] { .02, \(- .02\)}}];\)}]\)

Link to the forum page for this post:
http://www.mathematica-users.org/webMathematica/wiki/wiki.jsp?pageName=Speci
al:Forum_ViewTopic&pid=15758#p15758
Posted through http://www.mathematica-users.org [[postId=15758]]




  • Prev by Date: Re: Graphics--How to plot all functions issued from For
  • Next by Date: Re: Graphics--How to plot all functions issued from For loop and
  • Previous by thread: Graphics--How to plot all functions issued from For loop and color
  • Next by thread: Use pattern to find minimum without using min