Re: FilledPlot Sideways?
- To: mathgroup at smc.vnet.net
- Subject: [mg51394] Re: [mg51339] FilledPlot Sideways?
- From: Tomas Garza <tgarza01 at prodigy.net.mx>
- Date: Fri, 15 Oct 2004 02:48:45 -0400 (EDT)
- References: <200410141037.GAA15004@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
I suggest the following: from the original plot (not the FilledPlot) extract
the coordinates of the points on the curve. Then Reverse the two coordinates
in each point. This transposes the two axes. Now work separately with those
points which are on the positive side and those on the negative side, and
construct for each list the ListFilledPlot. Finally, Show the two plots
together. Example:
In[1]:=
g1 = Plot[x^2, {x, -2, 2}];
In[2]:=
transpPtsOnCurve = Cases[g1, x_ -> x, {5}] /. {x_, y_} -> {y, x}
In[3]:=
posPts = Cases[transpPtsOnCurve, {x_, y_} /; y >= 0]
In[4]:=
upPart = FilledListPlot[posPts, DisplayFunction -> Identity];
In[5]:=
dnPart = FilledListPlot[posPts /. {x_, y_} -> {x, -y},
DisplayFunction -> Identity];
In[6]:=
Show[upPart, dnPart, DisplayFunction -> $DisplayFunction];
By the way, this has the interior of the curve filled. If you want the
exterior to be filled instead, that is a different situation, but not
difficult to handle.
Tomas Garza
Mexico City
----- Original Message -----
From: "Tom Aldenberg" <Tom.Aldenberg at rivm.nl>
To: mathgroup at smc.vnet.net
Subject: [mg51394] [mg51339] FilledPlot Sideways?
> Hi,
>
> How can I make FilledPlots sideways?
>
> So I want the equivalent of FilledPlot [x^2, {x,-2,2}], but with the axes
> transposed.
> The curve is something like ParametricPlot[{x^2, x}, {x,-2,2}]. How to do
> the shading?
>
> Tom Aldenberg
>
>
>
- References:
- FilledPlot Sideways?
- From: "Tom Aldenberg" <Tom.Aldenberg@rivm.nl>
- FilledPlot Sideways?