MathGroup Archive 2004

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

Search the Archive

Re: Re: Overlay graphs

  • To: mathgroup at smc.vnet.net
  • Subject: [mg48953] Re: [mg48941] Re: Overlay graphs
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Fri, 25 Jun 2004 02:58:17 -0400 (EDT)
  • Reply-to: hanlonr at cox.net
  • Sender: owner-wri-mathgroup at wolfram.com

Needs["Graphics`"];

DisplayTogether[
    Plot[Sin[x],{x,0,Pi/4},PlotStyle->Blue],
    Plot[Cos[x],{x,Pi/4,Pi/2},PlotStyle->Green],
    Epilog->({
            Text[{x,Cos[x]},{x,Cos[x]},{-1,-1}],
            Red, AbsoluteDashing[{5,5}],
            Line[{{0,Cos[x]},{x,Cos[x]},{x,0}}]}/.
          FindRoot[Sin[x]==Cos[x], {x, .75}]),
    PlotRange->All,ImageSize->400];


Bob Hanlon

> 
> From: J_o_s_e_f at hotmail.com (JosefG)
To: mathgroup at smc.vnet.net
> Date: 2004/06/24 Thu AM 05:36:11 EDT
> To: mathgroup at smc.vnet.net
> Subject: [mg48953] [mg48941] Re: Overlay graphs
> 
> Thanks for your help, but that's not quite what I need. I would like
> for the graph to show Plot[Sin[x], {x,0,Pi/4}] lie on top of
> Plot[Cos[x],{x,Pi/4,Pi/2}]. I am looking for intersection points of
> some sine and cosine waves to be more specific. I have tried to solve
> for the intersection points, but that doesn't seem to work.
> 
> Thank you again,
> 
> Josef
> 
> 
> J_o_s_e_f at hotmail.com (JosefG) wrote in message news:
<cau1ru$alc$1 at smc.vnet.net>...
> > I was wondering how to overlay graphs in Mathmatica. I need to
> > overlay:         Plot[Sin{(x)},{x,0,Pi/4}] and
> > Plot[{Cos(x)},{x,Pi/4,Pi/2}]. I don't know how to do it. A phase shift
> > doesn't work because I need the data from the original points.
> > 
> >  Thanks alot,
> > 
> > Josef
> 
> 


  • Prev by Date: Fourier Transform with Differential Equation
  • Next by Date: [Final Call] ACA-2004 Conference on Applications of Computer Algebra
  • Previous by thread: Re: Overlay graphs
  • Next by thread: Re: Overlay graphs