9 May 2025   9:47:36.703 PM

vandermonde_test()
  FORTRAN90 version.
  Test vandermonde().

BIVAND1_TEST:
  Compute a bidimensional Vandermonde matrix
  associated with polynomials of total degree < N.
 
  Vandermonde vector ALPHA:
 
         1:    1.0000000    
         2:    2.0000000    
         3:    3.0000000    
 
  Vandermonde vector BETA:
 
         1:    10.000000    
         2:    20.000000    
         3:    30.000000    
 
  Bidimensional Vandermonde matrix:
 
  Col          1             2             3             4             5      
  Row
 
    1:      1.            1.            1.            1.            1.      
    2:      1.            2.            3.            1.            2.      
    3:     10.           10.           10.           20.           20.      
    4:      1.            4.            9.            1.            4.      
    5:     10.           20.           30.           20.           40.      
    6:    100.          100.          100.          400.          400.      
 
  Col          6      
  Row
 
    1:      1.      
    2:      1.      
    3:     30.      
    4:      1.      
    5:     30.      
    6:    900.      

BIVAND2_TEST:
  Compute a bidimensional Vandermonde matrix
  associated with polynomials of maximum degree < N.
 
  Vandermonde vector ALPHA:
 
         1:    1.0000000    
         2:    2.0000000    
         3:    3.0000000    
 
  Vandermonde vector BETA:
 
         1:    10.000000    
         2:    20.000000    
         3:    30.000000    
 
  Bidimensional Vandermonde matrix:
 
  Col          1             2             3             4             5      
  Row
 
    1:      1.            1.            1.            1.            1.      
    2:      1.            2.            3.            1.            2.      
    3:      1.            4.            9.            1.            4.      
    4:     10.           10.           10.           20.           20.      
    5:     10.           20.           30.           20.           40.      
    6:     10.           40.           90.           20.           80.      
    7:    100.          100.          100.          400.          400.      
    8:    100.          200.          300.          400.          800.      
    9:    100.          400.          900.          400.         1600.      
 
  Col          6             7             8             9      
  Row
 
    1:      1.            1.            1.            1.      
    2:      3.            1.            2.            3.      
    3:      9.            1.            4.            9.      
    4:     20.           30.           30.           30.      
    5:     60.           30.           60.           90.      
    6:    180.           30.          120.          270.      
    7:    400.          900.          900.          900.      
    8:   1200.          900.         1800.         2700.      
    9:   3600.          900.         3600.         8100.      

DVAND_TEST:
  Solve a Vandermonde linear system A'*x=b
 
  Vandermonde vector ALPHA:
 
         1:    0.0000000    
         2:    1.0000000    
         3:    2.0000000    
         4:    3.0000000    
         5:    4.0000000    
 
  Right hand side B:
 
         1:    5.0000000    
         2:    15.000000    
         3:    67.000000    
         4:    239.00000    
         5:    657.00000    
 
  Solution X:
 
         1:    5.0000000    
         2:    3.0000000    
         3:    4.0000000    
         4:    1.0000000    
         5:    2.0000000    
 
  Vandermonde vector ALPHA:
 
         1:   0.22908183    
         2:   0.42321411    
         3:   0.90155295    
         4:   0.78695745    
         5:   0.16273431    
 
  Right hand side B:
 
         1:    5.9146893    
         2:    7.1260460    
         3:    13.009910    
         4:    11.092515    
         5:    5.5998450    
 
  Solution X:
 
         1:    5.0000000    
         2:    3.0000000    
         3:    4.0000000    
         4:    1.0000000    
         5:    2.0000000    

