RE: basic question about plotting 2 functions in one graph
- To: mathgroup at smc.vnet.net
- Subject: [mg48937] RE: [mg48919] basic question about plotting 2 functions in one graph
- From: "David Park" <djmp at earthlink.net>
- Date: Thu, 24 Jun 2004 05:35:59 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Ron,
Here is a somewhat fancier version of your plot.
Needs["Graphics`Colors`"]
Plot[{3n, 2.6n}, {n, 0, 100000},
PlotStyle -> {{AbsoluteThickness[2], PermanentGreen}, VenetianRed},
Epilog -> {Text[k == 3, {40000, 3*40000}, {1, -1}],
Text[k == 2.6, {60000, 2.6*60000}, {-1, 1}]},
Frame -> True,
FrameLabel -> {n, k n},
PlotLabel -> "Plot Example",
Background -> Linen,
ImageSize -> 500]
The Graphics`Colors` standard package allows you to use colors by name
instead of using RGBColor.
I used a lot of Plot options. When I first started with Mathematica, graphic
options seemed like a big nuisance but they are actually quite useful and
necessary for producing a nice looking plot.
PlotStyle was used to specify the colors of the two curves. As an example,
the top function was also plotted with a thicker line.
Epilog is an option that allows you to add elements to the plot after the
main curves are drawn. In this case it is used to individually label the two
curves using Text statements. Look up the Text statement in Help for details
of its operation. It is also possible to first draw the functions and then
use the cursor to click off the position for the text labels and paste them
into the Text statements.
The other options should be mostly self-explanatory but you may want to look
up all these items in Help.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Ron Haus [mailto:ronhaus at arcor.de]
To: mathgroup at smc.vnet.net
Hi,
if I write something like this
Plot[{3n, 2.6n}, {n, 0, 100000}]
how can I distinguish them? How can I plot one of them green and one of them
red (for example)? How can I write the function on the graph?
THX