|\^/| Maple 11 (IBM INTEL LINUX)
._|\| |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2007
\ MAPLE / All rights reserved. Maple is a trademark of
<____ ____> Waterloo Maple Inc.
| Type ? for help.
> #BEGIN OUTFILE1
> # Begin Function number 3
> display_poles := proc()
> global ALWAYS,glob_display_flag, glob_large_float, array_pole, glob_type_given_pole,array_given_rad_poles,array_given_ord_poles, array_complex_poles,array_poles,array_real_poles,array_x ;
> local rad_given;
> if (glob_type_given_pole = 4) then # if number 1
> rad_given := sqrt(expt(array_x[1] - array_given_rad_poles[1,1],2.0) + expt(array_given_rad_poles[1,2],2.0)) ;
> omniout_float(ALWAYS,"Radius of convergence (given) for eq 1 ",4, rad_given,4," ");
> omniout_float(ALWAYS,"Order of pole (given) ",4, array_given_ord_poles[1,1],4," ");
> elif
> (glob_type_given_pole = 3) then # if number 2
> omniout_str(ALWAYS,"NO POLE (given) for Equation 1");
> else
> omniout_str(ALWAYS,"NO INFO (given) for Equation 1");
> fi;# end if 2;
> if (array_poles[1,1] <> glob_large_float) then # if number 2
> omniout_float(ALWAYS,"Radius of convergence (ratio test) for eq 1 ",4, array_poles[1,1],4," ");
> omniout_str(ALWAYS,"Order of pole (ratio test) Not computed");
> else
> omniout_str(ALWAYS,"NO POLE (ratio test) for Equation 1");
> fi;# end if 2;
> if ((array_real_poles[1,1] > 0.0) and (array_real_poles[1,1] <> glob_large_float)) then # if number 2
> omniout_float(ALWAYS,"Radius of convergence (three term test) for eq 1 ",4, array_real_poles[1,1],4," ");
> omniout_float(ALWAYS,"Order of pole (three term test) ",4, array_real_poles[1,2],4," ");
> else
> omniout_str(ALWAYS,"NO REAL POLE (three term test) for Equation 1");
> fi;# end if 2;
> if ((array_complex_poles[1,1] > 0.0) and (array_complex_poles[1,1] <> glob_large_float)) then # if number 2
> omniout_float(ALWAYS,"Radius of convergence (six term test) for eq 1 ",4, array_complex_poles[1,1],4," ");
> omniout_float(ALWAYS,"Order of pole (six term test) ",4, array_complex_poles[1,2],4," ");
> else
> omniout_str(ALWAYS,"NO COMPLEX POLE (six term test) for Equation 1");
> fi;# end if 2
> ;
> end;
display_poles := proc()
local rad_given;
global ALWAYS, glob_display_flag, glob_large_float, array_pole,
glob_type_given_pole, array_given_rad_poles, array_given_ord_poles,
array_complex_poles, array_poles, array_real_poles, array_x;
if glob_type_given_pole = 4 then
rad_given := sqrt(
expt(array_x[1] - array_given_rad_poles[1, 1], 2.0)
+ expt(array_given_rad_poles[1, 2], 2.0));
omniout_float(ALWAYS,
"Radius of convergence (given) for eq 1 ", 4,
rad_given, 4, " ");
omniout_float(ALWAYS,
"Order of pole (given) ", 4,
array_given_ord_poles[1, 1], 4, " ")
elif glob_type_given_pole = 3 then
omniout_str(ALWAYS, "NO POLE (given) for Equation 1")
else omniout_str(ALWAYS, "NO INFO (given) for Equation 1")
end if;
if array_poles[1, 1] <> glob_large_float then
omniout_float(ALWAYS,
"Radius of convergence (ratio test) for eq 1 ", 4,
array_poles[1, 1], 4, " ");
omniout_str(ALWAYS, "Order of pole (ratio test) \
Not computed")
else omniout_str(ALWAYS, "NO POLE (ratio test) for Equation 1")
end if;
if 0. < array_real_poles[1, 1] and
array_real_poles[1, 1] <> glob_large_float then
omniout_float(ALWAYS,
"Radius of convergence (three term test) for eq 1 ", 4,
array_real_poles[1, 1], 4, " ");
omniout_float(ALWAYS,
"Order of pole (three term test) ", 4,
array_real_poles[1, 2], 4, " ")
else omniout_str(ALWAYS,
"NO REAL POLE (three term test) for Equation 1")
end if;
if 0. < array_complex_poles[1, 1] and
array_complex_poles[1, 1] <> glob_large_float then
omniout_float(ALWAYS,
"Radius of convergence (six term test) for eq 1 ", 4,
array_complex_poles[1, 1], 4, " ");
omniout_float(ALWAYS,
"Order of pole (six term test) ", 4,
array_complex_poles[1, 2], 4, " ")
else omniout_str(ALWAYS,
"NO COMPLEX POLE (six term test) for Equation 1")
end if
end proc
> # End Function number 3
> # Begin Function number 4
> check_sign := proc( x0 ,xf)
> local ret;
> if (xf > x0) then # if number 2
> ret := 1.0;
> else
> ret := -1.0;
> fi;# end if 2;
> ret;;
> end;
check_sign := proc(x0, xf)
local ret;
if x0 < xf then ret := 1.0 else ret := -1.0 end if; ret
end proc
> # End Function number 4
> # Begin Function number 5
> est_size_answer := proc()
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> local min_size;
> min_size := glob_large_float;
> if (omniabs(array_y[1]) < min_size) then # if number 2
> min_size := omniabs(array_y[1]);
> omniout_float(ALWAYS,"min_size",32,min_size,32,"");
> fi;# end if 2;
> if (min_size < 1.0) then # if number 2
> min_size := 1.0;
> omniout_float(ALWAYS,"min_size",32,min_size,32,"");
> fi;# end if 2;
> min_size;
> end;
est_size_answer := proc()
local min_size;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
min_size := glob_large_float;
if omniabs(array_y[1]) < min_size then
min_size := omniabs(array_y[1]);
omniout_float(ALWAYS, "min_size", 32, min_size, 32, "")
end if;
if min_size < 1.0 then
min_size := 1.0;
omniout_float(ALWAYS, "min_size", 32, min_size, 32, "")
end if;
min_size
end proc
> # End Function number 5
> # Begin Function number 6
> test_suggested_h := proc()
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> local max_estimated_step_error,hn_div_ho,hn_div_ho_2,hn_div_ho_3,no_terms,est_tmp;
> max_estimated_step_error := 0.0;
> no_terms := glob_max_terms;
> hn_div_ho := 0.5;
> hn_div_ho_2 := 0.25;
> hn_div_ho_3 := 0.125;
> omniout_float(ALWAYS,"hn_div_ho",32,hn_div_ho,32,"");
> omniout_float(ALWAYS,"hn_div_ho_2",32,hn_div_ho_2,32,"");
> omniout_float(ALWAYS,"hn_div_ho_3",32,hn_div_ho_3,32,"");
> est_tmp := omniabs(array_y[no_terms-3] + array_y[no_terms - 2] * hn_div_ho + array_y[no_terms - 1] * hn_div_ho_2 + array_y[no_terms] * hn_div_ho_3);
> if (est_tmp >= max_estimated_step_error) then # if number 2
> max_estimated_step_error := est_tmp;
> fi;# end if 2;
> omniout_float(ALWAYS,"max_estimated_step_error",32,max_estimated_step_error,32,"");
> max_estimated_step_error;
> end;
test_suggested_h := proc()
local max_estimated_step_error, hn_div_ho, hn_div_ho_2, hn_div_ho_3,
no_terms, est_tmp;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
max_estimated_step_error := 0.;
no_terms := glob_max_terms;
hn_div_ho := 0.5;
hn_div_ho_2 := 0.25;
hn_div_ho_3 := 0.125;
omniout_float(ALWAYS, "hn_div_ho", 32, hn_div_ho, 32, "");
omniout_float(ALWAYS, "hn_div_ho_2", 32, hn_div_ho_2, 32, "");
omniout_float(ALWAYS, "hn_div_ho_3", 32, hn_div_ho_3, 32, "");
est_tmp := omniabs(array_y[no_terms - 3]
+ array_y[no_terms - 2]*hn_div_ho
+ array_y[no_terms - 1]*hn_div_ho_2
+ array_y[no_terms]*hn_div_ho_3);
if max_estimated_step_error <= est_tmp then
max_estimated_step_error := est_tmp
end if;
omniout_float(ALWAYS, "max_estimated_step_error", 32,
max_estimated_step_error, 32, "");
max_estimated_step_error
end proc
> # End Function number 6
> # Begin Function number 7
> reached_interval := proc()
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> local ret;
> if (glob_check_sign * (array_x[1]) >= glob_check_sign * glob_next_display) then # if number 2
> ret := true;
> else
> ret := false;
> fi;# end if 2;
> return(ret);
> end;
reached_interval := proc()
local ret;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
if glob_check_sign*glob_next_display <= glob_check_sign*array_x[1] then
ret := true
else ret := false
end if;
return ret
end proc
> # End Function number 7
> # Begin Function number 8
> display_alot := proc(iter)
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> local abserr, analytic_val_y, ind_var, numeric_val, relerr, term_no;
> #TOP DISPLAY ALOT
> if (reached_interval()) then # if number 2
> if (iter >= 0) then # if number 3
> ind_var := array_x[1];
> omniout_float(ALWAYS,"x[1] ",33,ind_var,20," ");
> analytic_val_y := exact_soln_y(ind_var);
> omniout_float(ALWAYS,"y[1] (analytic) ",33,analytic_val_y,20," ");
> term_no := 1;
> numeric_val := array_y[term_no];
> abserr := omniabs(numeric_val - analytic_val_y);
> omniout_float(ALWAYS,"y[1] (numeric) ",33,numeric_val,20," ");
> if (omniabs(analytic_val_y) <> 0.0) then # if number 4
> relerr := abserr*100.0/omniabs(analytic_val_y);
> if (relerr > 0.0000000000000000000000000000000001) then # if number 5
> glob_good_digits := -trunc(log10(relerr)) + 3;
> else
> glob_good_digits := Digits;
> fi;# end if 5;
> else
> relerr := -1.0 ;
> glob_good_digits := -1;
> fi;# end if 4;
> if (glob_iter = 1) then # if number 4
> array_1st_rel_error[1] := relerr;
> else
> array_last_rel_error[1] := relerr;
> fi;# end if 4;
> omniout_float(ALWAYS,"absolute error ",4,abserr,20," ");
> omniout_float(ALWAYS,"relative error ",4,relerr,20,"%");
> omniout_int(INFO,"Correct digits ",32,glob_good_digits,4," ")
> ;
> omniout_float(ALWAYS,"h ",4,glob_h,20," ");
> fi;# end if 3;
> #BOTTOM DISPLAY ALOT
> fi;# end if 2;
> end;
display_alot := proc(iter)
local abserr, analytic_val_y, ind_var, numeric_val, relerr, term_no;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
if reached_interval() then
if 0 <= iter then
ind_var := array_x[1];
omniout_float(ALWAYS, "x[1] ", 33,
ind_var, 20, " ");
analytic_val_y := exact_soln_y(ind_var);
omniout_float(ALWAYS, "y[1] (analytic) ", 33,
analytic_val_y, 20, " ");
term_no := 1;
numeric_val := array_y[term_no];
abserr := omniabs(numeric_val - analytic_val_y);
omniout_float(ALWAYS, "y[1] (numeric) ", 33,
numeric_val, 20, " ");
if omniabs(analytic_val_y) <> 0. then
relerr := abserr*100.0/omniabs(analytic_val_y);
if 0.1*10^(-33) < relerr then
glob_good_digits := -trunc(log10(relerr)) + 3
else glob_good_digits := Digits
end if
else relerr := -1.0; glob_good_digits := -1
end if;
if glob_iter = 1 then array_1st_rel_error[1] := relerr
else array_last_rel_error[1] := relerr
end if;
omniout_float(ALWAYS, "absolute error ", 4,
abserr, 20, " ");
omniout_float(ALWAYS, "relative error ", 4,
relerr, 20, "%");
omniout_int(INFO, "Correct digits ", 32,
glob_good_digits, 4, " ");
omniout_float(ALWAYS, "h ", 4,
glob_h, 20, " ")
end if
end if
end proc
> # End Function number 8
> # Begin Function number 9
> adjust_for_pole := proc(h_param)
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> local hnew, sz2, tmp;
> #TOP ADJUST FOR POLE
> hnew := h_param;
> glob_normmax := glob_small_float;
> if (omniabs(array_y_higher[1,1]) > glob_small_float) then # if number 2
> tmp := omniabs(array_y_higher[1,1]);
> if (tmp < glob_normmax) then # if number 3
> glob_normmax := tmp;
> fi;# end if 3
> fi;# end if 2;
> if (glob_look_poles and (omniabs(array_pole[1]) > glob_small_float) and (array_pole[1] <> glob_large_float)) then # if number 2
> sz2 := array_pole[1]/10.0;
> if (sz2 < hnew) then # if number 3
> omniout_float(INFO,"glob_h adjusted to ",20,h_param,12,"due to singularity.");
> omniout_str(INFO,"Reached Optimal");
> return(hnew);
> fi;# end if 3
> fi;# end if 2;
> if ( not glob_reached_optimal_h) then # if number 2
> glob_reached_optimal_h := true;
> glob_curr_iter_when_opt := glob_current_iter;
> glob_optimal_clock_start_sec := elapsed_time_seconds();
> glob_optimal_start := array_x[1];
> fi;# end if 2;
> hnew := sz2;
> ;#END block
> return(hnew);
> #BOTTOM ADJUST FOR POLE
> end;
adjust_for_pole := proc(h_param)
local hnew, sz2, tmp;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
hnew := h_param;
glob_normmax := glob_small_float;
if glob_small_float < omniabs(array_y_higher[1, 1]) then
tmp := omniabs(array_y_higher[1, 1]);
if tmp < glob_normmax then glob_normmax := tmp end if
end if;
if glob_look_poles and glob_small_float < omniabs(array_pole[1]) and
array_pole[1] <> glob_large_float then
sz2 := array_pole[1]/10.0;
if sz2 < hnew then
omniout_float(INFO, "glob_h adjusted to ", 20, h_param, 12,
"due to singularity.");
omniout_str(INFO, "Reached Optimal");
return hnew
end if
end if;
if not glob_reached_optimal_h then
glob_reached_optimal_h := true;
glob_curr_iter_when_opt := glob_current_iter;
glob_optimal_clock_start_sec := elapsed_time_seconds();
glob_optimal_start := array_x[1]
end if;
hnew := sz2;
return hnew
end proc
> # End Function number 9
> # Begin Function number 10
> prog_report := proc(x_start,x_end)
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> local clock_sec, opt_clock_sec, clock_sec1, expect_sec, left_sec, percent_done, total_clock_sec;
> #TOP PROGRESS REPORT
> clock_sec1 := elapsed_time_seconds();
> total_clock_sec := convfloat(clock_sec1) - convfloat(glob_orig_start_sec);
> glob_clock_sec := convfloat(clock_sec1) - convfloat(glob_clock_start_sec);
> left_sec := convfloat(glob_max_sec) + convfloat(glob_orig_start_sec) - convfloat(clock_sec1);
> expect_sec := comp_expect_sec(convfloat(x_end),convfloat(x_start),convfloat(array_x[1]) + convfloat(glob_h) ,convfloat( clock_sec1) - convfloat(glob_orig_start_sec));
> opt_clock_sec := convfloat( clock_sec1) - convfloat(glob_optimal_clock_start_sec);
> glob_optimal_expect_sec := comp_expect_sec(convfloat(x_end),convfloat(x_start),convfloat(array_x[1]) +convfloat( glob_h) ,convfloat( opt_clock_sec));
> glob_total_exp_sec := glob_optimal_expect_sec + total_clock_sec;
> percent_done := comp_percent(convfloat(x_end),convfloat(x_start),convfloat(array_x[1]) + convfloat(glob_h));
> glob_percent_done := percent_done;
> omniout_str_noeol(INFO,"Total Elapsed Time ");
> omniout_timestr(convfloat(total_clock_sec));
> omniout_str_noeol(INFO,"Elapsed Time(since restart) ");
> omniout_timestr(convfloat(glob_clock_sec));
> if (convfloat(percent_done) < convfloat(100.0)) then # if number 2
> omniout_str_noeol(INFO,"Expected Time Remaining ");
> omniout_timestr(convfloat(expect_sec));
> omniout_str_noeol(INFO,"Optimized Time Remaining ");
> omniout_timestr(convfloat(glob_optimal_expect_sec));
> omniout_str_noeol(INFO,"Expected Total Time ");
> omniout_timestr(convfloat(glob_total_exp_sec));
> fi;# end if 2;
> omniout_str_noeol(INFO,"Time to Timeout ");
> omniout_timestr(convfloat(left_sec));
> omniout_float(INFO, "Percent Done ",33,percent_done,4,"%");
> #BOTTOM PROGRESS REPORT
> end;
prog_report := proc(x_start, x_end)
local clock_sec, opt_clock_sec, clock_sec1, expect_sec, left_sec,
percent_done, total_clock_sec;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
clock_sec1 := elapsed_time_seconds();
total_clock_sec :=
convfloat(clock_sec1) - convfloat(glob_orig_start_sec);
glob_clock_sec :=
convfloat(clock_sec1) - convfloat(glob_clock_start_sec);
left_sec := convfloat(glob_max_sec) + convfloat(glob_orig_start_sec)
- convfloat(clock_sec1);
expect_sec := comp_expect_sec(convfloat(x_end), convfloat(x_start),
convfloat(array_x[1]) + convfloat(glob_h),
convfloat(clock_sec1) - convfloat(glob_orig_start_sec));
opt_clock_sec :=
convfloat(clock_sec1) - convfloat(glob_optimal_clock_start_sec);
glob_optimal_expect_sec := comp_expect_sec(convfloat(x_end),
convfloat(x_start), convfloat(array_x[1]) + convfloat(glob_h),
convfloat(opt_clock_sec));
glob_total_exp_sec := glob_optimal_expect_sec + total_clock_sec;
percent_done := comp_percent(convfloat(x_end), convfloat(x_start),
convfloat(array_x[1]) + convfloat(glob_h));
glob_percent_done := percent_done;
omniout_str_noeol(INFO, "Total Elapsed Time ");
omniout_timestr(convfloat(total_clock_sec));
omniout_str_noeol(INFO, "Elapsed Time(since restart) ");
omniout_timestr(convfloat(glob_clock_sec));
if convfloat(percent_done) < convfloat(100.0) then
omniout_str_noeol(INFO, "Expected Time Remaining ");
omniout_timestr(convfloat(expect_sec));
omniout_str_noeol(INFO, "Optimized Time Remaining ");
omniout_timestr(convfloat(glob_optimal_expect_sec));
omniout_str_noeol(INFO, "Expected Total Time ");
omniout_timestr(convfloat(glob_total_exp_sec))
end if;
omniout_str_noeol(INFO, "Time to Timeout ");
omniout_timestr(convfloat(left_sec));
omniout_float(INFO, "Percent Done ", 33,
percent_done, 4, "%")
end proc
> # End Function number 10
> # Begin Function number 11
> check_for_pole := proc()
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> local cnt, dr1, dr2, ds1, ds2, hdrc, m, n, nr1, nr2, ord_no, rad_c, rcs, rm0, rm1, rm2, rm3, rm4, found_sing, h_new, ratio, term, local_test, tmp_rad, tmp_ratio, prev_tmp_rad;
> #TOP CHECK FOR POLE
> array_pole[1] := glob_large_float;
> array_pole[2] := glob_large_float;
> tmp_rad := glob_large_float;
> prev_tmp_rad := glob_large_float;
> tmp_ratio := glob_large_float;
> rad_c := glob_large_float;
> array_poles[1,1] := glob_large_float;
> array_poles[1,2] := glob_large_float;
> #TOP radius ratio test in Henrici1
> found_sing := 1;
> n := glob_max_terms - 1 - 10;
> cnt := 0;
> while ((cnt < 5) and (found_sing = 1)) do # do number 1
> if ((omniabs(array_y_higher[1,n]) = 0.0) or (omniabs(array_y_higher[1,n+1]) = 0.0)) then # if number 2
> found_sing := 0;
> else
> tmp_rad := omniabs(array_y_higher[1,n] * glob_h / array_y_higher[1,n + 1]);
> tmp_ratio := tmp_rad / prev_tmp_rad;
> if ((cnt > 0 ) and (tmp_ratio < 2.0) and (tmp_ratio > 0.5)) then # if number 3
> if (tmp_rad < rad_c) then # if number 4
> rad_c := tmp_rad;
> fi;# end if 4;
> elif
> (cnt = 0) then # if number 4
> if (tmp_rad < rad_c) then # if number 5
> rad_c := tmp_rad;
> fi;# end if 5;
> elif
> (cnt > 0) then # if number 5
> found_sing := 0;
> fi;# end if 5
> fi;# end if 4;
> prev_tmp_rad := tmp_rad;;
> cnt := cnt + 1;
> n := n + 1;
> od;# end do number 1;
> if (found_sing = 1) then # if number 4
> if (rad_c < array_pole[1]) then # if number 5
> array_pole[1] := rad_c;
> array_poles[1,1] := rad_c;
> fi;# end if 5;
> fi;# end if 4;
> #BOTTOM radius ratio test in Henrici1
> #IN RADII REAL EQ = 1
> #Computes radius of convergence and r_order of pole from 3 adjacent Taylor series terms. EQUATUON NUMBER 1
> #Applies to pole of arbitrary r_order on the real axis,
> #Due to Prof. George Corliss.
> n := glob_max_terms;
> m := n - 1 - 1;
> while ((m >= 10) and ((omniabs(array_y_higher[1,m]) = 0.0) or (omniabs(array_y_higher[1,m-1]) = 0.0) or (omniabs(array_y_higher[1,m-2]) = 0.0))) do # do number 1
> m := m - 1;
> od;# end do number 1;
> if (m > 10) then # if number 4
> rm0 := array_y_higher[1,m]/array_y_higher[1,m-1];
> rm1 := array_y_higher[1,m-1]/array_y_higher[1,m-2];
> hdrc := convfloat(m)*rm0-convfloat(m-1)*rm1;
> if (omniabs(hdrc) > 0.0) then # if number 5
> rcs := glob_h/hdrc;
> ord_no := (rm1*convfloat((m-2)*(m-2))-rm0*convfloat(m-3))/hdrc;
> array_real_poles[1,1] := rcs;
> array_real_poles[1,2] := ord_no;
> else
> array_real_poles[1,1] := glob_large_float;
> array_real_poles[1,2] := glob_large_float;
> fi;# end if 5
> else
> array_real_poles[1,1] := glob_large_float;
> array_real_poles[1,2] := glob_large_float;
> fi;# end if 4;
> #BOTTOM RADII REAL EQ = 1
> #TOP RADII COMPLEX EQ = 1
> #Computes radius of convergence for complex conjugate pair of poles.
> #from 6 adjacent Taylor series terms
> #Also computes r_order of poles.
> #Due to Manuel Prieto.
> #With a correction by Dennis J. Darland
> n := glob_max_terms - 1 - 1;
> cnt := 0;
> while ((cnt < 5) and (n >= 10)) do # do number 1
> if (omniabs(array_y_higher[1,n]) <> 0.0) then # if number 4
> cnt := cnt + 1;
> else
> cnt := 0;
> fi;# end if 4;
> n := n - 1;
> od;# end do number 1;
> m := n + cnt;
> if (m <= 10) then # if number 4
> rad_c := glob_large_float;
> ord_no := glob_large_float;
> else
> rm0 := (array_y_higher[1,m])/(array_y_higher[1,m-1]);
> rm1 := (array_y_higher[1,m-1])/(array_y_higher[1,m-2]);
> rm2 := (array_y_higher[1,m-2])/(array_y_higher[1,m-3]);
> rm3 := (array_y_higher[1,m-3])/(array_y_higher[1,m-4]);
> rm4 := (array_y_higher[1,m-4])/(array_y_higher[1,m-5]);
> nr1 := convfloat(m-1)*rm0 - 2.0*convfloat(m-2)*rm1 + convfloat(m-3)*rm2;
> nr2 := convfloat(m-2)*rm1 - 2.0*convfloat(m-3)*rm2 + convfloat(m-4)*rm3;
> dr1 := (-1.0)/rm1 + 2.0/rm2 - 1.0/rm3;
> dr2 := (-1.0)/rm2 + 2.0/rm3 - 1.0/rm4;
> ds1 := 3.0/rm1 - 8.0/rm2 + 5.0/rm3;
> ds2 := 3.0/rm2 - 8.0/rm3 + 5.0/rm4;
> if ((omniabs(nr1 * dr2 - nr2 * dr1) = 0.0) or (omniabs(dr1) = 0.0)) then # if number 5
> rad_c := glob_large_float;
> ord_no := glob_large_float;
> else
> if (omniabs(nr1*dr2 - nr2 * dr1) <> 0.0) then # if number 6
> rcs := ((ds1*dr2 - ds2*dr1 +dr1*dr2)/(nr1*dr2 - nr2 * dr1));
> #(Manuels) rcs := (ds1*dr2 - ds2*dr1)/(nr1*dr2 - nr2 * dr1)
> ord_no := (rcs*nr1 - ds1)/(2.0*dr1) -convfloat(m)/2.0;
> if (omniabs(rcs) <> 0.0) then # if number 7
> if (rcs > 0.0) then # if number 8
> rad_c := sqrt(rcs) * omniabs(glob_h);
> else
> rad_c := glob_large_float;
> fi;# end if 8
> else
> rad_c := glob_large_float;
> ord_no := glob_large_float;
> fi;# end if 7
> else
> rad_c := glob_large_float;
> ord_no := glob_large_float;
> fi;# end if 6
> fi;# end if 5;
> array_complex_poles[1,1] := rad_c;
> array_complex_poles[1,2] := ord_no;
> fi;# end if 4;
> #BOTTOM RADII COMPLEX EQ = 1
> #START ADJUST ALL SERIES
> if (array_pole[1] * glob_ratio_of_radius < omniabs(glob_h)) then # if number 4
> h_new := array_pole[1] * glob_ratio_of_radius;
> term := 1;
> ratio := 1.0;
> while (term <= glob_max_terms) do # do number 1
> array_y[term] := array_y[term]* ratio;
> array_y_higher[1,term] := array_y_higher[1,term]* ratio;
> array_x[term] := array_x[term]* ratio;
> ratio := ratio * h_new / omniabs(glob_h);
> term := term + 1;
> od;# end do number 1;
> glob_h := h_new;
> fi;# end if 4;
> #BOTTOM ADJUST ALL SERIES
> ;
> if (reached_interval()) then # if number 4
> display_poles();
> fi;# end if 4
> end;
check_for_pole := proc()
local cnt, dr1, dr2, ds1, ds2, hdrc, m, n, nr1, nr2, ord_no, rad_c, rcs,
rm0, rm1, rm2, rm3, rm4, found_sing, h_new, ratio, term, local_test,
tmp_rad, tmp_ratio, prev_tmp_rad;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
array_pole[1] := glob_large_float;
array_pole[2] := glob_large_float;
tmp_rad := glob_large_float;
prev_tmp_rad := glob_large_float;
tmp_ratio := glob_large_float;
rad_c := glob_large_float;
array_poles[1, 1] := glob_large_float;
array_poles[1, 2] := glob_large_float;
found_sing := 1;
n := glob_max_terms - 11;
cnt := 0;
while cnt < 5 and found_sing = 1 do
if omniabs(array_y_higher[1, n]) = 0. or
omniabs(array_y_higher[1, n + 1]) = 0. then found_sing := 0
else
tmp_rad := omniabs(
array_y_higher[1, n]*glob_h/array_y_higher[1, n + 1]);
tmp_ratio := tmp_rad/prev_tmp_rad;
if 0 < cnt and tmp_ratio < 2.0 and 0.5 < tmp_ratio then
if tmp_rad < rad_c then rad_c := tmp_rad end if
elif cnt = 0 then
if tmp_rad < rad_c then rad_c := tmp_rad end if
elif 0 < cnt then found_sing := 0
end if
end if;
prev_tmp_rad := tmp_rad;
cnt := cnt + 1;
n := n + 1
end do;
if found_sing = 1 then
if rad_c < array_pole[1] then
array_pole[1] := rad_c; array_poles[1, 1] := rad_c
end if
end if;
n := glob_max_terms;
m := n - 2;
while 10 <= m and (omniabs(array_y_higher[1, m]) = 0. or
omniabs(array_y_higher[1, m - 1]) = 0. or
omniabs(array_y_higher[1, m - 2]) = 0.) do m := m - 1
end do;
if 10 < m then
rm0 := array_y_higher[1, m]/array_y_higher[1, m - 1];
rm1 := array_y_higher[1, m - 1]/array_y_higher[1, m - 2];
hdrc := convfloat(m)*rm0 - convfloat(m - 1)*rm1;
if 0. < omniabs(hdrc) then
rcs := glob_h/hdrc;
ord_no := (
rm1*convfloat((m - 2)*(m - 2)) - rm0*convfloat(m - 3))/hdrc
;
array_real_poles[1, 1] := rcs;
array_real_poles[1, 2] := ord_no
else
array_real_poles[1, 1] := glob_large_float;
array_real_poles[1, 2] := glob_large_float
end if
else
array_real_poles[1, 1] := glob_large_float;
array_real_poles[1, 2] := glob_large_float
end if;
n := glob_max_terms - 2;
cnt := 0;
while cnt < 5 and 10 <= n do
if omniabs(array_y_higher[1, n]) <> 0. then cnt := cnt + 1
else cnt := 0
end if;
n := n - 1
end do;
m := n + cnt;
if m <= 10 then rad_c := glob_large_float; ord_no := glob_large_float
else
rm0 := array_y_higher[1, m]/array_y_higher[1, m - 1];
rm1 := array_y_higher[1, m - 1]/array_y_higher[1, m - 2];
rm2 := array_y_higher[1, m - 2]/array_y_higher[1, m - 3];
rm3 := array_y_higher[1, m - 3]/array_y_higher[1, m - 4];
rm4 := array_y_higher[1, m - 4]/array_y_higher[1, m - 5];
nr1 := convfloat(m - 1)*rm0 - 2.0*convfloat(m - 2)*rm1
+ convfloat(m - 3)*rm2;
nr2 := convfloat(m - 2)*rm1 - 2.0*convfloat(m - 3)*rm2
+ convfloat(m - 4)*rm3;
dr1 := (-1)*(1.0)/rm1 + 2.0/rm2 - 1.0/rm3;
dr2 := (-1)*(1.0)/rm2 + 2.0/rm3 - 1.0/rm4;
ds1 := 3.0/rm1 - 8.0/rm2 + 5.0/rm3;
ds2 := 3.0/rm2 - 8.0/rm3 + 5.0/rm4;
if omniabs(nr1*dr2 - nr2*dr1) = 0. or omniabs(dr1) = 0. then
rad_c := glob_large_float; ord_no := glob_large_float
else
if omniabs(nr1*dr2 - nr2*dr1) <> 0. then
rcs := (ds1*dr2 - ds2*dr1 + dr1*dr2)/(nr1*dr2 - nr2*dr1);
ord_no := (rcs*nr1 - ds1)/(2.0*dr1) - convfloat(m)/2.0;
if omniabs(rcs) <> 0. then
if 0. < rcs then rad_c := sqrt(rcs)*omniabs(glob_h)
else rad_c := glob_large_float
end if
else rad_c := glob_large_float; ord_no := glob_large_float
end if
else rad_c := glob_large_float; ord_no := glob_large_float
end if
end if;
array_complex_poles[1, 1] := rad_c;
array_complex_poles[1, 2] := ord_no
end if;
if array_pole[1]*glob_ratio_of_radius < omniabs(glob_h) then
h_new := array_pole[1]*glob_ratio_of_radius;
term := 1;
ratio := 1.0;
while term <= glob_max_terms do
array_y[term] := array_y[term]*ratio;
array_y_higher[1, term] := array_y_higher[1, term]*ratio;
array_x[term] := array_x[term]*ratio;
ratio := ratio*h_new/omniabs(glob_h);
term := term + 1
end do;
glob_h := h_new
end if;
if reached_interval() then display_poles() end if
end proc
> # End Function number 11
> # Begin Function number 12
> get_norms := proc()
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> local iii;
> if ( not glob_initial_pass) then # if number 4
> iii := 1;
> while (iii <= glob_max_terms) do # do number 1
> array_norms[iii] := 0.0;
> iii := iii + 1;
> od;# end do number 1;
> #TOP GET NORMS
> iii := 1;
> while (iii <= glob_max_terms) do # do number 1
> if (omniabs(array_y[iii]) > array_norms[iii]) then # if number 5
> array_norms[iii] := omniabs(array_y[iii]);
> fi;# end if 5;
> iii := iii + 1;
> od;# end do number 1
> #BOTTOM GET NORMS
> ;
> fi;# end if 4;
> end;
get_norms := proc()
local iii;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
if not glob_initial_pass then
iii := 1;
while iii <= glob_max_terms do
array_norms[iii] := 0.; iii := iii + 1
end do;
iii := 1;
while iii <= glob_max_terms do
if array_norms[iii] < omniabs(array_y[iii]) then
array_norms[iii] := omniabs(array_y[iii])
end if;
iii := iii + 1
end do
end if
end proc
> # End Function number 12
> # Begin Function number 13
> atomall := proc()
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> local kkk, order_d, adj2, adj3 , temporary, term;
> #TOP ATOMALL
> #END OUTFILE1
> #BEGIN ATOMHDR1
> #emit pre mult CONST - LINEAR $eq_no = 1 i = 1
> array_tmp1[1] := array_const_0D2[1] * array_x[1];
> #emit pre add LINEAR - CONST $eq_no = 1 i = 1
> array_tmp2[1] := array_tmp1[1] + array_const_0D3[1];
> #emit pre expt LINEAR - CONST $eq_no = 1 iii = 1
> array_tmp3[1] := expt(array_tmp2[1] , array_const_2D0[1]);
> #emit pre add CONST FULL $eq_no = 1 i = 1
> array_tmp4[1] := array_const_0D0[1] + array_tmp3[1];
> #emit pre assign xxx $eq_no = 1 i = 1 $min_hdrs = 5
> if ( not array_y_set_initial[1,2]) then # if number 1
> if (1 <= glob_max_terms) then # if number 2
> temporary := array_tmp4[1] * expt(glob_h , (1)) * factorial_3(0,1);
> array_y[2] := temporary;
> array_y_higher[1,2] := temporary;
> temporary := temporary / glob_h * (1.0);
> array_y_higher[2,1] := temporary;
> fi;# end if 2;
> fi;# end if 1;
> kkk := 2;
> #END ATOMHDR1
> #BEGIN ATOMHDR2
> #emit pre mult CONST - LINEAR $eq_no = 1 i = 2
> array_tmp1[2] := array_const_0D2[1] * array_x[2];
> #emit pre add LINEAR - CONST $eq_no = 1 i = 2
> array_tmp2[2] := array_tmp1[2];
> #emit pre expt LINEAR - CONST $eq_no = 1 i = 2
> array_tmp3[2] := (array_const_2D0[1] - 0) * array_tmp2[2] * array_tmp3[1] / array_tmp2[1] / 1;
> #emit pre add CONST FULL $eq_no = 1 i = 2
> array_tmp4[2] := array_tmp3[2];
> #emit pre assign xxx $eq_no = 1 i = 2 $min_hdrs = 5
> if ( not array_y_set_initial[1,3]) then # if number 1
> if (2 <= glob_max_terms) then # if number 2
> temporary := array_tmp4[2] * expt(glob_h , (1)) * factorial_3(1,2);
> array_y[3] := temporary;
> array_y_higher[1,3] := temporary;
> temporary := temporary / glob_h * (2.0);
> array_y_higher[2,2] := temporary;
> fi;# end if 2;
> fi;# end if 1;
> kkk := 3;
> #END ATOMHDR2
> #BEGIN ATOMHDR3
> #emit pre expt LINEAR - CONST $eq_no = 1 i = 3
> array_tmp3[3] := (array_const_2D0[1] - 1) * array_tmp2[2] * array_tmp3[2] / array_tmp2[1] / 2;
> #emit pre add CONST FULL $eq_no = 1 i = 3
> array_tmp4[3] := array_tmp3[3];
> #emit pre assign xxx $eq_no = 1 i = 3 $min_hdrs = 5
> if ( not array_y_set_initial[1,4]) then # if number 1
> if (3 <= glob_max_terms) then # if number 2
> temporary := array_tmp4[3] * expt(glob_h , (1)) * factorial_3(2,3);
> array_y[4] := temporary;
> array_y_higher[1,4] := temporary;
> temporary := temporary / glob_h * (3.0);
> array_y_higher[2,3] := temporary;
> fi;# end if 2;
> fi;# end if 1;
> kkk := 4;
> #END ATOMHDR3
> #BEGIN ATOMHDR4
> #emit pre expt LINEAR - CONST $eq_no = 1 i = 4
> array_tmp3[4] := (array_const_2D0[1] - 2) * array_tmp2[2] * array_tmp3[3] / array_tmp2[1] / 3;
> #emit pre add CONST FULL $eq_no = 1 i = 4
> array_tmp4[4] := array_tmp3[4];
> #emit pre assign xxx $eq_no = 1 i = 4 $min_hdrs = 5
> if ( not array_y_set_initial[1,5]) then # if number 1
> if (4 <= glob_max_terms) then # if number 2
> temporary := array_tmp4[4] * expt(glob_h , (1)) * factorial_3(3,4);
> array_y[5] := temporary;
> array_y_higher[1,5] := temporary;
> temporary := temporary / glob_h * (4.0);
> array_y_higher[2,4] := temporary;
> fi;# end if 2;
> fi;# end if 1;
> kkk := 5;
> #END ATOMHDR4
> #BEGIN ATOMHDR5
> #emit pre expt LINEAR - CONST $eq_no = 1 i = 5
> array_tmp3[5] := (array_const_2D0[1] - 3) * array_tmp2[2] * array_tmp3[4] / array_tmp2[1] / 4;
> #emit pre add CONST FULL $eq_no = 1 i = 5
> array_tmp4[5] := array_tmp3[5];
> #emit pre assign xxx $eq_no = 1 i = 5 $min_hdrs = 5
> if ( not array_y_set_initial[1,6]) then # if number 1
> if (5 <= glob_max_terms) then # if number 2
> temporary := array_tmp4[5] * expt(glob_h , (1)) * factorial_3(4,5);
> array_y[6] := temporary;
> array_y_higher[1,6] := temporary;
> temporary := temporary / glob_h * (5.0);
> array_y_higher[2,5] := temporary;
> fi;# end if 2;
> fi;# end if 1;
> kkk := 6;
> #END ATOMHDR5
> #BEGIN OUTFILE3
> #Top Atomall While Loop-- outfile3
> while (kkk <= glob_max_terms) do # do number 1
> #END OUTFILE3
> #BEGIN OUTFILE4
> #emit expt LINEAR CONST (NOP) $eq_no = 1 i = 1
> array_tmp3[kkk] := (array_const_2D0[1] - (kkk-2)) * array_tmp2[2] * array_tmp3[kkk-1] / array_tmp2[1] / (kkk-1);
> #emit NOT FULL - FULL add $eq_no = 1
> array_tmp4[kkk] := array_tmp3[kkk];
> #emit assign $eq_no = 1
> order_d := 1;
> if (kkk + order_d < glob_max_terms) then # if number 1
> if ( not array_y_set_initial[1,kkk + order_d]) then # if number 2
> temporary := array_tmp4[kkk] * expt(glob_h , (order_d)) * factorial_3((kkk - 1),(kkk + order_d - 1));
> array_y[kkk + order_d] := temporary;
> array_y_higher[1,kkk + order_d] := temporary;
> term := kkk + order_d - 1;
> adj2 := kkk + order_d - 1;
> adj3 := 2;
> while (term >= 1) do # do number 1
> if (adj3 <= order_d + 1) then # if number 3
> if (adj2 > 0) then # if number 4
> temporary := temporary / glob_h * convfp(adj2);
> else
> temporary := temporary;
> fi;# end if 4;
> array_y_higher[adj3,term] := temporary;
> fi;# end if 3;
> term := term - 1;
> adj2 := adj2 - 1;
> adj3 := adj3 + 1;
> od;# end do number 1
> fi;# end if 2
> fi;# end if 1;
> kkk := kkk + 1;
> od;# end do number 1;
> #BOTTOM ATOMALL
> #END OUTFILE4
> #BEGIN OUTFILE5
> #BOTTOM ATOMALL ???
> end;
atomall := proc()
local kkk, order_d, adj2, adj3, temporary, term;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
array_tmp1[1] := array_const_0D2[1]*array_x[1];
array_tmp2[1] := array_tmp1[1] + array_const_0D3[1];
array_tmp3[1] := expt(array_tmp2[1], array_const_2D0[1]);
array_tmp4[1] := array_const_0D0[1] + array_tmp3[1];
if not array_y_set_initial[1, 2] then
if 1 <= glob_max_terms then
temporary := array_tmp4[1]*expt(glob_h, 1)*factorial_3(0, 1);
array_y[2] := temporary;
array_y_higher[1, 2] := temporary;
temporary := temporary*1.0/glob_h;
array_y_higher[2, 1] := temporary
end if
end if;
kkk := 2;
array_tmp1[2] := array_const_0D2[1]*array_x[2];
array_tmp2[2] := array_tmp1[2];
array_tmp3[2] :=
array_const_2D0[1]*array_tmp2[2]*array_tmp3[1]/array_tmp2[1];
array_tmp4[2] := array_tmp3[2];
if not array_y_set_initial[1, 3] then
if 2 <= glob_max_terms then
temporary := array_tmp4[2]*expt(glob_h, 1)*factorial_3(1, 2);
array_y[3] := temporary;
array_y_higher[1, 3] := temporary;
temporary := temporary*2.0/glob_h;
array_y_higher[2, 2] := temporary
end if
end if;
kkk := 3;
array_tmp3[3] := 1/2*
(array_const_2D0[1] - 1)*array_tmp2[2]*array_tmp3[2]/array_tmp2[1];
array_tmp4[3] := array_tmp3[3];
if not array_y_set_initial[1, 4] then
if 3 <= glob_max_terms then
temporary := array_tmp4[3]*expt(glob_h, 1)*factorial_3(2, 3);
array_y[4] := temporary;
array_y_higher[1, 4] := temporary;
temporary := temporary*3.0/glob_h;
array_y_higher[2, 3] := temporary
end if
end if;
kkk := 4;
array_tmp3[4] := 1/3*
(array_const_2D0[1] - 2)*array_tmp2[2]*array_tmp3[3]/array_tmp2[1];
array_tmp4[4] := array_tmp3[4];
if not array_y_set_initial[1, 5] then
if 4 <= glob_max_terms then
temporary := array_tmp4[4]*expt(glob_h, 1)*factorial_3(3, 4);
array_y[5] := temporary;
array_y_higher[1, 5] := temporary;
temporary := temporary*4.0/glob_h;
array_y_higher[2, 4] := temporary
end if
end if;
kkk := 5;
array_tmp3[5] := 1/4*
(array_const_2D0[1] - 3)*array_tmp2[2]*array_tmp3[4]/array_tmp2[1];
array_tmp4[5] := array_tmp3[5];
if not array_y_set_initial[1, 6] then
if 5 <= glob_max_terms then
temporary := array_tmp4[5]*expt(glob_h, 1)*factorial_3(4, 5);
array_y[6] := temporary;
array_y_higher[1, 6] := temporary;
temporary := temporary*5.0/glob_h;
array_y_higher[2, 5] := temporary
end if
end if;
kkk := 6;
while kkk <= glob_max_terms do
array_tmp3[kkk] := (array_const_2D0[1] - kkk + 2)*array_tmp2[2]*
array_tmp3[kkk - 1]/(array_tmp2[1]*(kkk - 1));
array_tmp4[kkk] := array_tmp3[kkk];
order_d := 1;
if kkk + order_d < glob_max_terms then
if not array_y_set_initial[1, kkk + order_d] then
temporary := array_tmp4[kkk]*expt(glob_h, order_d)*
factorial_3(kkk - 1, kkk + order_d - 1);
array_y[kkk + order_d] := temporary;
array_y_higher[1, kkk + order_d] := temporary;
term := kkk + order_d - 1;
adj2 := kkk + order_d - 1;
adj3 := 2;
while 1 <= term do
if adj3 <= order_d + 1 then
if 0 < adj2 then
temporary := temporary*convfp(adj2)/glob_h
else temporary := temporary
end if;
array_y_higher[adj3, term] := temporary
end if;
term := term - 1;
adj2 := adj2 - 1;
adj3 := adj3 + 1
end do
end if
end if;
kkk := kkk + 1
end do
end proc
> # End Function number 13
> #BEGIN ATS LIBRARY BLOCK
> # Begin Function number 2
> omniout_str := proc(iolevel,str)
> global glob_iolevel;
> if (glob_iolevel >= iolevel) then # if number 1
> printf("%s\n",str);
> fi;# end if 1;
> end;
omniout_str := proc(iolevel, str)
global glob_iolevel;
if iolevel <= glob_iolevel then printf("%s
", str)
end if
end proc
> # End Function number 2
> # Begin Function number 3
> omniout_str_noeol := proc(iolevel,str)
> global glob_iolevel;
> if (glob_iolevel >= iolevel) then # if number 1
> printf("%s",str);
> fi;# end if 1;
> end;
omniout_str_noeol := proc(iolevel, str)
global glob_iolevel;
if iolevel <= glob_iolevel then printf("%s", str) end if
end proc
> # End Function number 3
> # Begin Function number 4
> omniout_labstr := proc(iolevel,label,str)
> global glob_iolevel;
> if (glob_iolevel >= iolevel) then # if number 1
> print(label,str);
> fi;# end if 1;
> end;
omniout_labstr := proc(iolevel, label, str)
global glob_iolevel;
if iolevel <= glob_iolevel then print(label, str) end if
end proc
> # End Function number 4
> # Begin Function number 5
> omniout_float := proc(iolevel,prelabel,prelen,value,vallen,postlabel)
> global glob_iolevel;
> if (glob_iolevel >= iolevel) then # if number 1
> if vallen = 4 then
> printf("%-30s = %-42.4g %s \n",prelabel,value, postlabel);
> else
> printf("%-30s = %-42.32g %s \n",prelabel,value, postlabel);
> fi;# end if 1;
> fi;# end if 0;
> end;
omniout_float := proc(iolevel, prelabel, prelen, value, vallen, postlabel)
global glob_iolevel;
if iolevel <= glob_iolevel then
if vallen = 4 then printf("%-30s = %-42.4g %s
", prelabel, value, postlabel)
else printf("%-30s = %-42.32g %s
", prelabel, value, postlabel)
end if
end if
end proc
> # End Function number 5
> # Begin Function number 6
> omniout_int := proc(iolevel,prelabel,prelen,value,vallen,postlabel)
> global glob_iolevel;
> if (glob_iolevel >= iolevel) then # if number 0
> if vallen = 5 then # if number 1
> printf("%-30s = %-32d %s\n",prelabel,value, postlabel);
> else
> printf("%-30s = %-32d %s \n",prelabel,value, postlabel);
> fi;# end if 1;
> fi;# end if 0;
> end;
omniout_int := proc(iolevel, prelabel, prelen, value, vallen, postlabel)
global glob_iolevel;
if iolevel <= glob_iolevel then
if vallen = 5 then printf("%-30s = %-32d %s
", prelabel, value, postlabel)
else printf("%-30s = %-32d %s
", prelabel, value, postlabel)
end if
end if
end proc
> # End Function number 6
> # Begin Function number 7
> omniout_float_arr := proc(iolevel,prelabel,elemnt,prelen,value,vallen,postlabel)
> global glob_iolevel;
> if (glob_iolevel >= iolevel) then # if number 0
> print(prelabel,"[",elemnt,"]",value, postlabel);
> fi;# end if 0;
> end;
omniout_float_arr := proc(
iolevel, prelabel, elemnt, prelen, value, vallen, postlabel)
global glob_iolevel;
if iolevel <= glob_iolevel then
print(prelabel, "[", elemnt, "]", value, postlabel)
end if
end proc
> # End Function number 7
> # Begin Function number 8
> dump_series := proc(iolevel,dump_label,series_name,arr_series,numb)
> global glob_iolevel;
> local i;
> if (glob_iolevel >= iolevel) then # if number 0
> i := 1;
> while (i <= numb) do # do number 1
> print(dump_label,series_name
> ,i,arr_series[i]);
> i := i + 1;
> od;# end do number 1
> fi;# end if 0
> end;
dump_series := proc(iolevel, dump_label, series_name, arr_series, numb)
local i;
global glob_iolevel;
if iolevel <= glob_iolevel then
i := 1;
while i <= numb do
print(dump_label, series_name, i, arr_series[i]); i := i + 1
end do
end if
end proc
> # End Function number 8
> # Begin Function number 9
> dump_series_2 := proc(iolevel,dump_label,series_name2,arr_series2,numb,subnum,arr_x)
> global glob_iolevel;
> local i,sub,ts_term;
> if (glob_iolevel >= iolevel) then # if number 0
> sub := 1;
> while (sub <= subnum) do # do number 1
> i := 1;
> while (i <= numb) do # do number 2
> print(dump_label,series_name2,sub,i,arr_series2[sub,i]);
> od;# end do number 2;
> sub := sub + 1;
> od;# end do number 1;
> fi;# end if 0;
> end;
dump_series_2 := proc(
iolevel, dump_label, series_name2, arr_series2, numb, subnum, arr_x)
local i, sub, ts_term;
global glob_iolevel;
if iolevel <= glob_iolevel then
sub := 1;
while sub <= subnum do
i := 1;
while i <= numb do print(dump_label, series_name2, sub, i,
arr_series2[sub, i])
end do;
sub := sub + 1
end do
end if
end proc
> # End Function number 9
> # Begin Function number 10
> cs_info := proc(iolevel,str)
> global glob_iolevel,glob_correct_start_flag,glob_h,glob_reached_optimal_h;
> if (glob_iolevel >= iolevel) then # if number 0
> print("cs_info " , str , " glob_correct_start_flag = " , glob_correct_start_flag , "glob_h := " , glob_h , "glob_reached_optimal_h := " , glob_reached_optimal_h)
> fi;# end if 0;
> end;
cs_info := proc(iolevel, str)
global
glob_iolevel, glob_correct_start_flag, glob_h, glob_reached_optimal_h;
if iolevel <= glob_iolevel then print("cs_info ", str,
" glob_correct_start_flag = ", glob_correct_start_flag,
"glob_h := ", glob_h, "glob_reached_optimal_h := ",
glob_reached_optimal_h)
end if
end proc
> # End Function number 10
> # Begin Function number 11
> logitem_time := proc(fd,secs_in)
> global glob_sec_in_day, glob_sec_in_hour, glob_sec_in_minute, glob_sec_in_year;
> local days_int, hours_int,minutes_int, sec_int, sec_temp, years_int;
> fprintf(fd,"
");
> if (secs_in >= 0) then # if number 0
> years_int := trunc(secs_in / glob_sec_in_year);
> sec_temp := (trunc(secs_in) mod trunc(glob_sec_in_year));
> days_int := trunc(sec_temp / glob_sec_in_day) ;
> sec_temp := (sec_temp mod trunc(glob_sec_in_day)) ;
> hours_int := trunc(sec_temp / glob_sec_in_hour);
> sec_temp := (sec_temp mod trunc(glob_sec_in_hour));
> minutes_int := trunc(sec_temp / glob_sec_in_minute);
> sec_int := (sec_temp mod trunc(glob_sec_in_minute));
> if (years_int > 0) then # if number 1
> fprintf(fd,"%d Years %d Days %d Hours %d Minutes %d Seconds",years_int,days_int,hours_int,minutes_int,sec_int);
> elif
> (days_int > 0) then # if number 2
> fprintf(fd,"%d Days %d Hours %d Minutes %d Seconds",days_int,hours_int,minutes_int,sec_int);
> elif
> (hours_int > 0) then # if number 3
> fprintf(fd,"%d Hours %d Minutes %d Seconds",hours_int,minutes_int,sec_int);
> elif
> (minutes_int > 0) then # if number 4
> fprintf(fd,"%d Minutes %d Seconds",minutes_int,sec_int);
> else
> fprintf(fd,"%d Seconds",sec_int);
> fi;# end if 4
> else
> fprintf(fd," Unknown");
> fi;# end if 3
> fprintf(fd," | \n");
> end;
logitem_time := proc(fd, secs_in)
local days_int, hours_int, minutes_int, sec_int, sec_temp, years_int;
global
glob_sec_in_day, glob_sec_in_hour, glob_sec_in_minute, glob_sec_in_year;
fprintf(fd, "");
if 0 <= secs_in then
years_int := trunc(secs_in/glob_sec_in_year);
sec_temp := trunc(secs_in) mod trunc(glob_sec_in_year);
days_int := trunc(sec_temp/glob_sec_in_day);
sec_temp := sec_temp mod trunc(glob_sec_in_day);
hours_int := trunc(sec_temp/glob_sec_in_hour);
sec_temp := sec_temp mod trunc(glob_sec_in_hour);
minutes_int := trunc(sec_temp/glob_sec_in_minute);
sec_int := sec_temp mod trunc(glob_sec_in_minute);
if 0 < years_int then fprintf(fd,
"%d Years %d Days %d Hours %d Minutes %d Seconds", years_int,
days_int, hours_int, minutes_int, sec_int)
elif 0 < days_int then fprintf(fd,
"%d Days %d Hours %d Minutes %d Seconds", days_int, hours_int,
minutes_int, sec_int)
elif 0 < hours_int then fprintf(fd,
"%d Hours %d Minutes %d Seconds", hours_int, minutes_int,
sec_int)
elif 0 < minutes_int then
fprintf(fd, "%d Minutes %d Seconds", minutes_int, sec_int)
else fprintf(fd, "%d Seconds", sec_int)
end if
else fprintf(fd, " Unknown")
end if;
fprintf(fd, " |
")
end proc
> # End Function number 11
> # Begin Function number 12
> omniout_timestr := proc(secs_in)
> global glob_sec_in_day, glob_sec_in_hour, glob_sec_in_minute, glob_sec_in_year;
> local days_int, hours_int,minutes_int, sec_int, sec_temp, years_int;
> if (secs_in >= 0) then # if number 3
> years_int := trunc(secs_in / glob_sec_in_year);
> sec_temp := (trunc(secs_in) mod trunc(glob_sec_in_year));
> days_int := trunc(sec_temp / glob_sec_in_day) ;
> sec_temp := (sec_temp mod trunc(glob_sec_in_day)) ;
> hours_int := trunc(sec_temp / glob_sec_in_hour);
> sec_temp := (sec_temp mod trunc(glob_sec_in_hour));
> minutes_int := trunc(sec_temp / glob_sec_in_minute);
> sec_int := (sec_temp mod trunc(glob_sec_in_minute));
> if (years_int > 0) then # if number 4
> printf(" = %d Years %d Days %d Hours %d Minutes %d Seconds\n",years_int,days_int,hours_int,minutes_int,sec_int);
> elif
> (days_int > 0) then # if number 5
> printf(" = %d Days %d Hours %d Minutes %d Seconds\n",days_int,hours_int,minutes_int,sec_int);
> elif
> (hours_int > 0) then # if number 6
> printf(" = %d Hours %d Minutes %d Seconds\n",hours_int,minutes_int,sec_int);
> elif
> (minutes_int > 0) then # if number 7
> printf(" = %d Minutes %d Seconds\n",minutes_int,sec_int);
> else
> printf(" = %d Seconds\n",sec_int);
> fi;# end if 7
> else
> printf(" Unknown\n");
> fi;# end if 6
> end;
omniout_timestr := proc(secs_in)
local days_int, hours_int, minutes_int, sec_int, sec_temp, years_int;
global
glob_sec_in_day, glob_sec_in_hour, glob_sec_in_minute, glob_sec_in_year;
if 0 <= secs_in then
years_int := trunc(secs_in/glob_sec_in_year);
sec_temp := trunc(secs_in) mod trunc(glob_sec_in_year);
days_int := trunc(sec_temp/glob_sec_in_day);
sec_temp := sec_temp mod trunc(glob_sec_in_day);
hours_int := trunc(sec_temp/glob_sec_in_hour);
sec_temp := sec_temp mod trunc(glob_sec_in_hour);
minutes_int := trunc(sec_temp/glob_sec_in_minute);
sec_int := sec_temp mod trunc(glob_sec_in_minute);
if 0 < years_int then printf(" = %d Years %d Days %d Hours %d Mi\
nutes %d Seconds
", years_int, days_int, hours_int, minutes_int, sec_int)
elif 0 < days_int then printf(" = %d Days %d Hours %d Minutes %d\
Seconds
", days_int, hours_int, minutes_int, sec_int)
elif 0 < hours_int then printf(" = %d Hours %d Minutes %d Second\
s
", hours_int, minutes_int, sec_int)
elif 0 < minutes_int then printf(" = %d Minutes %d Seconds
", minutes_int, sec_int)
else printf(" = %d Seconds
", sec_int)
end if
else printf(" Unknown
")
end if
end proc
> # End Function number 12
> # Begin Function number 13
> ats := proc(mmm_ats,arr_a,arr_b,jjj_ats)
> local iii_ats, lll_ats,ma_ats, ret_ats;
> ret_ats := 0.0;
> if (jjj_ats <= mmm_ats) then # if number 6
> ma_ats := mmm_ats + 1;
> iii_ats := jjj_ats;
> while (iii_ats <= mmm_ats) do # do number 1
> lll_ats := ma_ats - iii_ats;
> ret_ats := ret_ats + arr_a[iii_ats]*arr_b[lll_ats];
> iii_ats := iii_ats + 1;
> od;# end do number 1
> fi;# end if 6;
> ret_ats;
> end;
ats := proc(mmm_ats, arr_a, arr_b, jjj_ats)
local iii_ats, lll_ats, ma_ats, ret_ats;
ret_ats := 0.;
if jjj_ats <= mmm_ats then
ma_ats := mmm_ats + 1;
iii_ats := jjj_ats;
while iii_ats <= mmm_ats do
lll_ats := ma_ats - iii_ats;
ret_ats := ret_ats + arr_a[iii_ats]*arr_b[lll_ats];
iii_ats := iii_ats + 1
end do
end if;
ret_ats
end proc
> # End Function number 13
> # Begin Function number 14
> att := proc(mmm_att,arr_aa,arr_bb,jjj_att)
> global glob_max_terms;
> local al_att, iii_att,lll_att, ma_att, ret_att;
> ret_att := 0.0;
> if (jjj_att <= mmm_att) then # if number 6
> ma_att := mmm_att + 2;
> iii_att := jjj_att;
> while (iii_att <= mmm_att) do # do number 1
> lll_att := ma_att - iii_att;
> al_att := (lll_att - 1);
> if (lll_att <= glob_max_terms) then # if number 7
> ret_att := ret_att + arr_aa[iii_att]*arr_bb[lll_att]* convfp(al_att);
> fi;# end if 7;
> iii_att := iii_att + 1;
> od;# end do number 1;
> ret_att := ret_att / convfp(mmm_att) ;
> fi;# end if 6;
> ret_att;
> end;
att := proc(mmm_att, arr_aa, arr_bb, jjj_att)
local al_att, iii_att, lll_att, ma_att, ret_att;
global glob_max_terms;
ret_att := 0.;
if jjj_att <= mmm_att then
ma_att := mmm_att + 2;
iii_att := jjj_att;
while iii_att <= mmm_att do
lll_att := ma_att - iii_att;
al_att := lll_att - 1;
if lll_att <= glob_max_terms then ret_att :=
ret_att + arr_aa[iii_att]*arr_bb[lll_att]*convfp(al_att)
end if;
iii_att := iii_att + 1
end do;
ret_att := ret_att/convfp(mmm_att)
end if;
ret_att
end proc
> # End Function number 14
> # Begin Function number 15
> display_pole_debug := proc(typ,m,radius,order2)
> global ALWAYS,glob_display_flag, glob_large_float, array_pole;
> if (typ = 1) then # if number 6
> omniout_str(ALWAYS,"Real");
> else
> omniout_str(ALWAYS,"Complex");
> fi;# end if 6;
> omniout_int(ALWAYS,"m",4, m ,4," ");
> omniout_float(ALWAYS,"DBG Radius of convergence ",4, radius,4," ");
> omniout_float(ALWAYS,"DBG Order of pole ",4, order2,4," ");
> end;
display_pole_debug := proc(typ, m, radius, order2)
global ALWAYS, glob_display_flag, glob_large_float, array_pole;
if typ = 1 then omniout_str(ALWAYS, "Real")
else omniout_str(ALWAYS, "Complex")
end if;
omniout_int(ALWAYS, "m", 4, m, 4, " ");
omniout_float(ALWAYS, "DBG Radius of convergence ", 4, radius, 4,
" ");
omniout_float(ALWAYS, "DBG Order of pole ", 4, order2, 4,
" ")
end proc
> # End Function number 15
> # Begin Function number 16
> logditto := proc(file)
> fprintf(file,"");
> fprintf(file,"ditto");
> fprintf(file," | ");
> end;
logditto := proc(file)
fprintf(file, ""); fprintf(file, "ditto"); fprintf(file, " | ")
end proc
> # End Function number 16
> # Begin Function number 17
> logitem_integer := proc(file,n)
> fprintf(file,"");
> fprintf(file,"%d",n);
> fprintf(file," | ");
> end;
logitem_integer := proc(file, n)
fprintf(file, ""); fprintf(file, "%d", n); fprintf(file, " | ")
end proc
> # End Function number 17
> # Begin Function number 18
> logitem_str := proc(file,str)
> fprintf(file,"");
> fprintf(file,str);
> fprintf(file," | ");
> end;
logitem_str := proc(file, str)
fprintf(file, ""); fprintf(file, str); fprintf(file, " | ")
end proc
> # End Function number 18
> # Begin Function number 19
> logitem_good_digits := proc(file,rel_error)
> global glob_small_float;
> local good_digits;
> fprintf(file,"");
> if (rel_error <> -1.0) then # if number 6
> if (rel_error > + 0.0000000000000000000000000000000001) then # if number 7
> good_digits := 1-trunc(log10(rel_error));
> fprintf(file,"%d",good_digits);
> else
> good_digits := Digits;
> fprintf(file,"%d",good_digits);
> fi;# end if 7;
> else
> fprintf(file,"Unknown");
> fi;# end if 6;
> fprintf(file," | ");
> end;
logitem_good_digits := proc(file, rel_error)
local good_digits;
global glob_small_float;
fprintf(file, "");
if rel_error <> -1.0 then
if 0.1*10^(-33) < rel_error then
good_digits := 1 - trunc(log10(rel_error));
fprintf(file, "%d", good_digits)
else good_digits := Digits; fprintf(file, "%d", good_digits)
end if
else fprintf(file, "Unknown")
end if;
fprintf(file, " | ")
end proc
> # End Function number 19
> # Begin Function number 20
> log_revs := proc(file,revs)
> fprintf(file,revs);
> end;
log_revs := proc(file, revs) fprintf(file, revs) end proc
> # End Function number 20
> # Begin Function number 21
> logitem_float := proc(file,x)
> fprintf(file,"");
> fprintf(file,"%g",x);
> fprintf(file," | ");
> end;
logitem_float := proc(file, x)
fprintf(file, ""); fprintf(file, "%g", x); fprintf(file, " | ")
end proc
> # End Function number 21
> # Begin Function number 22
> logitem_pole := proc(file,pole)
> fprintf(file,"");
> if (pole = 0) then # if number 6
> fprintf(file,"NA");
> elif
> (pole = 1) then # if number 7
> fprintf(file,"Real");
> elif
> (pole = 2) then # if number 8
> fprintf(file,"Complex");
> elif
> (pole = 4) then # if number 9
> fprintf(file,"Yes");
> else
> fprintf(file,"No");
> fi;# end if 9
> fprintf(file," | ");
> end;
logitem_pole := proc(file, pole)
fprintf(file, "");
if pole = 0 then fprintf(file, "NA")
elif pole = 1 then fprintf(file, "Real")
elif pole = 2 then fprintf(file, "Complex")
elif pole = 4 then fprintf(file, "Yes")
else fprintf(file, "No")
end if;
fprintf(file, " | ")
end proc
> # End Function number 22
> # Begin Function number 23
> logstart := proc(file)
> fprintf(file,"");
> end;
logstart := proc(file) fprintf(file, "
") end proc
> # End Function number 23
> # Begin Function number 24
> logend := proc(file)
> fprintf(file,"
\n");
> end;
logend := proc(file)
fprintf(file, "
")
end proc
> # End Function number 24
> # Begin Function number 25
> chk_data := proc()
> global glob_max_iter,ALWAYS, glob_max_terms;
> local errflag;
> errflag := false;
> if ((glob_max_terms < 15) or (glob_max_terms > 512)) then # if number 9
> omniout_str(ALWAYS,"Illegal max_terms = -- Using 30");
> glob_max_terms := 30;
> fi;# end if 9;
> if (glob_max_iter < 2) then # if number 9
> omniout_str(ALWAYS,"Illegal max_iter");
> errflag := true;
> fi;# end if 9;
> if (errflag) then # if number 9
> quit;
> fi;# end if 9
> end;
chk_data := proc()
local errflag;
global glob_max_iter, ALWAYS, glob_max_terms;
errflag := false;
if glob_max_terms < 15 or 512 < glob_max_terms then
omniout_str(ALWAYS, "Illegal max_terms = -- Using 30");
glob_max_terms := 30
end if;
if glob_max_iter < 2 then
omniout_str(ALWAYS, "Illegal max_iter"); errflag := true
end if;
if errflag then quit end if
end proc
> # End Function number 25
> # Begin Function number 26
> comp_expect_sec := proc(t_end2,t_start2,t2,clock_sec2)
> global glob_small_float;
> local ms2, rrr, sec_left, sub1, sub2;
> ;
> ms2 := clock_sec2;
> sub1 := (t_end2-t_start2);
> sub2 := (t2-t_start2);
> if (sub1 = 0.0) then # if number 9
> sec_left := 0.0;
> else
> if (sub2 > 0.0) then # if number 10
> rrr := (sub1/sub2);
> sec_left := rrr * ms2 - ms2;
> else
> sec_left := 0.0;
> fi;# end if 10
> fi;# end if 9;
> sec_left;
> end;
comp_expect_sec := proc(t_end2, t_start2, t2, clock_sec2)
local ms2, rrr, sec_left, sub1, sub2;
global glob_small_float;
ms2 := clock_sec2;
sub1 := t_end2 - t_start2;
sub2 := t2 - t_start2;
if sub1 = 0. then sec_left := 0.
else
if 0. < sub2 then rrr := sub1/sub2; sec_left := rrr*ms2 - ms2
else sec_left := 0.
end if
end if;
sec_left
end proc
> # End Function number 26
> # Begin Function number 27
> comp_percent := proc(t_end2,t_start2, t2)
> global glob_small_float;
> local rrr, sub1, sub2;
> sub1 := (t_end2-t_start2);
> sub2 := (t2-t_start2);
> if (sub2 > glob_small_float) then # if number 9
> rrr := (100.0*sub2)/sub1;
> else
> rrr := 0.0;
> fi;# end if 9;
> rrr;
> end;
comp_percent := proc(t_end2, t_start2, t2)
local rrr, sub1, sub2;
global glob_small_float;
sub1 := t_end2 - t_start2;
sub2 := t2 - t_start2;
if glob_small_float < sub2 then rrr := 100.0*sub2/sub1
else rrr := 0.
end if;
rrr
end proc
> # End Function number 27
> # Begin Function number 28
> factorial_2 := proc(nnn)
> nnn!;
> end;
factorial_2 := proc(nnn) nnn! end proc
> # End Function number 28
> # Begin Function number 29
> factorial_1 := proc(nnn)
> global glob_max_terms,array_fact_1;
> local ret;
> if (nnn <= glob_max_terms) then # if number 9
> if (array_fact_1[nnn] = 0) then # if number 10
> ret := factorial_2(nnn);
> array_fact_1[nnn] := ret;
> else
> ret := array_fact_1[nnn];
> fi;# end if 10;
> else
> ret := factorial_2(nnn);
> fi;# end if 9;
> ret;
> end;
factorial_1 := proc(nnn)
local ret;
global glob_max_terms, array_fact_1;
if nnn <= glob_max_terms then
if array_fact_1[nnn] = 0 then
ret := factorial_2(nnn); array_fact_1[nnn] := ret
else ret := array_fact_1[nnn]
end if
else ret := factorial_2(nnn)
end if;
ret
end proc
> # End Function number 29
> # Begin Function number 30
> factorial_3 := proc(mmm,nnn)
> global glob_max_terms,array_fact_2;
> local ret;
> if ((nnn <= glob_max_terms) and (mmm <= glob_max_terms)) then # if number 9
> if (array_fact_2[mmm,nnn] = 0) then # if number 10
> ret := factorial_1(mmm)/factorial_1(nnn);
> array_fact_2[mmm,nnn] := ret;
> else
> ret := array_fact_2[mmm,nnn];
> fi;# end if 10;
> else
> ret := factorial_2(mmm)/factorial_2(nnn);
> fi;# end if 9;
> ret;
> end;
factorial_3 := proc(mmm, nnn)
local ret;
global glob_max_terms, array_fact_2;
if nnn <= glob_max_terms and mmm <= glob_max_terms then
if array_fact_2[mmm, nnn] = 0 then
ret := factorial_1(mmm)/factorial_1(nnn);
array_fact_2[mmm, nnn] := ret
else ret := array_fact_2[mmm, nnn]
end if
else ret := factorial_2(mmm)/factorial_2(nnn)
end if;
ret
end proc
> # End Function number 30
> # Begin Function number 31
> convfp := proc(mmm)
> (mmm);
> end;
convfp := proc(mmm) mmm end proc
> # End Function number 31
> # Begin Function number 32
> convfloat := proc(mmm)
> (mmm);
> end;
convfloat := proc(mmm) mmm end proc
> # End Function number 32
> # Begin Function number 33
> elapsed_time_seconds := proc()
> time();
> end;
elapsed_time_seconds := proc() time() end proc
> # End Function number 33
> # Begin Function number 34
> omniabs := proc(x)
> abs(x);
> end;
omniabs := proc(x) abs(x) end proc
> # End Function number 34
> # Begin Function number 35
> expt := proc(x,y)
> (x^y);
> end;
expt := proc(x, y) x^y end proc
> # End Function number 35
> # Begin Function number 36
> estimated_needed_step_error := proc(x_start,x_end,estimated_h,estimated_answer)
> local desired_abs_gbl_error,range,estimated_steps,step_error;
> global glob_desired_digits_correct,ALWAYS;
> omniout_float(ALWAYS,"glob_desired_digits_correct",32,glob_desired_digits_correct,32,"");
> desired_abs_gbl_error := expt(10.0, -glob_desired_digits_correct) * omniabs(estimated_answer);
> omniout_float(ALWAYS,"desired_abs_gbl_error",32,desired_abs_gbl_error,32,"");
> range := (x_end - x_start);
> omniout_float(ALWAYS,"range",32,range,32,"");
> estimated_steps := range / estimated_h;
> omniout_float(ALWAYS,"estimated_steps",32,estimated_steps,32,"");
> step_error := omniabs(desired_abs_gbl_error / estimated_steps);
> omniout_float(ALWAYS,"step_error",32,step_error,32,"");
> (step_error);;
> end;
estimated_needed_step_error := proc(
x_start, x_end, estimated_h, estimated_answer)
local desired_abs_gbl_error, range, estimated_steps, step_error;
global glob_desired_digits_correct, ALWAYS;
omniout_float(ALWAYS, "glob_desired_digits_correct", 32,
glob_desired_digits_correct, 32, "");
desired_abs_gbl_error :=
expt(10.0, -glob_desired_digits_correct)*omniabs(estimated_answer);
omniout_float(ALWAYS, "desired_abs_gbl_error", 32,
desired_abs_gbl_error, 32, "");
range := x_end - x_start;
omniout_float(ALWAYS, "range", 32, range, 32, "");
estimated_steps := range/estimated_h;
omniout_float(ALWAYS, "estimated_steps", 32, estimated_steps, 32, "");
step_error := omniabs(desired_abs_gbl_error/estimated_steps);
omniout_float(ALWAYS, "step_error", 32, step_error, 32, "");
step_error
end proc
> # End Function number 36
> #END ATS LIBRARY BLOCK
> #BEGIN USER DEF BLOCK
> #BEGIN USER DEF BLOCK
> exact_soln_y := proc(x)
> return(5.0/3.0 * expt((0.2 * x + 0.3),3.0)) ;
> end;
exact_soln_y := proc(x) return 5.0*expt(0.2*x + 0.3, 3.0)/3.0 end proc
> #END USER DEF BLOCK
> #END USER DEF BLOCK
> #END OUTFILE5
> # Begin Function number 2
> main := proc()
> #BEGIN OUTFIEMAIN
> local d1,d2,d3,d4,est_err_2,niii,done_once,
> term,ord,order_diff,term_no,html_log_file,iiif,jjjf,
> rows,r_order,sub_iter,calc_term,iii,temp_sum,current_iter,
> x_start,x_end
> ,it, max_terms, opt_iter, tmp,subiter, est_needed_step_err,estimated_step_error,min_value,est_answer,best_h,found_h,repeat_it;
> global
> glob_max_terms,
> glob_iolevel,
> glob_yes_pole,
> glob_no_pole,
> glob_not_given,
> ALWAYS,
> INFO,
> DEBUGL,
> DEBUGMASSIVE,
> #Top Generate Globals Decl
> MAX_UNCHANGED,
> glob_check_sign,
> glob_desired_digits_correct,
> glob_max_estimated_step_error,
> glob_ratio_of_radius,
> glob_percent_done,
> glob_subiter_method,
> glob_total_exp_sec,
> glob_optimal_expect_sec,
> glob_html_log,
> glob_good_digits,
> glob_max_opt_iter,
> glob_dump,
> glob_djd_debug,
> glob_display_flag,
> glob_djd_debug2,
> glob_sec_in_minute,
> glob_min_in_hour,
> glob_hours_in_day,
> glob_days_in_year,
> glob_sec_in_hour,
> glob_sec_in_day,
> glob_sec_in_year,
> glob_almost_1,
> glob_clock_sec,
> glob_clock_start_sec,
> glob_not_yet_finished,
> glob_initial_pass,
> glob_not_yet_start_msg,
> glob_reached_optimal_h,
> glob_optimal_done,
> glob_disp_incr,
> glob_h,
> glob_max_h,
> glob_min_h,
> glob_type_given_pole,
> glob_large_float,
> glob_last_good_h,
> glob_look_poles,
> glob_neg_h,
> glob_display_interval,
> glob_next_display,
> glob_dump_analytic,
> glob_abserr,
> glob_relerr,
> glob_max_hours,
> glob_max_iter,
> glob_max_rel_trunc_err,
> glob_max_trunc_err,
> glob_no_eqs,
> glob_optimal_clock_start_sec,
> glob_optimal_start,
> glob_small_float,
> glob_smallish_float,
> glob_unchanged_h_cnt,
> glob_warned,
> glob_warned2,
> glob_max_sec,
> glob_orig_start_sec,
> glob_start,
> glob_curr_iter_when_opt,
> glob_current_iter,
> glob_iter,
> glob_normmax,
> glob_max_minutes,
> #Bottom Generate Globals Decl
> #BEGIN CONST
> array_const_1,
> array_const_0D0,
> array_const_0D2,
> array_const_0D3,
> array_const_2D0,
> #END CONST
> array_y_init,
> array_norms,
> array_fact_1,
> array_pole,
> array_real_pole,
> array_complex_pole,
> array_1st_rel_error,
> array_last_rel_error,
> array_type_pole,
> array_type_real_pole,
> array_type_complex_pole,
> array_y,
> array_x,
> array_tmp0,
> array_tmp1,
> array_tmp2,
> array_tmp3_c1,
> array_tmp3_a1,
> array_tmp3_a2,
> array_tmp3,
> array_tmp4,
> array_m1,
> array_y_higher,
> array_y_higher_work,
> array_y_higher_work2,
> array_y_set_initial,
> array_poles,
> array_given_rad_poles,
> array_given_ord_poles,
> array_real_poles,
> array_complex_poles,
> array_fact_2,
> glob_last;
> glob_last;
> ALWAYS := 1;
> INFO := 2;
> DEBUGL := 3;
> DEBUGMASSIVE := 4;
> glob_iolevel := INFO;
> glob_max_terms := 30;
> glob_iolevel := 5;
> glob_yes_pole := 4;
> glob_no_pole := 3;
> glob_not_given := 0;
> ALWAYS := 1;
> INFO := 2;
> DEBUGL := 3;
> DEBUGMASSIVE := 4;
> MAX_UNCHANGED := 10;
> glob_check_sign := 1.0;
> glob_desired_digits_correct := 8.0;
> glob_max_estimated_step_error := 0.0;
> glob_ratio_of_radius := 0.1;
> glob_percent_done := 0.0;
> glob_subiter_method := 3;
> glob_total_exp_sec := 0.1;
> glob_optimal_expect_sec := 0.1;
> glob_html_log := true;
> glob_good_digits := 0;
> glob_max_opt_iter := 10;
> glob_dump := false;
> glob_djd_debug := true;
> glob_display_flag := true;
> glob_djd_debug2 := true;
> glob_sec_in_minute := 60;
> glob_min_in_hour := 60;
> glob_hours_in_day := 24;
> glob_days_in_year := 365;
> glob_sec_in_hour := 3600;
> glob_sec_in_day := 86400;
> glob_sec_in_year := 31536000;
> glob_almost_1 := 0.9990;
> glob_clock_sec := 0.0;
> glob_clock_start_sec := 0.0;
> glob_not_yet_finished := true;
> glob_initial_pass := true;
> glob_not_yet_start_msg := true;
> glob_reached_optimal_h := false;
> glob_optimal_done := false;
> glob_disp_incr := 0.1;
> glob_h := 0.1;
> glob_max_h := 0.1;
> glob_min_h := 0.000001;
> glob_type_given_pole := 0;
> glob_large_float := 9.0e100;
> glob_last_good_h := 0.1;
> glob_look_poles := false;
> glob_neg_h := false;
> glob_display_interval := 0.0;
> glob_next_display := 0.0;
> glob_dump_analytic := false;
> glob_abserr := 0.1e-10;
> glob_relerr := 0.1e-10;
> glob_max_hours := 0.0;
> glob_max_iter := 1000;
> glob_max_rel_trunc_err := 0.1e-10;
> glob_max_trunc_err := 0.1e-10;
> glob_no_eqs := 0;
> glob_optimal_clock_start_sec := 0.0;
> glob_optimal_start := 0.0;
> glob_small_float := 0.0;
> glob_smallish_float := 0.0;
> glob_unchanged_h_cnt := 0;
> glob_warned := false;
> glob_warned2 := false;
> glob_max_sec := 10000.0;
> glob_orig_start_sec := 0.0;
> glob_start := 0;
> glob_curr_iter_when_opt := 0;
> glob_current_iter := 0;
> glob_iter := 0;
> glob_normmax := 0.0;
> glob_max_minutes := 0.0;
> #Write Set Defaults
> glob_orig_start_sec := elapsed_time_seconds();
> MAX_UNCHANGED := 10;
> glob_curr_iter_when_opt := 0;
> glob_display_flag := true;
> glob_no_eqs := 1;
> glob_iter := -1;
> opt_iter := -1;
> glob_max_iter := 50000;
> glob_max_hours := 0.0;
> glob_max_minutes := 15.0;
> omniout_str(ALWAYS,"##############ECHO OF PROBLEM#################");
> omniout_str(ALWAYS,"##############temp/expt_lin_cpostode.ode#################");
> omniout_str(ALWAYS,"diff ( y , x , 1 ) = expt((0.2 * x + 0.3) , 2.0);");
> omniout_str(ALWAYS,"!");
> omniout_str(ALWAYS,"#BEGIN FIRST INPUT BLOCK");
> omniout_str(ALWAYS,"Digits:=32;");
> omniout_str(ALWAYS,"max_terms:=30;");
> omniout_str(ALWAYS,"!");
> omniout_str(ALWAYS,"#END FIRST INPUT BLOCK");
> omniout_str(ALWAYS,"#BEGIN SECOND INPUT BLOCK");
> omniout_str(ALWAYS,"x_start := 0.1;");
> omniout_str(ALWAYS,"x_end := 5.0 ;");
> omniout_str(ALWAYS,"array_y_init[0 + 1] := exact_soln_y(x_start);");
> omniout_str(ALWAYS,"glob_look_poles := true;");
> omniout_str(ALWAYS,"glob_max_iter := 1000000;");
> omniout_str(ALWAYS,"#END SECOND INPUT BLOCK");
> omniout_str(ALWAYS,"#BEGIN OVERRIDE BLOCK");
> omniout_str(ALWAYS,"glob_desired_digits_correct:=10;");
> omniout_str(ALWAYS,"glob_display_interval:=0.01;");
> omniout_str(ALWAYS,"glob_look_poles:=true;");
> omniout_str(ALWAYS,"glob_max_iter:=10000000;");
> omniout_str(ALWAYS,"glob_max_minutes:=3;");
> omniout_str(ALWAYS,"glob_subiter_method:=3;");
> omniout_str(ALWAYS,"#END OVERRIDE BLOCK");
> omniout_str(ALWAYS,"!");
> omniout_str(ALWAYS,"#BEGIN USER DEF BLOCK");
> omniout_str(ALWAYS,"exact_soln_y := proc(x)");
> omniout_str(ALWAYS,"return(5.0/3.0 * expt((0.2 * x + 0.3),3.0)) ;");
> omniout_str(ALWAYS,"end;");
> omniout_str(ALWAYS,"#END USER DEF BLOCK");
> omniout_str(ALWAYS,"#######END OF ECHO OF PROBLEM#################");
> glob_unchanged_h_cnt := 0;
> glob_warned := false;
> glob_warned2 := false;
> glob_small_float := 0.0;
> glob_smallish_float := 0.0;
> glob_large_float := 1.0e100;
> glob_almost_1 := 0.99;
> #BEGIN FIRST INPUT BLOCK
> #BEGIN FIRST INPUT BLOCK
> Digits:=32;
> max_terms:=30;
> #END FIRST INPUT BLOCK
> #START OF INITS AFTER INPUT BLOCK
> glob_max_terms := max_terms;
> glob_html_log := true;
> #END OF INITS AFTER INPUT BLOCK
> array_y_init:= Array(0..(max_terms + 1),[]);
> array_norms:= Array(0..(max_terms + 1),[]);
> array_fact_1:= Array(0..(max_terms + 1),[]);
> array_pole:= Array(0..(4 + 1),[]);
> array_real_pole:= Array(0..(4 + 1),[]);
> array_complex_pole:= Array(0..(4 + 1),[]);
> array_1st_rel_error:= Array(0..(2 + 1),[]);
> array_last_rel_error:= Array(0..(2 + 1),[]);
> array_type_pole:= Array(0..(2 + 1),[]);
> array_type_real_pole:= Array(0..(2 + 1),[]);
> array_type_complex_pole:= Array(0..(2 + 1),[]);
> array_y:= Array(0..(max_terms + 1),[]);
> array_x:= Array(0..(max_terms + 1),[]);
> array_tmp0:= Array(0..(max_terms + 1),[]);
> array_tmp1:= Array(0..(max_terms + 1),[]);
> array_tmp2:= Array(0..(max_terms + 1),[]);
> array_tmp3_c1:= Array(0..(max_terms + 1),[]);
> array_tmp3_a1:= Array(0..(max_terms + 1),[]);
> array_tmp3_a2:= Array(0..(max_terms + 1),[]);
> array_tmp3:= Array(0..(max_terms + 1),[]);
> array_tmp4:= Array(0..(max_terms + 1),[]);
> array_m1:= Array(0..(max_terms + 1),[]);
> array_y_higher := Array(0..(2+ 1) ,(0..max_terms+ 1),[]);
> array_y_higher_work := Array(0..(2+ 1) ,(0..max_terms+ 1),[]);
> array_y_higher_work2 := Array(0..(2+ 1) ,(0..max_terms+ 1),[]);
> array_y_set_initial := Array(0..(2+ 1) ,(0..max_terms+ 1),[]);
> array_poles := Array(0..(2+ 1) ,(0..3+ 1),[]);
> array_given_rad_poles := Array(0..(2+ 1) ,(0..3+ 1),[]);
> array_given_ord_poles := Array(0..(2+ 1) ,(0..3+ 1),[]);
> array_real_poles := Array(0..(2+ 1) ,(0..3+ 1),[]);
> array_complex_poles := Array(0..(2+ 1) ,(0..3+ 1),[]);
> array_fact_2 := Array(0..(max_terms+ 1) ,(0..max_terms+ 1),[]);
> term := 1;
> while (term <= max_terms) do # do number 1
> array_y_init[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_norms[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_fact_1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= 4) do # do number 1
> array_pole[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= 4) do # do number 1
> array_real_pole[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= 4) do # do number 1
> array_complex_pole[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= 2) do # do number 1
> array_1st_rel_error[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= 2) do # do number 1
> array_last_rel_error[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= 2) do # do number 1
> array_type_pole[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= 2) do # do number 1
> array_type_real_pole[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= 2) do # do number 1
> array_type_complex_pole[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_y[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_x[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_tmp0[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_tmp1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_tmp2[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_tmp3_c1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_tmp3_a1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_tmp3_a2[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_tmp3[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_tmp4[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> term := 1;
> while (term <= max_terms) do # do number 1
> array_m1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=2) do # do number 1
> term := 1;
> while (term <= max_terms) do # do number 2
> array_y_higher[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=2) do # do number 1
> term := 1;
> while (term <= max_terms) do # do number 2
> array_y_higher_work[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=2) do # do number 1
> term := 1;
> while (term <= max_terms) do # do number 2
> array_y_higher_work2[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=2) do # do number 1
> term := 1;
> while (term <= max_terms) do # do number 2
> array_y_set_initial[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=2) do # do number 1
> term := 1;
> while (term <= 3) do # do number 2
> array_poles[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=2) do # do number 1
> term := 1;
> while (term <= 3) do # do number 2
> array_given_rad_poles[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=2) do # do number 1
> term := 1;
> while (term <= 3) do # do number 2
> array_given_ord_poles[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=2) do # do number 1
> term := 1;
> while (term <= 3) do # do number 2
> array_real_poles[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=2) do # do number 1
> term := 1;
> while (term <= 3) do # do number 2
> array_complex_poles[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> ord := 1;
> while (ord <=max_terms) do # do number 1
> term := 1;
> while (term <= max_terms) do # do number 2
> array_fact_2[ord,term] := 0.0;
> term := term + 1;
> od;# end do number 2;
> ord := ord + 1;
> od;# end do number 1;
> #BEGIN ARRAYS DEFINED AND INITIALIZATED
> array_y := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_y[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_x := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_x[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_tmp0 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_tmp0[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_tmp1 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_tmp1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_tmp2 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_tmp2[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_tmp3_c1 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_tmp3_c1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_tmp3_a1 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_tmp3_a1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_tmp3_a2 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_tmp3_a2[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_tmp3 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_tmp3[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_tmp4 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_tmp4[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_m1 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_m1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_const_1 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_const_1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_const_1[1] := 1;
> array_const_0D0 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_const_0D0[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_const_0D0[1] := 0.0;
> array_const_0D2 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_const_0D2[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_const_0D2[1] := 0.2;
> array_const_0D3 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_const_0D3[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_const_0D3[1] := 0.3;
> array_const_2D0 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms + 1) do # do number 1
> array_const_2D0[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_const_2D0[1] := 2.0;
> array_m1 := Array(1..(max_terms+1 + 1),[]);
> term := 1;
> while (term <= max_terms) do # do number 1
> array_m1[term] := 0.0;
> term := term + 1;
> od;# end do number 1;
> array_m1[1] := -1.0;
> #END ARRAYS DEFINED AND INITIALIZATED
> #Initing Factorial Tables
> iiif := 0;
> while (iiif <= glob_max_terms) do # do number 1
> jjjf := 0;
> while (jjjf <= glob_max_terms) do # do number 2
> array_fact_1[iiif] := 0;
> array_fact_2[iiif,jjjf] := 0;
> jjjf := jjjf + 1;
> od;# end do number 2;
> iiif := iiif + 1;
> od;# end do number 1;
> #Done Initing Factorial Tables
> #TOP SECOND INPUT BLOCK
> #BEGIN SECOND INPUT BLOCK
> #END FIRST INPUT BLOCK
> #BEGIN SECOND INPUT BLOCK
> x_start := 0.1;
> x_end := 5.0 ;
> array_y_init[0 + 1] := exact_soln_y(x_start);
> glob_look_poles := true;
> glob_max_iter := 1000000;
> #END SECOND INPUT BLOCK
> #BEGIN OVERRIDE BLOCK
> glob_desired_digits_correct:=10;
> glob_display_interval:=0.01;
> glob_look_poles:=true;
> glob_max_iter:=10000000;
> glob_max_minutes:=3;
> glob_subiter_method:=3;
> #END OVERRIDE BLOCK
> #END SECOND INPUT BLOCK
> #BEGIN INITS AFTER SECOND INPUT BLOCK
> glob_last_good_h := glob_h;
> glob_max_terms := max_terms;
> glob_max_sec := convfloat(60.0) * convfloat(glob_max_minutes) + convfloat(3600.0) * convfloat(glob_max_hours);
> if (glob_h > 0.0) then # if number 1
> glob_neg_h := false;
> glob_display_interval := omniabs(glob_display_interval);
> else
> glob_neg_h := true;
> glob_display_interval := -omniabs(glob_display_interval);
> fi;# end if 1;
> chk_data();
> #AFTER INITS AFTER SECOND INPUT BLOCK
> array_y_set_initial[1,1] := true;
> array_y_set_initial[1,2] := false;
> array_y_set_initial[1,3] := false;
> array_y_set_initial[1,4] := false;
> array_y_set_initial[1,5] := false;
> array_y_set_initial[1,6] := false;
> array_y_set_initial[1,7] := false;
> array_y_set_initial[1,8] := false;
> array_y_set_initial[1,9] := false;
> array_y_set_initial[1,10] := false;
> array_y_set_initial[1,11] := false;
> array_y_set_initial[1,12] := false;
> array_y_set_initial[1,13] := false;
> array_y_set_initial[1,14] := false;
> array_y_set_initial[1,15] := false;
> array_y_set_initial[1,16] := false;
> array_y_set_initial[1,17] := false;
> array_y_set_initial[1,18] := false;
> array_y_set_initial[1,19] := false;
> array_y_set_initial[1,20] := false;
> array_y_set_initial[1,21] := false;
> array_y_set_initial[1,22] := false;
> array_y_set_initial[1,23] := false;
> array_y_set_initial[1,24] := false;
> array_y_set_initial[1,25] := false;
> array_y_set_initial[1,26] := false;
> array_y_set_initial[1,27] := false;
> array_y_set_initial[1,28] := false;
> array_y_set_initial[1,29] := false;
> array_y_set_initial[1,30] := false;
> #BEGIN OPTIMIZE CODE
> omniout_str(ALWAYS,"START of Optimize");
> #Start Series -- INITIALIZE FOR OPTIMIZE
> glob_check_sign := check_sign(x_start,x_end);
> glob_h := check_sign(x_start,x_end);
> found_h := false;
> glob_h := glob_min_h;
> if (glob_max_h < glob_h) then # if number 4
> glob_h := glob_max_h;
> fi;# end if 4;
> if (glob_display_interval < glob_h) then # if number 4
> glob_h := glob_display_interval;
> fi;# end if 4;
> best_h := glob_h;
> min_value := glob_large_float;
> est_answer := est_size_answer();
> opt_iter := 1;
> est_needed_step_err := estimated_needed_step_error(x_start,x_end,glob_h,est_answer);
> omniout_float(ALWAYS,"est_needed_step_err",32,est_needed_step_err,16,"");
> estimated_step_error := 0.0;
> while ((opt_iter <= 100) and ( not found_h)) do # do number 1
> omniout_int(ALWAYS,"opt_iter",32,opt_iter,4,"");
> array_x[1] := x_start;
> array_x[2] := glob_h;
> glob_next_display := x_start;
> order_diff := 1;
> #Start Series array_y
> term_no := 1;
> while (term_no <= order_diff) do # do number 2
> array_y[term_no] := array_y_init[term_no] * expt(glob_h , (term_no - 1)) / factorial_1(term_no - 1);
> term_no := term_no + 1;
> od;# end do number 2;
> rows := order_diff;
> r_order := 1;
> while (r_order <= rows) do # do number 2
> term_no := 1;
> while (term_no <= (rows - r_order + 1)) do # do number 3
> it := term_no + r_order - 1;
> array_y_higher[r_order,term_no] := array_y_init[it]* expt(glob_h , (term_no - 1)) / ((factorial_1(term_no - 1)));
> term_no := term_no + 1;
> od;# end do number 3;
> r_order := r_order + 1;
> od;# end do number 2
> ;
> atomall();
> estimated_step_error := test_suggested_h();
> omniout_float(ALWAYS,"estimated_step_error",32,estimated_step_error,32,"");
> if (((estimated_step_error > est_needed_step_err) and (opt_iter = 1)) or (glob_h >= glob_max_h )) then # if number 4
> found_h := true;
> glob_h := glob_max_h;
> best_h := glob_h;
> elif
> ((estimated_step_error > est_needed_step_err) and ( not found_h)) then # if number 5
> glob_h := glob_h/2.0;
> best_h := glob_h;
> found_h := true;
> else
> glob_h := glob_h*2.0;
> best_h := glob_h;
> fi;# end if 5;
> omniout_float(ALWAYS,"best_h",32,best_h,32,"");
> opt_iter := opt_iter + 1;
> od;# end do number 1;
> if (( not found_h) and (opt_iter = 1)) then # if number 5
> omniout_str(ALWAYS,"Beginning glob_h too large.");
> found_h := false;
> fi;# end if 5;
> if (opt_iter > 100) then # if number 5
> glob_h := glob_max_h;
> found_h := false;
> fi;# end if 5;
> if (glob_display_interval < glob_h) then # if number 5
> glob_h := glob_display_interval;
> fi;# end if 5;
> #END OPTIMIZE CODE
> if (glob_html_log) then # if number 5
> html_log_file := fopen("entry.html",WRITE,TEXT);
> fi;# end if 5;
> #BEGIN SOLUTION CODE
> if (found_h) then # if number 5
> omniout_str(ALWAYS,"START of Soultion");
> #Start Series -- INITIALIZE FOR SOLUTION
> array_x[1] := x_start;
> array_x[2] := glob_h;
> glob_next_display := x_start;
> order_diff := 1;
> #Start Series array_y
> term_no := 1;
> while (term_no <= order_diff) do # do number 1
> array_y[term_no] := array_y_init[term_no] * expt(glob_h , (term_no - 1)) / factorial_1(term_no - 1);
> term_no := term_no + 1;
> od;# end do number 1;
> rows := order_diff;
> r_order := 1;
> while (r_order <= rows) do # do number 1
> term_no := 1;
> while (term_no <= (rows - r_order + 1)) do # do number 2
> it := term_no + r_order - 1;
> array_y_higher[r_order,term_no] := array_y_init[it]* expt(glob_h , (term_no - 1)) / ((factorial_1(term_no - 1)));
> term_no := term_no + 1;
> od;# end do number 2;
> r_order := r_order + 1;
> od;# end do number 1
> ;
> current_iter := 1;
> glob_clock_start_sec := elapsed_time_seconds();
> glob_clock_sec := elapsed_time_seconds();
> glob_current_iter := 0;
> glob_iter := 0;
> omniout_str(DEBUGL," ");
> glob_reached_optimal_h := true;
> glob_optimal_clock_start_sec := elapsed_time_seconds();
> while ((glob_current_iter < glob_max_iter) and ((glob_check_sign * array_x[1]) < (glob_check_sign * x_end )) and ((convfloat(glob_clock_sec) - convfloat(glob_orig_start_sec)) < convfloat(glob_max_sec))) do # do number 1
> #left paren 0001C
> if (reached_interval()) then # if number 6
> omniout_str(INFO," ");
> omniout_str(INFO,"TOP MAIN SOLVE Loop");
> fi;# end if 6;
> glob_iter := glob_iter + 1;
> glob_clock_sec := elapsed_time_seconds();
> glob_current_iter := glob_current_iter + 1;
> atomall();
> display_alot(current_iter);
> if (glob_look_poles) then # if number 6
> #left paren 0004C
> check_for_pole();
> fi;# end if 6;#was right paren 0004C
> if (reached_interval()) then # if number 6
> glob_next_display := glob_next_display + glob_display_interval;
> fi;# end if 6;
> array_x[1] := array_x[1] + glob_h;
> array_x[2] := glob_h;
> #Jump Series array_y;
> order_diff := 2;
> #START PART 1 SUM AND ADJUST
> #START SUM AND ADJUST EQ =1
> #sum_and_adjust array_y
> #BEFORE ADJUST SUBSERIES EQ =1
> ord := 2;
> calc_term := 1;
> #adjust_subseriesarray_y
> iii := glob_max_terms;
> while (iii >= calc_term) do # do number 2
> array_y_higher_work[2,iii] := array_y_higher[2,iii] / expt(glob_h , (calc_term - 1)) / factorial_3(iii - calc_term , iii - 1);
> iii := iii - 1;
> od;# end do number 2;
> #AFTER ADJUST SUBSERIES EQ =1
> #BEFORE SUM SUBSERIES EQ =1
> temp_sum := 0.0;
> ord := 2;
> calc_term := 1;
> #sum_subseriesarray_y
> iii := glob_max_terms;
> while (iii >= calc_term) do # do number 2
> temp_sum := temp_sum + array_y_higher_work[ord,iii];
> iii := iii - 1;
> od;# end do number 2;
> array_y_higher_work2[ord,calc_term] := temp_sum * expt(glob_h , (calc_term - 1)) / (factorial_1(calc_term - 1));
> #AFTER SUM SUBSERIES EQ =1
> #BEFORE ADJUST SUBSERIES EQ =1
> ord := 1;
> calc_term := 2;
> #adjust_subseriesarray_y
> iii := glob_max_terms;
> while (iii >= calc_term) do # do number 2
> array_y_higher_work[1,iii] := array_y_higher[1,iii] / expt(glob_h , (calc_term - 1)) / factorial_3(iii - calc_term , iii - 1);
> iii := iii - 1;
> od;# end do number 2;
> #AFTER ADJUST SUBSERIES EQ =1
> #BEFORE SUM SUBSERIES EQ =1
> temp_sum := 0.0;
> ord := 1;
> calc_term := 2;
> #sum_subseriesarray_y
> iii := glob_max_terms;
> while (iii >= calc_term) do # do number 2
> temp_sum := temp_sum + array_y_higher_work[ord,iii];
> iii := iii - 1;
> od;# end do number 2;
> array_y_higher_work2[ord,calc_term] := temp_sum * expt(glob_h , (calc_term - 1)) / (factorial_1(calc_term - 1));
> #AFTER SUM SUBSERIES EQ =1
> #BEFORE ADJUST SUBSERIES EQ =1
> ord := 1;
> calc_term := 1;
> #adjust_subseriesarray_y
> iii := glob_max_terms;
> while (iii >= calc_term) do # do number 2
> array_y_higher_work[1,iii] := array_y_higher[1,iii] / expt(glob_h , (calc_term - 1)) / factorial_3(iii - calc_term , iii - 1);
> iii := iii - 1;
> od;# end do number 2;
> #AFTER ADJUST SUBSERIES EQ =1
> #BEFORE SUM SUBSERIES EQ =1
> temp_sum := 0.0;
> ord := 1;
> calc_term := 1;
> #sum_subseriesarray_y
> iii := glob_max_terms;
> while (iii >= calc_term) do # do number 2
> temp_sum := temp_sum + array_y_higher_work[ord,iii];
> iii := iii - 1;
> od;# end do number 2;
> array_y_higher_work2[ord,calc_term] := temp_sum * expt(glob_h , (calc_term - 1)) / (factorial_1(calc_term - 1));
> #AFTER SUM SUBSERIES EQ =1
> #END SUM AND ADJUST EQ =1
> #END PART 1
> #START PART 2 MOVE TERMS to REGULAR Array
> term_no := glob_max_terms;
> while (term_no >= 1) do # do number 2
> array_y[term_no] := array_y_higher_work2[1,term_no];
> ord := 1;
> while (ord <= order_diff) do # do number 3
> array_y_higher[ord,term_no] := array_y_higher_work2[ord,term_no];
> ord := ord + 1;
> od;# end do number 3;
> term_no := term_no - 1;
> od;# end do number 2;
> #END PART 2 HEVE MOVED TERMS to REGULAR Array
> ;
> od;# end do number 1;#right paren 0001C
> omniout_str(ALWAYS,"Finished!");
> if (glob_iter >= glob_max_iter) then # if number 6
> omniout_str(ALWAYS,"Maximum Iterations Reached before Solution Completed!");
> fi;# end if 6;
> if (elapsed_time_seconds() - convfloat(glob_orig_start_sec) >= convfloat(glob_max_sec )) then # if number 6
> omniout_str(ALWAYS,"Maximum Time Reached before Solution Completed!");
> fi;# end if 6;
> glob_clock_sec := elapsed_time_seconds();
> omniout_str(INFO,"diff ( y , x , 1 ) = expt((0.2 * x + 0.3) , 2.0);");
> omniout_int(INFO,"Iterations ",32,glob_iter,4," ")
> ;
> prog_report(x_start,x_end);
> if (glob_html_log) then # if number 6
> logstart(html_log_file);
> logitem_str(html_log_file,"2013-05-26T01:08:13-05:00")
> ;
> logitem_str(html_log_file,"Maple")
> ;
> logitem_str(html_log_file,"expt_lin_c")
> ;
> logitem_str(html_log_file,"diff ( y , x , 1 ) = expt((0.2 * x + 0.3) , 2.0);")
> ;
> logitem_float(html_log_file,x_start)
> ;
> logitem_float(html_log_file,x_end)
> ;
> logitem_float(html_log_file,array_x[1])
> ;
> logitem_float(html_log_file,glob_h)
> ;
> logitem_integer(html_log_file,Digits)
> ;
> ;
> logitem_good_digits(html_log_file,array_last_rel_error[1])
> ;
> logitem_integer(html_log_file,glob_max_terms)
> ;
> logitem_float(html_log_file,array_1st_rel_error[1])
> ;
> logitem_float(html_log_file,array_last_rel_error[1])
> ;
> logitem_integer(html_log_file,glob_iter)
> ;
> logitem_time(html_log_file,convfloat(glob_clock_sec))
> ;
> if (glob_percent_done < 100.0) then # if number 7
> logitem_time(html_log_file,convfloat(glob_total_exp_sec))
> ;
> 0;
> else
> logitem_str(html_log_file,"Done")
> ;
> 0;
> fi;# end if 7;
> log_revs(html_log_file," 189 | ")
> ;
> logitem_str(html_log_file,"expt_lin_c diffeq.mxt")
> ;
> logitem_str(html_log_file,"expt_lin_c maple results")
> ;
> logitem_str(html_log_file,"All Tests - All Languages")
> ;
> logend(html_log_file)
> ;
> ;
> fi;# end if 6;
> if (glob_html_log) then # if number 6
> fclose(html_log_file);
> fi;# end if 6
> ;
> ;;
> fi;# end if 5
> #END OUTFILEMAIN
> end;
main := proc()
local d1, d2, d3, d4, est_err_2, niii, done_once, term, ord, order_diff,
term_no, html_log_file, iiif, jjjf, rows, r_order, sub_iter, calc_term, iii,
temp_sum, current_iter, x_start, x_end, it, max_terms, opt_iter, tmp,
subiter, est_needed_step_err, estimated_step_error, min_value, est_answer,
best_h, found_h, repeat_it;
global glob_max_terms, glob_iolevel, glob_yes_pole, glob_no_pole,
glob_not_given, ALWAYS, INFO, DEBUGL, DEBUGMASSIVE, MAX_UNCHANGED,
glob_check_sign, glob_desired_digits_correct, glob_max_estimated_step_error,
glob_ratio_of_radius, glob_percent_done, glob_subiter_method,
glob_total_exp_sec, glob_optimal_expect_sec, glob_html_log,
glob_good_digits, glob_max_opt_iter, glob_dump, glob_djd_debug,
glob_display_flag, glob_djd_debug2, glob_sec_in_minute, glob_min_in_hour,
glob_hours_in_day, glob_days_in_year, glob_sec_in_hour, glob_sec_in_day,
glob_sec_in_year, glob_almost_1, glob_clock_sec, glob_clock_start_sec,
glob_not_yet_finished, glob_initial_pass, glob_not_yet_start_msg,
glob_reached_optimal_h, glob_optimal_done, glob_disp_incr, glob_h,
glob_max_h, glob_min_h, glob_type_given_pole, glob_large_float,
glob_last_good_h, glob_look_poles, glob_neg_h, glob_display_interval,
glob_next_display, glob_dump_analytic, glob_abserr, glob_relerr,
glob_max_hours, glob_max_iter, glob_max_rel_trunc_err, glob_max_trunc_err,
glob_no_eqs, glob_optimal_clock_start_sec, glob_optimal_start,
glob_small_float, glob_smallish_float, glob_unchanged_h_cnt, glob_warned,
glob_warned2, glob_max_sec, glob_orig_start_sec, glob_start,
glob_curr_iter_when_opt, glob_current_iter, glob_iter, glob_normmax,
glob_max_minutes, array_const_1, array_const_0D0, array_const_0D2,
array_const_0D3, array_const_2D0, array_y_init, array_norms, array_fact_1,
array_pole, array_real_pole, array_complex_pole, array_1st_rel_error,
array_last_rel_error, array_type_pole, array_type_real_pole,
array_type_complex_pole, array_y, array_x, array_tmp0, array_tmp1,
array_tmp2, array_tmp3_c1, array_tmp3_a1, array_tmp3_a2, array_tmp3,
array_tmp4, array_m1, array_y_higher, array_y_higher_work,
array_y_higher_work2, array_y_set_initial, array_poles,
array_given_rad_poles, array_given_ord_poles, array_real_poles,
array_complex_poles, array_fact_2, glob_last;
glob_last;
ALWAYS := 1;
INFO := 2;
DEBUGL := 3;
DEBUGMASSIVE := 4;
glob_iolevel := INFO;
glob_max_terms := 30;
glob_iolevel := 5;
glob_yes_pole := 4;
glob_no_pole := 3;
glob_not_given := 0;
ALWAYS := 1;
INFO := 2;
DEBUGL := 3;
DEBUGMASSIVE := 4;
MAX_UNCHANGED := 10;
glob_check_sign := 1.0;
glob_desired_digits_correct := 8.0;
glob_max_estimated_step_error := 0.;
glob_ratio_of_radius := 0.1;
glob_percent_done := 0.;
glob_subiter_method := 3;
glob_total_exp_sec := 0.1;
glob_optimal_expect_sec := 0.1;
glob_html_log := true;
glob_good_digits := 0;
glob_max_opt_iter := 10;
glob_dump := false;
glob_djd_debug := true;
glob_display_flag := true;
glob_djd_debug2 := true;
glob_sec_in_minute := 60;
glob_min_in_hour := 60;
glob_hours_in_day := 24;
glob_days_in_year := 365;
glob_sec_in_hour := 3600;
glob_sec_in_day := 86400;
glob_sec_in_year := 31536000;
glob_almost_1 := 0.9990;
glob_clock_sec := 0.;
glob_clock_start_sec := 0.;
glob_not_yet_finished := true;
glob_initial_pass := true;
glob_not_yet_start_msg := true;
glob_reached_optimal_h := false;
glob_optimal_done := false;
glob_disp_incr := 0.1;
glob_h := 0.1;
glob_max_h := 0.1;
glob_min_h := 0.1*10^(-5);
glob_type_given_pole := 0;
glob_large_float := 0.90*10^101;
glob_last_good_h := 0.1;
glob_look_poles := false;
glob_neg_h := false;
glob_display_interval := 0.;
glob_next_display := 0.;
glob_dump_analytic := false;
glob_abserr := 0.1*10^(-10);
glob_relerr := 0.1*10^(-10);
glob_max_hours := 0.;
glob_max_iter := 1000;
glob_max_rel_trunc_err := 0.1*10^(-10);
glob_max_trunc_err := 0.1*10^(-10);
glob_no_eqs := 0;
glob_optimal_clock_start_sec := 0.;
glob_optimal_start := 0.;
glob_small_float := 0.;
glob_smallish_float := 0.;
glob_unchanged_h_cnt := 0;
glob_warned := false;
glob_warned2 := false;
glob_max_sec := 10000.0;
glob_orig_start_sec := 0.;
glob_start := 0;
glob_curr_iter_when_opt := 0;
glob_current_iter := 0;
glob_iter := 0;
glob_normmax := 0.;
glob_max_minutes := 0.;
glob_orig_start_sec := elapsed_time_seconds();
MAX_UNCHANGED := 10;
glob_curr_iter_when_opt := 0;
glob_display_flag := true;
glob_no_eqs := 1;
glob_iter := -1;
opt_iter := -1;
glob_max_iter := 50000;
glob_max_hours := 0.;
glob_max_minutes := 15.0;
omniout_str(ALWAYS, "##############ECHO OF PROBLEM#################");
omniout_str(ALWAYS,
"##############temp/expt_lin_cpostode.ode#################");
omniout_str(ALWAYS,
"diff ( y , x , 1 ) = expt((0.2 * x + 0.3) , 2.0);");
omniout_str(ALWAYS, "!");
omniout_str(ALWAYS, "#BEGIN FIRST INPUT BLOCK");
omniout_str(ALWAYS, "Digits:=32;");
omniout_str(ALWAYS, "max_terms:=30;");
omniout_str(ALWAYS, "!");
omniout_str(ALWAYS, "#END FIRST INPUT BLOCK");
omniout_str(ALWAYS, "#BEGIN SECOND INPUT BLOCK");
omniout_str(ALWAYS, "x_start := 0.1;");
omniout_str(ALWAYS, "x_end := 5.0 ;");
omniout_str(ALWAYS, "array_y_init[0 + 1] := exact_soln_y(x_start);");
omniout_str(ALWAYS, "glob_look_poles := true;");
omniout_str(ALWAYS, "glob_max_iter := 1000000;");
omniout_str(ALWAYS, "#END SECOND INPUT BLOCK");
omniout_str(ALWAYS, "#BEGIN OVERRIDE BLOCK");
omniout_str(ALWAYS, "glob_desired_digits_correct:=10;");
omniout_str(ALWAYS, "glob_display_interval:=0.01;");
omniout_str(ALWAYS, "glob_look_poles:=true;");
omniout_str(ALWAYS, "glob_max_iter:=10000000;");
omniout_str(ALWAYS, "glob_max_minutes:=3;");
omniout_str(ALWAYS, "glob_subiter_method:=3;");
omniout_str(ALWAYS, "#END OVERRIDE BLOCK");
omniout_str(ALWAYS, "!");
omniout_str(ALWAYS, "#BEGIN USER DEF BLOCK");
omniout_str(ALWAYS, "exact_soln_y := proc(x)");
omniout_str(ALWAYS, "return(5.0/3.0 * expt((0.2 * x + 0.3),3.0)) ;");
omniout_str(ALWAYS, "end;");
omniout_str(ALWAYS, "#END USER DEF BLOCK");
omniout_str(ALWAYS, "#######END OF ECHO OF PROBLEM#################");
glob_unchanged_h_cnt := 0;
glob_warned := false;
glob_warned2 := false;
glob_small_float := 0.;
glob_smallish_float := 0.;
glob_large_float := 0.10*10^101;
glob_almost_1 := 0.99;
Digits := 32;
max_terms := 30;
glob_max_terms := max_terms;
glob_html_log := true;
array_y_init := Array(0 .. max_terms + 1, []);
array_norms := Array(0 .. max_terms + 1, []);
array_fact_1 := Array(0 .. max_terms + 1, []);
array_pole := Array(0 .. 5, []);
array_real_pole := Array(0 .. 5, []);
array_complex_pole := Array(0 .. 5, []);
array_1st_rel_error := Array(0 .. 3, []);
array_last_rel_error := Array(0 .. 3, []);
array_type_pole := Array(0 .. 3, []);
array_type_real_pole := Array(0 .. 3, []);
array_type_complex_pole := Array(0 .. 3, []);
array_y := Array(0 .. max_terms + 1, []);
array_x := Array(0 .. max_terms + 1, []);
array_tmp0 := Array(0 .. max_terms + 1, []);
array_tmp1 := Array(0 .. max_terms + 1, []);
array_tmp2 := Array(0 .. max_terms + 1, []);
array_tmp3_c1 := Array(0 .. max_terms + 1, []);
array_tmp3_a1 := Array(0 .. max_terms + 1, []);
array_tmp3_a2 := Array(0 .. max_terms + 1, []);
array_tmp3 := Array(0 .. max_terms + 1, []);
array_tmp4 := Array(0 .. max_terms + 1, []);
array_m1 := Array(0 .. max_terms + 1, []);
array_y_higher := Array(0 .. 3, 0 .. max_terms + 1, []);
array_y_higher_work := Array(0 .. 3, 0 .. max_terms + 1, []);
array_y_higher_work2 := Array(0 .. 3, 0 .. max_terms + 1, []);
array_y_set_initial := Array(0 .. 3, 0 .. max_terms + 1, []);
array_poles := Array(0 .. 3, 0 .. 4, []);
array_given_rad_poles := Array(0 .. 3, 0 .. 4, []);
array_given_ord_poles := Array(0 .. 3, 0 .. 4, []);
array_real_poles := Array(0 .. 3, 0 .. 4, []);
array_complex_poles := Array(0 .. 3, 0 .. 4, []);
array_fact_2 := Array(0 .. max_terms + 1, 0 .. max_terms + 1, []);
term := 1;
while term <= max_terms do array_y_init[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_norms[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_fact_1[term] := 0.; term := term + 1
end do;
term := 1;
while term <= 4 do array_pole[term] := 0.; term := term + 1 end do;
term := 1;
while term <= 4 do array_real_pole[term] := 0.; term := term + 1 end do
;
term := 1;
while term <= 4 do array_complex_pole[term] := 0.; term := term + 1
end do;
term := 1;
while term <= 2 do array_1st_rel_error[term] := 0.; term := term + 1
end do;
term := 1;
while term <= 2 do array_last_rel_error[term] := 0.; term := term + 1
end do;
term := 1;
while term <= 2 do array_type_pole[term] := 0.; term := term + 1 end do
;
term := 1;
while term <= 2 do array_type_real_pole[term] := 0.; term := term + 1
end do;
term := 1;
while term <= 2 do
array_type_complex_pole[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_y[term] := 0.; term := term + 1 end do
;
term := 1;
while term <= max_terms do array_x[term] := 0.; term := term + 1 end do
;
term := 1;
while term <= max_terms do array_tmp0[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_tmp1[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_tmp2[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_tmp3_c1[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_tmp3_a1[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_tmp3_a2[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_tmp3[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_tmp4[term] := 0.; term := term + 1
end do;
term := 1;
while term <= max_terms do array_m1[term] := 0.; term := term + 1
end do;
ord := 1;
while ord <= 2 do
term := 1;
while term <= max_terms do
array_y_higher[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
ord := 1;
while ord <= 2 do
term := 1;
while term <= max_terms do
array_y_higher_work[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
ord := 1;
while ord <= 2 do
term := 1;
while term <= max_terms do
array_y_higher_work2[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
ord := 1;
while ord <= 2 do
term := 1;
while term <= max_terms do
array_y_set_initial[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
ord := 1;
while ord <= 2 do
term := 1;
while term <= 3 do array_poles[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
ord := 1;
while ord <= 2 do
term := 1;
while term <= 3 do
array_given_rad_poles[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
ord := 1;
while ord <= 2 do
term := 1;
while term <= 3 do
array_given_ord_poles[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
ord := 1;
while ord <= 2 do
term := 1;
while term <= 3 do
array_real_poles[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
ord := 1;
while ord <= 2 do
term := 1;
while term <= 3 do
array_complex_poles[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
ord := 1;
while ord <= max_terms do
term := 1;
while term <= max_terms do
array_fact_2[ord, term] := 0.; term := term + 1
end do;
ord := ord + 1
end do;
array_y := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do array_y[term] := 0.; term := term + 1
end do;
array_x := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do array_x[term] := 0.; term := term + 1
end do;
array_tmp0 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do array_tmp0[term] := 0.; term := term + 1
end do;
array_tmp1 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do array_tmp1[term] := 0.; term := term + 1
end do;
array_tmp2 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do array_tmp2[term] := 0.; term := term + 1
end do;
array_tmp3_c1 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do
array_tmp3_c1[term] := 0.; term := term + 1
end do;
array_tmp3_a1 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do
array_tmp3_a1[term] := 0.; term := term + 1
end do;
array_tmp3_a2 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do
array_tmp3_a2[term] := 0.; term := term + 1
end do;
array_tmp3 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do array_tmp3[term] := 0.; term := term + 1
end do;
array_tmp4 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do array_tmp4[term] := 0.; term := term + 1
end do;
array_m1 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do array_m1[term] := 0.; term := term + 1
end do;
array_const_1 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do
array_const_1[term] := 0.; term := term + 1
end do;
array_const_1[1] := 1;
array_const_0D0 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do
array_const_0D0[term] := 0.; term := term + 1
end do;
array_const_0D0[1] := 0.;
array_const_0D2 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do
array_const_0D2[term] := 0.; term := term + 1
end do;
array_const_0D2[1] := 0.2;
array_const_0D3 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do
array_const_0D3[term] := 0.; term := term + 1
end do;
array_const_0D3[1] := 0.3;
array_const_2D0 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms + 1 do
array_const_2D0[term] := 0.; term := term + 1
end do;
array_const_2D0[1] := 2.0;
array_m1 := Array(1 .. max_terms + 2, []);
term := 1;
while term <= max_terms do array_m1[term] := 0.; term := term + 1
end do;
array_m1[1] := -1.0;
iiif := 0;
while iiif <= glob_max_terms do
jjjf := 0;
while jjjf <= glob_max_terms do
array_fact_1[iiif] := 0;
array_fact_2[iiif, jjjf] := 0;
jjjf := jjjf + 1
end do;
iiif := iiif + 1
end do;
x_start := 0.1;
x_end := 5.0;
array_y_init[1] := exact_soln_y(x_start);
glob_look_poles := true;
glob_max_iter := 1000000;
glob_desired_digits_correct := 10;
glob_display_interval := 0.01;
glob_look_poles := true;
glob_max_iter := 10000000;
glob_max_minutes := 3;
glob_subiter_method := 3;
glob_last_good_h := glob_h;
glob_max_terms := max_terms;
glob_max_sec := convfloat(60.0)*convfloat(glob_max_minutes)
+ convfloat(3600.0)*convfloat(glob_max_hours);
if 0. < glob_h then
glob_neg_h := false;
glob_display_interval := omniabs(glob_display_interval)
else
glob_neg_h := true;
glob_display_interval := -omniabs(glob_display_interval)
end if;
chk_data();
array_y_set_initial[1, 1] := true;
array_y_set_initial[1, 2] := false;
array_y_set_initial[1, 3] := false;
array_y_set_initial[1, 4] := false;
array_y_set_initial[1, 5] := false;
array_y_set_initial[1, 6] := false;
array_y_set_initial[1, 7] := false;
array_y_set_initial[1, 8] := false;
array_y_set_initial[1, 9] := false;
array_y_set_initial[1, 10] := false;
array_y_set_initial[1, 11] := false;
array_y_set_initial[1, 12] := false;
array_y_set_initial[1, 13] := false;
array_y_set_initial[1, 14] := false;
array_y_set_initial[1, 15] := false;
array_y_set_initial[1, 16] := false;
array_y_set_initial[1, 17] := false;
array_y_set_initial[1, 18] := false;
array_y_set_initial[1, 19] := false;
array_y_set_initial[1, 20] := false;
array_y_set_initial[1, 21] := false;
array_y_set_initial[1, 22] := false;
array_y_set_initial[1, 23] := false;
array_y_set_initial[1, 24] := false;
array_y_set_initial[1, 25] := false;
array_y_set_initial[1, 26] := false;
array_y_set_initial[1, 27] := false;
array_y_set_initial[1, 28] := false;
array_y_set_initial[1, 29] := false;
array_y_set_initial[1, 30] := false;
omniout_str(ALWAYS, "START of Optimize");
glob_check_sign := check_sign(x_start, x_end);
glob_h := check_sign(x_start, x_end);
found_h := false;
glob_h := glob_min_h;
if glob_max_h < glob_h then glob_h := glob_max_h end if;
if glob_display_interval < glob_h then glob_h := glob_display_interval
end if;
best_h := glob_h;
min_value := glob_large_float;
est_answer := est_size_answer();
opt_iter := 1;
est_needed_step_err :=
estimated_needed_step_error(x_start, x_end, glob_h, est_answer);
omniout_float(ALWAYS, "est_needed_step_err", 32, est_needed_step_err,
16, "");
estimated_step_error := 0.;
while opt_iter <= 100 and not found_h do
omniout_int(ALWAYS, "opt_iter", 32, opt_iter, 4, "");
array_x[1] := x_start;
array_x[2] := glob_h;
glob_next_display := x_start;
order_diff := 1;
term_no := 1;
while term_no <= order_diff do
array_y[term_no] := array_y_init[term_no]*
expt(glob_h, term_no - 1)/factorial_1(term_no - 1);
term_no := term_no + 1
end do;
rows := order_diff;
r_order := 1;
while r_order <= rows do
term_no := 1;
while term_no <= rows - r_order + 1 do
it := term_no + r_order - 1;
array_y_higher[r_order, term_no] := array_y_init[it]*
expt(glob_h, term_no - 1)/factorial_1(term_no - 1);
term_no := term_no + 1
end do;
r_order := r_order + 1
end do;
atomall();
estimated_step_error := test_suggested_h();
omniout_float(ALWAYS, "estimated_step_error", 32,
estimated_step_error, 32, "");
if est_needed_step_err < estimated_step_error and opt_iter = 1 or
glob_max_h <= glob_h then
found_h := true; glob_h := glob_max_h; best_h := glob_h
elif est_needed_step_err < estimated_step_error and not found_h
then glob_h := glob_h/2.0; best_h := glob_h; found_h := true
else glob_h := glob_h*2.0; best_h := glob_h
end if;
omniout_float(ALWAYS, "best_h", 32, best_h, 32, "");
opt_iter := opt_iter + 1
end do;
if not found_h and opt_iter = 1 then
omniout_str(ALWAYS, "Beginning glob_h too large.");
found_h := false
end if;
if 100 < opt_iter then glob_h := glob_max_h; found_h := false end if;
if glob_display_interval < glob_h then glob_h := glob_display_interval
end if;
if glob_html_log then html_log_file := fopen("entry.html", WRITE, TEXT)
end if;
if found_h then
omniout_str(ALWAYS, "START of Soultion");
array_x[1] := x_start;
array_x[2] := glob_h;
glob_next_display := x_start;
order_diff := 1;
term_no := 1;
while term_no <= order_diff do
array_y[term_no] := array_y_init[term_no]*
expt(glob_h, term_no - 1)/factorial_1(term_no - 1);
term_no := term_no + 1
end do;
rows := order_diff;
r_order := 1;
while r_order <= rows do
term_no := 1;
while term_no <= rows - r_order + 1 do
it := term_no + r_order - 1;
array_y_higher[r_order, term_no] := array_y_init[it]*
expt(glob_h, term_no - 1)/factorial_1(term_no - 1);
term_no := term_no + 1
end do;
r_order := r_order + 1
end do;
current_iter := 1;
glob_clock_start_sec := elapsed_time_seconds();
glob_clock_sec := elapsed_time_seconds();
glob_current_iter := 0;
glob_iter := 0;
omniout_str(DEBUGL, " ");
glob_reached_optimal_h := true;
glob_optimal_clock_start_sec := elapsed_time_seconds();
while glob_current_iter < glob_max_iter and
glob_check_sign*array_x[1] < glob_check_sign*x_end and
convfloat(glob_clock_sec) - convfloat(glob_orig_start_sec) <
convfloat(glob_max_sec) do
if reached_interval() then
omniout_str(INFO, " ");
omniout_str(INFO, "TOP MAIN SOLVE Loop")
end if;
glob_iter := glob_iter + 1;
glob_clock_sec := elapsed_time_seconds();
glob_current_iter := glob_current_iter + 1;
atomall();
display_alot(current_iter);
if glob_look_poles then check_for_pole() end if;
if reached_interval() then glob_next_display :=
glob_next_display + glob_display_interval
end if;
array_x[1] := array_x[1] + glob_h;
array_x[2] := glob_h;
order_diff := 2;
ord := 2;
calc_term := 1;
iii := glob_max_terms;
while calc_term <= iii do
array_y_higher_work[2, iii] := array_y_higher[2, iii]/(
expt(glob_h, calc_term - 1)*
factorial_3(iii - calc_term, iii - 1));
iii := iii - 1
end do;
temp_sum := 0.;
ord := 2;
calc_term := 1;
iii := glob_max_terms;
while calc_term <= iii do
temp_sum := temp_sum + array_y_higher_work[ord, iii];
iii := iii - 1
end do;
array_y_higher_work2[ord, calc_term] := temp_sum*
expt(glob_h, calc_term - 1)/factorial_1(calc_term - 1);
ord := 1;
calc_term := 2;
iii := glob_max_terms;
while calc_term <= iii do
array_y_higher_work[1, iii] := array_y_higher[1, iii]/(
expt(glob_h, calc_term - 1)*
factorial_3(iii - calc_term, iii - 1));
iii := iii - 1
end do;
temp_sum := 0.;
ord := 1;
calc_term := 2;
iii := glob_max_terms;
while calc_term <= iii do
temp_sum := temp_sum + array_y_higher_work[ord, iii];
iii := iii - 1
end do;
array_y_higher_work2[ord, calc_term] := temp_sum*
expt(glob_h, calc_term - 1)/factorial_1(calc_term - 1);
ord := 1;
calc_term := 1;
iii := glob_max_terms;
while calc_term <= iii do
array_y_higher_work[1, iii] := array_y_higher[1, iii]/(
expt(glob_h, calc_term - 1)*
factorial_3(iii - calc_term, iii - 1));
iii := iii - 1
end do;
temp_sum := 0.;
ord := 1;
calc_term := 1;
iii := glob_max_terms;
while calc_term <= iii do
temp_sum := temp_sum + array_y_higher_work[ord, iii];
iii := iii - 1
end do;
array_y_higher_work2[ord, calc_term] := temp_sum*
expt(glob_h, calc_term - 1)/factorial_1(calc_term - 1);
term_no := glob_max_terms;
while 1 <= term_no do
array_y[term_no] := array_y_higher_work2[1, term_no];
ord := 1;
while ord <= order_diff do
array_y_higher[ord, term_no] :=
array_y_higher_work2[ord, term_no];
ord := ord + 1
end do;
term_no := term_no - 1
end do
end do;
omniout_str(ALWAYS, "Finished!");
if glob_max_iter <= glob_iter then omniout_str(ALWAYS,
"Maximum Iterations Reached before Solution Completed!")
end if;
if convfloat(glob_max_sec) <=
elapsed_time_seconds() - convfloat(glob_orig_start_sec) then
omniout_str(ALWAYS,
"Maximum Time Reached before Solution Completed!")
end if;
glob_clock_sec := elapsed_time_seconds();
omniout_str(INFO,
"diff ( y , x , 1 ) = expt((0.2 * x + 0.3) , 2.0);");
omniout_int(INFO, "Iterations ", 32,
glob_iter, 4, " ");
prog_report(x_start, x_end);
if glob_html_log then
logstart(html_log_file);
logitem_str(html_log_file, "2013-05-26T01:08:13-05:00");
logitem_str(html_log_file, "Maple");
logitem_str(html_log_file,
"expt_lin_c");
logitem_str(html_log_file,
"diff ( y , x , 1 ) = expt((0.2 * x + 0.3) , 2.0);");
logitem_float(html_log_file, x_start);
logitem_float(html_log_file, x_end);
logitem_float(html_log_file, array_x[1]);
logitem_float(html_log_file, glob_h);
logitem_integer(html_log_file, Digits);
logitem_good_digits(html_log_file, array_last_rel_error[1]);
logitem_integer(html_log_file, glob_max_terms);
logitem_float(html_log_file, array_1st_rel_error[1]);
logitem_float(html_log_file, array_last_rel_error[1]);
logitem_integer(html_log_file, glob_iter);
logitem_time(html_log_file, convfloat(glob_clock_sec));
if glob_percent_done < 100.0 then
logitem_time(html_log_file, convfloat(glob_total_exp_sec));
0
else logitem_str(html_log_file, "Done"); 0
end if;
log_revs(html_log_file, " 189 | ");
logitem_str(html_log_file, "expt_lin_c diffeq.mxt");
logitem_str(html_log_file, "expt_lin_c maple results");
logitem_str(html_log_file, "All Tests - All Languages");
logend(html_log_file)
end if;
if glob_html_log then fclose(html_log_file) end if
end if
end proc
> # End Function number 13
> main();
##############ECHO OF PROBLEM#################
##############temp/expt_lin_cpostode.ode#################
diff ( y , x , 1 ) = expt((0.2 * x + 0.3) , 2.0);
!
#BEGIN FIRST INPUT BLOCK
Digits:=32;
max_terms:=30;
!
#END FIRST INPUT BLOCK
#BEGIN SECOND INPUT BLOCK
x_start := 0.1;
x_end := 5.0 ;
array_y_init[0 + 1] := exact_soln_y(x_start);
glob_look_poles := true;
glob_max_iter := 1000000;
#END SECOND INPUT BLOCK
#BEGIN OVERRIDE BLOCK
glob_desired_digits_correct:=10;
glob_display_interval:=0.01;
glob_look_poles:=true;
glob_max_iter:=10000000;
glob_max_minutes:=3;
glob_subiter_method:=3;
#END OVERRIDE BLOCK
!
#BEGIN USER DEF BLOCK
exact_soln_y := proc(x)
return(5.0/3.0 * expt((0.2 * x + 0.3),3.0)) ;
end;
#END USER DEF BLOCK
#######END OF ECHO OF PROBLEM#################
START of Optimize
min_size = 0
min_size = 1
glob_desired_digits_correct = 10
desired_abs_gbl_error = 1.0000000000000000000000000000000e-10
range = 4.9
estimated_steps = 4900000
step_error = 2.0408163265306122448979591836735e-17
est_needed_step_err = 2.0408163265306122448979591836735e-17
opt_iter = 1
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 2.0e-06
opt_iter = 2
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 4.00e-06
opt_iter = 3
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 8.000e-06
opt_iter = 4
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 1.60000e-05
opt_iter = 5
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 3.200000e-05
opt_iter = 6
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 6.4000000e-05
opt_iter = 7
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.000128
opt_iter = 8
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.000256
opt_iter = 9
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.000512
opt_iter = 10
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.001024
opt_iter = 11
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.002048
opt_iter = 12
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.004096
opt_iter = 13
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.008192
opt_iter = 14
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.016384
opt_iter = 15
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.032768
opt_iter = 16
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.065536
opt_iter = 17
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.131072
opt_iter = 18
hn_div_ho = 0.5
hn_div_ho_2 = 0.25
hn_div_ho_3 = 0.125
max_estimated_step_error = 0
estimated_step_error = 0
best_h = 0.1
START of Soultion
TOP MAIN SOLVE Loop
x[1] = 0.1
y[1] (analytic) = 0.054613333333333333333333333333334
y[1] (numeric) = 0.054613333333333333333333333333334
absolute error = 0
relative error = 0 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.11
y[1] (analytic) = 0.055643746666666666666666666666668
y[1] (numeric) = 0.055643746666666666666666666666667
absolute error = 1e-33
relative error = 1.7971471367492387883777775807572e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.12
y[1] (analytic) = 0.056687040000000000000000000000001
y[1] (numeric) = 0.05668704
absolute error = 1e-33
relative error = 1.7640716467114881990663121588285e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.13
y[1] (analytic) = 0.057743293333333333333333333333334
y[1] (numeric) = 0.057743293333333333333333333333333
absolute error = 1e-33
relative error = 1.7318028506398549719020760159852e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.14
y[1] (analytic) = 0.058812586666666666666666666666668
y[1] (numeric) = 0.058812586666666666666666666666666
absolute error = 2e-33
relative error = 3.4006326083486890788003656360180e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.15
y[1] (analytic) = 0.059895000000000000000000000000001
y[1] (numeric) = 0.059894999999999999999999999999999
absolute error = 2e-33
relative error = 3.3391768928959011603639702813256e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.16
y[1] (analytic) = 0.060990613333333333333333333333335
y[1] (numeric) = 0.060990613333333333333333333333332
absolute error = 3e-33
relative error = 4.9187896891674697046277722298687e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.17
y[1] (analytic) = 0.062099506666666666666666666666668
y[1] (numeric) = 0.062099506666666666666666666666665
absolute error = 3e-33
relative error = 4.8309562523631427667809706700836e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.18
y[1] (analytic) = 0.063221760000000000000000000000001
y[1] (numeric) = 0.063221759999999999999999999999998
absolute error = 3e-33
relative error = 4.7452016520894071914480077745383e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.19
y[1] (analytic) = 0.064357453333333333333333333333335
y[1] (numeric) = 0.064357453333333333333333333333331
absolute error = 4e-33
relative error = 6.2152863309901013278130541316218e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.2
y[1] (analytic) = 0.065506666666666666666666666666668
y[1] (numeric) = 0.065506666666666666666666666666664
absolute error = 4e-33
relative error = 6.1062487278648483614899246895989e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.21
y[1] (analytic) = 0.066669480000000000000000000000001
y[1] (numeric) = 0.066669479999999999999999999999997
absolute error = 4e-33
relative error = 5.9997468106845891103395436712570e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.22
y[1] (analytic) = 0.067845973333333333333333333333335
y[1] (numeric) = 0.06784597333333333333333333333333
absolute error = 5e-33
relative error = 7.3696341202661400882941124680844e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.23
y[1] (analytic) = 0.069036226666666666666666666666668
y[1] (numeric) = 0.069036226666666666666666666666663
absolute error = 5e-33
relative error = 7.2425742851530896725332805945167e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.24
y[1] (analytic) = 0.070240320000000000000000000000001
y[1] (numeric) = 0.070240319999999999999999999999996
absolute error = 5e-33
relative error = 7.1184185949038956542339214855512e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.25
y[1] (analytic) = 0.071458333333333333333333333333335
y[1] (numeric) = 0.071458333333333333333333333333329
absolute error = 6e-33
relative error = 8.3965014577259475218658892128278e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.26
y[1] (analytic) = 0.072690346666666666666666666666668
y[1] (numeric) = 0.072690346666666666666666666666662
absolute error = 6e-33
relative error = 8.2541909278737791134485349361381e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.27
y[1] (analytic) = 0.073936440000000000000000000000001
y[1] (numeric) = 0.073936439999999999999999999999995
absolute error = 6e-33
relative error = 8.1150783023905397663182052043619e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.28
y[1] (analytic) = 0.075196693333333333333333333333335
y[1] (numeric) = 0.075196693333333333333333333333328
absolute error = 7e-33
relative error = 9.3089199666935709229767550062483e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.29
y[1] (analytic) = 0.076471186666666666666666666666668
y[1] (numeric) = 0.076471186666666666666666666666661
absolute error = 7e-33
relative error = 9.1537745196927330712273502926329e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.3
y[1] (analytic) = 0.077760000000000000000000000000002
y[1] (numeric) = 0.077759999999999999999999999999994
absolute error = 8e-33
relative error = 1.0288065843621399176954732510288e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
bytes used=4000232, alloc=3014104, time=0.42
x[1] = 0.31
y[1] (analytic) = 0.079063213333333333333333333333335
y[1] (numeric) = 0.079063213333333333333333333333327
absolute error = 8e-33
relative error = 1.0118485782094024005432952299265e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.32
y[1] (analytic) = 0.080380906666666666666666666666668
y[1] (numeric) = 0.08038090666666666666666666666666
absolute error = 8e-33
relative error = 9.9526122953245281466510786641204e-30 %
Correct digits = 32
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.33
y[1] (analytic) = 0.081713160000000000000000000000002
y[1] (numeric) = 0.081713159999999999999999999999993
absolute error = 9e-33
relative error = 1.1014137747212321736180561368572e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.34
y[1] (analytic) = 0.083060053333333333333333333333335
y[1] (numeric) = 0.083060053333333333333333333333326
absolute error = 9e-33
relative error = 1.0835533615517383085394920687104e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.35
y[1] (analytic) = 0.084421666666666666666666666666668
y[1] (numeric) = 0.084421666666666666666666666666659
absolute error = 9e-33
relative error = 1.0660770339367855803210076402187e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.36
y[1] (analytic) = 0.085798080000000000000000000000002
y[1] (numeric) = 0.085798079999999999999999999999992
absolute error = 1.0e-32
relative error = 1.1655272472297748387842711631775e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.37
y[1] (analytic) = 0.087189373333333333333333333333335
y[1] (numeric) = 0.087189373333333333333333333333325
absolute error = 1.0e-32
relative error = 1.1469287618078227576051699266715e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.38
y[1] (analytic) = 0.088595626666666666666666666666668
y[1] (numeric) = 0.088595626666666666666666666666658
absolute error = 1.0e-32
relative error = 1.1287238858441771091184034366181e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.39
y[1] (analytic) = 0.090016920000000000000000000000002
y[1] (numeric) = 0.090016919999999999999999999999991
absolute error = 1.1e-32
relative error = 1.2219924876345469273998710464655e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.4
y[1] (analytic) = 0.091453333333333333333333333333335
y[1] (numeric) = 0.091453333333333333333333333333324
absolute error = 1.1e-32
relative error = 1.2027992418719930018953200174952e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.41
y[1] (analytic) = 0.092904946666666666666666666666669
y[1] (numeric) = 0.092904946666666666666666666666657
absolute error = 1.2e-32
relative error = 1.2916427413768136637432007567304e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.42
y[1] (analytic) = 0.094371840000000000000000000000002
y[1] (numeric) = 0.09437183999999999999999999999999
absolute error = 1.2e-32
relative error = 1.2715657552083333333333333333333e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.43
y[1] (analytic) = 0.095854093333333333333333333333335
y[1] (numeric) = 0.095854093333333333333333333333323
absolute error = 1.2e-32
relative error = 1.2519027182563721500608494271223e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.44
y[1] (analytic) = 0.097351786666666666666666666666669
y[1] (numeric) = 0.097351786666666666666666666666656
absolute error = 1.3e-32
relative error = 1.3353632681146478530645696761052e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.45
y[1] (analytic) = 0.098865000000000000000000000000002
y[1] (numeric) = 0.098864999999999999999999999999989
absolute error = 1.3e-32
relative error = 1.3149243918474687705456936226167e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.46
y[1] (analytic) = 0.10039381333333333333333333333334
y[1] (numeric) = 0.10039381333333333333333333333332
absolute error = 2e-32
relative error = 1.9921546294486140978673851881443e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.47
y[1] (analytic) = 0.10193830666666666666666666666667
y[1] (numeric) = 0.10193830666666666666666666666665
absolute error = 2e-32
relative error = 1.9619709855882767263284603641967e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.48
y[1] (analytic) = 0.10349856
y[1] (numeric) = 0.10349855999999999999999999999998
absolute error = 2e-32
relative error = 1.9323940352406835418772976165079e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.49
y[1] (analytic) = 0.10507465333333333333333333333334
y[1] (numeric) = 0.10507465333333333333333333333331
absolute error = 3e-32
relative error = 2.8551129171779962411486741045952e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.5
y[1] (analytic) = 0.10666666666666666666666666666667
y[1] (numeric) = 0.10666666666666666666666666666664
absolute error = 3e-32
relative error = 2.8124999999999999999999999999999e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.51
y[1] (analytic) = 0.10827468
y[1] (numeric) = 0.10827467999999999999999999999997
absolute error = 3e-32
relative error = 2.7707308855588397952319046336595e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.52
y[1] (analytic) = 0.10989877333333333333333333333334
y[1] (numeric) = 0.1098987733333333333333333333333
absolute error = 4e-32
relative error = 3.6397130547286666711960873569955e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.53
y[1] (analytic) = 0.11153902666666666666666666666667
y[1] (numeric) = 0.11153902666666666666666666666663
absolute error = 4e-32
relative error = 3.5861887265288430584595382877645e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.54
y[1] (analytic) = 0.11319552
y[1] (numeric) = 0.11319551999999999999999999999996
absolute error = 4e-32
relative error = 3.5337087545514168758622249361105e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.55
y[1] (analytic) = 0.11486833333333333333333333333334
y[1] (numeric) = 0.11486833333333333333333333333329
absolute error = 5e-32
relative error = 4.3528097386863220208644680141029e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.56
y[1] (analytic) = 0.11655754666666666666666666666667
y[1] (numeric) = 0.11655754666666666666666666666662
absolute error = 5e-32
relative error = 4.2897265282179354953249988331943e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.57
y[1] (analytic) = 0.11826324
y[1] (numeric) = 0.11826323999999999999999999999995
absolute error = 5e-32
relative error = 4.2278564328188539397364726351147e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.58
y[1] (analytic) = 0.11998549333333333333333333333334
y[1] (numeric) = 0.11998549333333333333333333333328
absolute error = 6e-32
relative error = 5.0006045175238962221210741920798e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.59
y[1] (analytic) = 0.12172438666666666666666666666667
y[1] (numeric) = 0.12172438666666666666666666666661
absolute error = 6e-32
relative error = 4.9291683978088641563909023324714e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.6
y[1] (analytic) = 0.12348
y[1] (numeric) = 0.12347999999999999999999999999994
absolute error = 6e-32
relative error = 4.8590864917395529640427599611273e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.61
y[1] (analytic) = 0.12525241333333333333333333333334
y[1] (numeric) = 0.12525241333333333333333333333327
absolute error = 7e-32
relative error = 5.5887146712063352392092298740535e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.62
y[1] (analytic) = 0.12704170666666666666666666666667
y[1] (numeric) = 0.1270417066666666666666666666666
absolute error = 7e-32
relative error = 5.5100015448994807794353728245463e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.63
y[1] (analytic) = 0.12884796
y[1] (numeric) = 0.12884795999999999999999999999993
absolute error = 7e-32
relative error = 5.4327596649570548109570380470129e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.64
y[1] (analytic) = 0.13067125333333333333333333333334
y[1] (numeric) = 0.13067125333333333333333333333326
absolute error = 8e-32
relative error = 6.1222340766813899593728546671420e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.65
y[1] (analytic) = 0.13251166666666666666666666666667
y[1] (numeric) = 0.13251166666666666666666666666659
absolute error = 8e-32
relative error = 6.0372042713220219603305369338547e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.66
y[1] (analytic) = 0.13436928
y[1] (numeric) = 0.13436927999999999999999999999992
absolute error = 8e-32
relative error = 5.9537418076512726718488035360463e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.67
y[1] (analytic) = 0.13624417333333333333333333333334
y[1] (numeric) = 0.13624417333333333333333333333325
absolute error = 9e-32
relative error = 6.6057870805092778034886972047144e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.68
y[1] (analytic) = 0.13813642666666666666666666666667
y[1] (numeric) = 0.13813642666666666666666666666658
absolute error = 9e-32
relative error = 6.5152981130152297747772443705892e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.69
y[1] (analytic) = 0.14004612
y[1] (numeric) = 0.14004611999999999999999999999991
absolute error = 9e-32
relative error = 6.4264543708886758162239696465707e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.7
y[1] (analytic) = 0.14197333333333333333333333333334
y[1] (numeric) = 0.14197333333333333333333333333324
absolute error = 1.0e-31
relative error = 7.0435762584522915101427498121710e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.71
y[1] (analytic) = 0.14391814666666666666666666666667
y[1] (numeric) = 0.14391814666666666666666666666657
absolute error = 1.0e-31
relative error = 6.9483940917897682766157540846596e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.72
y[1] (analytic) = 0.14588064
y[1] (numeric) = 0.1458806399999999999999999999999
absolute error = 1.0e-31
relative error = 6.8549191996964093384838454232172e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.73
y[1] (analytic) = 0.14786089333333333333333333333334
y[1] (numeric) = 0.14786089333333333333333333333323
absolute error = 1.1e-31
relative error = 7.4394248215462335003702128315737e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.74
y[1] (analytic) = 0.14985898666666666666666666666667
y[1] (numeric) = 0.14985898666666666666666666666656
absolute error = 1.1e-31
relative error = 7.3402338055758017492711370262389e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.75
y[1] (analytic) = 0.151875
y[1] (numeric) = 0.15187499999999999999999999999989
absolute error = 1.1e-31
relative error = 7.2427983539094650205761316872428e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.76
y[1] (analytic) = 0.15390901333333333333333333333334
y[1] (numeric) = 0.15390901333333333333333333333322
absolute error = 1.2e-31
relative error = 7.7968143256240743448770078529511e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.77
y[1] (analytic) = 0.15596110666666666666666666666667
y[1] (numeric) = 0.15596110666666666666666666666655
absolute error = 1.2e-31
relative error = 7.6942259877954187381589067975322e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.78
y[1] (analytic) = 0.15803136
y[1] (numeric) = 0.15803135999999999999999999999988
absolute error = 1.2e-31
relative error = 7.5934295572726830927734849589347e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.79
y[1] (analytic) = 0.16011985333333333333333333333334
y[1] (numeric) = 0.16011985333333333333333333333321
absolute error = 1.3e-31
relative error = 8.1189182536514938934493153420322e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
bytes used=8001776, alloc=3931440, time=0.91
TOP MAIN SOLVE Loop
x[1] = 0.8
y[1] (analytic) = 0.16222666666666666666666666666667
y[1] (numeric) = 0.16222666666666666666666666666654
absolute error = 1.3e-31
relative error = 8.0134790827648557573765102325962e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.81
y[1] (analytic) = 0.16435188
y[1] (numeric) = 0.16435187999999999999999999999987
absolute error = 1.3e-31
relative error = 7.9098578002271711160225243544522e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.82
y[1] (analytic) = 0.16649557333333333333333333333334
y[1] (numeric) = 0.1664955733333333333333333333332
absolute error = 1.4e-31
relative error = 8.4086319652302267415638197548072e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.83
y[1] (analytic) = 0.16865782666666666666666666666667
y[1] (numeric) = 0.16865782666666666666666666666653
absolute error = 1.4e-31
relative error = 8.3008303122922568985236143206555e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.84
y[1] (analytic) = 0.17083872
y[1] (numeric) = 0.17083871999999999999999999999986
absolute error = 1.4e-31
relative error = 8.1948635531804499588851988589004e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.85
y[1] (analytic) = 0.17303833333333333333333333333334
y[1] (numeric) = 0.17303833333333333333333333333319
absolute error = 1.5e-31
relative error = 8.6685994432832801980293383932266e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.86
y[1] (analytic) = 0.17525674666666666666666666666667
y[1] (numeric) = 0.17525674666666666666666666666652
absolute error = 1.5e-31
relative error = 8.5588716470525224097887320514754e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.87
y[1] (analytic) = 0.17749404
y[1] (numeric) = 0.17749403999999999999999999999985
absolute error = 1.5e-31
relative error = 8.4509879881037132289061649619334e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.88
y[1] (analytic) = 0.17975029333333333333333333333334
y[1] (numeric) = 0.17975029333333333333333333333318
absolute error = 1.6e-31
relative error = 8.9012372126309742878861875941673e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.89
y[1] (analytic) = 0.18202558666666666666666666666667
y[1] (numeric) = 0.18202558666666666666666666666651
absolute error = 1.6e-31
relative error = 8.7899730433501693058682812284484e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.9
y[1] (analytic) = 0.18432
y[1] (numeric) = 0.18431999999999999999999999999984
absolute error = 1.6e-31
relative error = 8.6805555555555555555555555555556e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.91
y[1] (analytic) = 0.18663361333333333333333333333334
y[1] (numeric) = 0.18663361333333333333333333333317
absolute error = 1.7e-31
relative error = 9.1087557575373525069189037115926e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.92
y[1] (analytic) = 0.18896650666666666666666666666667
y[1] (numeric) = 0.1889665066666666666666666666665
absolute error = 1.7e-31
relative error = 8.9963032602320778116023100531112e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.93
y[1] (analytic) = 0.19131876
y[1] (numeric) = 0.19131875999999999999999999999983
absolute error = 1.7e-31
relative error = 8.8856942204726812990006834666919e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.94
y[1] (analytic) = 0.19369045333333333333333333333334
y[1] (numeric) = 0.19369045333333333333333333333316
absolute error = 1.8e-31
relative error = 9.2931787242103964649023486547329e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.95
y[1] (analytic) = 0.19608166666666666666666666666667
y[1] (numeric) = 0.19608166666666666666666666666649
absolute error = 1.8e-31
relative error = 9.1798485324992137629729109469692e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.96
y[1] (analytic) = 0.19849248
y[1] (numeric) = 0.19849247999999999999999999999982
absolute error = 1.8e-31
relative error = 9.0683536222631708768009750293815e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.97
y[1] (analytic) = 0.20092297333333333333333333333334
y[1] (numeric) = 0.20092297333333333333333333333315
absolute error = 1.9e-31
relative error = 9.4563601587155489038817728027514e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.98
y[1] (analytic) = 0.20337322666666666666666666666667
y[1] (numeric) = 0.20337322666666666666666666666648
absolute error = 1.9e-31
relative error = 9.3424293410761639421301735423448e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 0.99
y[1] (analytic) = 0.20584332
y[1] (numeric) = 0.20584331999999999999999999999981
absolute error = 1.9e-31
relative error = 9.2303213920179678407829799869143e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1
y[1] (analytic) = 0.20833333333333333333333333333334
y[1] (numeric) = 0.20833333333333333333333333333314
absolute error = 2.0e-31
relative error = 9.5999999999999999999999999999997e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.01
y[1] (analytic) = 0.21084334666666666666666666666667
y[1] (numeric) = 0.21084334666666666666666666666647
absolute error = 2.0e-31
relative error = 9.4857154926586569706634012196479e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.02
y[1] (analytic) = 0.21337344
y[1] (numeric) = 0.2133734399999999999999999999998
absolute error = 2.0e-31
relative error = 9.3732378312877179090331017768659e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.03
y[1] (analytic) = 0.21592369333333333333333333333334
y[1] (numeric) = 0.21592369333333333333333333333313
absolute error = 2.1e-31
relative error = 9.7256580210403959374043064719712e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.04
y[1] (analytic) = 0.21849418666666666666666666666667
y[1] (numeric) = 0.21849418666666666666666666666646
absolute error = 2.1e-31
relative error = 9.6112396949203347225592088979452e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.05
y[1] (analytic) = 0.221085
y[1] (numeric) = 0.22108499999999999999999999999979
absolute error = 2.1e-31
relative error = 9.4986091322342085623176606282651e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.06
y[1] (analytic) = 0.22369621333333333333333333333334
y[1] (numeric) = 0.22369621333333333333333333333312
absolute error = 2.2e-31
relative error = 9.8347663879394531249999999999997e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.07
y[1] (analytic) = 0.22632790666666666666666666666667
y[1] (numeric) = 0.22632790666666666666666666666645
absolute error = 2.2e-31
relative error = 9.7204097912686330682567764658627e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.08
y[1] (analytic) = 0.22898016
y[1] (numeric) = 0.22898015999999999999999999999978
absolute error = 2.2e-31
relative error = 9.6078192975321530039982503287621e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.09
y[1] (analytic) = 0.23165305333333333333333333333334
y[1] (numeric) = 0.23165305333333333333333333333311
absolute error = 2.3e-31
relative error = 9.9286409866156739339905959366012e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.1
y[1] (analytic) = 0.23434666666666666666666666666667
y[1] (numeric) = 0.23434666666666666666666666666644
absolute error = 2.3e-31
relative error = 9.8145197997269003186162949476558e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.11
y[1] (analytic) = 0.23706108
y[1] (numeric) = 0.23706107999999999999999999999977
absolute error = 2.3e-31
relative error = 9.7021408997208651879929003951218e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.12
y[1] (analytic) = 0.23979637333333333333333333333334
y[1] (numeric) = 0.2397963733333333333333333333331
absolute error = 2.4e-31
relative error = 1.0008491649136978885641195129556e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.13
y[1] (analytic) = 0.24255262666666666666666666666667
y[1] (numeric) = 0.24255262666666666666666666666643
absolute error = 2.4e-31
relative error = 9.8947598835870505518335072520618e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.14
y[1] (analytic) = 0.24532992
y[1] (numeric) = 0.24532991999999999999999999999976
absolute error = 2.4e-31
relative error = 9.7827448034059604307538191835712e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.15
y[1] (analytic) = 0.24812833333333333333333333333334
y[1] (numeric) = 0.24812833333333333333333333333309
absolute error = 2.5e-31
relative error = 1.0075431396387621996681824593456e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.16
y[1] (analytic) = 0.25094794666666666666666666666667
y[1] (numeric) = 0.25094794666666666666666666666642
absolute error = 2.5e-31
relative error = 9.9622253666842781100526770598268e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.17
y[1] (analytic) = 0.25378884000000000000000000000001
y[1] (numeric) = 0.25378883999999999999999999999975
absolute error = 2.6e-31
relative error = 1.0244737317842660063381825615342e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.18
y[1] (analytic) = 0.25665109333333333333333333333334
y[1] (numeric) = 0.25665109333333333333333333333308
absolute error = 2.6e-31
relative error = 1.0130484800324508001316651316817e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.19
y[1] (analytic) = 0.25953478666666666666666666666667
y[1] (numeric) = 0.25953478666666666666666666666641
absolute error = 2.6e-31
relative error = 1.0017924893202498891734949955841e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.2
y[1] (analytic) = 0.26244000000000000000000000000001
y[1] (numeric) = 0.26243999999999999999999999999974
absolute error = 2.7e-31
relative error = 1.0288065843621399176954732510288e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.21
y[1] (analytic) = 0.26536681333333333333333333333334
y[1] (numeric) = 0.26536681333333333333333333333307
absolute error = 2.7e-31
relative error = 1.0174595557314350937929389914669e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.22
y[1] (analytic) = 0.26831530666666666666666666666667
y[1] (numeric) = 0.2683153066666666666666666666664
absolute error = 2.7e-31
relative error = 1.0062787820578058212904538978221e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.23
y[1] (analytic) = 0.27128556000000000000000000000001
y[1] (numeric) = 0.27128555999999999999999999999973
absolute error = 2.8e-31
relative error = 1.0321227565521732892823340836865e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.24
y[1] (analytic) = 0.27427765333333333333333333333334
y[1] (numeric) = 0.27427765333333333333333333333306
absolute error = 2.8e-31
relative error = 1.0208633353724673352900204678237e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.25
y[1] (analytic) = 0.27729166666666666666666666666667
y[1] (numeric) = 0.27729166666666666666666666666639
absolute error = 2.8e-31
relative error = 1.0097670924117205108940646130729e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.26
y[1] (analytic) = 0.28032768000000000000000000000001
y[1] (numeric) = 0.28032767999999999999999999999972
absolute error = 2.9e-31
relative error = 1.0345036209053633233792681479046e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.27
y[1] (analytic) = 0.28338577333333333333333333333334
y[1] (numeric) = 0.28338577333333333333333333333305
absolute error = 2.9e-31
relative error = 1.0233400095878725128191568120592e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.28
y[1] (analytic) = 0.28646602666666666666666666666667
y[1] (numeric) = 0.28646602666666666666666666666638
absolute error = 2.9e-31
relative error = 1.0123364483197355991300329644674e-28 %
Correct digits = 30
h = 0.01
bytes used=12002596, alloc=3996964, time=1.40
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.29
y[1] (analytic) = 0.28956852000000000000000000000001
y[1] (numeric) = 0.28956851999999999999999999999971
absolute error = 3.0e-31
relative error = 1.0360242197597998566971299228244e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.3
y[1] (analytic) = 0.29269333333333333333333333333334
y[1] (numeric) = 0.29269333333333333333333333333304
absolute error = 3.0e-31
relative error = 1.0249635568513119533527696793003e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.31
y[1] (analytic) = 0.29584054666666666666666666666667
y[1] (numeric) = 0.29584054666666666666666666666637
absolute error = 3.0e-31
relative error = 1.0140597811226326830746346646826e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.32
y[1] (analytic) = 0.29901024000000000000000000000001
y[1] (numeric) = 0.2990102399999999999999999999997
absolute error = 3.1e-31
relative error = 1.0367537914420589743013483417825e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.33
y[1] (analytic) = 0.30220249333333333333333333333334
y[1] (numeric) = 0.30220249333333333333333333333303
absolute error = 3.1e-31
relative error = 1.0258022578856287397937638899692e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.34
y[1] (analytic) = 0.30541738666666666666666666666667
y[1] (numeric) = 0.30541738666666666666666666666636
absolute error = 3.1e-31
relative error = 1.0150044284752354635649644744084e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.35
y[1] (analytic) = 0.30865500000000000000000000000001
y[1] (numeric) = 0.30865499999999999999999999999969
absolute error = 3.2e-31
relative error = 1.0367562488862969982666731463932e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.36
y[1] (analytic) = 0.31191541333333333333333333333334
y[1] (numeric) = 0.31191541333333333333333333333302
absolute error = 3.2e-31
relative error = 1.0259191637254134197750022484728e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.37
y[1] (analytic) = 0.31519870666666666666666666666667
y[1] (numeric) = 0.31519870666666666666666666666635
absolute error = 3.2e-31
relative error = 1.0152325921134278765864648429395e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.38
y[1] (analytic) = 0.31850496000000000000000000000001
y[1] (numeric) = 0.31850495999999999999999999999968
absolute error = 3.3e-31
relative error = 1.0360906153549382716049382716049e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.39
y[1] (analytic) = 0.32183425333333333333333333333334
y[1] (numeric) = 0.32183425333333333333333333333301
absolute error = 3.3e-31
relative error = 1.0253725219801546709198428391856e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.4
y[1] (analytic) = 0.32518666666666666666666666666667
y[1] (numeric) = 0.32518666666666666666666666666634
absolute error = 3.3e-31
relative error = 1.0148017548894993644675878469802e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.41
y[1] (analytic) = 0.32856228000000000000000000000001
y[1] (numeric) = 0.32856227999999999999999999999967
absolute error = 3.4e-31
relative error = 1.0348114214449692764488972988622e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.42
y[1] (analytic) = 0.33196117333333333333333333333334
y[1] (numeric) = 0.331961173333333333333333333333
absolute error = 3.4e-31
relative error = 1.0242161653603827082106951624222e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.43
y[1] (analytic) = 0.33538342666666666666666666666667
y[1] (numeric) = 0.33538342666666666666666666666633
absolute error = 3.4e-31
relative error = 1.0137650610205067974537561128542e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.44
y[1] (analytic) = 0.33882912000000000000000000000001
y[1] (numeric) = 0.33882911999999999999999999999966
absolute error = 3.5e-31
relative error = 1.0329690671215036063016071345934e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.45
y[1] (analytic) = 0.34229833333333333333333333333334
y[1] (numeric) = 0.34229833333333333333333333333299
absolute error = 3.5e-31
relative error = 1.0224998661012080105560938557496e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.46
y[1] (analytic) = 0.34579114666666666666666666666667
y[1] (numeric) = 0.34579114666666666666666666666632
absolute error = 3.5e-31
relative error = 1.0121716630801729413855053007719e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.47
y[1] (analytic) = 0.34930764000000000000000000000001
y[1] (numeric) = 0.34930763999999999999999999999965
absolute error = 3.6e-31
relative error = 1.0306101521283645556678920621375e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.48
y[1] (analytic) = 0.35284789333333333333333333333334
y[1] (numeric) = 0.35284789333333333333333333333298
absolute error = 3.6e-31
relative error = 1.0202696595382818779854223871045e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.49
y[1] (analytic) = 0.35641198666666666666666666666667
y[1] (numeric) = 0.35641198666666666666666666666631
absolute error = 3.6e-31
relative error = 1.0100670388975694382744104491211e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.5
y[1] (analytic) = 0.36000000000000000000000000000001
y[1] (numeric) = 0.35999999999999999999999999999964
absolute error = 3.7e-31
relative error = 1.0277777777777777777777777777777e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.51
y[1] (analytic) = 0.36361201333333333333333333333334
y[1] (numeric) = 0.36361201333333333333333333333297
absolute error = 3.7e-31
relative error = 1.0175681397545317626285981530276e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.52
y[1] (analytic) = 0.36724810666666666666666666666667
y[1] (numeric) = 0.3672481066666666666666666666663
absolute error = 3.7e-31
relative error = 1.0074932811997614836807145962867e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.53
y[1] (analytic) = 0.37090836000000000000000000000001
y[1] (numeric) = 0.37090835999999999999999999999963
absolute error = 3.8e-31
relative error = 1.0245118228125135815218616264136e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.54
y[1] (analytic) = 0.37459285333333333333333333333334
y[1] (numeric) = 0.37459285333333333333333333333296
absolute error = 3.8e-31
relative error = 1.0144347299168975069252077562327e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.55
y[1] (analytic) = 0.37830166666666666666666666666667
y[1] (numeric) = 0.37830166666666666666666666666629
absolute error = 3.8e-31
relative error = 1.0044893625457637423396671968138e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.56
y[1] (analytic) = 0.38203488000000000000000000000001
y[1] (numeric) = 0.38203487999999999999999999999962
absolute error = 3.9e-31
relative error = 1.0208491957592982085824205370986e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.57
y[1] (analytic) = 0.38579257333333333333333333333334
y[1] (numeric) = 0.38579257333333333333333333333295
absolute error = 3.9e-31
relative error = 1.0109059296562232077527810022125e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.58
y[1] (analytic) = 0.38957482666666666666666666666667
y[1] (numeric) = 0.38957482666666666666666666666628
absolute error = 3.9e-31
relative error = 1.0010913778412513443716007386103e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.59
y[1] (analytic) = 0.39338172000000000000000000000001
y[1] (numeric) = 0.39338171999999999999999999999961
absolute error = 4.0e-31
relative error = 1.0168240659479550803733330567572e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.6
y[1] (analytic) = 0.39721333333333333333333333333334
y[1] (numeric) = 0.39721333333333333333333333333294
absolute error = 4.0e-31
relative error = 1.0070155416065254607096102849854e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.61
y[1] (analytic) = 0.40106974666666666666666666666667
y[1] (numeric) = 0.40106974666666666666666666666627
absolute error = 4.0e-31
relative error = 9.9733276649371475903891828490279e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.62
y[1] (analytic) = 0.40495104000000000000000000000001
y[1] (numeric) = 0.4049510399999999999999999999996
absolute error = 4.1e-31
relative error = 1.0124680751529863955899458858038e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.63
y[1] (analytic) = 0.40885729333333333333333333333334
y[1] (numeric) = 0.40885729333333333333333333333293
absolute error = 4.1e-31
relative error = 1.0027948790086399176214605539465e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.64
y[1] (analytic) = 0.41278858666666666666666666666667
y[1] (numeric) = 0.41278858666666666666666666666626
absolute error = 4.1e-31
relative error = 9.9324451606284721567237130328926e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.65
y[1] (analytic) = 0.41674500000000000000000000000001
y[1] (numeric) = 0.41674499999999999999999999999959
absolute error = 4.2e-31
relative error = 1.0078105316200554295792391030486e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.66
y[1] (analytic) = 0.42072661333333333333333333333334
y[1] (numeric) = 0.42072661333333333333333333333292
absolute error = 4.2e-31
relative error = 9.9827295609475112516454073612836e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.67
y[1] (analytic) = 0.42473350666666666666666666666668
y[1] (numeric) = 0.42473350666666666666666666666625
absolute error = 4.3e-31
relative error = 1.0123995240560724304209199349565e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.68
y[1] (analytic) = 0.42876576000000000000000000000001
y[1] (numeric) = 0.42876575999999999999999999999958
absolute error = 4.3e-31
relative error = 1.0028785880663605228178667998116e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.69
y[1] (analytic) = 0.43282345333333333333333333333334
y[1] (numeric) = 0.43282345333333333333333333333291
absolute error = 4.3e-31
relative error = 9.9347666280191409220923610454996e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.7
y[1] (analytic) = 0.43690666666666666666666666666668
y[1] (numeric) = 0.43690666666666666666666666666624
absolute error = 4.4e-31
relative error = 1.0070800781250000000000000000000e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.71
y[1] (analytic) = 0.44101548000000000000000000000001
y[1] (numeric) = 0.44101547999999999999999999999957
absolute error = 4.4e-31
relative error = 9.9769740508881910449039113094168e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.72
y[1] (analytic) = 0.44514997333333333333333333333334
y[1] (numeric) = 0.4451499733333333333333333333329
absolute error = 4.4e-31
relative error = 9.8843092521208133360777766941645e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.73
y[1] (analytic) = 0.44931022666666666666666666666668
y[1] (numeric) = 0.44931022666666666666666666666623
absolute error = 4.5e-31
relative error = 1.0015351828033174524968895284733e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.74
y[1] (analytic) = 0.45349632000000000000000000000001
y[1] (numeric) = 0.45349631999999999999999999999956
absolute error = 4.5e-31
relative error = 9.9229030127521211197480058934103e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.75
y[1] (analytic) = 0.45770833333333333333333333333334
y[1] (numeric) = 0.45770833333333333333333333333289
absolute error = 4.5e-31
relative error = 9.8315885298133818843878015475647e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.76
y[1] (analytic) = 0.46194634666666666666666666666668
y[1] (numeric) = 0.46194634666666666666666666666622
absolute error = 4.6e-31
relative error = 9.9578663911791660884369370919148e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.77
y[1] (analytic) = 0.46621044000000000000000000000001
y[1] (numeric) = 0.46621043999999999999999999999955
absolute error = 4.6e-31
relative error = 9.8667889118913767782634811867360e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
bytes used=16006396, alloc=3996964, time=1.88
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.78
y[1] (analytic) = 0.47050069333333333333333333333334
y[1] (numeric) = 0.47050069333333333333333333333288
absolute error = 4.6e-31
relative error = 9.7768187490024811015510512035518e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.79
y[1] (analytic) = 0.47481718666666666666666666666668
y[1] (numeric) = 0.47481718666666666666666666666621
absolute error = 4.7e-31
relative error = 9.8985464974323170385660569601957e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.8
y[1] (analytic) = 0.47916000000000000000000000000001
y[1] (numeric) = 0.47915999999999999999999999999954
absolute error = 4.7e-31
relative error = 9.8088321228817096585691627013939e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.81
y[1] (analytic) = 0.48352921333333333333333333333334
y[1] (numeric) = 0.48352921333333333333333333333287
absolute error = 4.7e-31
relative error = 9.7201986361885725153428165153812e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.82
y[1] (analytic) = 0.48792490666666666666666666666668
y[1] (numeric) = 0.4879249066666666666666666666662
absolute error = 4.8e-31
relative error = 9.8375793783349394092555444597374e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.83
y[1] (analytic) = 0.49234716000000000000000000000001
y[1] (numeric) = 0.49234715999999999999999999999953
absolute error = 4.8e-31
relative error = 9.7492184173460043925103579352421e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.84
y[1] (analytic) = 0.49679605333333333333333333333334
y[1] (numeric) = 0.49679605333333333333333333333286
absolute error = 4.8e-31
relative error = 9.6619125047262855335619413401673e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.85
y[1] (analytic) = 0.50127166666666666666666666666668
y[1] (numeric) = 0.50127166666666666666666666666619
absolute error = 4.9e-31
relative error = 9.7751385642515867975781595475505e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.86
y[1] (analytic) = 0.50577408000000000000000000000001
y[1] (numeric) = 0.50577407999999999999999999999952
absolute error = 4.9e-31
relative error = 9.6881200396825396825396825396823e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.87
y[1] (analytic) = 0.51030337333333333333333333333334
y[1] (numeric) = 0.51030337333333333333333333333285
absolute error = 4.9e-31
relative error = 9.6021313125815642266444747259230e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.88
y[1] (analytic) = 0.51485962666666666666666666666668
y[1] (numeric) = 0.51485962666666666666666666666618
absolute error = 5.0e-31
relative error = 9.7113848921720333247078970806590e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.89
y[1] (analytic) = 0.51944292000000000000000000000001
y[1] (numeric) = 0.51944291999999999999999999999951
absolute error = 5.0e-31
relative error = 9.6256966983013263517000096950015e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.9
y[1] (analytic) = 0.52405333333333333333333333333334
y[1] (numeric) = 0.52405333333333333333333333333284
absolute error = 5.0e-31
relative error = 9.5410136372888255648280073274984e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.91
y[1] (analytic) = 0.52869094666666666666666666666668
y[1] (numeric) = 0.52869094666666666666666666666617
absolute error = 5.1e-31
relative error = 9.6464674346229899504489339846458e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.92
y[1] (analytic) = 0.53335584000000000000000000000001
y[1] (numeric) = 0.5333558399999999999999999999995
absolute error = 5.1e-31
relative error = 9.5620964795285638946036477260658e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.93
y[1] (analytic) = 0.53804809333333333333333333333334
y[1] (numeric) = 0.53804809333333333333333333333283
absolute error = 5.1e-31
relative error = 9.4787065751024437542844683004420e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.94
y[1] (analytic) = 0.54276778666666666666666666666668
y[1] (numeric) = 0.54276778666666666666666666666616
absolute error = 5.2e-31
relative error = 9.5805243563459821147823462085097e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.95
y[1] (analytic) = 0.54751500000000000000000000000001
y[1] (numeric) = 0.54751499999999999999999999999949
absolute error = 5.2e-31
relative error = 9.4974566906842734902240121275214e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.96
y[1] (analytic) = 0.55228981333333333333333333333334
y[1] (numeric) = 0.55228981333333333333333333333282
absolute error = 5.2e-31
relative error = 9.4153465706990165742932647728718e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.97
y[1] (analytic) = 0.55709230666666666666666666666668
y[1] (numeric) = 0.55709230666666666666666666666615
absolute error = 5.3e-31
relative error = 9.5136837047926204832649756211554e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.98
y[1] (analytic) = 0.56192256000000000000000000000001
y[1] (numeric) = 0.56192255999999999999999999999948
absolute error = 5.3e-31
relative error = 9.4319046382476617418599459683553e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 1.99
y[1] (analytic) = 0.56678065333333333333333333333334
y[1] (numeric) = 0.56678065333333333333333333333281
absolute error = 5.3e-31
relative error = 9.3510601832116170326114871622646e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2
y[1] (analytic) = 0.57166666666666666666666666666668
y[1] (numeric) = 0.57166666666666666666666666666614
absolute error = 5.4e-31
relative error = 9.4460641399416909620991253644313e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.01
y[1] (analytic) = 0.57658068000000000000000000000001
y[1] (numeric) = 0.57658067999999999999999999999947
absolute error = 5.4e-31
relative error = 9.3655583464919428101545129816003e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.02
y[1] (analytic) = 0.58152277333333333333333333333334
y[1] (numeric) = 0.5815227733333333333333333333328
absolute error = 5.4e-31
relative error = 9.2859647938580015026296018031554e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.03
y[1] (analytic) = 0.58649302666666666666666666666668
y[1] (numeric) = 0.58649302666666666666666666666613
absolute error = 5.5e-31
relative error = 9.3777756084488370273774440103031e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.04
y[1] (analytic) = 0.59149152000000000000000000000001
y[1] (numeric) = 0.59149151999999999999999999999946
absolute error = 5.5e-31
relative error = 9.2985272214891601489062767966647e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.05
y[1] (analytic) = 0.59651833333333333333333333333335
y[1] (numeric) = 0.59651833333333333333333333333279
absolute error = 5.6e-31
relative error = 9.3878087010457907133337617452381e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.06
y[1] (analytic) = 0.60157354666666666666666666666668
y[1] (numeric) = 0.60157354666666666666666666666612
absolute error = 5.6e-31
relative error = 9.3089199666935709229767550062483e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.07
y[1] (analytic) = 0.60665724000000000000000000000001
y[1] (numeric) = 0.60665723999999999999999999999945
absolute error = 5.6e-31
relative error = 9.2309126649506400022523426902478e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.08
y[1] (analytic) = 0.61176949333333333333333333333335
y[1] (numeric) = 0.61176949333333333333333333333278
absolute error = 5.7e-31
relative error = 9.3172347789729604474992672621441e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.09
y[1] (analytic) = 0.61691038666666666666666666666668
y[1] (numeric) = 0.61691038666666666666666666666611
absolute error = 5.7e-31
relative error = 9.2395915568850097061098814589579e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.1
y[1] (analytic) = 0.62208000000000000000000000000001
y[1] (numeric) = 0.62207999999999999999999999999944
absolute error = 5.7e-31
relative error = 9.1628086419753086419753086419752e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.11
y[1] (analytic) = 0.62727841333333333333333333333335
y[1] (numeric) = 0.62727841333333333333333333333277
absolute error = 5.8e-31
relative error = 9.2462929964049350037679175356497e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.12
y[1] (analytic) = 0.63250570666666666666666666666668
y[1] (numeric) = 0.6325057066666666666666666666661
absolute error = 5.8e-31
relative error = 9.1698777400227092549236130212093e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.13
y[1] (analytic) = 0.63776196000000000000000000000001
y[1] (numeric) = 0.63776195999999999999999999999943
absolute error = 5.8e-31
relative error = 9.0943022064219697267613766114240e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.14
y[1] (analytic) = 0.64304725333333333333333333333335
y[1] (numeric) = 0.64304725333333333333333333333276
absolute error = 5.9e-31
relative error = 9.1750644597522993851939631434859e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.15
y[1] (analytic) = 0.64836166666666666666666666666668
y[1] (numeric) = 0.64836166666666666666666666666609
absolute error = 5.9e-31
relative error = 9.0998593891783649557731410195439e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.16
y[1] (analytic) = 0.65370528000000000000000000000001
y[1] (numeric) = 0.65370527999999999999999999999942
absolute error = 5.9e-31
relative error = 9.0254739872989858671479600103580e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.17
y[1] (analytic) = 0.65907817333333333333333333333335
y[1] (numeric) = 0.65907817333333333333333333333275
absolute error = 6.0e-31
relative error = 9.1036241871803856631028270738463e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.18
y[1] (analytic) = 0.66448042666666666666666666666668
y[1] (numeric) = 0.66448042666666666666666666666608
absolute error = 6.0e-31
relative error = 9.0296113462644859044957672392535e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.19
y[1] (analytic) = 0.66991212000000000000000000000001
y[1] (numeric) = 0.66991211999999999999999999999941
absolute error = 6.0e-31
relative error = 8.9563986392722675326429383006235e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.2
y[1] (analytic) = 0.67537333333333333333333333333335
y[1] (numeric) = 0.67537333333333333333333333333274
absolute error = 6.1e-31
relative error = 9.0320415375199889443863147296308e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.21
y[1] (analytic) = 0.68086414666666666666666666666668
y[1] (numeric) = 0.68086414666666666666666666666607
absolute error = 6.1e-31
relative error = 8.9592028451843285976325262419945e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.22
y[1] (analytic) = 0.68638464000000000000000000000001
y[1] (numeric) = 0.6863846399999999999999999999994
absolute error = 6.1e-31
relative error = 8.8871452601270331457300676192286e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.23
y[1] (analytic) = 0.69193489333333333333333333333335
y[1] (numeric) = 0.69193489333333333333333333333273
absolute error = 6.2e-31
relative error = 8.9603806076783678896031778866591e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.24
y[1] (analytic) = 0.69751498666666666666666666666668
y[1] (numeric) = 0.69751498666666666666666666666606
absolute error = 6.2e-31
relative error = 8.8886979040106263714400669317039e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.25
y[1] (analytic) = 0.70312500000000000000000000000001
y[1] (numeric) = 0.70312499999999999999999999999939
absolute error = 6.2e-31
relative error = 8.8177777777777777777777777777777e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.26
y[1] (analytic) = 0.70876501333333333333333333333335
y[1] (numeric) = 0.70876501333333333333333333333272
absolute error = 6.3e-31
relative error = 8.8887006010228947343074270633673e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
bytes used=20008268, alloc=4062488, time=2.36
TOP MAIN SOLVE Loop
x[1] = 2.27
y[1] (analytic) = 0.71443510666666666666666666666668
y[1] (numeric) = 0.71443510666666666666666666666605
absolute error = 6.3e-31
relative error = 8.8181556886164963188725720141448e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.28
y[1] (analytic) = 0.72013536000000000000000000000001
y[1] (numeric) = 0.72013535999999999999999999999938
absolute error = 6.3e-31
relative error = 8.7483553092018700484308949917414e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.29
y[1] (analytic) = 0.72586585333333333333333333333335
y[1] (numeric) = 0.72586585333333333333333333333271
absolute error = 6.4e-31
relative error = 8.8170561690012180212031464620118e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.3
y[1] (analytic) = 0.73162666666666666666666666666668
y[1] (numeric) = 0.73162666666666666666666666666604
absolute error = 6.4e-31
relative error = 8.7476308499781309228750546726927e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.31
y[1] (analytic) = 0.73741788000000000000000000000001
y[1] (numeric) = 0.73741787999999999999999999999937
absolute error = 6.4e-31
relative error = 8.6789324934730359399476454245996e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.32
y[1] (analytic) = 0.74323957333333333333333333333335
y[1] (numeric) = 0.7432395733333333333333333333327
absolute error = 6.5e-31
relative error = 8.7454977280721758482612551236954e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.33
y[1] (analytic) = 0.74909182666666666666666666666668
y[1] (numeric) = 0.74909182666666666666666666666603
absolute error = 6.5e-31
relative error = 8.6771738371835036441549213183244e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.34
y[1] (analytic) = 0.75497472000000000000000000000002
y[1] (numeric) = 0.75497471999999999999999999999936
absolute error = 6.6e-31
relative error = 8.7420145670572916666666666666664e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.35
y[1] (analytic) = 0.76088833333333333333333333333335
y[1] (numeric) = 0.76088833333333333333333333333269
absolute error = 6.6e-31
relative error = 8.6740717538491193407705467074667e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.36
y[1] (analytic) = 0.76683274666666666666666666666668
y[1] (numeric) = 0.76683274666666666666666666666602
absolute error = 6.6e-31
relative error = 8.6068311880125585316683398114661e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.37
y[1] (analytic) = 0.77280804000000000000000000000002
y[1] (numeric) = 0.77280803999999999999999999999935
absolute error = 6.7e-31
relative error = 8.6696820597259831820590272326875e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.38
y[1] (analytic) = 0.77881429333333333333333333333335
y[1] (numeric) = 0.77881429333333333333333333333268
absolute error = 6.7e-31
relative error = 8.6028210542001352072429007979855e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.39
y[1] (analytic) = 0.78485158666666666666666666666668
y[1] (numeric) = 0.78485158666666666666666666666601
absolute error = 6.7e-31
relative error = 8.5366457988006191030358537934364e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.4
y[1] (analytic) = 0.79092000000000000000000000000002
y[1] (numeric) = 0.79091999999999999999999999999934
absolute error = 6.8e-31
relative error = 8.5975825620796034997218429171090e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.41
y[1] (analytic) = 0.79701961333333333333333333333335
y[1] (numeric) = 0.79701961333333333333333333333267
absolute error = 6.8e-31
relative error = 8.5317850229064208223332555044942e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.42
y[1] (analytic) = 0.80315050666666666666666666666668
y[1] (numeric) = 0.803150506666666666666666666666
absolute error = 6.8e-31
relative error = 8.4666571751566099159363870496135e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.43
y[1] (analytic) = 0.80931276000000000000000000000002
y[1] (numeric) = 0.80931275999999999999999999999933
absolute error = 6.9e-31
relative error = 8.5257521455611301618424995548073e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.44
y[1] (analytic) = 0.81550645333333333333333333333335
y[1] (numeric) = 0.81550645333333333333333333333266
absolute error = 6.9e-31
relative error = 8.4609998753494433822914853205983e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.45
y[1] (analytic) = 0.82173166666666666666666666666668
y[1] (numeric) = 0.82173166666666666666666666666599
absolute error = 6.9e-31
relative error = 8.3969016649798494642411655061769e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.46
y[1] (analytic) = 0.82798848000000000000000000000002
y[1] (numeric) = 0.82798847999999999999999999999932
absolute error = 7.0e-31
relative error = 8.4542239041779904957131770722219e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.47
y[1] (analytic) = 0.83427697333333333333333333333335
y[1] (numeric) = 0.83427697333333333333333333333265
absolute error = 7.0e-31
relative error = 8.3904988675783180751179148769664e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.48
y[1] (analytic) = 0.84059722666666666666666666666668
y[1] (numeric) = 0.84059722666666666666666666666598
absolute error = 7.0e-31
relative error = 8.3274126751024890366836328050696e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.49
y[1] (analytic) = 0.84694932000000000000000000000002
y[1] (numeric) = 0.84694931999999999999999999999931
absolute error = 7.1e-31
relative error = 8.3830281604098814318665489925653e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.5
y[1] (analytic) = 0.85333333333333333333333333333335
y[1] (numeric) = 0.85333333333333333333333333333264
absolute error = 7.1e-31
relative error = 8.3203124999999999999999999999998e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.51
y[1] (analytic) = 0.85974934666666666666666666666668
y[1] (numeric) = 0.85974934666666666666666666666597
absolute error = 7.1e-31
relative error = 8.2582208727780985344860434593951e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.52
y[1] (analytic) = 0.86619744000000000000000000000002
y[1] (numeric) = 0.8661974399999999999999999999993
absolute error = 7.2e-31
relative error = 8.3121926566765193856957139009783e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.53
y[1] (analytic) = 0.87267769333333333333333333333335
y[1] (numeric) = 0.87267769333333333333333333333263
absolute error = 7.2e-31
relative error = 8.2504687068354384582489691077546e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.54
y[1] (analytic) = 0.87919018666666666666666666666668
y[1] (numeric) = 0.87919018666666666666666666666596
absolute error = 7.2e-31
relative error = 8.1893543731395000101911965532401e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.55
y[1] (analytic) = 0.88573500000000000000000000000002
y[1] (numeric) = 0.88573499999999999999999999999929
absolute error = 7.3e-31
relative error = 8.2417427334360728660378104060468e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.56
y[1] (analytic) = 0.89231221333333333333333333333335
y[1] (numeric) = 0.89231221333333333333333333333262
absolute error = 7.3e-31
relative error = 8.1809930323939232271108217189629e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.57
y[1] (analytic) = 0.89892190666666666666666666666668
y[1] (numeric) = 0.89892190666666666666666666666595
absolute error = 7.3e-31
relative error = 8.1208389136598784710152723240637e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.58
y[1] (analytic) = 0.90556416000000000000000000000002
y[1] (numeric) = 0.90556415999999999999999999999928
absolute error = 7.4e-31
relative error = 8.1717014949001515254313951647555e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.59
y[1] (analytic) = 0.91223905333333333333333333333335
y[1] (numeric) = 0.91223905333333333333333333333261
absolute error = 7.4e-31
relative error = 8.1119087951346788061942067845987e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.6
y[1] (analytic) = 0.91894666666666666666666666666669
y[1] (numeric) = 0.91894666666666666666666666666594
absolute error = 7.5e-31
relative error = 8.1615182600368537891208775264431e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.61
y[1] (analytic) = 0.92568708000000000000000000000002
y[1] (numeric) = 0.92568707999999999999999999999927
absolute error = 7.5e-31
relative error = 8.1020899632735502800795275224105e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.62
y[1] (analytic) = 0.93246037333333333333333333333335
y[1] (numeric) = 0.9324603733333333333333333333326
absolute error = 7.5e-31
relative error = 8.0432372404086290537343728122393e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.63
y[1] (analytic) = 0.93926662666666666666666666666669
y[1] (numeric) = 0.93926662666666666666666666666593
absolute error = 7.6e-31
relative error = 8.0914191819754069973201929442908e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.64
y[1] (analytic) = 0.94610592000000000000000000000002
y[1] (numeric) = 0.94610591999999999999999999999926
absolute error = 7.6e-31
relative error = 8.0329272223558224854992980067177e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.65
y[1] (analytic) = 0.95297833333333333333333333333335
y[1] (numeric) = 0.95297833333333333333333333333259
absolute error = 7.6e-31
relative error = 7.9749976827035242144364947086938e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.66
y[1] (analytic) = 0.95988394666666666666666666666669
y[1] (numeric) = 0.95988394666666666666666666666592
absolute error = 7.7e-31
relative error = 8.0218030801945835229858898497950e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.67
y[1] (analytic) = 0.96682284000000000000000000000002
y[1] (numeric) = 0.96682283999999999999999999999925
absolute error = 7.7e-31
relative error = 7.9642305512765916866424049311866e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.68
y[1] (analytic) = 0.97379509333333333333333333333335
y[1] (numeric) = 0.97379509333333333333333333333258
absolute error = 7.7e-31
relative error = 7.9072076381517195842104058250063e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.69
y[1] (analytic) = 0.98080078666666666666666666666669
y[1] (numeric) = 0.98080078666666666666666666666591
absolute error = 7.8e-31
relative error = 7.9526853016798151290226670427220e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.7
y[1] (analytic) = 0.98784000000000000000000000000002
y[1] (numeric) = 0.98783999999999999999999999999924
absolute error = 7.8e-31
relative error = 7.8960155490767735665694849368317e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.71
y[1] (analytic) = 0.99491281333333333333333333333335
y[1] (numeric) = 0.99491281333333333333333333333257
absolute error = 7.8e-31
relative error = 7.8398829480012995711610830461913e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.72
y[1] (analytic) = 1.0020193066666666666666666666667
y[1] (numeric) = 1.0020193066666666666666666666659
absolute error = 8e-31
relative error = 7.9838781017233360560131855343623e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.73
y[1] (analytic) = 1.00915956
y[1] (numeric) = 1.0091595599999999999999999999992
absolute error = 8e-31
relative error = 7.9273886083980614522444795548486e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.74
y[1] (analytic) = 1.0163336533333333333333333333334
y[1] (numeric) = 1.0163336533333333333333333333325
absolute error = 9e-31
relative error = 8.8553596257313083955211348965919e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.75
y[1] (analytic) = 1.0235416666666666666666666666667
y[1] (numeric) = 1.0235416666666666666666666666658
absolute error = 9e-31
relative error = 8.7929981681253816405454915530223e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
bytes used=24010540, alloc=4062488, time=2.86
TOP MAIN SOLVE Loop
x[1] = 2.76
y[1] (analytic) = 1.03078368
y[1] (numeric) = 1.0307836799999999999999999999991
absolute error = 9e-31
relative error = 8.7312208901095523747523825755565e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.77
y[1] (analytic) = 1.0380597733333333333333333333334
y[1] (numeric) = 1.0380597733333333333333333333324
absolute error = 1.0e-30
relative error = 9.6333566302148586613824151911708e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.78
y[1] (analytic) = 1.0453700266666666666666666666667
y[1] (numeric) = 1.0453700266666666666666666666657
absolute error = 1.0e-30
relative error = 9.5659907448146718115200854174095e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.79
y[1] (analytic) = 1.05271452
y[1] (numeric) = 1.052714519999999999999999999999
absolute error = 1.0e-30
relative error = 9.4992515159760501831018726710448e-29 %
Correct digits = 31
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.8
y[1] (analytic) = 1.0600933333333333333333333333334
y[1] (numeric) = 1.0600933333333333333333333333323
absolute error = 1.1e-30
relative error = 1.0376444841334725244318110355062e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.81
y[1] (analytic) = 1.0675065466666666666666666666667
y[1] (numeric) = 1.0675065466666666666666666666656
absolute error = 1.1e-30
relative error = 1.0304386454910234367836694984328e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.82
y[1] (analytic) = 1.07495424
y[1] (numeric) = 1.0749542399999999999999999999989
absolute error = 1.1e-30
relative error = 1.0232993731900624904740131077580e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.83
y[1] (analytic) = 1.0824364933333333333333333333334
y[1] (numeric) = 1.0824364933333333333333333333322
absolute error = 1.2e-30
relative error = 1.1086100730996541789420083237646e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.84
y[1] (analytic) = 1.0899533866666666666666666666667
y[1] (numeric) = 1.0899533866666666666666666666655
absolute error = 1.2e-30
relative error = 1.1009645134182129672481162007858e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.85
y[1] (analytic) = 1.097505
y[1] (numeric) = 1.0975049999999999999999999999988
absolute error = 1.2e-30
relative error = 1.0933890961772383724903303401807e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.86
y[1] (analytic) = 1.1050914133333333333333333333334
y[1] (numeric) = 1.1050914133333333333333333333321
absolute error = 1.3e-30
relative error = 1.1763732704055275982236691224675e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.87
y[1] (analytic) = 1.1127127066666666666666666666667
y[1] (numeric) = 1.1127127066666666666666666666654
absolute error = 1.3e-30
relative error = 1.1683159473341384687821125867614e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.88
y[1] (analytic) = 1.12036896
y[1] (numeric) = 1.1203689599999999999999999999987
absolute error = 1.3e-30
relative error = 1.1603320391882331334848834084086e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.89
y[1] (analytic) = 1.1280602533333333333333333333334
y[1] (numeric) = 1.128060253333333333333333333332
absolute error = 1.4e-30
relative error = 1.2410684587663692054085196087456e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.9
y[1] (analytic) = 1.1357866666666666666666666666667
y[1] (numeric) = 1.1357866666666666666666666666653
absolute error = 1.4e-30
relative error = 1.2326258452291510142749812171299e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.91
y[1] (analytic) = 1.14354828
y[1] (numeric) = 1.1435482799999999999999999999986
absolute error = 1.4e-30
relative error = 1.2242596351069672370982010484070e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.92
y[1] (analytic) = 1.1513451733333333333333333333334
y[1] (numeric) = 1.1513451733333333333333333333319
absolute error = 1.5e-30
relative error = 1.3028238922105815518654538908736e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.93
y[1] (analytic) = 1.1591774266666666666666666666667
y[1] (numeric) = 1.1591774266666666666666666666652
absolute error = 1.5e-30
relative error = 1.2940210579439970000796081754847e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.94
y[1] (analytic) = 1.16704512
y[1] (numeric) = 1.1670451199999999999999999999985
absolute error = 1.5e-30
relative error = 1.2852973499430767509657210168532e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.95
y[1] (analytic) = 1.1749483333333333333333333333334
y[1] (numeric) = 1.1749483333333333333333333333318
absolute error = 1.6e-30
relative error = 1.3617620065563166607325995894854e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.96
y[1] (analytic) = 1.1828871466666666666666666666667
y[1] (numeric) = 1.1828871466666666666666666666651
absolute error = 1.6e-30
relative error = 1.3526226948265879091582205148316e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.97
y[1] (analytic) = 1.19086164
y[1] (numeric) = 1.1908616399999999999999999999984
absolute error = 1.6e-30
relative error = 1.3435649837541160533141364768455e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.98
y[1] (analytic) = 1.1988718933333333333333333333334
y[1] (numeric) = 1.1988718933333333333333333333317
absolute error = 1.7e-30
relative error = 1.4179997124407798833819241982506e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 2.99
y[1] (analytic) = 1.2069179866666666666666666666667
y[1] (numeric) = 1.206917986666666666666666666665
absolute error = 1.7e-30
relative error = 1.4085464122505578920916239224385e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3
y[1] (analytic) = 1.215
y[1] (numeric) = 1.2149999999999999999999999999983
absolute error = 1.7e-30
relative error = 1.3991769547325102880658436213992e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.01
y[1] (analytic) = 1.2231180133333333333333333333334
y[1] (numeric) = 1.2231180133333333333333333333316
absolute error = 1.8e-30
relative error = 1.4716486719826032377077465111542e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.02
y[1] (analytic) = 1.2312721066666666666666666666667
y[1] (numeric) = 1.2312721066666666666666666666649
absolute error = 1.8e-30
relative error = 1.4619026860545139396644389724283e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.03
y[1] (analytic) = 1.23946236
y[1] (numeric) = 1.2394623599999999999999999999982
absolute error = 1.8e-30
relative error = 1.4522425674951516881884174360890e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.04
y[1] (analytic) = 1.2476888533333333333333333333334
y[1] (numeric) = 1.2476888533333333333333333333315
absolute error = 1.9e-30
relative error = 1.5228155600845099585939503036782e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.05
y[1] (analytic) = 1.2559516666666666666666666666667
y[1] (numeric) = 1.2559516666666666666666666666648
absolute error = 1.9e-30
relative error = 1.5127970688893282782909639569463e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.06
y[1] (analytic) = 1.26425088
y[1] (numeric) = 1.2642508799999999999999999999981
absolute error = 1.9e-30
relative error = 1.5028662665435518621114188981225e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.07
y[1] (analytic) = 1.2725865733333333333333333333334
y[1] (numeric) = 1.2725865733333333333333333333314
absolute error = 2.0e-30
relative error = 1.5716023113157053267878262385773e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.08
y[1] (analytic) = 1.2809588266666666666666666666667
y[1] (numeric) = 1.2809588266666666666666666666647
absolute error = 2.0e-30
relative error = 1.5613304333945180564325606426985e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.09
y[1] (analytic) = 1.28936772
y[1] (numeric) = 1.289367719999999999999999999998
absolute error = 2.0e-30
relative error = 1.5511478757976041156048175302543e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.1
y[1] (analytic) = 1.2978133333333333333333333333334
y[1] (numeric) = 1.2978133333333333333333333333313
absolute error = 2.1e-30
relative error = 1.6181063532505958740856414892742e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.11
y[1] (analytic) = 1.3062957466666666666666666666667
y[1] (numeric) = 1.3062957466666666666666666666646
absolute error = 2.1e-30
relative error = 1.6075992020632877408332881759568e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.12
y[1] (analytic) = 1.31481504
y[1] (numeric) = 1.3148150399999999999999999999979
absolute error = 2.1e-30
relative error = 1.5971828250458710907353174177259e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.13
y[1] (analytic) = 1.3233712933333333333333333333334
y[1] (numeric) = 1.3233712933333333333333333333312
absolute error = 2.2e-30
relative error = 1.6624208270821692399412986108095e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.14
y[1] (analytic) = 1.3319645866666666666666666666667
y[1] (numeric) = 1.3319645866666666666666666666645
absolute error = 2.2e-30
relative error = 1.6516955645987945385214645946943e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.15
y[1] (analytic) = 1.340595
y[1] (numeric) = 1.3405949999999999999999999999978
absolute error = 2.2e-30
relative error = 1.6410623640995229730082537977540e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.16
y[1] (analytic) = 1.3492626133333333333333333333334
y[1] (numeric) = 1.3492626133333333333333333333311
absolute error = 2.3e-30
relative error = 1.7046347962743027559468136551346e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.17
y[1] (analytic) = 1.3579675066666666666666666666667
y[1] (numeric) = 1.3579675066666666666666666666644
absolute error = 2.3e-30
relative error = 1.6937076835112883358829116019202e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.18
y[1] (analytic) = 1.36670976
y[1] (numeric) = 1.3667097599999999999999999999977
absolute error = 2.3e-30
relative error = 1.6828737653852709736996390513813e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.19
y[1] (analytic) = 1.3754894533333333333333333333334
y[1] (numeric) = 1.375489453333333333333333333331
absolute error = 2.4e-30
relative error = 1.7448334439670827865017242007884e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.2
y[1] (analytic) = 1.3843066666666666666666666666667
y[1] (numeric) = 1.3843066666666666666666666666643
absolute error = 2.4e-30
relative error = 1.7337198886566560396058676786453e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.21
y[1] (analytic) = 1.39316148
y[1] (numeric) = 1.3931614799999999999999999999976
absolute error = 2.4e-30
relative error = 1.7227005156645588564507252956779e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.22
y[1] (analytic) = 1.4020539733333333333333333333334
y[1] (numeric) = 1.4020539733333333333333333333309
absolute error = 2.5e-30
relative error = 1.7830982598026088353726525107240e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.23
y[1] (analytic) = 1.4109842266666666666666666666667
y[1] (numeric) = 1.4109842266666666666666666666642
absolute error = 2.5e-30
relative error = 1.7718128613712733495523035235064e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.24
y[1] (analytic) = 1.41995232
y[1] (numeric) = 1.4199523199999999999999999999975
absolute error = 2.5e-30
relative error = 1.7606224975216069226887843670695e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
bytes used=28011640, alloc=4062488, time=3.34
x[1] = 3.25
y[1] (analytic) = 1.4289583333333333333333333333334
y[1] (numeric) = 1.4289583333333333333333333333308
absolute error = 2.6e-30
relative error = 1.8195072167954512319580113719200e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.26
y[1] (analytic) = 1.4380023466666666666666666666667
y[1] (numeric) = 1.4380023466666666666666666666641
absolute error = 2.6e-30
relative error = 1.8080638088156666522268818550653e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.27
y[1] (analytic) = 1.44708444
y[1] (numeric) = 1.4470844399999999999999999999974
absolute error = 2.6e-30
relative error = 1.7967161612213866386401058945807e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.28
y[1] (analytic) = 1.4562046933333333333333333333334
y[1] (numeric) = 1.4562046933333333333333333333307
absolute error = 2.7e-30
relative error = 1.8541349388316763379565905716258e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.29
y[1] (analytic) = 1.4653631866666666666666666666667
y[1] (numeric) = 1.465363186666666666666666666664
absolute error = 2.7e-30
relative error = 1.8425466291000677429328805576017e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.3
y[1] (analytic) = 1.47456
y[1] (numeric) = 1.4745599999999999999999999999973
absolute error = 2.7e-30
relative error = 1.8310546875000000000000000000000e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.31
y[1] (analytic) = 1.4837952133333333333333333333334
y[1] (numeric) = 1.4837952133333333333333333333306
absolute error = 2.8e-30
relative error = 1.8870528593429168720596402876475e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.32
y[1] (analytic) = 1.4930689066666666666666666666667
y[1] (numeric) = 1.4930689066666666666666666666639
absolute error = 2.8e-30
relative error = 1.8753320677282784573068331170926e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.33
y[1] (analytic) = 1.50238116
y[1] (numeric) = 1.5023811599999999999999999999972
absolute error = 2.8e-30
relative error = 1.8637081418140254101695471207852e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.34
y[1] (analytic) = 1.5117320533333333333333333333334
y[1] (numeric) = 1.5117320533333333333333333333305
absolute error = 2.9e-30
relative error = 1.9183293716671342392387278789722e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.35
y[1] (analytic) = 1.5211216666666666666666666666667
y[1] (numeric) = 1.5211216666666666666666666666638
absolute error = 2.9e-30
relative error = 1.9064878658621433963752625529625e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.36
y[1] (analytic) = 1.53055008
y[1] (numeric) = 1.5305500799999999999999999999971
absolute error = 2.9e-30
relative error = 1.8947436205419688064045575039270e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.37
y[1] (analytic) = 1.5400173733333333333333333333334
y[1] (numeric) = 1.5400173733333333333333333333304
absolute error = 3.0e-30
relative error = 1.9480299715752990249815623292145e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.38
y[1] (analytic) = 1.5495236266666666666666666666667
y[1] (numeric) = 1.5495236266666666666666666666637
absolute error = 3.0e-30
relative error = 1.9360789008771659301879893030694e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.39
y[1] (analytic) = 1.55906892
y[1] (numeric) = 1.559068919999999999999999999997
absolute error = 3.0e-30
relative error = 1.9242253895998388576689733510947e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.4
y[1] (analytic) = 1.5686533333333333333333333333334
y[1] (numeric) = 1.5686533333333333333333333333303
absolute error = 3.1e-30
relative error = 1.9762173924130251850844461066392e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.41
y[1] (analytic) = 1.5782769466666666666666666666667
y[1] (numeric) = 1.5782769466666666666666666666636
absolute error = 3.1e-30
relative error = 1.9641673196502200699529109259582e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.42
y[1] (analytic) = 1.58793984
y[1] (numeric) = 1.5879398399999999999999999999969
absolute error = 3.1e-30
relative error = 1.9522150159038770637557654577141e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.43
y[1] (analytic) = 1.5976420933333333333333333333334
y[1] (numeric) = 1.5976420933333333333333333333302
absolute error = 3.2e-30
relative error = 2.0029517332780674440083397235143e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.44
y[1] (analytic) = 1.6073837866666666666666666666667
y[1] (numeric) = 1.6073837866666666666666666666635
absolute error = 3.2e-30
relative error = 1.9908126649927471376593205900529e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.45
y[1] (analytic) = 1.617165
y[1] (numeric) = 1.6171649999999999999999999999968
absolute error = 3.2e-30
relative error = 1.9787714920864599468823527593041e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.46
y[1] (analytic) = 1.6269858133333333333333333333334
y[1] (numeric) = 1.6269858133333333333333333333301
absolute error = 3.3e-30
relative error = 2.0282905806283776979624718874827e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.47
y[1] (analytic) = 1.6368463066666666666666666666667
y[1] (numeric) = 1.6368463066666666666666666666634
absolute error = 3.3e-30
relative error = 2.0160719956171327932372848396037e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.48
y[1] (analytic) = 1.64674656
y[1] (numeric) = 1.6467465599999999999999999999967
absolute error = 3.3e-30
relative error = 2.0039513548460061759594627603169e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.49
y[1] (analytic) = 1.6566866533333333333333333333334
y[1] (numeric) = 1.65668665333333333333333333333
absolute error = 3.4e-30
relative error = 2.0522891236909745451038783845979e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.5
y[1] (analytic) = 1.6666666666666666666666666666667
y[1] (numeric) = 1.6666666666666666666666666666633
absolute error = 3.4e-30
relative error = 2.0400000000000000000000000000000e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.51
y[1] (analytic) = 1.67668668
y[1] (numeric) = 1.6766866799999999999999999999966
absolute error = 3.4e-30
relative error = 2.0278087972882327663031234911462e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.52
y[1] (analytic) = 1.6867467733333333333333333333334
y[1] (numeric) = 1.6867467733333333333333333333299
absolute error = 3.5e-30
relative error = 2.0750002640190812123326190167979e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.53
y[1] (analytic) = 1.6968470266666666666666666666667
y[1] (numeric) = 1.6968470266666666666666666666632
absolute error = 3.5e-30
relative error = 2.0626491044838007672064597109586e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.54
y[1] (analytic) = 1.70698752
y[1] (numeric) = 1.7069875199999999999999999999965
absolute error = 3.5e-30
relative error = 2.0503957755941882926009910136894e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.55
y[1] (analytic) = 1.7171683333333333333333333333334
y[1] (numeric) = 1.7171683333333333333333333333298
absolute error = 3.6e-30
relative error = 2.0964747195237120026089463176294e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.56
y[1] (analytic) = 1.7273895466666666666666666666667
y[1] (numeric) = 1.7273895466666666666666666666631
absolute error = 3.6e-30
relative error = 2.0840695759372277008723513868510e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.57
y[1] (analytic) = 1.73765124
y[1] (numeric) = 1.7376512399999999999999999999964
absolute error = 3.6e-30
relative error = 2.0717621103300337759376847105406e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.58
y[1] (analytic) = 1.7479534933333333333333333333334
y[1] (numeric) = 1.7479534933333333333333333333297
absolute error = 3.7e-30
relative error = 2.1167611232860260996112543406188e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.59
y[1] (analytic) = 1.7582963866666666666666666666667
y[1] (numeric) = 1.758296386666666666666666666663
absolute error = 3.7e-30
relative error = 2.1043096192754882455198357191642e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.6
y[1] (analytic) = 1.76868
y[1] (numeric) = 1.7686799999999999999999999999963
absolute error = 3.7e-30
relative error = 2.0919555826944387905104371621774e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.61
y[1] (analytic) = 1.7791044133333333333333333333334
y[1] (numeric) = 1.7791044133333333333333333333296
absolute error = 3.8e-30
relative error = 2.1359061174382187844009695035249e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.62
y[1] (analytic) = 1.7895697066666666666666666666667
y[1] (numeric) = 1.7895697066666666666666666666629
absolute error = 3.8e-30
relative error = 2.1234154701232910156250000000000e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.63
y[1] (analytic) = 1.80007596
y[1] (numeric) = 1.8000759599999999999999999999962
absolute error = 3.8e-30
relative error = 2.1110220259816146869713209213682e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.64
y[1] (analytic) = 1.8106232533333333333333333333334
y[1] (numeric) = 1.8106232533333333333333333333295
absolute error = 3.9e-30
relative error = 2.1539544423833902821705356941400e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.65
y[1] (analytic) = 1.8212116666666666666666666666667
y[1] (numeric) = 1.8212116666666666666666666666628
absolute error = 3.9e-30
relative error = 2.1414314828863933992662394175306e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.66
y[1] (analytic) = 1.83184128
y[1] (numeric) = 1.8318412799999999999999999999961
absolute error = 3.9e-30
relative error = 2.1290054125213293588405213796689e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.67
y[1] (analytic) = 1.8425121733333333333333333333334
y[1] (numeric) = 1.8425121733333333333333333333294
absolute error = 4.0e-30
relative error = 2.1709490216086351610391531162601e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.68
y[1] (analytic) = 1.8532244266666666666666666666667
y[1] (numeric) = 1.8532244266666666666666666666627
absolute error = 4.0e-30
relative error = 2.1584002144816682465196947688264e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.69
y[1] (analytic) = 1.86397812
y[1] (numeric) = 1.863978119999999999999999999996
absolute error = 4.0e-30
relative error = 2.1459479363416561992691201761531e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.7
y[1] (analytic) = 1.8747733333333333333333333333334
y[1] (numeric) = 1.8747733333333333333333333333293
absolute error = 4.1e-30
relative error = 2.1869310423304506144742831133363e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.71
y[1] (analytic) = 1.8856101466666666666666666666667
y[1] (numeric) = 1.8856101466666666666666666666626
absolute error = 4.1e-30
relative error = 2.1743625039607869172758870955304e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.72
y[1] (analytic) = 1.89648864
y[1] (numeric) = 1.8964886399999999999999999999959
absolute error = 4.1e-30
relative error = 2.1618900917856275690636354141304e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.73
y[1] (analytic) = 1.9074088933333333333333333333334
y[1] (numeric) = 1.9074088933333333333333333333292
absolute error = 4.2e-30
relative error = 2.2019400321973962765138133255496e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.74
y[1] (analytic) = 1.9183709866666666666666666666667
y[1] (numeric) = 1.9183709866666666666666666666625
bytes used=32013516, alloc=4062488, time=3.84
absolute error = 4.2e-30
relative error = 2.1893575482487141312340114345905e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.75
y[1] (analytic) = 1.929375
y[1] (numeric) = 1.9293749999999999999999999999958
absolute error = 4.2e-30
relative error = 2.1768707482993197278911564625850e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.76
y[1] (analytic) = 1.9404210133333333333333333333334
y[1] (numeric) = 1.9404210133333333333333333333291
absolute error = 4.3e-30
relative error = 2.2160139322616831965043792283263e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.77
y[1] (analytic) = 1.9515091066666666666666666666667
y[1] (numeric) = 1.9515091066666666666666666666624
absolute error = 4.3e-30
relative error = 2.2034229742052002244307572895569e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.78
y[1] (analytic) = 1.96263936
y[1] (numeric) = 1.9626393599999999999999999999957
absolute error = 4.3e-30
relative error = 2.1909272215961265548042407546540e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.79
y[1] (analytic) = 1.9738118533333333333333333333334
y[1] (numeric) = 1.973811853333333333333333333329
absolute error = 4.4e-30
relative error = 2.2291891664189620937122889166423e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.8
y[1] (analytic) = 1.9850266666666666666666666666667
y[1] (numeric) = 1.9850266666666666666666666666623
absolute error = 4.4e-30
relative error = 2.2165949072052768392700014105604e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.81
y[1] (analytic) = 1.99628388
y[1] (numeric) = 1.9962838799999999999999999999956
absolute error = 4.4e-30
relative error = 2.2040953413900231464074137592094e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.82
y[1] (analytic) = 2.0075835733333333333333333333334
y[1] (numeric) = 2.0075835733333333333333333333289
absolute error = 4.5e-30
relative error = 2.2415007075039625747618523384610e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.83
y[1] (analytic) = 2.0189258266666666666666666666667
y[1] (numeric) = 2.0189258266666666666666666666622
absolute error = 4.5e-30
relative error = 2.2289080364233556092273675538762e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.84
y[1] (analytic) = 2.03031072
y[1] (numeric) = 2.0303107199999999999999999999955
absolute error = 4.5e-30
relative error = 2.2164095158794216483277988110115e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.85
y[1] (analytic) = 2.0417383333333333333333333333334
y[1] (numeric) = 2.0417383333333333333333333333288
absolute error = 4.6e-30
relative error = 2.2529821402187515050492105175083e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.86
y[1] (analytic) = 2.0532087466666666666666666666667
y[1] (numeric) = 2.0532087466666666666666666666621
absolute error = 4.6e-30
relative error = 2.2403956769948431156757978873731e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.87
y[1] (analytic) = 2.06472204
y[1] (numeric) = 2.0647220399999999999999999999954
absolute error = 4.6e-30
relative error = 2.2279027931527286840024238807467e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.88
y[1] (analytic) = 2.0762782933333333333333333333334
y[1] (numeric) = 2.0762782933333333333333333333287
absolute error = 4.7e-30
relative error = 2.2636657210601800380362627304064e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.89
y[1] (analytic) = 2.0878775866666666666666666666667
y[1] (numeric) = 2.087877586666666666666666666662
absolute error = 4.7e-30
relative error = 2.2510898292191702503324923538461e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.9
y[1] (analytic) = 2.09952
y[1] (numeric) = 2.0995199999999999999999999999953
absolute error = 4.7e-30
relative error = 2.2386069196768785246151501295534e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.91
y[1] (analytic) = 2.1112056133333333333333333333334
y[1] (numeric) = 2.1112056133333333333333333333286
absolute error = 4.8e-30
relative error = 2.2735824354035284521568879749283e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.92
y[1] (analytic) = 2.1229345066666666666666666666667
y[1] (numeric) = 2.1229345066666666666666666666619
absolute error = 4.8e-30
relative error = 2.2610212349587446528731977588154e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.93
y[1] (analytic) = 2.13470676
y[1] (numeric) = 2.1347067599999999999999999999952
absolute error = 4.8e-30
relative error = 2.2485523960208942234295449553924e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.94
y[1] (analytic) = 2.1465224533333333333333333333334
y[1] (numeric) = 2.1465224533333333333333333333285
absolute error = 4.9e-30
relative error = 2.2827620518903928353348259719112e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.95
y[1] (analytic) = 2.1583816666666666666666666666667
y[1] (numeric) = 2.1583816666666666666666666666618
absolute error = 4.9e-30
relative error = 2.2702194313795289526334931495742e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.96
y[1] (analytic) = 2.17028448
y[1] (numeric) = 2.1702844799999999999999999999951
absolute error = 4.9e-30
relative error = 2.2577685299578790703051058080644e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.97
y[1] (analytic) = 2.1822309733333333333333333333334
y[1] (numeric) = 2.1822309733333333333333333333284
absolute error = 5.0e-30
relative error = 2.2912331742604478231735970899945e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.98
y[1] (analytic) = 2.1942212266666666666666666666667
y[1] (numeric) = 2.1942212266666666666666666666617
absolute error = 5.0e-30
relative error = 2.2787128021706860162723671156780e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 3.99
y[1] (analytic) = 2.20625532
y[1] (numeric) = 2.206255319999999999999999999995
absolute error = 5.0e-30
relative error = 2.2662834870807246370741895820108e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4
y[1] (analytic) = 2.2183333333333333333333333333334
y[1] (numeric) = 2.2183333333333333333333333333283
absolute error = 5.1e-30
relative error = 2.2990232907588279489105935386926e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.01
y[1] (analytic) = 2.2304553466666666666666666666667
y[1] (numeric) = 2.2304553466666666666666666666616
absolute error = 5.1e-30
relative error = 2.2865286263729789918950540628323e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.02
y[1] (analytic) = 2.24262144
y[1] (numeric) = 2.2426214399999999999999999999949
absolute error = 5.1e-30
relative error = 2.2741243390592038574285636009972e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.03
y[1] (analytic) = 2.2548316933333333333333333333334
y[1] (numeric) = 2.2548316933333333333333333333282
absolute error = 5.2e-30
relative error = 2.3061588212434622688793499721194e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.04
y[1] (analytic) = 2.2670861866666666666666666666667
y[1] (numeric) = 2.2670861866666666666666666666615
absolute error = 5.2e-30
relative error = 2.2936931249383349425256963028913e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.05
y[1] (analytic) = 2.279385
y[1] (numeric) = 2.2793849999999999999999999999948
absolute error = 5.2e-30
relative error = 2.2813171096589650278474237568467e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.06
y[1] (analytic) = 2.2917282133333333333333333333334
y[1] (numeric) = 2.2917282133333333333333333333281
absolute error = 5.3e-30
relative error = 2.3126651621097408083574028929643e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.07
y[1] (analytic) = 2.3041159066666666666666666666667
y[1] (numeric) = 2.3041159066666666666666666666614
absolute error = 5.3e-30
relative error = 2.3002315051361449739105427989088e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.08
y[1] (analytic) = 2.31654816
y[1] (numeric) = 2.3165481599999999999999999999947
absolute error = 5.3e-30
relative error = 2.2878868186362246835394952462374e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.09
y[1] (analytic) = 2.3290250533333333333333333333334
y[1] (numeric) = 2.329025053333333333333333333328
absolute error = 5.4e-30
relative error = 2.3185667291433573186294449421665e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.1
y[1] (analytic) = 2.3415466666666666666666666666667
y[1] (numeric) = 2.3415466666666666666666666666613
absolute error = 5.4e-30
relative error = 2.3061680029154518950437317784256e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.11
y[1] (analytic) = 2.35411308
y[1] (numeric) = 2.3541130799999999999999999999946
absolute error = 5.4e-30
relative error = 2.2938575236156455152103398533430e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.12
y[1] (analytic) = 2.3667243733333333333333333333334
y[1] (numeric) = 2.3667243733333333333333333333279
absolute error = 5.5e-30
relative error = 2.3238869984060332320460377732310e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.13
y[1] (analytic) = 2.3793806266666666666666666666667
y[1] (numeric) = 2.3793806266666666666666666666612
absolute error = 5.5e-30
relative error = 2.3115259233261415644487021600080e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.14
y[1] (analytic) = 2.39208192
y[1] (numeric) = 2.3920819199999999999999999999945
absolute error = 5.5e-30
relative error = 2.2992523600529533704263773708887e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.15
y[1] (analytic) = 2.4048283333333333333333333333334
y[1] (numeric) = 2.4048283333333333333333333333278
absolute error = 5.6e-30
relative error = 2.3286485452530568710032663454148e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.16
y[1] (analytic) = 2.4176199466666666666666666666667
y[1] (numeric) = 2.4176199466666666666666666666611
absolute error = 5.6e-30
relative error = 2.3163276790965810253407571708982e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.17
y[1] (analytic) = 2.43045684
y[1] (numeric) = 2.4304568399999999999999999999944
absolute error = 5.6e-30
relative error = 2.3040935793782703008213056768373e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.18
y[1] (analytic) = 2.4433390933333333333333333333334
y[1] (numeric) = 2.4433390933333333333333333333277
absolute error = 5.7e-30
relative error = 2.3328730815761460251291522194064e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.19
y[1] (analytic) = 2.4562667866666666666666666666667
y[1] (numeric) = 2.456266786666666666666666666661
absolute error = 5.7e-30
relative error = 2.3205948274598119252073209919341e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.2
y[1] (analytic) = 2.46924
y[1] (numeric) = 2.4692399999999999999999999999943
absolute error = 5.7e-30
relative error = 2.3084025854108956602031394275162e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.21
y[1] (analytic) = 2.4822588133333333333333333333334
y[1] (numeric) = 2.4822588133333333333333333333276
absolute error = 5.8e-30
relative error = 2.3365814913600387337530976020544e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.22
y[1] (analytic) = 2.4953233066666666666666666666667
y[1] (numeric) = 2.4953233066666666666666666666609
absolute error = 5.8e-30
relative error = 2.3243481053153897791777394691962e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.23
y[1] (analytic) = 2.5084335600000000000000000000001
y[1] (numeric) = 2.5084335599999999999999999999942
absolute error = 5.9e-30
relative error = 2.3520654858404940173101495261448e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
bytes used=36014952, alloc=4062488, time=4.33
TOP MAIN SOLVE Loop
x[1] = 4.24
y[1] (analytic) = 2.5215896533333333333333333333334
y[1] (numeric) = 2.5215896533333333333333333333275
absolute error = 5.9e-30
relative error = 2.3397938646364158093203681927121e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.25
y[1] (analytic) = 2.5347916666666666666666666666667
y[1] (numeric) = 2.5347916666666666666666666666608
absolute error = 5.9e-30
relative error = 2.3276074628092381030656694337141e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.26
y[1] (analytic) = 2.5480396800000000000000000000001
y[1] (numeric) = 2.5480396799999999999999999999941
absolute error = 6.0e-30
relative error = 2.3547513985339506172839506172839e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.27
y[1] (analytic) = 2.5613337733333333333333333333334
y[1] (numeric) = 2.5613337733333333333333333333274
absolute error = 6.0e-30
relative error = 2.3425295299142400459660514477891e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.28
y[1] (analytic) = 2.5746740266666666666666666666667
y[1] (numeric) = 2.5746740266666666666666666666607
absolute error = 6.0e-30
relative error = 2.3303920954094424339087337254219e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.29
y[1] (analytic) = 2.5880605200000000000000000000001
y[1] (numeric) = 2.588060519999999999999999999994
absolute error = 6.1e-30
relative error = 2.3569773399271204059787597239031e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.3
y[1] (analytic) = 2.6014933333333333333333333333334
y[1] (numeric) = 2.6014933333333333333333333333273
absolute error = 6.1e-30
relative error = 2.3448070851613432285046537373405e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.31
y[1] (analytic) = 2.6149725466666666666666666666667
y[1] (numeric) = 2.6149725466666666666666666666606
absolute error = 6.1e-30
relative error = 2.3327204745517251854794488320466e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.32
y[1] (analytic) = 2.6284982400000000000000000000001
y[1] (numeric) = 2.6284982399999999999999999999939
absolute error = 6.2e-30
relative error = 2.3587613282936799683761629606416e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.33
y[1] (analytic) = 2.6420704933333333333333333333334
y[1] (numeric) = 2.6420704933333333333333333333272
absolute error = 6.2e-30
relative error = 2.3466444274080862651926112877321e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.34
y[1] (analytic) = 2.6556893866666666666666666666667
y[1] (numeric) = 2.6556893866666666666666666666605
absolute error = 6.2e-30
relative error = 2.3346103769244017613626139731682e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.35
y[1] (analytic) = 2.6693550000000000000000000000001
y[1] (numeric) = 2.6693549999999999999999999999938
absolute error = 6.3e-30
relative error = 2.3601207033159695881589372713632e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.36
y[1] (analytic) = 2.6830674133333333333333333333334
y[1] (numeric) = 2.6830674133333333333333333333271
absolute error = 6.3e-30
relative error = 2.3480587810401444205730380555079e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.37
y[1] (analytic) = 2.6968267066666666666666666666667
y[1] (numeric) = 2.6968267066666666666666666666604
absolute error = 6.3e-30
relative error = 2.3360789124589060852917589271574e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.38
y[1] (analytic) = 2.7106329600000000000000000000001
y[1] (numeric) = 2.7106329599999999999999999999937
absolute error = 6.4e-30
relative error = 2.3610721534205796715465305933562e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.39
y[1] (analytic) = 2.7244862533333333333333333333334
y[1] (numeric) = 2.724486253333333333333333333327
absolute error = 6.4e-30
relative error = 2.3490667248439141815649168333235e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.4
y[1] (analytic) = 2.7383866666666666666666666666667
y[1] (numeric) = 2.7383866666666666666666666666603
absolute error = 6.4e-30
relative error = 2.3371425510884754526996430988562e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.41
y[1] (analytic) = 2.7523342800000000000000000000001
y[1] (numeric) = 2.7523342799999999999999999999936
absolute error = 6.5e-30
relative error = 2.3616317419118145779879615494960e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.42
y[1] (analytic) = 2.7663291733333333333333333333334
y[1] (numeric) = 2.7663291733333333333333333333269
absolute error = 6.5e-30
relative error = 2.3496842178646871853592087339348e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.43
y[1] (analytic) = 2.7803714266666666666666666666667
y[1] (numeric) = 2.7803714266666666666666666666602
absolute error = 6.5e-30
relative error = 2.3378171483342870588268693520405e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.44
y[1] (analytic) = 2.7944611200000000000000000000001
y[1] (numeric) = 2.7944611199999999999999999999935
absolute error = 6.6e-30
relative error = 2.3618149319608354400722526423985e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.45
y[1] (analytic) = 2.8085983333333333333333333333334
y[1] (numeric) = 2.8085983333333333333333333333268
absolute error = 6.6e-30
relative error = 2.3499266241345772120019535248602e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.46
y[1] (analytic) = 2.8227831466666666666666666666667
y[1] (numeric) = 2.8227831466666666666666666666601
absolute error = 6.6e-30
relative error = 2.3381179697752293037165929704478e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.47
y[1] (analytic) = 2.8370156400000000000000000000001
y[1] (numeric) = 2.8370156399999999999999999999934
absolute error = 6.7e-30
relative error = 2.3616366105052561500859403087393e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.48
y[1] (analytic) = 2.8512958933333333333333333333334
y[1] (numeric) = 2.8512958933333333333333333333267
absolute error = 6.7e-30
relative error = 2.3498087363242066793189409753858e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.49
y[1] (analytic) = 2.8656239866666666666666666666667
y[1] (numeric) = 2.86562398666666666666666666666
absolute error = 6.7e-30
relative error = 2.3380597144545584228987400203178e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.5
y[1] (analytic) = 2.8800000000000000000000000000001
y[1] (numeric) = 2.8799999999999999999999999999933
absolute error = 6.8e-30
relative error = 2.3611111111111111111111111111110e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.51
y[1] (analytic) = 2.8944240133333333333333333333334
y[1] (numeric) = 2.8944240133333333333333333333266
absolute error = 6.8e-30
relative error = 2.3493447983693483361140900060986e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.52
y[1] (analytic) = 2.9088961066666666666666666666667
y[1] (numeric) = 2.9088961066666666666666666666599
absolute error = 6.8e-30
relative error = 2.3376565372739243195521849461446e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.53
y[1] (analytic) = 2.9234163600000000000000000000001
y[1] (numeric) = 2.9234163599999999999999999999932
absolute error = 6.9e-30
relative error = 2.3602522358464190848271780212654e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.54
y[1] (analytic) = 2.9379848533333333333333333333334
y[1] (numeric) = 2.9379848533333333333333333333265
absolute error = 6.9e-30
relative error = 2.3485485271210656207422063224251e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.55
y[1] (analytic) = 2.9526016666666666666666666666667
y[1] (numeric) = 2.9526016666666666666666666666598
absolute error = 6.9e-30
relative error = 2.3369220704226385656491647761494e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.56
y[1] (analytic) = 2.9672668800000000000000000000001
y[1] (numeric) = 2.9672668799999999999999999999931
absolute error = 7.0e-30
relative error = 2.3590732762130246942937603239786e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.57
y[1] (analytic) = 2.9819805733333333333333333333334
y[1] (numeric) = 2.9819805733333333333333333333264
absolute error = 7.0e-30
relative error = 2.3474331330653918009204289786050e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.58
y[1] (analytic) = 2.9967428266666666666666666666667
y[1] (numeric) = 2.9967428266666666666666666666597
absolute error = 7.0e-30
relative error = 2.3358694438875929435777810176410e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.59
y[1] (analytic) = 3.0115537200000000000000000000001
y[1] (numeric) = 3.011553719999999999999999999993
absolute error = 7.1e-30
relative error = 2.3575870331809986773206223928822e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.6
y[1] (analytic) = 3.0264133333333333333333333333334
y[1] (numeric) = 3.0264133333333333333333333333263
absolute error = 7.1e-30
relative error = 2.3460113401562245298064595715059e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.61
y[1] (analytic) = 3.0413217466666666666666666666667
y[1] (numeric) = 3.0413217466666666666666666666596
absolute error = 7.1e-30
relative error = 2.3345113050869097787137119781486e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.62
y[1] (analytic) = 3.0562790400000000000000000000001
y[1] (numeric) = 3.0562790399999999999999999999929
absolute error = 7.2e-30
relative error = 2.3558058363676112505748166240736e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.63
y[1] (analytic) = 3.0712852933333333333333333333334
y[1] (numeric) = 3.0712852933333333333333333333262
absolute error = 7.2e-30
relative error = 2.3442954048028804201352452671530e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.64
y[1] (analytic) = 3.0863405866666666666666666666667
y[1] (numeric) = 3.0863405866666666666666666666595
absolute error = 7.2e-30
relative error = 2.3328598376682074025064176974134e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.65
y[1] (analytic) = 3.1014450000000000000000000000001
y[1] (numeric) = 3.1014449999999999999999999999928
absolute error = 7.3e-30
relative error = 2.3537415624007519075785641854038e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.66
y[1] (analytic) = 3.1165986133333333333333333333334
y[1] (numeric) = 3.1165986133333333333333333333261
absolute error = 7.3e-30
relative error = 2.3422971340516457736899632666203e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.67
y[1] (analytic) = 3.1318015066666666666666666666667
y[1] (numeric) = 3.1318015066666666666666666666594
absolute error = 7.3e-30
relative error = 2.3309267795102876528407315452129e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.68
y[1] (analytic) = 3.1470537600000000000000000000001
y[1] (numeric) = 3.1470537599999999999999999999927
absolute error = 7.4e-30
relative error = 2.3514056525046461233633326937509e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.69
y[1] (analytic) = 3.1623554533333333333333333333334
y[1] (numeric) = 3.162355453333333333333333333326
absolute error = 7.4e-30
relative error = 2.3400279029986673351360430454499e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.7
y[1] (analytic) = 3.1777066666666666666666666666667
y[1] (numeric) = 3.1777066666666666666666666666593
absolute error = 7.4e-30
relative error = 2.3287234399650901278909737840287e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.71
y[1] (analytic) = 3.1931074800000000000000000000001
y[1] (numeric) = 3.1931074799999999999999999999926
absolute error = 7.5e-30
relative error = 2.3488091293438077442980403528414e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.72
y[1] (analytic) = 3.2085579733333333333333333333334
y[1] (numeric) = 3.2085579733333333333333333333259
absolute error = 7.5e-30
relative error = 2.3374986714696439664974647302409e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
bytes used=40016268, alloc=4062488, time=4.82
x[1] = 4.73
y[1] (analytic) = 3.2240582266666666666666666666667
y[1] (numeric) = 3.2240582266666666666666666666592
absolute error = 7.5e-30
relative error = 2.3262607163749031877492932127235e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.74
y[1] (analytic) = 3.2396083200000000000000000000001
y[1] (numeric) = 3.2396083199999999999999999999925
absolute error = 7.6e-30
relative error = 2.3459626131593587214888990036918e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.75
y[1] (analytic) = 3.2552083333333333333333333333334
y[1] (numeric) = 3.2552083333333333333333333333258
absolute error = 7.6e-30
relative error = 2.3347200000000000000000000000000e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.76
y[1] (analytic) = 3.2708583466666666666666666666667
y[1] (numeric) = 3.2708583466666666666666666666591
absolute error = 7.6e-30
relative error = 2.3235491098980681018058232347541e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.77
y[1] (analytic) = 3.2865584400000000000000000000001
y[1] (numeric) = 3.2865584399999999999999999999924
absolute error = 7.7e-30
relative error = 2.3428763372301391360623424666685e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.78
y[1] (analytic) = 3.3023086933333333333333333333334
y[1] (numeric) = 3.3023086933333333333333333333257
absolute error = 7.7e-30
relative error = 2.3317020651475376709381887302827e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.79
y[1] (analytic) = 3.3181091866666666666666666666667
y[1] (numeric) = 3.318109186666666666666666666659
absolute error = 7.7e-30
relative error = 2.3205987406747543276544538383665e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.8
y[1] (analytic) = 3.3339600000000000000000000000001
y[1] (numeric) = 3.3339599999999999999999999999923
absolute error = 7.8e-30
relative error = 2.3395601626894143900946622035057e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.81
y[1] (analytic) = 3.3498612133333333333333333333334
y[1] (numeric) = 3.3498612133333333333333333333256
absolute error = 7.8e-30
relative error = 2.3284546741679737888126079619354e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.82
y[1] (analytic) = 3.3658129066666666666666666666667
y[1] (numeric) = 3.3658129066666666666666666666589
absolute error = 7.8e-30
relative error = 2.3174193623628151119891124231551e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.83
y[1] (analytic) = 3.3818151600000000000000000000001
y[1] (numeric) = 3.3818151599999999999999999999922
absolute error = 7.9e-30
relative error = 2.3360235927264575867594135452393e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.84
y[1] (analytic) = 3.3978680533333333333333333333334
y[1] (numeric) = 3.3978680533333333333333333333255
absolute error = 7.9e-30
relative error = 2.3249872790822593605596707808595e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.85
y[1] (analytic) = 3.4139716666666666666666666666667
y[1] (numeric) = 3.4139716666666666666666666666588
absolute error = 7.9e-30
relative error = 2.3140203760722482074885409613339e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.86
y[1] (analytic) = 3.4301260800000000000000000000001
y[1] (numeric) = 3.4301260799999999999999999999921
absolute error = 8.0e-30
relative error = 2.3322757862008384251578297670037e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.87
y[1] (analytic) = 3.4463313733333333333333333333334
y[1] (numeric) = 3.4463313733333333333333333333254
absolute error = 8.0e-30
relative error = 2.3213089901631552528632253444013e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.88
y[1] (analytic) = 3.4625876266666666666666666666667
y[1] (numeric) = 3.4625876266666666666666666666587
absolute error = 8.0e-30
relative error = 2.3104108437253816097889211733720e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.89
y[1] (analytic) = 3.4788949200000000000000000000001
y[1] (numeric) = 3.478894919999999999999999999992
absolute error = 8.1e-30
relative error = 2.3283255706958806332673020201483e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.9
y[1] (analytic) = 3.4952533333333333333333333333334
y[1] (numeric) = 3.4952533333333333333333333333253
absolute error = 8.1e-30
relative error = 2.3174285888671875000000000000000e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.91
y[1] (analytic) = 3.5116629466666666666666666666667
y[1] (numeric) = 3.5116629466666666666666666666586
absolute error = 8.1e-30
relative error = 2.3065995008685742471085522288982e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.92
y[1] (analytic) = 3.5281238400000000000000000000001
y[1] (numeric) = 3.5281238399999999999999999999919
absolute error = 8.2e-30
relative error = 2.3241814550364535956878429754891e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.93
y[1] (analytic) = 3.5446360933333333333333333333334
y[1] (numeric) = 3.5446360933333333333333333333252
absolute error = 8.2e-30
relative error = 2.3133545402368281476281456134583e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.94
y[1] (analytic) = 3.5611997866666666666666666666667
y[1] (numeric) = 3.5611997866666666666666666666585
absolute error = 8.2e-30
relative error = 2.3025947689599621976090275253451e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.95
y[1] (analytic) = 3.5778150000000000000000000000001
y[1] (numeric) = 3.5778149999999999999999999999918
absolute error = 8.3e-30
relative error = 2.3198516412950362162381229884719e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.96
y[1] (analytic) = 3.5944818133333333333333333333334
y[1] (numeric) = 3.5944818133333333333333333333251
absolute error = 8.3e-30
relative error = 2.3090950047965374599233841906469e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.97
y[1] (analytic) = 3.6112003066666666666666666666667
y[1] (numeric) = 3.6112003066666666666666666666584
absolute error = 8.3e-30
relative error = 2.2984047671565882269918430777862e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.98
y[1] (analytic) = 3.6279705600000000000000000000001
y[1] (numeric) = 3.6279705599999999999999999999917
absolute error = 8.4e-30
relative error = 2.3153440363088282612745347084624e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
TOP MAIN SOLVE Loop
x[1] = 4.99
y[1] (analytic) = 3.6447926533333333333333333333334
y[1] (numeric) = 3.644792653333333333333333333325
absolute error = 8.4e-30
relative error = 2.3046578499651570485862370903447e-28 %
Correct digits = 30
h = 0.01
NO INFO (given) for Equation 1
NO POLE (ratio test) for Equation 1
NO REAL POLE (three term test) for Equation 1
NO COMPLEX POLE (six term test) for Equation 1
Finished!
diff ( y , x , 1 ) = expt((0.2 * x + 0.3) , 2.0);
Iterations = 490
Total Elapsed Time = 4 Seconds
Elapsed Time(since restart) = 4 Seconds
Time to Timeout = 2 Minutes 55 Seconds
Percent Done = 100.2 %
> quit
bytes used=42224952, alloc=4062488, time=5.08