Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

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


  • Prev by Date: Re: Update for MathSource/Stein's mathematica toolbox for Matlab?
  • Next by Date: Re: real variable
  • Previous by thread: Re: Tick marks at frame edges
  • Next by thread: Re: Tick marks at frame edges