diff options
Diffstat (limited to 'src/GeneralizedPolynomial-Uniform/Hermite/1d.maple')
| -rw-r--r-- | src/GeneralizedPolynomial-Uniform/Hermite/1d.maple | 60 |
1 files changed, 30 insertions, 30 deletions
diff --git a/src/GeneralizedPolynomial-Uniform/Hermite/1d.maple b/src/GeneralizedPolynomial-Uniform/Hermite/1d.maple index 1b8b47c..5251b91 100644 --- a/src/GeneralizedPolynomial-Uniform/Hermite/1d.maple +++ b/src/GeneralizedPolynomial-Uniform/Hermite/1d.maple @@ -11,28 +11,28 @@ # interpolating polynomial interp_1d_cube_order2 := Hermite_polynomial_interpolant(fn_1d_order3, - coeff_set_1d_order3, + coeffs_set_1d_order3, [x], { {x} = deriv_1d_dx_3point }, {op(posn_list_1d_size2)}, {op(posn_list_1d_size2)}); # I -coeff_as_lc_of_data(%, posn_list_1d_size4); -print_coeff__lc_of_data(%, "coeff_I_", "fp", - "1d.coeffs/1d.cube.order2/coeff-I.compute.c"); +coeffs_as_lc_of_data(%, posn_list_1d_size4); +print_coeffs__lc_of_data(%, "coeffs_I->coeffs_", "fp", + "1d.coeffs/1d.cube.order2/coeffs-I.compute.c"); # d/dx simplify( diff(interp_1d_cube_order2,x) ); -coeff_as_lc_of_data(%, posn_list_1d_size4); -print_coeff__lc_of_data(%, "coeff_dx_", "fp", - "1d.coeffs/1d.cube.order2/coeff-dx.compute.c"); +coeffs_as_lc_of_data(%, posn_list_1d_size4); +print_coeffs__lc_of_data(%, "coeffs_dx->coeffs_", "fp", + "1d.coeffs/1d.cube.order2/coeffs-dx.compute.c"); # d^2/dx^2 simplify( diff(interp_1d_cube_order2,x,x) ); -coeff_as_lc_of_data(%, posn_list_1d_size4); -print_coeff__lc_of_data(%, "coeff_dxx_", "fp", - "1d.coeffs/1d.cube.order2/coeff-dxx.compute.c"); +coeffs_as_lc_of_data(%, posn_list_1d_size4); +print_coeffs__lc_of_data(%, "coeffs_dxx->coeffs_", "fp", + "1d.coeffs/1d.cube.order2/coeffs-dxx.compute.c"); ################################################################################ @@ -44,28 +44,28 @@ print_coeff__lc_of_data(%, "coeff_dxx_", "fp", # interpolating polynomial interp_1d_cube_order3 := Hermite_polynomial_interpolant(fn_1d_order3, - coeff_set_1d_order3, + coeffs_set_1d_order3, [x], { {x} = deriv_1d_dx_5point }, {op(posn_list_1d_size2)}, {op(posn_list_1d_size2)}); # I -coeff_as_lc_of_data(%, posn_list_1d_size6); -print_coeff__lc_of_data(%, "coeff_I_", "fp", - "1d.coeffs/1d.cube.order3/coeff-I.compute.c"); +coeffs_as_lc_of_data(%, posn_list_1d_size6); +print_coeffs__lc_of_data(%, "coeffs_I->coeffs_", "fp", + "1d.coeffs/1d.cube.order3/coeffs-I.compute.c"); # d/dx simplify( diff(interp_1d_cube_order3,x) ); -coeff_as_lc_of_data(%, posn_list_1d_size6); -print_coeff__lc_of_data(%, "coeff_dx_", "fp", - "1d.coeffs/1d.cube.order3/coeff-dx.compute.c"); +coeffs_as_lc_of_data(%, posn_list_1d_size6); +print_coeffs__lc_of_data(%, "coeffs_dx->coeffs_", "fp", + "1d.coeffs/1d.cube.order3/coeffs-dx.compute.c"); # d^2/dx^2 simplify( diff(interp_1d_cube_order3,x,x) ); -coeff_as_lc_of_data(%, posn_list_1d_size6); -print_coeff__lc_of_data(%, "coeff_dxx_", "fp", - "1d.coeffs/1d.cube.order3/coeff-dxx.compute.c"); +coeffs_as_lc_of_data(%, posn_list_1d_size6); +print_coeffs__lc_of_data(%, "coeffs_dxx->coeffs_", "fp", + "1d.coeffs/1d.cube.order3/coeffs-dxx.compute.c"); ################################################################################ @@ -80,27 +80,27 @@ print_coeff__lc_of_data(%, "coeff_dxx_", "fp", # interpolating polynomial interp_1d_cube_order4 := Hermite_polynomial_interpolant(fn_1d_order5, - coeff_set_1d_order5, + coeffs_set_1d_order5, [x], { {x} = deriv_1d_dx_5point }, {op(posn_list_1d_size4)}, {op(posn_list_1d_size2)}); # I -coeff_as_lc_of_data(%, posn_list_1d_size6); -print_coeff__lc_of_data(%, "coeff_I_", "fp", - "1d.coeffs/1d.cube.order4/coeff-I.compute.c"); +coeffs_as_lc_of_data(%, posn_list_1d_size6); +print_coeffs__lc_of_data(%, "coeffs_I->coeffs_", "fp", + "1d.coeffs/1d.cube.order4/coeffs-I.compute.c"); # d/dx simplify( diff(interp_1d_cube_order4,x) ); -coeff_as_lc_of_data(%, posn_list_1d_size6); -print_coeff__lc_of_data(%, "coeff_dx_", "fp", - "1d.coeffs/1d.cube.order4/coeff-dx.compute.c"); +coeffs_as_lc_of_data(%, posn_list_1d_size6); +print_coeffs__lc_of_data(%, "coeffs_dx->coeffs_", "fp", + "1d.coeffs/1d.cube.order4/coeffs-dx.compute.c"); # d^2/dx^2 simplify( diff(interp_1d_cube_order4,x,x) ); -coeff_as_lc_of_data(%, posn_list_1d_size6); -print_coeff__lc_of_data(%, "coeff_dxx_", "fp", - "1d.coeffs/1d.cube.order4/coeff-dxx.compute.c"); +coeffs_as_lc_of_data(%, posn_list_1d_size6); +print_coeffs__lc_of_data(%, "coeffs_dxx->coeffs_", "fp", + "1d.coeffs/1d.cube.order4/coeffs-dxx.compute.c"); ################################################################################ |