Date: May 27, 2013 4:19 AM
Author: Bob Hanlon
Subject: Re: How to extract from list

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

>

>