Re: How to extract from list
- To: mathgroup at smc.vnet.net
- Subject: [mg130936] Re: How to extract from list
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Mon, 27 May 2013 04:23:24 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <20130526090741.2E1F06A2D@smc.vnet.net>
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 at 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 > >
- References:
- How to extract from list
- From: James Fisher <jlfisher@imt.net>
- How to extract from list