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.