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