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