Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

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

Search the Archive

Re: ListLogLinearPlot crystal filter

  • To: mathgroup at smc.vnet.net
  • Subject: [mg131804] Re: ListLogLinearPlot crystal filter
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Tue, 8 Oct 2013 03:53:15 -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: <20131007122421.CD4046A15@smc.vnet.net>

db = {-1, -3, -10, -20, -30, -40, -50, -60, -70, -80};


freq = {{3.39418`, 3.394`, 3.39352`, 3.39281`, 3.39182`, 3.39032`,
3.38785`,
    "-56dB @ 3.38376", "-", "-"}, {3.39489`, 3.39889`, 3.39946`, 3.40012`,
    3.40095`, 3.40203`, 3.40315`, 3.40425`, 3.40532`, "-"}, {3.39407`,
    3.39397`, 3.39385`, 3.39369`, 3.39348`, 3.39325`, 3.39298`, 3.39266`,
    3.39246`, 3.39229`}, {3.39602`, 3.3961`, 3.39622`, 3.3964`, 3.3966`,
    3.39684`, 3.39711`, 3.3975`, 3.39763`, 3.39785`}, {3.39525`, 3.39522`,
    3.39518`, 3.3951`, 3.395`, 3.39486`, 3.39468`, 3.39442`, 3.39402`,
    "-76dB @ 3.39289"}, {3.39489`, 3.3955`, 3.39564`, 3.39576`, 3.39588`,
    3.39604`, 3.39621`, 3.39635`, 3.39646`, 3.39652`}};


NOTE: There appears to be a problem with the first data point for CW
404-284-1 high side data. I changed 3.39849 to read 3.39489 (transposed
adjacent digits) to be consistent with the other data.


ssb404200 = ListLinePlot[
  Tooltip[Thread[{#, db}], "SSB 404-200"] & /@ freq[[{3, 4}]],
  PlotStyle -> Thick,
  Frame -> True, Axes -> False,
  FrameLabel -> (Style[#, 16] & /@
     {"Frequency (MHz)",
      "Attenuation (dB)"}),
  PlotLabel -> Style["Crystal Filter Measurements", 18]]


am404314 = ListLinePlot[
   Tooltip[#,
      "AM 404-314"] & /@ (Take[#, 7] & /@
      (Thread[{#, db}] & /@
        freq[[{1, 2}]])),
   PlotStyle -> Dashed];


cw4042841 = ListLinePlot[
   Tooltip[#,
      "CW 404-284-1"] & /@ (Take[#, 9] & /@
      (Thread[{#, db}] & /@
        freq[[{5, 6}]])),
   PlotStyle -> DotDashed];


List the baseline (ssb404200) plot first in the Show statement.


Show[ssb404200, am404314, cw4042841, PlotRange -> All]



Bob Hanlon




On Mon, Oct 7, 2013 at 8:24 AM, James Fisher <jlfisher at imt.net> wrote:

> I have some data I want to plot::
>
> db = {-1, -3, -10, -20, -30, -40, -50, -60, -70, -80}
> freq1 = {3.39407, 3.39397, 3.39385, 3.39369, 3.39348, 3.39325, 3.39298,
> 3.39266, 3.39246, 3.39229}
> freq2 = {3.39602, 3.39610, 3.39622, 3.39640, 3.39660, 3.39684, 3.39711,
> 3.39750, 3.39763, 3.39785}
>
> The db is the log plot and the freq1 and freq2 are linear.
> This plot is of a crystal filter with a center frequency of 3.395 [0 db]
> and shows the shape of the filter in db loss as you get away from the
> center freq on the high freq side and the low freq side [above and below
> 3.395Mhz].
>
> I hope to eventually overlay other crystal filters on top of this plot
> [multiple overlays] to compare with this filter.
>
> How can I set this up to display this single plot and also multiple plots?
> I assume ListLogLinearPlot is the best/simplest way to  do this. Feel free
> to arrange the input data if there is a better way to do this.
>
> Here is a link of the data I want to eventually plot.
> This is not the only data I want to plot
> http://www.qsl.net/g3oou/iffilters2.html
>
> Thanks for any help
> James  Math 6.0
>
>




  • Prev by Date: Re: 3DAspectRatio
  • Next by Date: Re: ListLogLinearPlot crystal filter
  • Previous by thread: ListLogLinearPlot crystal filter
  • Next by thread: Re: ListLogLinearPlot crystal filter