MathGroup Archive 2013

[Date Index] [Thread Index] [Author Index]

Search the Archive

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
>
>


  • Prev by Date: tossing a coin
  • Next by Date: Re: How to extract from list
  • Previous by thread: How to extract from list
  • Next by thread: Re: How to extract from list