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

MathGroup Archive 2013

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

Search the Archive

Incorrectly Cropped ListPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg131608] Incorrectly Cropped ListPlot
  • From: Themis Matsoukas <tmatsoukas at me.com>
  • Date: Wed, 11 Sep 2013 03:50:11 -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

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: Integrating special functions
  • Next by Date: Re: anyone know of software to recover .nb files from a reformatted
  • Previous by thread: Re: Problem with change of variables in an integral =>
  • Next by thread: Re: Incorrectly Cropped ListPlot