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