Re: listplot and plot of the same function display in different scale...
- To: mathgroup at smc.vnet.net
- Subject: [mg51635] Re: [mg51617] listplot and plot of the same function display in different scale...
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 27 Oct 2004 23:42:37 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`"]; solution=NDSolve[ {y'[t]==-y[t],y[0]==1}, {y},{t,0,7}]; Plot[Evaluate[y[t]/.solution],{t,0,7}, Epilog->{Red,PointSize[0.015], Point/@ Table[Flatten[{t, y[t]}/.solution,1], {t,0,7,0.25}]}]; Bob Hanlon > > From: sean kim <sean_incali at yahoo.com> To: mathgroup at smc.vnet.net > Date: 2004/10/27 Wed AM 01:54:41 EDT > To: mathgroup at smc.vnet.net > Subject: [mg51635] [mg51617] listplot and plot of the same function display in different scale... > > Hello group, > > let's say you want to take a few points from an > interploating function and ListPlot it. and then show > it together with the graph object from Plot. > > so... > > solution = NDSolve[{y'[t] == -y[t], y[0] == 1}, {y}, > {t, 0, 7}]; > > g0 = Plot[Evaluate[y[t] /. solution], {t, 0, 7}, > DisplayFunction -> Identity]; > g1 = ListPlot[Flatten[Table[Evaluate[y[t]/.solution], > {t, 0, 7, 0.05}]],PlotStyle -> PointSize[0.015], > DisplayFunction -> Identity]; > > Show[g0, g1, DisplayFunction -> $DisplayFunction] > > will show two plots in one graph, but plots have their > own axis scale. the Plot[] object seems to be shrunk > in scales due to ListPlot[] object having more points. > (due to being tabled) > > How do i fix this so that both Plot have same axis > scales? ( I want to show dots from ListPlot to overlay > on top of Plot graph. ) > > Thanks in advance for any insights. > > > sean > > > > __________________________________ > Do you Yahoo!? > Yahoo! Mail Address AutoComplete - You start. We finish. > http://promotions.yahoo.com/new_mail > >