DVANDPRG_TEST:
  Solve a Vandermonde linear system A'*x=b
  progressively.
  First we use ALPHA = 0, 1, 2, 3, 4.
  Then we choose ALPHA at random.
 
  Vandermonde vector ALPHA:
 
         1:    0.0000000    
         2:    1.0000000    
         3:    2.0000000    
         4:    3.0000000    
         5:    4.0000000    
 
  Right hand side B:
 
         1:    5.0000000    
         2:    15.000000    
         3:    67.000000    
         4:    239.00000    
         5:    657.00000    
 
  Solution X:
 
         1:    5.0000000    
 
  Solution X:
 
         1:    5.0000000    
         2:    10.000000    
 
  Solution X:
 
         1:    5.0000000    
         2:   -11.000000    
         3:    21.000000    
 
  Solution X:
 
         1:    5.0000000    
         2:    15.000000    
         3:   -18.000000    
         4:    13.000000    
 
  Solution X:
 
         1:    5.0000000    
         2:    3.0000000    
         3:    4.0000000    
         4:    1.0000000    
         5:    2.0000000    
 
  Vandermonde vector ALPHA:
 
         1:   0.24875306    
         2:   0.85315233    
         3:   0.52740831    
         4:   0.89746327    
         5:   0.90226689    
 
  Right hand side B:
 
         1:    6.0168217    
         2:    12.151502    
         3:    7.9963121    
         4:    12.934472    
         5:    13.023136    
 
  Solution X:
 
         1:    6.0168217    
 
  Solution X:
 
         1:    3.4919668    
         2:    10.150046    
 
  Solution X:
 
         1:    5.4766632    
         2:  -0.15484496    
         3:    9.3518834    
 
  Solution X:
 
         1:    4.7990960    
         2:    4.6479135    
         3:  -0.51125503    
         4:    6.0535539    
 
  Solution X:
 
         1:    5.0000000    
         2:    3.0000000    
         3:    4.0000000    
         4:    1.0000000    
         5:    2.0000000    

PVAND_TEST:
  Solve a Vandermonde linear system A*x=b
 
  Vandermonde vector ALPHA:
 
         1:    0.0000000    
         2:    1.0000000    
         3:    2.0000000    
         4:    3.0000000    
         5:    4.0000000    
 
  Right hand side B:
 
         1:    15.000000    
         2:    22.000000    
         3:    60.000000    
         4:    190.00000    
         5:    660.00000    
 
  Solution X:
 
         1:    5.0000000    
         2:    3.0000000    
         3:    4.0000000    
         4:    1.0000000    
         5:    2.0000000    
 
  Vandermonde vector ALPHA:
 
         1:   0.98695781    
         2:   0.92461072    
         3:   0.62325997    
         4:   0.51440704    
         5:   0.86239774    
 
  Right hand side B:
 
         1:    15.000000    
         2:    12.440864    
         3:    10.741030    
         4:    9.5656008    
         5:    8.7166745    
 
  Solution X:
 
         1:    5.0000000    
         2:    3.0000000    
         3:    4.0000000    
         4:    1.0000000    
         5:    2.0000000    

PVANDPRG_TEST:
  Solve a Vandermonde linear system A*x=b
  progressively.
  First we use ALPHA = 0, 1, 2, 3, 4.
  Then we choose ALPHA at random.
 
  Vandermonde vector ALPHA:
 
         1:    0.0000000    
         2:    1.0000000    
         3:    2.0000000    
         4:    3.0000000    
         5:    4.0000000    
 
  Right hand side B:
 
         1:    15.000000    
         2:    22.000000    
         3:    60.000000    
         4:    190.00000    
         5:    660.00000    
 
  Solution X:
 
         1:    15.000000    
 
  Solution X:
 
         1:   -7.0000000    
         2:    22.000000    
 
  Solution X:
 
         1:    12.000000    
         2:   -16.000000    
         3:    19.000000    
 
  Solution X:
 
         1:    3.0000000    
         2:    11.000000    
         3:   -8.0000000    
         4:    9.0000000    
 
  Solution X:
 
         1:    5.0000000    
         2:    3.0000000    
         3:    4.0000000    
         4:    1.0000000    
         5:    2.0000000    
 
  Vandermonde vector ALPHA:
 
         1:   0.18093429E-01
         2:   0.32224304    
         3:   0.19405341    
         4:   0.73874307    
         5:   0.19193454    
 
  Right hand side B:
 
         1:    15.000000    
         2:    2.9560220    
         3:    1.0832046    
         4:   0.54694892    
         5:   0.33856905    
 
  Solution X:
 
         1:    15.000000    
 
  Solution X:
 
         1:    6.1733551    
         2:    8.8266449    
 
  Solution X:
 
         1:    9.2493142    
         2:    13.048872    
         3:   -7.2981861    
 
  Solution X:
 
         1:    5.0078292    
         2:    2.9751934    
         3:    6.0163902    
         4:    1.0005872    
 
  Solution X:
 
         1:    5.0000000    
         2:    3.0000000    
         3:    4.0000000    
         4:    1.0000000    
         5:    2.0000000    

vandermonde_test():
  Normal end of execution.

 9 May 2025   9:47:36.704 PM