Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

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

Search the Archive

Re: Incorrectly Cropped ListPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg131622] Re: Incorrectly Cropped ListPlot
  • From: "djmpark" <djmpark at comcast.net>
  • Date: Thu, 12 Sep 2013 02:26:45 -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: <13655642.175307.1378886306010.JavaMail.root@m06>

Themis,

Basically you have to also put a PlotRange into the ListPlot statement.  I'm
not certain why you are trying to combine two plots in this manner. Why not
just make a single plot? In any case PlotRange is an option that does double
duty. It determines which range will be used in retaining plot points in a
curve, and it also determines the overall plot ranges for display. (This
distinction also comes into play in ContourPlot and DensityPlot where the
display is only 2D but a z PlotRange is necessary to specify which contours
or values will be retained in the plot.) This gets confused when you are
combining plots.

With Presentations I would do it this way:

<< Presentations` 

Draw2D[
 {(* possible other curves maybe with a PlotRange  *)
  ListDraw[Evaluate[f], Filling -> Axis, Joined -> True, 
   PlotRange -> All]},
 AspectRatio -> 1/GoldenRatio, Axes -> True,
 ImageSize -> Medium, PlotRange -> {{0, Length[f]}, {0, 0.1}}, 
 FrameLabel -> {"X", "Y"}]

The PlotRange in ListDraw determines what y range of points is to be
accepted for that curve and the PlotRange at the end determines the ranges
used in the displayed graphic. If you are going to use Show you could put
the first PlotRange in the ListPlot, and the second PlotRange in the Show
statement.


David Park
djmpark at comcast.net 
http://home.comcast.net/~djmpark/index.html 




From: Themis Matsoukas [mailto:tmatsoukas at me.com] 

In the ListPlot below, the graph is unexpectedly cropped. Do others confirm
this? Is there a cure?

I apologize for the long data set (166 points) but this problem does not not
normally appear with other data sets. 

(v9.01, Mac OS 10.8.4)

f = {28.1792365971891`, 3.5982872799476424`, 1.0378983682569967`, 
   0.4632719164938047`, 0.21685764678476743`, 0.10593018225382422`, 
   0.06130960964625232`, 0.05244650523022995`, 0.03653950681649269`, 
   0.027787329865001275`, 0.019062884779642592`, 
   0.021808339526783436`, 0.009390009872544344`, 0.00662236963249731`,
    0.009561947442567305`, 0.00849704378307025`, 
   0.010621304728837813`, 0.008186446882383609`, 
   0.0048197983338694825`, 0.015407824823348014`, 
   0.0031891646052646175`, 0.0007154821462245838`, 
   0.005257961818766708`, 0.01064903659497055`, 0.004021120589246692`,
    0.0024681360858134866`, 0.005856970127233802`, 
   0.0007820386249431496`, 0.0005879155620139991`, 
   0.004742149108697823`, 0.0026012490432506183`, 
   0.002623434536156807`, 0.0022961985157905246`, 
   0.0020077871080100723`, 0.0047587882283774635`, 
   0.004126501680551088`, 0.004653407137073068`, 
   5.5463732265471604`*^-6, 0.00021630855583533928`, 0.`, 0.`, 
   0.0017138293270030727`, 0.00359404985080256`, 0.00404330608215288`,
    0.`, 0.`, 0.`, 0.`, 0.0005823691887874519`, 
   0.0024071259803214676`, 0.`, 0.`, 0.002274013022884336`, 0.`, 
   0.0011480992578952623`, 0.`, 0.`, 0.`, 0.0003272360203662825`, 0.`,
    0.0016805510876437898`, 0.00009428834485130173`, 0.`, 0.`, 
   0.0024681360858134866`, 0.001031625420137772`, 
   0.0014254179192226203`, 0.006239669879865556`, 0.`, 0.`, 
   0.0018413959112136575`, 0.0013921396798633374`, 
   0.011980166169341867`, 0.`, 0.0048197983338694825`, 0.`, 0.`, 
   0.0003826997526317541`, 0.`, 0.`, 0.00009428834485130173`, 0.`, 
   0.0044925623135032`, 0.002939577810069995`, 0.010981818988563378`, 
   0.`, 0.008186446882383609`, 0.`, 0.`, 0.0004104316187644899`, 0.`, 
   0.0003272360203662825`, 0.0020466117205959022`, 
   0.00039379249908484844`, 0.`, 0.`, 0.0030615980210540327`, 0.`, 
   0.0024681360858134866`, 0.001137006511442168`, 
   0.00017193757002296198`, 0.`, 0.`, 0.0002606795416477166`, 0.`, 
   0.`, 0.`, 0.007476511109385573`, 0.`, 0.`, 0.0013311295743713186`, 
   0.`, 0.`, 0.0028730213313514293`, 0.`, 0.`, 0.002318384008696713`, 
   0.`, 0.00023294767551498076`, 0.0011536456311218093`, 0.`, 
   0.0015696236231128465`, 0.007687273291994365`, 
   0.0015252526373004693`, 0.`, 0.011946887929982584`, 
   0.008031148432040289`, 0.`, 0.0008042241178493383`, 
   0.0021908174244861284`, 0.004021120589246692`, 
   0.013422223208244129`, 0.001724922073456167`, 
   0.0004381634848972257`, 0.002723269254234656`, 
   0.006073278683069141`, 0.011508724445085359`, 
   0.0005379982029750746`, 0.0006156474281467348`, 
   0.0013810469334102431`, 0.00584033100755416`, 0.`, 
   0.006960698399316687`, 0.`, 0.01813109407758267`, 
   0.020599230163396154`, 0.03043294989406427`, 0.027315888140744767`,
    0.04342810236386427`, 0.0009484298217395645`, 
   0.03459827618720119`, 0.011747218493826886`, 0.018508247456987877`,
    0.0733618786675393`, 0.03374413471031293`, 0.08204749914031215`, 
   0.06322865478263763`, 0.15423354668382344`, 0.06886376998080955`, 
   0.019229275976439007`, 0.07850336664854851`, 0.025596512440515147`,
    0.03347236242221212`, 0.00814762226979778`, 0.`, 
   0.00795349920686863`};


graph1 = ListPlot[{Null},
   ImageSize -> Medium,
   PlotRange -> {{0, 200}, {0, 0.1}}, FrameLabel -> {"X", "Y"}];
graph2 = ListPlot[f, Filling -> Axis, Joined -> True]; Show[graph1, graph2]




  • Prev by Date: Re: producing a noise
  • Next by Date: Re: basic namespace question, and access to BinarySearch
  • Previous by thread: Re: Incorrectly Cropped ListPlot
  • Next by thread: Re: Incorrectly Cropped ListPlot