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