/*
Este programa:
Muestrea una distribucion uniforme [0,1]
Estima valor medio y dispersion
*/

#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <time.h>

int L = 10000;


int  main(){  
 int i;
 float accumA, accumA2;
 float varA;
 float faux;

 srand(time(NULL));
 accumA = 0;
 accumA2= 0;
 for(i=0;i<L;i++){
  faux = ((float)rand())/RAND_MAX; 
  
  accumA = accumA + faux;
  accumA2= accumA2+ faux*faux;
  
  if(i%(L/5)==0){
    fprintf(stdout,"Van %d/%d iteraciones\n",i,L);
  }
  
 }
 varA = sqrt(L*accumA2-accumA*accumA)/L;
 
 fprintf(stdout,"mean:%f  var:%f\n",accumA/L, varA);
 
 if(faux<0.5){
  fprintf(stdout,"..ah..y el ultimo numero random fue chico: %f\n",faux);
 }else{
  fprintf(stdout,"..ah..y el ultimo numero random fue GRANDE: %f\n",faux);   
 } 
 return(1);
}