Histogram

• Statistical simulation of the Histogram with R-Project

   x1 <- c(rep(15,2),rep(30,4),rep(40,10),rep(50,10),rep(60,3)
  ,rep(75,1));
  
   x2 <- (x1-40)/5;
  hist(x1, col="blue", breaks=c(5,25,35,45,55,65,85),xaxt = "n"
  ,freq=TRUE)
  
  axis(1,c(5,15,25,35,45,55,65,75,85))
  

  
  
  
  

• Statistical simulation of the Histogram with Mathematica

  x1 := Join[ConstantArray[15, 2], ConstantArray[30, 4], 
     ConstantArray[40, 10], ConstantArray[50, 10], ConstantArray[60, 3],
      ConstantArray[75, 1]];
  x2 := (x1 - 40)/5;
  
  Histogram[x1, {{5, 25, 35, 45, 55, 65, 85}}]