[Date Index]
[Thread Index]
[Author Index]
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**
| |