maximum_randN.c File Reference

Functions
int	main (int argc, char **argv)

Function Documentation

main()

int main	(	int	argc,
		char **	argv
	)

                               {
  if (argc < 3) {
    printf("Usage: 1.This 2.ndata 3.InFile\n");
    exit(EXIT_FAILURE);
  }
  Integer_t i, j, n, count;
  Integer_t seed=0;
  Integer_t const ndata = atoi(argv[1]);
  Integer_t const MAX = 1000;
 
  double max, maxData, dtemp;
  double rand, rand1, rand2;
  double CDF[MAX]; for(i = 0;i < MAX; ++i) CDF[i] = 0;
 
  Integer_t subMax;
  Integer_t *histogram, maxCount;
  double mean, stddev, mode;
  double binwidth=0.05;
 
  Integer_t const BUFSIZE = 1000;
  char str[BUFSIZE];
  char *filename = str;
 
  FILE *Infp;
  strcpy(str, argv[2]);
  Infp = fopen(filename, "r");
  if (Infp == NULL) {
    printf("Can't open a file %s\n", filename);
    exit(EXIT_FAILURE);
  }
  skip_header(Infp);
  count=0;
  while( fscanf(Infp, "%lld %lld %le", &i, &j, &dtemp) != EOF ) {
    count+=1;
    CDF[i] = dtemp;
    printf("(count=%lld) %lld %lld %le\n", count, i, j, dtemp);
    fflush(stdout);
  }
 
 
  FILE *Outfp;
  sprintf(str, "Dist_maximum_raw.txt");
  Outfp = fopen(filename, "w");
  if (Outfp == NULL) {
    printf("Can't open a file %s\n", filename);
    exit(EXIT_FAILURE);
  }
  fprintf(Outfp, "#(n=%lld, seed=%lld) Distribution of maximum of |x| \n\n", n, seed);
 
  init_genrand(seed);
  maxData = NAN;
  mean    = 0;
  stddev  = 0;
  for(i = 0;i < ndata; ++i) {
    //******************** Choose the number of random variables
    rand1 = genrand_real3();
    for(j = 0;j < MAX; ++j) if(CDF[j] > rand1) break;
    n = j-1;
    //******************** (END) Choose the number of random variables
    max = NAN;
    for(j = 0;j < n; ++j) {
      rand1 = genrand_real3();
      rand  = -log(rand1);
      max = fmax(max, rand);
      // max = rand;
    }
    maxData = fmax(maxData, max);
    mean   += max;
    stddev += max*max;
    fprintf(Outfp, "%lld %le %lld\n", i, max, n);
  }
  mean   /= (double)ndata;
  stddev /= (double)ndata;
  stddev  = sqrt( stddev -mean*mean );
  binwidth *= stddev;
  subMax  = (Integer_t)(maxData/binwidth) +1;
  histogram = alloc_ivector(subMax); for(i = 0;i < subMax; ++i) histogram[i] = 0;
 
  sprintf(str, "Dist_maximum_raw.txt");
  Infp = fopen(filename, "r");
  if (Infp == NULL) {
    printf("Can't open a file %s\n", filename);
    exit(EXIT_FAILURE);
  }
  skip_header(Infp);
 
  count=0;
  while ( fscanf(Infp, "%lld %le %lld", &i, &max, &j) != EOF ) {
    histogram[ (Integer_t)(max/binwidth) ] += 1;
    count += 1;
  }
  maxCount = 0;
  for(i = 0;i < subMax; ++i) {
    if(maxCount < histogram[i]) {
      mode = binwidth*(i+0.5);
      maxCount  = histogram[i];
    }
  }
 
  sprintf(str, "Dist_maximum.txt");
  Outfp = fopen(filename, "w");
  if (Outfp == NULL) {
    printf("Can't open a file %s\n", filename);
    exit(EXIT_FAILURE);
  }
  fprintf(Outfp, "# Input: %s\n", argv[2]);
  fprintf(Outfp, "# mean=%le, stddev=%le, mode=%le\n", mean, stddev, mode);
  fprintf(Outfp, "# 1.Maximum value 2.Probability density\n\n");
  for(i = 0;i < subMax; ++i) {
    fprintf(Outfp, "%le %le\n", binwidth*(i+0.5), histogram[i]/(binwidth*count));
  }
 
  return 0;
}