Re: Plot a simple function

*To*: mathgroup at smc.vnet.net*Subject*: [mg74875] Re: [mg74845] Plot a simple function*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Mon, 9 Apr 2007 06:16:25 -0400 (EDT)*Reply-to*: hanlonr at cox.net

H[p_] := -p*Log[2, p] -(1-p)*Log[2, 1-p] /; 0 <= p <= 1; Plot[H[p],{p,0,1}, PlotStyle->{AbsoluteThickness[3],Blue}, Frame->True, FrameTicks->{Range[0,1,0.5],Range[0,1,0.5],None,None}, FrameStyle->White, FrameLabel->{"Pr(X = 1)","H(X)"}, AspectRatio->1, TextStyle->{FontSize->18}, GridLines->Table[Table[ {x,{AbsoluteThickness[2],GrayLevel[0.9]}}, {x,0,1,0.1}],{2}], Prolog->{Black, AbsoluteThickness[2], Line[{{0,1.05},{0,0},{1.05,0} }]}]; Bob Hanlon ---- "Paul K." <jorgecordero at gmail.com> wrote: > Hi, a simple query. Do you know how could I plot the entropy function > in Mathematica? I wish to produce an image similar to this one: > > http://upload.wikimedia.org/wikipedia/commons/c/c9/Binary_entropy_plot.png > > Do you know how could I plot mutual information between two random > variables X and Y in a 3D surface in Mathematica? > > Thanks! > > Paul. > >