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