05 August 2025   1:21:09.768 PM

lagrange_test():
  Fortran90 version
  Test lagrange()

lagrange_basis_antideriv_test():
  lagrange_basis_antideriv() evaluates the antiderivative
  of a Lagrange basis polynomial.

  Created graphics data file "lagrange_basis_antideriv_data.txt".

  Created graphics data file "lagrange_basis_antideriv_data2.txt".
  Created graphics command file "lagrange_basis_antideriv_commands.txt".

lagrange_basis_coef_test():
  lagrange_basis_coef() returns the coefficients
  for a Lagrange basis polynomial.
 
  Abscissas:
 
         1:   -3.0000000    
         2:   -2.0000000    
         3:   -1.0000000    
         4:    0.0000000    
         5:    1.0000000    
         6:    2.0000000    
         7:    3.0000000    
 
L(1)(x)
 
  p(x) = -  0.119048E-02 * x ^   7
         +  0.138889E-02 * x ^   6
         -  0.416667E-02 * x ^   5
         -  0.694444E-02 * x ^   4
         +  0.208333E-01 * x ^   3
         +  0.555556E-02 * x ^   2
         -  0.166667E-01 * x
 
L(2)(x)
 
  p(x) = -  0.119048E-02 * x ^   7
         -  0.833333E-02 * x ^   6
         +  0.166667E-01 * x ^   5
         +  0.833333E-01 * x ^   4
         -  0.166667     * x ^   3
         -  0.750000E-01 * x ^   2
         +  0.150000     * x
 
L(3)(x)
 
  p(x) = -  0.119048E-02 * x ^   7
         +  0.208333E-01 * x ^   6
         -  0.208333E-01 * x ^   5
         -  0.270833     * x ^   4
         +  0.270833     * x ^   3
         +  0.750000     * x ^   2
         -  0.750000     * x
 
L(4)(x)
 
  p(x) = -  0.119048E-02 * x ^   7
         -  0.277778E-01 * x ^   6
         +  0.388889     * x ^   4
         +  0.111022E-15 * x ^   3
         -   1.36111     * x ^   2
         -  0.555112E-16 * x
         +   1.00000    
 
L(5)(x)
 
  p(x) = -  0.119048E-02 * x ^   7
         +  0.208333E-01 * x ^   6
         +  0.208333E-01 * x ^   5
         -  0.270833     * x ^   4
         -  0.270833     * x ^   3
         +  0.750000     * x ^   2
         +  0.750000     * x
 
L(6)(x)
 
  p(x) = -  0.119048E-02 * x ^   7
         -  0.833333E-02 * x ^   6
         -  0.166667E-01 * x ^   5
         +  0.833333E-01 * x ^   4
         +  0.166667     * x ^   3
         -  0.750000E-01 * x ^   2
         -  0.150000     * x
 
L(7)(x)
 
  p(x) = -  0.119048E-02 * x ^   7
         +  0.138889E-02 * x ^   6
         +  0.416667E-02 * x ^   5
         -  0.694444E-02 * x ^   4
         -  0.208333E-01 * x ^   3
         +  0.555556E-02 * x ^   2
         +  0.166667E-01 * x

lagrange_basis_deriv_test():
  lagrange_basis_deriv() evaluates the derivative
  of a Lagrange basis polynomial.

  Created graphics data file "lagrange_basis_deriv_data.txt".

  Created graphics data file "lagrange_basis_deriv_data2.txt".
  Created graphics command file "lagrange_basis_deriv_commands.txt".

lagrange_basis_deriv2_test():
  lagrange_basis_deriv2() evaluates the second derivative
  of a Lagrange basis polynomial.

  Created graphics data file "lagrange_basis_deriv2_data.txt".

  Created graphics data file "lagrange_basis_deriv2_data2.txt".
  Created graphics command file "lagrange_basis_deriv2_commands.txt".

lagrange_basis_value_test():
  lagrange_basis_value() evaluates 
  a Lagrange basis polynomial.

  Created graphics data file "lagrange_basis_value_data.txt".

  Created graphics data file "lagrange_basis_value_data2.txt".
  Created graphics command file "lagrange_basis_value_commands.txt".

lagrange_test():
  Normal end of execution.

05 August 2025   1:21:09.769 PM