9 May 2025   8:57:36.269 PM
 
colored_noise_test():
  Fortran90 version
  Test colored_noise().

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.422372
    0.035593    0.203267
   -0.029590    0.051850
   -0.010336   -0.075282
   -0.060417   -0.090899
   -0.089610   -0.094774
    0.038505   -0.078077
    0.046336   -0.099679

  Compare data R and recovered data R2:

    0.352853    0.352853
    0.217058    0.217058
    0.989920    0.989920
    0.553452    0.553452
    0.697755    0.697755
    0.547547    0.547547
    0.424578    0.424578
    0.317840    0.317840
    0.442801    0.442801
    0.222770    0.222770
    0.451222    0.451222
    0.169977    0.169977
    0.110154    0.110154
    0.241626    0.241626
    0.596024    0.596024

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    
 
  Noise sample:
 
         1:  -0.797309    
         2:  -0.571827    
         3:  -0.856348    
         4:   0.631963    
         5:  -0.154698    
         6:   0.109565    
         7:   -2.42585    
         8:   0.175531    
  ......  ..............
       128:   0.550756    
  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    
 
  Noise sample:
 
         1:   0.701329E-01
         2:   0.173665    
         3:   -2.21595    
         4:   0.697835    
         5:  -0.964684    
         6:  -0.434222    
         7:  -0.464581    
         8:  -0.571741E-01
  ......  ..............
       128:   -1.27941    
  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    
 
  Noise sample:
 
         1:   0.837063    
         2:   0.737748    
         3:    1.62522    
         4:  -0.271533    
         5:    1.10028    
         6:    1.29029    
         7:   0.817414    
         8:   0.557491    
  ......  ..............
       128:   0.483696    
  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    
 
  Noise sample:
 
         1:    1.32165    
         2:  -0.820303    
         3:  -0.145925E-01
         4:  -0.207776    
         5:   -1.53202    
         6:    1.42455    
         7:   0.251809    
         8:  -0.396329    
  ......  ..............
       128:   0.420897    
  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    
 
  Noise sample:
 
         1:  -0.578167    
         2:    1.10671    
         3:   0.163214E-01
         4:  -0.301591    
         5:  -0.740632    
         6:   -2.02922    
         7:   -1.86922    
         8:   -1.45834    
  ......  ..............
       128:   -2.13919    
  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    
 
  Noise sample:
 
         1:   -1.81317    
         2:   -2.19129    
         3:   -1.95087    
         4:  -0.742541    
         5:   0.876824    
         6:   0.944180    
         7:    1.59946    
         8:    1.26560    
  ......  ..............
       128:    1.08849    
  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    
 
  Noise sample:
 
         1:   0.513295E-01
         2:   0.385870    
         3:    1.32306    
         4:    1.54899    
         5:    1.37352    
         6:    1.51488    
         7:    1.35279    
         8:   0.833756    
  ......  ..............
       128:  -0.744417    
  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    
 
  Noise sample:
 
         1:    1.08711    
         2:    2.16654    
         3:    3.48452    
         4:    3.87861    
         5:    4.49540    
         6:    5.15846    
         7:    4.86533    
         8:    3.23299    
  ......  ..............
       128:    7.96350    
  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    
 
  Noise sample:
 
         1:   -1.09831    
         2:  -0.713133    
         3:  -0.444660    
         4:  -0.125979    
         5:   0.385151E-01
         6:  -0.163774    
         7:  -0.190406    
         8:   -1.17353    
  ......  ..............
       128:   0.591734    
  Data written to file "alpha_2.00.txt."
 
colored_noise_test():
  Normal end of execution.
  
 9 May 2025   8:57:36.300 PM