o a histogram closeup
subplot(212)
h=bar(xr,Px); grid on; set(h,'facecolor',[1 0 0])
axis([min(xr) max(xr) 0 2*max(Px(1:fix(length(xr)*.49)))])

Pw = zeros(1,length(xr));
for i = 1:nCases
   h = hist(trueWeights(:,i),xr);
   Pw = Pw + h/nCases;
end
figure; 
subplot(2,1,1); bar(xr, Pw);
subplot(2,1,2); bar(xr, Pw);
ylim = get(gca, 'ylim');
axis([min(xr) max(xr) 0 ylim(2)*0.1])


##### SOURCE END #####
--></body></html>