MathGroup Archive 2006

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

Search the Archive

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


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=Special:Forum_ViewTopic&pid=15758#p15758
Posted through http://www.mathematica-users.org [[postId=15758]]



  • Prev by Date: Re: Using Select within Map
  • Next by Date: Re: Functional decomposition (solving f[f[x]] = g[x] for given g)
  • Previous by thread: Re: NetLink with float* as argument
  • Next by thread: RE: Graphics--How to plot all functions issued from For loop and color