MathGroup Archive 2009

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

Search the Archive

Re: Frequency data

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99745] Re: Frequency data
  • From: suhrob.sultanov at gmail.com
  • Date: Wed, 13 May 2009 05:06:28 -0400 (EDT)
  • References: <gu8udl$6pq$1@smc.vnet.net>

On May 11, 12:24 pm, suhrob.sulta... at gmail.com wrote:
Thanks so much everybody for answering my question and solving the
problem, it works :

$Version

6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)

Needs["Histograms`"];

n = 1000;

data = RandomReal[NormalDistribution[0, 1], {n}];

lb = Floor[5*Min[data]]/5.

ub = Ceiling[5*Max[data]]/5.

freq = BinCounts[data, {lb, ub, .2}]/n;

Total[freq]

1

GraphicsArray[{
  Show[{
    Histogram[data, HistogramScale -> 1],
    Plot[PDF[NormalDistribution[0, 1], x], {x, lb, ub},
     PlotStyle -> {Red, AbsoluteThickness[2]}]}],
  Histogram[freq, FrequencyData -> True]},
 ImageSize -> 600]


  • Prev by Date: Label Bar Chart from data
  • Next by Date: Re: export Disdyakis Dodecahedron to 3D model (maya)
  • Previous by thread: Re: Frequency data
  • Next by thread: Why is equation set can't solve in Mathematica?