function value = p00_f ( problem, dim_num, point_num, x ) %*****************************************************************************80 % %% P00_F evaluates the integrand for any problem. % % Licensing: % % This code is distributed under the GNU LGPL license. % % Modified: % % 02 June 2007 % % Author: % % John Burkardt % % Parameters: % % Input, integer PROBLEM, the number of the desired test problem. % % Input, integer DIM_NUM, the dimension of the argument. % % Input, integer POINT_NUM, the number of points. % % Input, real X(DIM_NUM,POINT_NUM), the evaluation points. % % Output, real VALUE(POINT_NUM), the integrand values. % if ( problem == 1 ) value = p01_f ( dim_num, point_num, x ); elseif ( problem == 2 ) value = p02_f ( dim_num, point_num, x ); elseif ( problem == 3 ) value = p03_f ( dim_num, point_num, x ); elseif ( problem == 4 ) value = p04_f ( dim_num, point_num, x ); elseif ( problem == 5 ) value = p05_f ( dim_num, point_num, x ); elseif ( problem == 6 ) value = p06_f ( dim_num, point_num, x ); elseif ( problem == 7 ) value = p07_f ( dim_num, point_num, x ); elseif ( problem == 8 ) value = p08_f ( dim_num, point_num, x ); elseif ( problem == 9 ) value = p09_f ( dim_num, point_num, x ); elseif ( problem == 10 ) value = p10_f ( dim_num, point_num, x ); elseif ( problem == 11 ) value = p11_f ( dim_num, point_num, x ); elseif ( problem == 12 ) value = p12_f ( dim_num, point_num, x ); elseif ( problem == 13 ) value = p13_f ( dim_num, point_num, x ); elseif ( problem == 14 ) value = p14_f ( dim_num, point_num, x ); elseif ( problem == 15 ) value = p15_f ( dim_num, point_num, x ); elseif ( problem == 16 ) value = p16_f ( dim_num, point_num, x ); elseif ( problem == 17 ) value = p17_f ( dim_num, point_num, x ); elseif ( problem == 18 ) value = p18_f ( dim_num, point_num, x ); elseif ( problem == 19 ) value = p19_f ( dim_num, point_num, x ); elseif ( problem == 20 ) value = p20_f ( dim_num, point_num, x ); elseif ( problem == 21 ) value = p21_f ( dim_num, point_num, x ); elseif ( problem == 22 ) value = p22_f ( dim_num, point_num, x ); elseif ( problem == 23 ) value = p23_f ( dim_num, point_num, x ); elseif ( problem == 24 ) value = p24_f ( dim_num, point_num, x ); elseif ( problem == 25 ) value = p25_f ( dim_num, point_num, x ); elseif ( problem == 26 ) value = p26_f ( dim_num, point_num, x ); elseif ( problem == 27 ) value = p27_f ( dim_num, point_num, x ); elseif ( problem == 28 ) value = p28_f ( dim_num, point_num, x ); elseif ( problem == 29 ) value = p29_f ( dim_num, point_num, x ); elseif ( problem == 30 ) value = p30_f ( dim_num, point_num, x ); elseif ( problem == 31 ) value = p31_f ( dim_num, point_num, x ); elseif ( problem == 32 ) value = p32_f ( dim_num, point_num, x ); else fprintf ( 1, '\n' ); fprintf ( 1, 'P00_F - Fatal error!\n' ); fprintf ( 1, ' Illegal problem number = %d\n', problem ); error ( 'P00_F - Fatal error!' ); end return end