diff options
Diffstat (limited to 'src/GeneralizedPolynomial-Uniform/common/3d.maple')
-rw-r--r-- | src/GeneralizedPolynomial-Uniform/common/3d.maple | 92 |
1 files changed, 89 insertions, 3 deletions
diff --git a/src/GeneralizedPolynomial-Uniform/common/3d.maple b/src/GeneralizedPolynomial-Uniform/common/3d.maple index d84bfe4..62f82ea 100644 --- a/src/GeneralizedPolynomial-Uniform/common/3d.maple +++ b/src/GeneralizedPolynomial-Uniform/common/3d.maple @@ -45,7 +45,7 @@ print_interp_cmpt__lc_of_data(posn_list_3d_size2, "result", "coeff_dz_", "data_", "3d.cube.size2/interp-dz.compute.c"); -######################################## +################################################################################ # # generic stuff for 3d, cube, size=3 @@ -131,7 +131,7 @@ print_interp_cmpt__lc_of_data(posn_list_3d_size3, "result", "coeff_dzz_", "data_", "3d.cube.size3/interp-dzz.compute.c"); -######################################## +################################################################################ # # generic stuff for 3d, cube, size=4 @@ -217,7 +217,7 @@ print_interp_cmpt__lc_of_data(posn_list_3d_size4, "result", "coeff_dzz_", "data_", "3d.cube.size4/interp-dzz.compute.c"); -######################################## +################################################################################ # # generic stuff for 3d, cube, size=5 @@ -304,3 +304,89 @@ print_interp_cmpt__lc_of_data(posn_list_3d_size5, "3d.cube.size5/interp-dzz.compute.c"); ################################################################################ + +# +# generic stuff for 3d, cube, size=5 +# + +data_var_list_3d_size6 := map(data_var_name, posn_list_3d_size6, "data_"); + +print_name_list_dcl(data_var_list_3d_size6, "fp", + "3d.cube.size6/data-var.dcl.c"); +print_data_var_assign(posn_list_3d_size6, "data_", + "3d.cube.size6/data-var.assign.c"); + +print_interp_coeff_var_store(posn_list_3d_size6, "", "coeff_I_", + "3d.cube.size6/coeff-I.store.c"); +print_interp_coeff_var_store(posn_list_3d_size6, "factor", "coeff_dx_", + "3d.cube.size6/coeff-dx.store.c"); +print_interp_coeff_var_store(posn_list_3d_size6, "factor", "coeff_dy_", + "3d.cube.size6/coeff-dy.store.c"); +print_interp_coeff_var_store(posn_list_3d_size6, "factor", "coeff_dz_", + "3d.cube.size6/coeff-dz.store.c"); +print_interp_coeff_var_store(posn_list_3d_size6, "factor", "coeff_dxx_", + "3d.cube.size6/coeff-dxx.store.c"); +print_interp_coeff_var_store(posn_list_3d_size6, "factor", "coeff_dxy_", + "3d.cube.size6/coeff-dxy.store.c"); +print_interp_coeff_var_store(posn_list_3d_size6, "factor", "coeff_dxz_", + "3d.cube.size6/coeff-dxz.store.c"); +print_interp_coeff_var_store(posn_list_3d_size6, "factor", "coeff_dyy_", + "3d.cube.size6/coeff-dyy.store.c"); +print_interp_coeff_var_store(posn_list_3d_size6, "factor", "coeff_dyz_", + "3d.cube.size6/coeff-dyz.store.c"); +print_interp_coeff_var_store(posn_list_3d_size6, "factor", "coeff_dzz_", + "3d.cube.size6/coeff-dzz.store.c"); + +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_I_"), "fp", + "3d.cube.size6/coeff-I.dcl.c"); +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_dx_"), "fp", + "3d.cube.size6/coeff-dx.dcl.c"); +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_dy_"), "fp", + "3d.cube.size6/coeff-dy.dcl.c"); +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_dz_"), "fp", + "3d.cube.size6/coeff-dz.dcl.c"); +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_dxx_"), "fp", + "3d.cube.size6/coeff-dxx.dcl.c"); +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_dxy_"), "fp", + "3d.cube.size6/coeff-dxy.dcl.c"); +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_dxz_"), "fp", + "3d.cube.size6/coeff-dxz.dcl.c"); +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_dyy_"), "fp", + "3d.cube.size6/coeff-dyy.dcl.c"); +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_dyz_"), "fp", + "3d.cube.size6/coeff-dyz.dcl.c"); +print_name_list_dcl(map(coeff_name, posn_list_3d_size6, "coeff_dzz_"), "fp", + "3d.cube.size6/coeff-dzz.dcl.c"); + +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_I_", "data_", + "3d.cube.size6/interp-I.compute.c"); +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_dx_", "data_", + "3d.cube.size6/interp-dx.compute.c"); +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_dy_", "data_", + "3d.cube.size6/interp-dy.compute.c"); +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_dz_", "data_", + "3d.cube.size6/interp-dz.compute.c"); +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_dxx_", "data_", + "3d.cube.size6/interp-dxx.compute.c"); +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_dxy_", "data_", + "3d.cube.size6/interp-dxy.compute.c"); +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_dxz_", "data_", + "3d.cube.size6/interp-dxz.compute.c"); +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_dyy_", "data_", + "3d.cube.size6/interp-dyy.compute.c"); +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_dyz_", "data_", + "3d.cube.size6/interp-dyz.compute.c"); +print_interp_cmpt__lc_of_data(posn_list_3d_size6, + "result", "coeff_dzz_", "data_", + "3d.cube.size6/interp-dzz.compute.c"); + +################################################################################ |