       Re: Weighted histogram

• To: mathgroup at smc.vnet.net
• Subject: [mg62269] Re: Weighted histogram
• From: "Ray Koopman" <koopman at sfu.ca>
• Date: Fri, 18 Nov 2005 05:57:57 -0500 (EST)
• References: <dliv00\$g1b\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```kalymereau at yahoo.fr wrote:
> Hi MathGroup
>
> With Histogram[{a1,a2,...,an}] one can represent the histogram of
> values in a list. I have a (classical) problem where each value ai has
> to be weighted by some real positive value wi. What is the simplest way
> to represent the histogram of values {a1,a2,...,an} ponderated by a
> list {w1,w2,...,wn} ?
>
> Thanks
>
> Geronimo

<<Graphics`Graphics`;
a = Table[Random[Integer,{1,9}], {n = 100}];
w = Table[-Log[Random[]],{n}];
p = #/Tr@#&[ Tr@Pick[w,a,#]& /@ Range[Min@a,Max@a] ];
Histogram[p, FrequencyData->True]

```

• Prev by Date: Re: DXF, OSG and Mathematica (OpenGL)
• Next by Date: NDSolve
• Previous by thread: Weighted histogram
• Next by thread: Re: Weighted histogram