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
>
>