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]