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

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

  • To: mathgroup at smc.vnet.net
  • Subject: [mg71796] Graphics--How to plot all functions issued from For loop and color
  • From: abdou.oumaima at hotmail.com
  • Date: Wed, 29 Nov 2006 02:56:39 -0500 (EST)

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