Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #2919 > unrolled thread

Re: Mathematica plots

Back to article view | Back to comp.soft-sys.math.mathematica

Contents

  Re: Mathematica plots Murray Eisenberg <murray@math.umass.edu> - 2011-06-02 23:13 +0000

#2919 — Re: Mathematica plots

With David Park's "Presentations" packages 
(http://home.comcast.net/~djmpark/DrawGraphicsPage.html), and in 
particular his CustomTicks funciton, you could do it like this...

   Needs["Presentations`Master`"]

   (* will invert range from 0 to 1 *)
   inv[y_] := 1 - y

   (* First plot a function of a continuous variable: *)
   f[x_] := x^2
   Draw2D[{Draw[inv@f[x], {x, 0, 1}]},
          Axes -> True,
          Ticks -> {Automatic, CustomTicks[inv, {0, 1, 0.25, 1}]}]

   (* Second plot discrete data: *)
   noise = RandomReal[{-0.05, 0.05}, {20}];
   yvals = f[Rest@Range[0, 1, 0.05]] + noise

   Draw2D[{ListDraw[inv@yvals]},
          AspectRatio -> 1, Axes -> True,
          Ticks -> {Automatic, CustomTicks[inv, {0, 1, 0.25, 1}]}]


On 6/2/2011 7:17 AM, nivk wrote:
> Hi,
>
> I would like to know how to change the range of a plot on the y-axis to go from larger to smaller numbers.
>
> Here's an example:
> http://spiff.rit.edu/classes/phys230/lectures/clusters/cm_pleiades.png
>
> I tried using PlotRange->  but that didn't make any difference.
>
> Thanks!
>

-- 
Murray Eisenberg                     murray@math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305

[toc] | [standalone]

Back to top | Article view | comp.soft-sys.math.mathematica

csiph-web