data set1;
  do i = 1 to 300000;
    weight = 180 + 15*rannor(103029102);
	output;
  end;
run;

proc univariate;
  var weight;
  histogram /midpoints =(110 to 290 by 20) cfill=red vaxis = axis1;
  histogram /midpoints =(105 to 295 by 10) cfill=red vaxis = axis1;
  histogram /midpoints =(102 to 298 by 4)  cfill = red vaxis = axis1;
  histogram /midpoints =(101 to 299 by 2)  cfill = red vaxis = axis1;
  histogram /midpoints =(100.1 to 299.9 by .02)  cfill = red vaxis = axis2;
  histogram /midpoints =(101 to 299 by 2)   normal vaxis = axis1;
  histogram /midpoints =(101 to 299 by 2)   normal(fill percents = 10 to 90 by 10) nobars vaxis = axis1;
  histogram /midpoints =(101 to 299 by 2)   normal nobars vaxis = axis1 href = 160.76,167.37,172.14,176.19,179.96,183.74,187.82,192.58,199.15;
  axis1 value = (height = 2) label = (height=1.5);
  axis2 value = (height = 2) label = (height=1.5) major=none;
run;

* Select a subset.  Choosing only 300;
data set1;
  set set1;
  if i = 1000*(int(i/1000));
run;


proc univariate;
  var weight;
  histogram /midpoints =(110 to 290 by 20) cfill=red vaxis = axis1;
  histogram /midpoints =(105 to 295 by 10) cfill=red vaxis = axis1;
  histogram /midpoints =(102 to 298 by 4)  cfill = red vaxis = axis1;
  histogram /midpoints =(101 to 299 by 2)  cfill = red vaxis = axis1;
  histogram /midpoints =(100.1 to 299.9 by .02)  cfill = red vaxis = axis2;
  histogram /midpoints =(101 to 299 by 2)   normal vaxis = axis1;
  histogram /midpoints =(101 to 299 by 2)   normal(fill percents = 10 to 90 by 10) nobars vaxis = axis1;
  histogram /midpoints =(101 to 299 by 2)   normal nobars vaxis = axis1 href = 160.76,167.37,172.14,176.19,179.96,183.74,187.82,192.58,199.15;
  histogram /midpoints =(101 to 299 by 2)   normal nobars vaxis = axis1 href = 133.3,148.9,164.5,180.1,195.7,211.3,226.9;
  axis1 value = (height = 2) label = (height=1.5);
  axis2 value = (height = 2) label = (height=1.5) major=none;
run;


