Re: Tick marks at frame edges
- To: mathgroup at smc.vnet.net
- Subject: [mg32284] Re: [mg32235] Tick marks at frame edges
- From: BobHanlon at aol.com
- Date: Wed, 9 Jan 2002 23:38:14 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 1/9/02 4:07:45 AM, jl_03824 at yahoo.com writes:
>I tend to plot a curve, y=y(x), where x is also a function of another
>variable, t, x=x(t). So, I want to arrange this curve in a frame such
>that the lower edge of the frame is tick-marked according to t, say
>from 0 to 1, and that the upper edge of the frame is tick-marked
>according to x, say from x(t=0) to x(t=1). I am appreciating with any
>help.
>
x[t_] := Pi*(4*t^2+1)/2;
y[x_] := Sin[x];
Solve[x==x[t], t]//Simplify
{{t -> (-(1/2))*I*Sqrt[1 - (2*x)/Pi]},
{t -> (1/2)*I*Sqrt[1 - (2*x)/Pi]}}
p1 = Plot[x[t], {t,0,1}, DisplayFunction->Identity];
Plot[y[x[t]], {t, 0, 1},
Frame -> True, Axes->False,
FrameLabel -> {"\nt", "y\n", "x\n", None},
FrameTicks -> {Automatic, Automatic,
(Ticks /. AbsoluteOptions[p1])[[2]] /.
{x_?NumericQ, r__} :> {Sqrt[2x/Pi-1]/2, r},
Automatic}, ImageSize->450];
Bob Hanlon
Chantilly, VA USA