24 July 2017   8:51:51.640 PM
 
COLORED_NOISE_PRB
  FORTRAN90 version
  Test the COLORED_NOISE library.

R8VEC_SFTF_TEST:
  FORTRAN version
  R8VEC_SFTF computes "slow" Fourier transform (forward)
  of a vector of real data.
  The original data can be recovered using R8VEC_SFTB.

  Fourier coefficients:

    0.437149
    0.286934    0.004681
   -0.006233    0.082836
   -0.100562   -0.024744
   -0.147878    0.020271
   -0.022556    0.012898
   -0.221165   -0.011888
   -0.003635    0.036658

  Compare data R and recovered data R2:

    0.218418    0.222054
    0.956318    0.945140
    0.829509    0.847740
    0.561695    0.537207
    0.415307    0.444982
    0.066119    0.032554
    0.257578    0.293565
    0.109957    0.073119
    0.043829    0.079906
    0.633966    0.600225
    0.061727    0.091657
    0.449539    0.424729
    0.401306    0.419913
    0.754673    0.743084
    0.797287    0.801353

R8VEC_SFTF_TEST:
  Normal end of execution.
 
COLORED_NOISE_TEST01:
  Generating      128 sample points.
  1/F^ALPHA noise has ALPHA =    0.00000    
  Variance is    1.00000    
  Initial random number seed =    123456789
 
  Noise sample:
 
         1:    1.67904    
         2:  -0.472769    
         3:  -0.566060    
         4:  -0.231124    
         5:    1.21293    
         6:   0.535037    
         7:    1.26938    
         8:    1.04954    
  ......  ..............
       128:  -0.660599E-01
  Data written to file "alpha_0.00.txt."
 
COLORED_NOISE_TEST01:
  Generating      128 sample points.
  1/F^ALPHA noise has ALPHA =   0.250000    
  Variance is    1.00000    
  Initial random number seed =    123456789
 
  Noise sample:
 
         1:    1.67904    
         2:  -0.262889    
         3:  -0.507098    
         4:  -0.251499    
         5:    1.18603    
         6:   0.677714    
         7:    1.41887    
         8:    1.30640    
  ......  ..............
       128:  -0.679857E-01
  Data written to file "alpha_0.25.txt."
 
COLORED_NOISE_TEST01:
  Generating      128 sample points.
  1/F^ALPHA noise has ALPHA =   0.500000    
  Variance is    1.00000    
  Initial random number seed =    123456789
 
  Noise sample:
 
         1:    1.67904    
         2:  -0.530087E-01
         3:  -0.421902    
         4:  -0.249747    
         5:    1.17117    
         6:   0.826697    
         7:    1.59232    
         8:    1.59749    
  ......  ..............
       128:  -0.239724E-01
  Data written to file "alpha_0.50.txt."
 
COLORED_NOISE_TEST01:
  Generating      128 sample points.
  1/F^ALPHA noise has ALPHA =   0.750000    
  Variance is    1.00000    
  Initial random number seed =    123456789
 
  Noise sample:
 
         1:    1.67904    
         2:   0.156871    
         3:  -0.310471    
         4:  -0.222588    
         5:    1.17298    
         6:   0.986356    
         7:    1.79349    
         8:    1.92856    
  ......  ..............
       128:   0.100291    
  Data written to file "alpha_0.75.txt."
 
COLORED_NOISE_TEST01:
  Generating      128 sample points.
  1/F^ALPHA noise has ALPHA =    1.00000    
  Variance is    1.00000    
  Initial random number seed =    123456789
 
  Noise sample:
 
         1:    1.67904    
         2:   0.366751    
         3:  -0.172804    
         4:  -0.166742    
         5:    1.19647    
         6:    1.16187    
         7:    2.02716    
         8:    2.30648    
  ......  ..............
       128:   0.358878    
  Data written to file "alpha_1.00.txt."
 
COLORED_NOISE_TEST01:
  Generating      128 sample points.
  1/F^ALPHA noise has ALPHA =    1.25000    
  Variance is    1.00000    
  Initial random number seed =    123456789
 
  Noise sample:
 
         1:    1.67904    
         2:   0.576631    
         3:  -0.890268E-02
         4:  -0.789315E-01
         5:    1.24708    
         6:    1.35926    
         7:    2.29931    
         8:    2.73946    
  ......  ..............
       128:   0.837794    
  Data written to file "alpha_1.25.txt."
 
COLORED_NOISE_TEST01:
  Generating      128 sample points.
  1/F^ALPHA noise has ALPHA =    1.50000    
  Variance is    1.00000    
  Initial random number seed =    123456789
 
  Noise sample:
 
         1:    1.67904    
         2:   0.786511    
         3:   0.181234    
         4:   0.441241E-01
         5:    1.33063    
         6:    1.58549    
         7:    2.61717    
         8:    3.23729    
  ......  ..............
       128:    1.67441    
  Data written to file "alpha_1.50.txt."
 
COLORED_NOISE_TEST01:
  Generating      128 sample points.
  1/F^ALPHA noise has ALPHA =    1.75000    
  Variance is    1.00000    
  Initial random number seed =    123456789
 
  Noise sample:
 
         1:    1.67904    
         2:   0.996391    
         3:   0.397605    
         4:   0.205704    
         5:    1.45340    
         6:    1.84845    
         7:    2.98945    
         8:    3.81157    
  ......  ..............
       128:    3.08837    
  Data written to file "alpha_1.75.txt."
 
COLORED_NOISE_TEST01:
  Generating      128 sample points.
  1/F^ALPHA noise has ALPHA =    2.00000    
  Variance is    1.00000    
  Initial random number seed =    123456789
 
  Noise sample:
 
         1:    1.67904    
         2:    1.20627    
         3:   0.640212    
         4:   0.409088    
         5:    1.62202    
         6:    2.15706    
         7:    3.42644    
         8:    4.47598    
  ......  ..............
       128:    5.43047    
  Data written to file "alpha_2.00.txt."
 
COLORED_NOISE_PRB:
  Normal end of execution.
  
24 July 2017   8:51:51.726 PM