Mean

• Statistical simulation of the Mean with R-Project
  

   x1 <- c(rep(10,5),rep(25,5),rep(35,6),rep(45,10),rep(55,38)
   ,rep(65,30),rep(75,20),rep(85,4),rep(95,2));
  
  
  m1 <- mean(x1)
  m1
  [1] 57.54167
  

  
  
  
  

• Statistical simulation of the Mean with Mathematica
  

  x1 := Join[ConstantArray[10, 5], ConstantArray[25, 5], 
     ConstantArray[35, 6], ConstantArray[45, 10], ConstantArray[55, 38]
  , ConstantArray[65, 30],ConstantArray[75, 20], ConstantArray[85, 4]
  , ConstantArray[95, 2]];
  
  m1 := Mean[x1];
  
  N[m1]
  
  57.5417