Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Topic: How to extract from list
Replies: 2   Last Post: May 27, 2013 4:20 AM

 Search Thread: Advanced Search

 Messages: [ Previous | Next ]
 Bob Hanlon Posts: 906 Registered: 10/29/11
Re: How to extract from list
Posted: May 27, 2013 4:19 AM
 Plain Text Reply

data = {{1.8, 13.8, 34, 134}, {1.9, 6.4, 44, 94},
{2.0, 2.7, 62, 52}, {54., 6.8, 250, 189}};

f[x_List] := {x[[1]], #} & /@ Rest[x];

data2 = Reverse[SortBy[
Transpose[f /@ data], #[[-1, -1]] &]];
(* Order by decsending magnitude of last point *)

ListLinePlot[data2,
PlotMarkers -> Automatic,
PlotLegends ->
{"Resistance", "Reactance", "SWR"}]

ListLogLinearPlot[data2,
PlotMarkers -> Automatic,
Joined -> True,
PlotLegends ->
{"Resistance", "Reactance", "SWR"}]

ListLogLogPlot[data2,
PlotMarkers -> Automatic,
Joined -> True,
PlotLegends ->
{"Resistance", "Reactance", "SWR"}]

Bob Hanlon

On Sun, May 26, 2013 at 5:07 AM, James Fisher <jlfisher@imt.net> wrote:

> I have a list/array as follows::
>
> {{1.8, 13.8, 34, 134}, {1.9, 6.4, 44, 94}, {2.0, 2.7, 62,
> 52},..........,{54., 6.8, 250, 189}}
>
> The first entry is a frequency ex 1.8 MHz
> The other values are SWR[13.8], Resistance[34], Reactance[134].
>
> I want to plot the last three values on three line graphs in different
> colors using the first value [freq] at the bottom [as the dependent].
>
> As you can see the freq goes from 1.8 to 54 Mhz.
>
> How can I plot this list/array [three lines] please ?
>
> Thanks
>
>

Date Subject Author
5/27/13 Bob Hanlon
5/27/13 Tomas Garza Hernandez

© The Math Forum at NCTM 1994-2016. All Rights Reserved.