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