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