Re: Three graph into one
- To: mathgroup at smc.vnet.net
- Subject: [mg47971] Re: Three graph into one
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 4 May 2004 01:08:51 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <c6up2a$b68$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
graph2 = {{0.1, 0.5},
{0.2, 0.6},
{0.3, 0.8}};
graph3 = {{0.1, 0.8},
{0.2, 0.9},
{0.3, 0.10}};
Plot[Exp[x], {x, 0, 0.4},
Epilog -> {AbsolutePointSize[4], {RGBColor[1, 0, 0],
Point /@ graph2}, {RGBColor[0, 1, 0], Point /@ graph3}},
PlotRange -> {0, 2}]
Regards
Jens
why wrote:
>
> suppose I have
>
> y=e^x [where x=0.5 to 1.5];
>
> and after interpolation I found x ,y values
>
> graph2--values
> ............
> x y
> 0.1 0.5
> 0.2 0.6
> 0.3 0.8
> ---------------
> graph3--values
> ...........
> x y
> 0.1 0.8
> 0.2 0.9
> 0.3 0.10
>
> Now I want mathematica to plot the graph1 and graph2
> with the give function y=e^x (superimposed).
>
> Please help me .