MathGroup Archive 2009

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

Search the Archive

Re: Figure quality

  • To: mathgroup at smc.vnet.net
  • Subject: [mg105946] Re: [mg105921] Figure quality
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 27 Dec 2009 02:26:04 -0500 (EST)
  • Reply-to: hanlonr at cox.net

A modified approach using LogLinearPlot

p = Plot[Sin[Pi/x/2], {x, 1/50, 1},
   AxesOrigin -> {1, 0},
   PlotRange -> {{0, 1}, {-1, 1}},
   PerformanceGoal -> "Quality"];

t = Ticks /. AbsoluteOptions[p, Ticks];

LogLinearPlot[Sin[Pi/x/2], {x, 1/50, 1},
 PlotRange -> {{0, 1}, {-1.05, 1.05}},
 PerformanceGoal -> "Quality",
 Frame -> {{False, True}, {True, False}},
 FrameTicks -> {
   {None, t[[2]]}, {t[[1]], None}},
 Axes -> None]

Modifying the ticks:

LogLinearPlot[Sin[Pi/x/2], {x, 1/50, 1},
 PlotRange -> {{0, 1}, {-1.05, 1.05}},
 PerformanceGoal -> "Quality",
 Frame -> {{False, True}, {True, False}},
 FrameTicks -> {
   {None,
    t[[2]] /. 
     {x_?(OddQ[Round[4*#]] &), x_, r__} ->
      {x, "", r}},
   {t[[1]] /.
     {x_ /; x <= .1, "", r__} ->
      {x, x, r},
    None}},
 Axes -> None]


Bob Hanlon

---- did <didier.oslo at hotmail.com> wrote: 

=============
Consider the figure:

Plot[Sin[Pi/x/2], {x, 1/50, 1}, AxesOrigin -> {1, 0}, PlotRange ->
{{0, 1}, {-1, 1}}, PerformanceGoal -> "Quality"]

1- On the vertical axis, how can I put the Ticks inside the figure
and the corresponding numbers outside?
(A sort of FlipLeftRight command)

2- Toward x=0.0 the amplitude of the curve seems to decrease.
This is probably due to under-sampling. How can I get the curve
right in this region?

Thanks



  • Prev by Date: Re: problem with EvenQ
  • Next by Date: Re: problem with EvenQ
  • Previous by thread: Figure quality
  • Next by thread: Re: Figure quality