ListPlot with multiple (related) series.
- To: mathgroup at smc.vnet.net
- Subject: [mg33420] ListPlot with multiple (related) series.
- From: crf3 at po.cwru.edu (Curt Fischer)
- Date: Thu, 21 Mar 2002 09:26:56 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Dear Group,
equations as a function of a parameter of the equations b. Problem
is, there are multiple solution sets and my graph does not show which
x goes with which y at a given b. How can I make such a graph?
Details:
In my problem, I have three equations in three unknowns x, y, and z.
b is a parameter in these equations. Using NSolve, I built a function
which takes b as a variable and returns the values of x, y, and z,
like this;
soln[b_]:=NSolve[{eqns},{x,y,z}]
This is all good. My equations are rational, and NSolve returns at
most three solutions sets {x,y,z} for any given b.
Now, I want to plot x and y vs. b, on the same graph. I want the
graph to show every solution set for each b.
I tried:
Show[{
ListPlot[
Flatten[
Table[Table[{i, x/.soln[i][[n]]]}, {i,1,10,.2}],{n, 1, 3}],
1],
PlotStyle -> {PointSize[ .02], RGBColor[1, 0, 0]},
DisplayFunction -> Identity],
ListPlot[
Flatten[
Table[Table[{i, y/.soln[i][[n]]]}, {i,1,10,.2}],{n, 1, 3}],
1],
PlotStyle -> {PointSize[ .02], RGBColor[0, 1, 0]},
DisplayFunction -> Identity]},
DisplayFunction -> $DisplayFunction]
which worked and a output a graph. Problem is, since there are three
solutions, there are three distinct red (x) and three distinct green
(y) points for every b. There is no way of knowing which x goes with
which y from this graph.
How can I make a graph which preserves this information? It is not as
important to me to keep to color difference in x and y as it is to
distinguish solution 1 from solution 2 from solution 3...but is there
an easy way to do both in the same graph?
Thanks for your help.
--
Curt Fischer
crf3 at po.cwru.edu
- Follow-Ups:
- Re: ListPlot with multiple (related) series.
- From: Daniel Lichtblau <danl@wolfram.com>
- Re: ListPlot with multiple (related) series.