MathGroup Archive 2003

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

Search the Archive

LogLogListPlot, LogLinearListPlot- Ticks and TickMarks

  • To: mathgroup at smc.vnet.net
  • Subject: [mg44110] LogLogListPlot, LogLinearListPlot- Ticks and TickMarks
  • From: Goyder Dr HGD <H.Goyder at rmcs.cranfield.ac.uk>
  • Date: Thu, 23 Oct 2003 07:14:58 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

I have some data for viscoelastic material that covers a domain of (a
possibly record breaking) 16 decades.
There are two data sets in the form of frequency-modulus and
frequency-phase.
I wish to plot these as a LogLogListPlot and as a LogLinearListPlot
respectively.
I give an example data set and my attempts below.

For the LogLogListPlot how do I get more tick marks and tick labels on the x
and y axes in the form of 10^n where n may be positive or negative and is
not converted either to a decimal or preceded by 1.0 x?

For the LogLinearListPlot how do I get a sensible y scale on the left hand
side, perhaps 5 tick marks, keeping the symbol as Pi and fractions of Pi
rather than as a decimal?  How do I get the y scale on the right hand side
which is missing?

Finally is there a method of plotting both the modulus and phase plots, one
above the other, with a common length of x axis so that the plots line up?

$Version

4.2 for Microsoft Windows (August 23, 2002)


With thanks

Hugh Goyder


<<Graphics`Graphics`

dataMod={{0.0000441`,0.17235397851085402`},
      {0.002826688903271264`,0.17054704688191827`},
      {0.01995380529308543`,0.18654391921210908`},
      {0.06309947271367361`,0.1991224016811985`},
      {0.30838050485086077`,0.16902478352365644`},
      {2.020771029138572`,0.15922196827284404`},
      {18.78`,0.13004168567510754`},
      {235,0.0306816994047554`},
      {37528.56652558414`,0.0018917905896175095`},
      {6.587877458319267`*^7,0.0004240386915937393`},
      {176400000000,0.00037223040387381913`}};

dataPhase={{0.0000441`,-0.1204146135120695`},
      {0.002826688903271264`,-0.13517069864900902`},
      {0.01995380529308543`,-0.16255296617752524`},
      {0.06309947271367361`,-0.18099726139120903`},
      {0.30838050485086077`,-0.206992194219821`},
      {2.020771029138572`,-0.31060979281388995`},
      {18.78`,-0.7977432152416727`},
      {235,-1.0328372785012563`},
      {37528.56652558414`,-0.5999068031058774`},
      {6.587877458319267`*^7,-0.060924508138259004`},
      {176400000000,-0.0299910048568779`}};

LogLogListPlot[{#[[1]],#[[2]]}&/@ dataMod,
    PlotRange\[Rule]{{10^-5,10^12},{10^-4,1}},
    AspectRatio\[Rule]2/5,
    FrameLabel\[Rule] {"Frequency","Modulus"},
    Frame\[Rule]True,ImageSize\[Rule] 72 9,
    TextStyle\[Rule]{FontFamily->"Times",FontSize\[Rule]12}];

LogLinearListPlot[{#[[1]],#[[2]]}&/@ dataPhase,
    PlotRange\[Rule]{{10^-5,10^12},
        {-Pi/2,0}},AspectRatio\[Rule]1/5,
    FrameLabel\[Rule] {"Frequency","Phase"},
    Frame\[Rule]True,ImageSize\[Rule] 72 9,
    TextStyle\[Rule]{FontFamily->"Times",
        FontSize\[Rule]12}];


-- 
This message has been scanned for viruses and
dangerous content by the Cranfield MailScanner, and is
believed to be clean.


  • Prev by Date: Re: Advice on defining a data structure in Mathematica
  • Next by Date: Re: Integrate with piecewise function
  • Previous by thread: Using multiple reference to the same object
  • Next by thread: RE: LogLogListPlot, LogLinearListPlot- Ticks and TickMarks