Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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.
> 
> Thank you in advance!
> 
> --
> Vicent