Re: Several functions in a single 2D-plot

• To: mathgroup at smc.vnet.net
• Subject: [mg68746] Re: Several functions in a single 2D-plot
• From: dimmechan at yahoo.com
• Date: Fri, 18 Aug 2006 03:11:46 -0400 (EDT)
• References: <ec19f0\$oir\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```?Plot
Plot[f, {x, xmin, xmax}] generates a plot of f as a function of x from
xmin \
to xmax. Plot[{f1, f2, ... }, {x, xmin, xmax}] plots several functions
fi. More...

For example,

Plot[ {BesselJ[0,x],BesselJ[1,x],
BesselJ[2,x] },
{x,0,10},PlotStyle\[Rule]{Thickness[0.008],Thickness[0.\
006],Thickness[0.004]}];

or

g={BesselJ[0,x],BesselJ[1,x],BesselJ[2,x]};

Plot[Evaluate[g], {x, 0, 10}, PlotStyle -> {
Thickness[0.008], Thickness[0.006], Thickness[0.004]}];

Of course, after you can change the default options and add legends to
make the plot look better.

For example,

Plot[ {BesselJ[0, x], BesselJ[1, x], BesselJ[2, x] }, {x, 0, 10},
PlotStyle -> {AbsoluteThickness[1], AbsoluteThickness[
2], AbsoluteThickness[3]}, TextStyle -> {FontFamily -> "Times", \
FontSize -> 20}, AxesLabel -> {"x", TraditionalForm[BesselJ[n,
x]]}, PlotLegend -> {"n=0", "n=1", "n=2"},
LegendShadow -> None, LegendPosition -> {0, 0}, ImageSize -> {500,
300}];

Cheers,

Jim

Î?/Î? Vicent Î­Î³Ï?Î±Ï?Îµ:
> Hi, everyone!
>
> I am new to Mathematica, and I have a quick question that will be very
> easy for you, I guess.
>
> How can I plot several functions within the same 2D graphic?
>
> For example, I want to draw the PDF of 3 continuous statistical
> distributions (I mean, 3 functions), but put together into the same 2D
> plot.
>