Percent := [2,4,4,11,39,18,21]; width := [5-0,8-5,9-8,12-9,13-12,16-13,17-16]; Mid := [2.5,6.5,8.5,10.5,12.5,14.5,16.5]; Height4 := Percent[4]/width[4]; H4 := evalf(11/3,2); H := [seq(evalf(Percent[k]/width[k],2),k=1..7)]; with(stats): with(stats[statplots]): data1 := [Weight(0..5,2), Weight(5..8,4), Weight(8..9,4), Weight(9..12,11), Weight(12..13,39), Weight(13..16,18), Weight(16..17,21)]; histogram(data1); Average := Sum(Percent[j]*Mid[j],j=1..7)/100; Average := sum(Percent[j]*Mid[j],j=1..7)/100; SD := sqrt( Sum(Percent[i]*(Mid[i]-Average)^2,i=1..7)/100); SD := sqrt( sum(Percent[i]*(Mid[i]-Average)^2,i=1..7)/100);