|\^/| 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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_2D0[1] * array_x[1]; > #emit pre add LINEAR - CONST $eq_no = 1 i = 1 > array_tmp2[1] := array_tmp1[1] + array_const_3D0[1]; > #emit pre sqrt 1 $eq_no = 1 > array_tmp3[1] := sqrt(array_tmp2[1]); > array_tmp4_a1[1] := sin(array_tmp3[1]); > array_tmp4_a2[1] := cos(array_tmp3[1]); > array_tmp4[1] := (array_tmp4_a1[1] / array_tmp4_a2[1]); > #emit pre add CONST FULL $eq_no = 1 i = 1 > array_tmp5[1] := array_const_0D0[1] + array_tmp4[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_tmp5[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_2D0[1] * array_x[2]; > #emit pre add LINEAR - CONST $eq_no = 1 i = 2 > array_tmp2[2] := array_tmp1[2]; > #emit pre sqrt 2 $eq_no = 1 > array_tmp3[2] := array_tmp2[2] / array_tmp3[1]/2.0; > #emit pre tan $eq_no = 1 > array_tmp4_a1[2] := att(1,array_tmp4_a2,array_tmp3,1); > array_tmp4_a2[2] := -att(1,array_tmp4_a1,array_tmp3,1); > array_tmp4[2] := (array_tmp4_a1[2] - ats(2,array_tmp4_a2,array_tmp4,2)) / array_tmp4_a2[1]; > #emit pre add CONST FULL $eq_no = 1 i = 2 > array_tmp5[2] := array_tmp4[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_tmp5[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 sqrt ID_LINEAR iii = 3 $eq_no = 1 > array_tmp3[3] := 0.0; > array_tmp3[3] := -ats(3,array_tmp3,array_tmp3,2) / array_tmp3[1] / 2.0; > #emit pre tan $eq_no = 1 > array_tmp4_a1[3] := att(2,array_tmp4_a2,array_tmp3,1); > array_tmp4_a2[3] := -att(2,array_tmp4_a1,array_tmp3,1); > array_tmp4[3] := (array_tmp4_a1[3] - ats(3,array_tmp4_a2,array_tmp4,2)) / array_tmp4_a2[1]; > #emit pre add CONST FULL $eq_no = 1 i = 3 > array_tmp5[3] := array_tmp4[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_tmp5[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 sqrt ID_LINEAR iii = 4 $eq_no = 1 > array_tmp3[4] := 0.0; > array_tmp3[4] := -ats(4,array_tmp3,array_tmp3,2) / array_tmp3[1] / 2.0; > #emit pre tan $eq_no = 1 > array_tmp4_a1[4] := att(3,array_tmp4_a2,array_tmp3,1); > array_tmp4_a2[4] := -att(3,array_tmp4_a1,array_tmp3,1); > array_tmp4[4] := (array_tmp4_a1[4] - ats(4,array_tmp4_a2,array_tmp4,2)) / array_tmp4_a2[1]; > #emit pre add CONST FULL $eq_no = 1 i = 4 > array_tmp5[4] := array_tmp4[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_tmp5[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 sqrt ID_LINEAR iii = 5 $eq_no = 1 > array_tmp3[5] := 0.0; > array_tmp3[5] := -ats(5,array_tmp3,array_tmp3,2) / array_tmp3[1] / 2.0; > #emit pre tan $eq_no = 1 > array_tmp4_a1[5] := att(4,array_tmp4_a2,array_tmp3,1); > array_tmp4_a2[5] := -att(4,array_tmp4_a1,array_tmp3,1); > array_tmp4[5] := (array_tmp4_a1[5] - ats(5,array_tmp4_a2,array_tmp4,2)) / array_tmp4_a2[1]; > #emit pre add CONST FULL $eq_no = 1 i = 5 > array_tmp5[5] := array_tmp4[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_tmp5[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 sqrt LINEAR $eq_no = 1 > array_tmp3[kkk] := 0.0; > array_tmp3[kkk] := -ats(kkk,array_tmp3,array_tmp3,2) /array_tmp3[1] / 2.0; > array_tmp4_a1[kkk] := att(kkk-1 ,array_tmp4_a2,array_tmp3,1); > array_tmp4_a2[kkk] := -att(kkk-1,array_tmp4_a1,array_tmp3,1); > array_tmp4[kkk] := (array_tmp4_a1[kkk] - ats(kkk ,array_tmp4_a2,array_tmp4,2)) / array_tmp4_a2[1]; > #emit NOT FULL - FULL add $eq_no = 1 > array_tmp5[kkk] := array_tmp4[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_tmp5[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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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_2D0[1]*array_x[1]; array_tmp2[1] := array_tmp1[1] + array_const_3D0[1]; array_tmp3[1] := sqrt(array_tmp2[1]); array_tmp4_a1[1] := sin(array_tmp3[1]); array_tmp4_a2[1] := cos(array_tmp3[1]); array_tmp4[1] := array_tmp4_a1[1]/array_tmp4_a2[1]; array_tmp5[1] := array_const_0D0[1] + array_tmp4[1]; if not array_y_set_initial[1, 2] then if 1 <= glob_max_terms then temporary := array_tmp5[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_2D0[1]*array_x[2]; array_tmp2[2] := array_tmp1[2]; array_tmp3[2] := array_tmp2[2]/(array_tmp3[1]*2.0); array_tmp4_a1[2] := att(1, array_tmp4_a2, array_tmp3, 1); array_tmp4_a2[2] := -att(1, array_tmp4_a1, array_tmp3, 1); array_tmp4[2] := ( array_tmp4_a1[2] - ats(2, array_tmp4_a2, array_tmp4, 2))/ array_tmp4_a2[1]; array_tmp5[2] := array_tmp4[2]; if not array_y_set_initial[1, 3] then if 2 <= glob_max_terms then temporary := array_tmp5[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] := 0.; array_tmp3[3] := -ats(3, array_tmp3, array_tmp3, 2)/(array_tmp3[1]*2.0) ; array_tmp4_a1[3] := att(2, array_tmp4_a2, array_tmp3, 1); array_tmp4_a2[3] := -att(2, array_tmp4_a1, array_tmp3, 1); array_tmp4[3] := ( array_tmp4_a1[3] - ats(3, array_tmp4_a2, array_tmp4, 2))/ array_tmp4_a2[1]; array_tmp5[3] := array_tmp4[3]; if not array_y_set_initial[1, 4] then if 3 <= glob_max_terms then temporary := array_tmp5[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] := 0.; array_tmp3[4] := -ats(4, array_tmp3, array_tmp3, 2)/(array_tmp3[1]*2.0) ; array_tmp4_a1[4] := att(3, array_tmp4_a2, array_tmp3, 1); array_tmp4_a2[4] := -att(3, array_tmp4_a1, array_tmp3, 1); array_tmp4[4] := ( array_tmp4_a1[4] - ats(4, array_tmp4_a2, array_tmp4, 2))/ array_tmp4_a2[1]; array_tmp5[4] := array_tmp4[4]; if not array_y_set_initial[1, 5] then if 4 <= glob_max_terms then temporary := array_tmp5[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] := 0.; array_tmp3[5] := -ats(5, array_tmp3, array_tmp3, 2)/(array_tmp3[1]*2.0) ; array_tmp4_a1[5] := att(4, array_tmp4_a2, array_tmp3, 1); array_tmp4_a2[5] := -att(4, array_tmp4_a1, array_tmp3, 1); array_tmp4[5] := ( array_tmp4_a1[5] - ats(5, array_tmp4_a2, array_tmp4, 2))/ array_tmp4_a2[1]; array_tmp5[5] := array_tmp4[5]; if not array_y_set_initial[1, 6] then if 5 <= glob_max_terms then temporary := array_tmp5[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] := 0.; array_tmp3[kkk] := -ats(kkk, array_tmp3, array_tmp3, 2)/(array_tmp3[1]*2.0); array_tmp4_a1[kkk] := att(kkk - 1, array_tmp4_a2, array_tmp3, 1); array_tmp4_a2[kkk] := -att(kkk - 1, array_tmp4_a1, array_tmp3, 1); array_tmp4[kkk] := ( array_tmp4_a1[kkk] - ats(kkk, array_tmp4_a2, array_tmp4, 2))/ array_tmp4_a2[1]; array_tmp5[kkk] := array_tmp4[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_tmp5[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(0.0); > end; exact_soln_y := proc(x) return 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_2D0, > array_const_3D0, > #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, > array_tmp4_g, > array_tmp4_a1, > array_tmp4_a2, > array_tmp4, > array_tmp5, > 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/tan_sqrt_linpostode.ode#################"); > omniout_str(ALWAYS,"diff ( y , x , 1 ) = tan(sqrt(2.0*x + 3.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(0.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:= Array(0..(max_terms + 1),[]); > array_tmp4_g:= Array(0..(max_terms + 1),[]); > array_tmp4_a1:= Array(0..(max_terms + 1),[]); > array_tmp4_a2:= Array(0..(max_terms + 1),[]); > array_tmp4:= Array(0..(max_terms + 1),[]); > array_tmp5:= 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[term] := 0.0; > term := term + 1; > od;# end do number 1; > term := 1; > while (term <= max_terms) do # do number 1 > array_tmp4_g[term] := 0.0; > term := term + 1; > od;# end do number 1; > term := 1; > while (term <= max_terms) do # do number 1 > array_tmp4_a1[term] := 0.0; > term := term + 1; > od;# end do number 1; > term := 1; > while (term <= max_terms) do # do number 1 > array_tmp4_a2[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_tmp5[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 := 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_g := Array(1..(max_terms+1 + 1),[]); > term := 1; > while (term <= max_terms + 1) do # do number 1 > array_tmp4_g[term] := 0.0; > term := term + 1; > od;# end do number 1; > array_tmp4_a1 := Array(1..(max_terms+1 + 1),[]); > term := 1; > while (term <= max_terms + 1) do # do number 1 > array_tmp4_a1[term] := 0.0; > term := term + 1; > od;# end do number 1; > array_tmp4_a2 := Array(1..(max_terms+1 + 1),[]); > term := 1; > while (term <= max_terms + 1) do # do number 1 > array_tmp4_a2[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_tmp5 := Array(1..(max_terms+1 + 1),[]); > term := 1; > while (term <= max_terms + 1) do # do number 1 > array_tmp5[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_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_const_3D0 := Array(1..(max_terms+1 + 1),[]); > term := 1; > while (term <= max_terms + 1) do # do number 1 > array_const_3D0[term] := 0.0; > term := term + 1; > od;# end do number 1; > array_const_3D0[1] := 3.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 ) = tan(sqrt(2.0*x + 3.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-26T05:32:42-05:00") > ; > logitem_str(html_log_file,"Maple") > ; > logitem_str(html_log_file,"tan_sqrt_lin") > ; > logitem_str(html_log_file,"diff ( y , x , 1 ) = tan(sqrt(2.0*x + 3.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,"tan_sqrt_lin diffeq.mxt") > ; > logitem_str(html_log_file,"tan_sqrt_lin 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_2D0, array_const_3D0, 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, array_tmp4_g, array_tmp4_a1, array_tmp4_a2, array_tmp4, array_tmp5, 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/tan_sqrt_linpostode.ode#################"); omniout_str(ALWAYS, "diff ( y , x , 1 ) = tan(sqrt(2.0*x + 3.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(0.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 := Array(0 .. max_terms + 1, []); array_tmp4_g := Array(0 .. max_terms + 1, []); array_tmp4_a1 := Array(0 .. max_terms + 1, []); array_tmp4_a2 := Array(0 .. max_terms + 1, []); array_tmp4 := Array(0 .. max_terms + 1, []); array_tmp5 := 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[term] := 0.; term := term + 1 end do; term := 1; while term <= max_terms do array_tmp4_g[term] := 0.; term := term + 1 end do; term := 1; while term <= max_terms do array_tmp4_a1[term] := 0.; term := term + 1 end do; term := 1; while term <= max_terms do array_tmp4_a2[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_tmp5[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 := Array(1 .. max_terms + 2, []); term := 1; while term <= max_terms + 1 do array_tmp3[term] := 0.; term := term + 1 end do; array_tmp4_g := Array(1 .. max_terms + 2, []); term := 1; while term <= max_terms + 1 do array_tmp4_g[term] := 0.; term := term + 1 end do; array_tmp4_a1 := Array(1 .. max_terms + 2, []); term := 1; while term <= max_terms + 1 do array_tmp4_a1[term] := 0.; term := term + 1 end do; array_tmp4_a2 := Array(1 .. max_terms + 2, []); term := 1; while term <= max_terms + 1 do array_tmp4_a2[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_tmp5 := Array(1 .. max_terms + 2, []); term := 1; while term <= max_terms + 1 do array_tmp5[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_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_const_3D0 := Array(1 .. max_terms + 2, []); term := 1; while term <= max_terms + 1 do array_const_3D0[term] := 0.; term := term + 1 end do; array_const_3D0[1] := 3.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 ) = tan(sqrt(2.0*x + 3.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-26T05:32:42-05:00"); logitem_str(html_log_file, "Maple"); logitem_str(html_log_file, "tan_sqrt_lin"); logitem_str(html_log_file, "diff ( y , x , 1 ) = tan(sqrt(2.0*x + 3.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, "tan_sqrt_lin diffeq.mxt"); logitem_str(html_log_file, "tan_sqrt_lin 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/tan_sqrt_linpostode.ode################# diff ( y , x , 1 ) = tan(sqrt(2.0*x + 3.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(0.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 = 1.3225223848186436212483810778356e-146 estimated_step_error = 1.3225223848186436212483810778356e-146 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 = 8.8752858198910738381994259804055e-139 estimated_step_error = 8.8752858198910738381994259804055e-139 best_h = 4.00e-06 opt_iter = 3 bytes used=4000108, alloc=2883056, time=0.12 hn_div_ho = 0.5 hn_div_ho_2 = 0.25 hn_div_ho_3 = 0.125 max_estimated_step_error = 5.9560878325910205530177214756520e-131 estimated_step_error = 5.9560878325910205530177214756520e-131 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 = 3.9970418677945224790649457872366e-123 estimated_step_error = 3.9970418677945224790649457872366e-123 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 = 2.6823411850008148350264226240517e-115 estimated_step_error = 2.6823411850008148350264226240517e-115 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 = 1.8000508414937802294647726407757e-107 estimated_step_error = 1.8000508414937802294647726407757e-107 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 = 1.2079428644070923993661989569156e-99 estimated_step_error = 1.2079428644070923993661989569156e-99 best_h = 0.000128 opt_iter = 8 bytes used=8000872, alloc=3931440, time=0.23 hn_div_ho = 0.5 hn_div_ho_2 = 0.25 hn_div_ho_3 = 0.125 max_estimated_step_error = 8.1056855103592082922255921032712e-92 estimated_step_error = 8.1056855103592082922255921032712e-92 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 = 5.4387185595192605630672629036804e-84 estimated_step_error = 5.4387185595192605630672629036804e-84 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 = 3.6486348965228956350052177953402e-76 estimated_step_error = 3.6486348965228956350052177953402e-76 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 = 2.4469117830139749533612685577817e-68 estimated_step_error = 2.4469117830139749533612685577817e-68 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 = 1.6398904245318982927226916342943e-60 estimated_step_error = 1.6398904245318982927226916342943e-60 best_h = 0.004096 opt_iter = 13 bytes used=12001664, alloc=4128012, time=0.36 hn_div_ho = 0.5 hn_div_ho_2 = 0.25 hn_div_ho_3 = 0.125 max_estimated_step_error = 1.0975653168775994700930336004824e-52 estimated_step_error = 1.0975653168775994700930336004824e-52 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 = 7.3264110952120528055778352989132e-45 estimated_step_error = 7.3264110952120528055778352989132e-45 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 = 4.8648897874091931408698205026588e-37 estimated_step_error = 4.8648897874091931408698205026588e-37 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 = 3.1975957143090184707904987696775e-29 estimated_step_error = 3.1975957143090184707904987696775e-29 best_h = 0.065536 opt_iter = 17 bytes used=16002740, alloc=4193536, time=0.48 hn_div_ho = 0.5 hn_div_ho_2 = 0.25 hn_div_ho_3 = 0.125 max_estimated_step_error = 2.0619440232397588352337696378882e-21 estimated_step_error = 2.0619440232397588352337696378882e-21 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 = 1.2878450049206560593296262007819e-13 estimated_step_error = 1.2878450049206560593296262007819e-13 best_h = 0.1 START of Soultion TOP MAIN SOLVE Loop x[1] = 0.1 y[1] (analytic) = 0 y[1] (numeric) = 0 absolute error = 0 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.3829 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.7932 Order of pole (six term test) = 1.454e-15 TOP MAIN SOLVE Loop x[1] = 0.11 y[1] (analytic) = 0 y[1] (numeric) = -0.044543390764686523751394063642894 absolute error = 0.044543390764686523751394063642894 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.3934 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.8065 Order of pole (six term test) = 2.340e-15 TOP MAIN SOLVE Loop x[1] = 0.12 y[1] (analytic) = 0 y[1] (numeric) = -0.087953395998997014226294839581007 absolute error = 0.087953395998997014226294839581007 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.4039 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.8197 Order of pole (six term test) = 3.708e-15 TOP MAIN SOLVE Loop bytes used=20003852, alloc=4259060, time=0.61 x[1] = 0.13 y[1] (analytic) = 0 y[1] (numeric) = -0.13028682390059112919833712305197 absolute error = 0.13028682390059112919833712305197 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.4143 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.8329 Order of pole (six term test) = 5.792e-15 TOP MAIN SOLVE Loop x[1] = 0.14 y[1] (analytic) = 0 y[1] (numeric) = -0.17159623985466598094509127185893 absolute error = 0.17159623985466598094509127185893 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.4248 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.8459 Order of pole (six term test) = 8.924e-15 TOP MAIN SOLVE Loop x[1] = 0.15 y[1] (analytic) = 0 y[1] (numeric) = -0.2119303790804806416730158069538 absolute error = 0.2119303790804806416730158069538 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.4352 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.8589 Order of pole (six term test) = 1.357e-14 TOP MAIN SOLVE Loop x[1] = 0.16 y[1] (analytic) = 0 y[1] (numeric) = -0.25133451029175108646719401008154 absolute error = 0.25133451029175108646719401008154 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.4457 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.8718 Order of pole (six term test) = 2.038e-14 TOP MAIN SOLVE Loop x[1] = 0.17 y[1] (analytic) = 0 y[1] (numeric) = -0.2898507571878550526565191234113 absolute error = 0.2898507571878550526565191234113 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.4561 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.8847 Order of pole (six term test) = 3.025e-14 bytes used=24005244, alloc=4324584, time=0.74 TOP MAIN SOLVE Loop x[1] = 0.18 y[1] (analytic) = 0 y[1] (numeric) = -0.32751838351106471531282142527334 absolute error = 0.32751838351106471531282142527334 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.4666 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.8975 Order of pole (six term test) = 4.440e-14 TOP MAIN SOLVE Loop x[1] = 0.19 y[1] (analytic) = 0 y[1] (numeric) = -0.36437404651513356058408097329394 absolute error = 0.36437404651513356058408097329394 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.477 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.9102 Order of pole (six term test) = 6.448e-14 TOP MAIN SOLVE Loop x[1] = 0.2 y[1] (analytic) = 0 y[1] (numeric) = -0.4004520229550598268230251268179 absolute error = 0.4004520229550598268230251268179 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.4875 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.9229 Order of pole (six term test) = 9.267e-14 TOP MAIN SOLVE Loop x[1] = 0.21 y[1] (analytic) = 0 y[1] (numeric) = -0.43578441109723804603507703146612 absolute error = 0.43578441109723804603507703146612 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.4979 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.9355 Order of pole (six term test) = 1.319e-13 TOP MAIN SOLVE Loop bytes used=28005888, alloc=4324584, time=0.87 x[1] = 0.22 y[1] (analytic) = 0 y[1] (numeric) = -0.47040131174012900525219487537601 absolute error = 0.47040131174012900525219487537601 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.5084 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.9481 Order of pole (six term test) = 1.860e-13 TOP MAIN SOLVE Loop x[1] = 0.23 y[1] (analytic) = 0 y[1] (numeric) = -0.50433099080942078956147833544691 absolute error = 0.50433099080942078956147833544691 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.5189 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.9606 Order of pole (six term test) = 2.599e-13 TOP MAIN SOLVE Loop x[1] = 0.24 y[1] (analytic) = 0 y[1] (numeric) = -0.53760002573352647474235985007753 absolute error = 0.53760002573352647474235985007753 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.5293 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.9731 Order of pole (six term test) = 3.602e-13 TOP MAIN SOLVE Loop x[1] = 0.25 y[1] (analytic) = 0 y[1] (numeric) = -0.570233437503188426487534679951 absolute error = 0.570233437503188426487534679951 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.5398 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.9855 Order of pole (six term test) = 4.950e-13 TOP MAIN SOLVE Loop x[1] = 0.26 y[1] (analytic) = 0 y[1] (numeric) = -0.60225481006325474166523638878372 absolute error = 0.60225481006325474166523638878372 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.5502 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 0.9979 Order of pole (six term test) = 6.750e-13 bytes used=32006780, alloc=4324584, time=1.01 TOP MAIN SOLVE Loop x[1] = 0.27 y[1] (analytic) = 0 y[1] (numeric) = -0.6336863984675025006480392229135 absolute error = 0.6336863984675025006480392229135 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.5607 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.01 Order of pole (six term test) = 9.135e-13 TOP MAIN SOLVE Loop x[1] = 0.28 y[1] (analytic) = 0 y[1] (numeric) = -0.66454922704229968053722200460874 absolute error = 0.66454922704229968053722200460874 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.5711 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.023 Order of pole (six term test) = 1.227e-12 TOP MAIN SOLVE Loop x[1] = 0.29 y[1] (analytic) = 0 y[1] (numeric) = -0.69486317864667957871339258346872 absolute error = 0.69486317864667957871339258346872 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.5816 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.035 Order of pole (six term test) = 1.638e-12 TOP MAIN SOLVE Loop x[1] = 0.3 y[1] (analytic) = 0 y[1] (numeric) = -0.72464707598073960868407250743228 absolute error = 0.72464707598073960868407250743228 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.592 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.047 Order of pole (six term test) = 2.170e-12 TOP MAIN SOLVE Loop bytes used=36007880, alloc=4324584, time=1.14 x[1] = 0.31 y[1] (analytic) = 0 y[1] (numeric) = -0.75391875577761599415130028885853 absolute error = 0.75391875577761599415130028885853 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6025 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.059 Order of pole (six term test) = 2.858e-12 TOP MAIN SOLVE Loop x[1] = 0.32 y[1] (analytic) = 0 y[1] (numeric) = -0.78269513661368447413180550633616 absolute error = 0.78269513661368447413180550633616 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6129 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.071 Order of pole (six term test) = 3.740e-12 TOP MAIN SOLVE Loop x[1] = 0.33 y[1] (analytic) = 0 y[1] (numeric) = -0.81099228098464972774672338907111 absolute error = 0.81099228098464972774672338907111 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6234 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.083 Order of pole (six term test) = 4.865e-12 TOP MAIN SOLVE Loop x[1] = 0.34 y[1] (analytic) = 0 y[1] (numeric) = -0.83882545221977463568876214629301 absolute error = 0.83882545221977463568876214629301 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6339 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.095 Order of pole (six term test) = 6.292e-12 TOP MAIN SOLVE Loop x[1] = 0.35 y[1] (analytic) = 0 y[1] (numeric) = -0.86620916674096002967121856794859 absolute error = 0.86620916674096002967121856794859 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6443 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.108 Order of pole (six term test) = 8.093e-12 TOP MAIN SOLVE Loop bytes used=40008584, alloc=4390108, time=1.27 x[1] = 0.36 y[1] (analytic) = 0 y[1] (numeric) = -0.89315724211628600009817890156982 absolute error = 0.89315724211628600009817890156982 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6548 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.12 Order of pole (six term test) = 1.035e-11 TOP MAIN SOLVE Loop x[1] = 0.37 y[1] (analytic) = 0 y[1] (numeric) = -0.91968284130776350634115774588755 absolute error = 0.91968284130776350634115774588755 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6652 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.132 Order of pole (six term test) = 1.318e-11 TOP MAIN SOLVE Loop x[1] = 0.38 y[1] (analytic) = 0 y[1] (numeric) = -0.94579851346940406541858538975942 absolute error = 0.94579851346940406541858538975942 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6757 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.143 Order of pole (six term test) = 1.668e-11 TOP MAIN SOLVE Loop x[1] = 0.39 y[1] (analytic) = 0 y[1] (numeric) = -0.9715162316134358023426094665144 absolute error = 0.9715162316134358023426094665144 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6861 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.155 Order of pole (six term test) = 2.103e-11 TOP MAIN SOLVE Loop bytes used=44009404, alloc=4390108, time=1.40 x[1] = 0.4 y[1] (analytic) = 0 y[1] (numeric) = -0.99684742742884630626701789240304 absolute error = 0.99684742742884630626701789240304 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.6966 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.167 Order of pole (six term test) = 2.637e-11 TOP MAIN SOLVE Loop x[1] = 0.41 y[1] (analytic) = 0 y[1] (numeric) = -1.0218030235067954700097473257681 absolute error = 1.0218030235067954700097473257681 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.707 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.179 Order of pole (six term test) = 3.293e-11 TOP MAIN SOLVE Loop x[1] = 0.42 y[1] (analytic) = 0 y[1] (numeric) = -1.0463934632012848963636831095848 absolute error = 1.0463934632012848963636831095848 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.7175 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.191 Order of pole (six term test) = 4.094e-11 TOP MAIN SOLVE Loop x[1] = 0.43 y[1] (analytic) = 0 y[1] (numeric) = -1.070628738330341301311932915223 absolute error = 1.070628738330341301311932915223 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.7279 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.203 Order of pole (six term test) = 5.068e-11 TOP MAIN SOLVE Loop x[1] = 0.44 y[1] (analytic) = 0 y[1] (numeric) = -1.0945184149024810406584749286482 absolute error = 1.0945184149024810406584749286482 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.7384 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.215 Order of pole (six term test) = 6.248e-11 TOP MAIN SOLVE Loop bytes used=48010280, alloc=4390108, time=1.53 x[1] = 0.45 y[1] (analytic) = 0 y[1] (numeric) = -1.1180716570350374833152164807133 absolute error = 1.1180716570350374833152164807133 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.7489 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.226 Order of pole (six term test) = 7.672e-11 TOP MAIN SOLVE Loop x[1] = 0.46 y[1] (analytic) = 0 y[1] (numeric) = -1.1412972492147648092557674729572 absolute error = 1.1412972492147648092557674729572 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.7593 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.238 Order of pole (six term test) = 9.384e-11 TOP MAIN SOLVE Loop x[1] = 0.47 y[1] (analytic) = 0 y[1] (numeric) = -1.1642036170367326209306704502982 absolute error = 1.1642036170367326209306704502982 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.7698 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.25 Order of pole (six term test) = 1.144e-10 TOP MAIN SOLVE Loop x[1] = 0.48 y[1] (analytic) = 0 y[1] (numeric) = -1.1867988465446807232101547787016 absolute error = 1.1867988465446807232101547787016 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.7802 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.262 Order of pole (six term test) = 1.388e-10 TOP MAIN SOLVE Loop bytes used=52011184, alloc=4455632, time=1.67 x[1] = 0.49 y[1] (analytic) = 0 y[1] (numeric) = -1.2090907022845263436529206180623 absolute error = 1.2090907022845263436529206180623 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.7907 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.273 Order of pole (six term test) = 1.680e-10 TOP MAIN SOLVE Loop x[1] = 0.5 y[1] (analytic) = 0 y[1] (numeric) = -1.2310866441724451900421360185529 absolute error = 1.2310866441724451900421360185529 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.8011 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.285 Order of pole (six term test) = 2.025e-10 TOP MAIN SOLVE Loop x[1] = 0.51 y[1] (analytic) = 0 y[1] (numeric) = -1.2527938432697423071516563774618 absolute error = 1.2527938432697423071516563774618 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.8116 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.297 Order of pole (six term test) = 2.434e-10 TOP MAIN SOLVE Loop x[1] = 0.52 y[1] (analytic) = 0 y[1] (numeric) = -1.274219196548465951189647493967 absolute error = 1.274219196548465951189647493967 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.822 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.308 Order of pole (six term test) = 2.916e-10 TOP MAIN SOLVE Loop x[1] = 0.53 y[1] (analytic) = 0 y[1] (numeric) = -1.2953693407242904145711664797271 absolute error = 1.2953693407242904145711664797271 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.8325 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.32 Order of pole (six term test) = 3.482e-10 TOP MAIN SOLVE Loop bytes used=56013236, alloc=4455632, time=1.80 x[1] = 0.54 y[1] (analytic) = 0 y[1] (numeric) = -1.3162506652265080563637588838265 absolute error = 1.3162506652265080563637588838265 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.8429 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.331 Order of pole (six term test) = 4.145e-10 TOP MAIN SOLVE Loop x[1] = 0.55 y[1] (analytic) = 0 y[1] (numeric) = -1.3368693243689444451747627593126 absolute error = 1.3368693243689444451747627593126 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.8534 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.343 Order of pole (six term test) = 4.920e-10 TOP MAIN SOLVE Loop x[1] = 0.56 y[1] (analytic) = 0 y[1] (numeric) = -1.3572312487801712413323306230195 absolute error = 1.3572312487801712413323306230195 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.8639 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.355 Order of pole (six term test) = 5.822e-10 TOP MAIN SOLVE Loop x[1] = 0.57 y[1] (analytic) = 0 y[1] (numeric) = -1.3773421561464756675239407837658 absolute error = 1.3773421561464756675239407837658 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.8743 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.366 Order of pole (six term test) = 6.871e-10 TOP MAIN SOLVE Loop bytes used=60014144, alloc=4455632, time=1.92 x[1] = 0.58 y[1] (analytic) = 0 y[1] (numeric) = -1.3972075613165971319427616107833 absolute error = 1.3972075613165971319427616107833 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.8848 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.378 Order of pole (six term test) = 8.087e-10 TOP MAIN SOLVE Loop x[1] = 0.59 y[1] (analytic) = 0 y[1] (numeric) = -1.4168327858132113459897521724792 absolute error = 1.4168327858132113459897521724792 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.8952 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.389 Order of pole (six term test) = 9.493e-10 TOP MAIN SOLVE Loop x[1] = 0.6 y[1] (analytic) = 0 y[1] (numeric) = -1.4362229667924864299104329178551 absolute error = 1.4362229667924864299104329178551 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.9057 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.401 Order of pole (six term test) = 1.111e-09 TOP MAIN SOLVE Loop x[1] = 0.61 y[1] (analytic) = 0 y[1] (numeric) = -1.4553830654897153495920836159848 absolute error = 1.4553830654897153495920836159848 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.9161 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.412 Order of pole (six term test) = 1.298e-09 TOP MAIN SOLVE Loop x[1] = 0.62 y[1] (analytic) = 0 y[1] (numeric) = -1.4743178751860102902201938870487 absolute error = 1.4743178751860102902201938870487 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.9266 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.424 Order of pole (six term test) = 1.512e-09 TOP MAIN SOLVE Loop bytes used=64015152, alloc=4455632, time=2.05 x[1] = 0.63 y[1] (analytic) = 0 y[1] (numeric) = -1.493032028728296808897589760195 absolute error = 1.493032028728296808897589760195 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.937 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.435 Order of pole (six term test) = 1.757e-09 TOP MAIN SOLVE Loop x[1] = 0.64 y[1] (analytic) = 0 y[1] (numeric) = -1.5115300056323417575697636642621 absolute error = 1.5115300056323417575697636642621 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.9475 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.446 Order of pole (six term test) = 2.037e-09 TOP MAIN SOLVE Loop x[1] = 0.65 y[1] (analytic) = 0 y[1] (numeric) = -1.5298161387962649384271867612146 absolute error = 1.5298161387962649384271867612146 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.9579 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.458 Order of pole (six term test) = 2.356e-09 TOP MAIN SOLVE Loop x[1] = 0.66 y[1] (analytic) = 0 y[1] (numeric) = -1.5478946208498987703352154756951 absolute error = 1.5478946208498987703352154756951 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.9684 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.469 Order of pole (six term test) = 2.719e-09 TOP MAIN SOLVE Loop bytes used=68016296, alloc=4455632, time=2.19 x[1] = 0.67 y[1] (analytic) = 0 y[1] (numeric) = -1.56576951016345373702143065578 absolute error = 1.56576951016345373702143065578 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.9789 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.481 Order of pole (six term test) = 3.132e-09 TOP MAIN SOLVE Loop x[1] = 0.68 y[1] (analytic) = 0 y[1] (numeric) = -1.5834447365372029227135210026087 absolute error = 1.5834447365372029227135210026087 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.9893 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.492 Order of pole (six term test) = 3.599e-09 TOP MAIN SOLVE Loop x[1] = 0.69 y[1] (analytic) = 0 y[1] (numeric) = -1.6009241065923011868525352425576 absolute error = 1.6009241065923011868525352425576 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 0.9998 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.503 Order of pole (six term test) = 4.128e-09 TOP MAIN SOLVE Loop x[1] = 0.7 y[1] (analytic) = 0 y[1] (numeric) = -1.6182113088813897496586476278223 absolute error = 1.6182113088813897496586476278223 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.01 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.515 Order of pole (six term test) = 4.724e-09 TOP MAIN SOLVE Loop x[1] = 0.71 y[1] (analytic) = 0 y[1] (numeric) = -1.635309918736292832357343001485 absolute error = 1.635309918736292832357343001485 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.021 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.526 Order of pole (six term test) = 5.396e-09 TOP MAIN SOLVE Loop bytes used=72017220, alloc=4455632, time=2.32 x[1] = 0.72 y[1] (analytic) = 0 y[1] (numeric) = -1.6522234028688784532797625539141 absolute error = 1.6522234028688784532797625539141 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.031 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.537 Order of pole (six term test) = 6.152e-09 TOP MAIN SOLVE Loop x[1] = 0.73 y[1] (analytic) = 0 y[1] (numeric) = -1.6689551237400205737976983228432 absolute error = 1.6689551237400205737976983228432 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.042 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.549 Order of pole (six term test) = 7.000e-09 TOP MAIN SOLVE Loop x[1] = 0.74 y[1] (analytic) = 0 y[1] (numeric) = -1.6855083437105555599114000842301 absolute error = 1.6855083437105555599114000842301 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.052 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.56 Order of pole (six term test) = 7.950e-09 TOP MAIN SOLVE Loop x[1] = 0.75 y[1] (analytic) = 0 y[1] (numeric) = -1.7018862289871643057430977633528 absolute error = 1.7018862289871643057430977633528 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.062 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.571 Order of pole (six term test) = 9.014e-09 TOP MAIN SOLVE Loop bytes used=76018184, alloc=4455632, time=2.45 x[1] = 0.76 y[1] (analytic) = 0 y[1] (numeric) = -1.7180918533752250739589495856251 absolute error = 1.7180918533752250739589495856251 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.073 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.583 Order of pole (six term test) = 1.020e-08 TOP MAIN SOLVE Loop x[1] = 0.77 y[1] (analytic) = 0 y[1] (numeric) = -1.7341282018498645709948716911424 absolute error = 1.7341282018498645709948716911424 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.083 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.594 Order of pole (six term test) = 1.153e-08 TOP MAIN SOLVE Loop x[1] = 0.78 y[1] (analytic) = 0 y[1] (numeric) = -1.7499981739556800490491657747107 absolute error = 1.7499981739556800490491657747107 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.094 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.605 Order of pole (six term test) = 1.300e-08 TOP MAIN SOLVE Loop x[1] = 0.79 y[1] (analytic) = 0 y[1] (numeric) = -1.7657045870449079346112134493212 absolute error = 1.7657045870449079346112134493212 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.104 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.616 Order of pole (six term test) = 1.464e-08 TOP MAIN SOLVE Loop x[1] = 0.8 y[1] (analytic) = 0 y[1] (numeric) = -1.7812501793631697540372094352159 absolute error = 1.7812501793631697540372094352159 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.115 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.628 Order of pole (six term test) = 1.646e-08 TOP MAIN SOLVE Loop bytes used=80020628, alloc=4455632, time=2.58 x[1] = 0.81 y[1] (analytic) = 0 y[1] (numeric) = -1.7966376129913295442742451586642 absolute error = 1.7966376129913295442742451586642 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.125 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.639 Order of pole (six term test) = 1.847e-08 TOP MAIN SOLVE Loop x[1] = 0.82 y[1] (analytic) = 0 y[1] (numeric) = -1.8118694766514444936230121683581 absolute error = 1.8118694766514444936230121683581 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.136 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.65 Order of pole (six term test) = 2.070e-08 TOP MAIN SOLVE Loop x[1] = 0.83 y[1] (analytic) = 0 y[1] (numeric) = -1.8269482883842786130308026726959 absolute error = 1.8269482883842786130308026726959 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.146 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.661 Order of pole (six term test) = 2.316e-08 TOP MAIN SOLVE Loop x[1] = 0.84 y[1] (analytic) = 0 y[1] (numeric) = -1.8418764981053744830118792978245 absolute error = 1.8418764981053744830118792978245 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.157 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.673 Order of pole (six term test) = 2.588e-08 TOP MAIN SOLVE Loop x[1] = 0.85 y[1] (analytic) = 0 y[1] (numeric) = -1.8566564900462375429465611718564 absolute error = 1.8566564900462375429465611718564 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.167 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.684 Order of pole (six term test) = 2.888e-08 bytes used=84023784, alloc=4455632, time=2.71 TOP MAIN SOLVE Loop x[1] = 0.86 y[1] (analytic) = 0 y[1] (numeric) = -1.8712905850867782448898620800394 absolute error = 1.8712905850867782448898620800394 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.177 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.695 Order of pole (six term test) = 3.217e-08 TOP MAIN SOLVE Loop x[1] = 0.87 y[1] (analytic) = 0 y[1] (numeric) = -1.8857810429847771823109975029616 absolute error = 1.8857810429847771823109975029616 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.188 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.706 Order of pole (six term test) = 3.580e-08 TOP MAIN SOLVE Loop x[1] = 0.88 y[1] (analytic) = 0 y[1] (numeric) = -1.9001300645077847437065711225731 absolute error = 1.9001300645077847437065711225731 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.198 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.717 Order of pole (six term test) = 3.977e-08 TOP MAIN SOLVE Loop x[1] = 0.89 y[1] (analytic) = 0 y[1] (numeric) = -1.9143397934725378482984214620581 absolute error = 1.9143397934725378482984214620581 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.209 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.729 Order of pole (six term test) = 4.413e-08 TOP MAIN SOLVE Loop bytes used=88024740, alloc=4455632, time=2.84 x[1] = 0.9 y[1] (analytic) = 0 y[1] (numeric) = -1.9284123186966699919784830135534 absolute error = 1.9284123186966699919784830135534 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.219 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.74 Order of pole (six term test) = 4.890e-08 TOP MAIN SOLVE Loop x[1] = 0.91 y[1] (analytic) = 0 y[1] (numeric) = -1.9423496758672054248038443372518 absolute error = 1.9423496758672054248038443372518 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.23 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.751 Order of pole (six term test) = 5.412e-08 TOP MAIN SOLVE Loop x[1] = 0.92 y[1] (analytic) = 0 y[1] (numeric) = -1.9561538493300622026122299985548 absolute error = 1.9561538493300622026122299985548 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.24 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.762 Order of pole (six term test) = 5.982e-08 TOP MAIN SOLVE Loop x[1] = 0.93 y[1] (analytic) = 0 y[1] (numeric) = -1.9698267738045406444745522361437 absolute error = 1.9698267738045406444745522361437 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.251 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.773 Order of pole (six term test) = 6.605e-08 TOP MAIN SOLVE Loop x[1] = 0.94 y[1] (analytic) = 0 y[1] (numeric) = -1.9833703360265420460424564006717 absolute error = 1.9833703360265420460424564006717 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.261 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.784 Order of pole (six term test) = 7.282e-08 TOP MAIN SOLVE Loop bytes used=92025432, alloc=4455632, time=2.97 x[1] = 0.95 y[1] (analytic) = 0 y[1] (numeric) = -1.9967863763240461182227296277142 absolute error = 1.9967863763240461182227296277142 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.272 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.796 Order of pole (six term test) = 8.020e-08 TOP MAIN SOLVE Loop x[1] = 0.96 y[1] (analytic) = 0 y[1] (numeric) = -2.0100766901281734134220115716025 absolute error = 2.0100766901281734134220115716025 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.282 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.807 Order of pole (six term test) = 8.823e-08 TOP MAIN SOLVE Loop x[1] = 0.97 y[1] (analytic) = 0 y[1] (numeric) = -2.0232430294229699318416518100936 absolute error = 2.0232430294229699318416518100936 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.292 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.818 Order of pole (six term test) = 9.694e-08 TOP MAIN SOLVE Loop x[1] = 0.98 y[1] (analytic) = 0 y[1] (numeric) = -2.0362871041368742154170341272049 absolute error = 2.0362871041368742154170341272049 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.303 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.829 Order of pole (six term test) = 1.064e-07 TOP MAIN SOLVE Loop bytes used=96026280, alloc=4455632, time=3.11 x[1] = 0.99 y[1] (analytic) = 0 y[1] (numeric) = -2.0492105834786616605696568685543 absolute error = 2.0492105834786616605696568685543 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.313 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.84 Order of pole (six term test) = 1.167e-07 TOP MAIN SOLVE Loop x[1] = 1 y[1] (analytic) = 0 y[1] (numeric) = -2.0620150972205057060436732171658 absolute error = 2.0620150972205057060436732171658 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.324 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.851 Order of pole (six term test) = 1.278e-07 TOP MAIN SOLVE Loop x[1] = 1.01 y[1] (analytic) = 0 y[1] (numeric) = -2.0747022369306502352770458537341 absolute error = 2.0747022369306502352770458537341 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.334 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.862 Order of pole (six term test) = 1.398e-07 TOP MAIN SOLVE Loop x[1] = 1.02 y[1] (analytic) = 0 y[1] (numeric) = -2.0872735571580512885824689326464 absolute error = 2.0872735571580512885824689326464 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.345 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.873 Order of pole (six term test) = 1.528e-07 TOP MAIN SOLVE Loop x[1] = 1.03 y[1] (analytic) = 0 y[1] (numeric) = -2.0997305765712183765389469435934 absolute error = 2.0997305765712183765389469435934 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.355 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.884 Order of pole (six term test) = 1.668e-07 TOP MAIN SOLVE Loop bytes used=100027080, alloc=4455632, time=3.24 x[1] = 1.04 y[1] (analytic) = 0 y[1] (numeric) = -2.1120747790533657386708933342846 absolute error = 2.1120747790533657386708933342846 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.366 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.895 Order of pole (six term test) = 1.819e-07 TOP MAIN SOLVE Loop x[1] = 1.05 y[1] (analytic) = 0 y[1] (numeric) = -2.1243076147558712614859334344737 absolute error = 2.1243076147558712614859334344737 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.376 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.907 Order of pole (six term test) = 1.982e-07 TOP MAIN SOLVE Loop x[1] = 1.06 y[1] (analytic) = 0 y[1] (numeric) = -2.1364305011119349588355631292111 absolute error = 2.1364305011119349588355631292111 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.387 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.918 Order of pole (six term test) = 2.157e-07 TOP MAIN SOLVE Loop x[1] = 1.07 y[1] (analytic) = 0 y[1] (numeric) = -2.1484448238122294643745892972431 absolute error = 2.1484448238122294643745892972431 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.397 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.929 Order of pole (six term test) = 2.346e-07 TOP MAIN SOLVE Loop bytes used=104028276, alloc=4455632, time=3.38 x[1] = 1.08 y[1] (analytic) = 0 y[1] (numeric) = -2.1603519377442414640152926454333 absolute error = 2.1603519377442414640152926454333 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.407 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.94 Order of pole (six term test) = 2.549e-07 TOP MAIN SOLVE Loop x[1] = 1.09 y[1] (analytic) = 0 y[1] (numeric) = -2.1721531678969150106613102466918 absolute error = 2.1721531678969150106613102466918 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.418 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.951 Order of pole (six term test) = 2.767e-07 TOP MAIN SOLVE Loop x[1] = 1.1 y[1] (analytic) = 0 y[1] (numeric) = -2.1838498102321248481452571021936 absolute error = 2.1838498102321248481452571021936 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.428 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.962 Order of pole (six term test) = 3.001e-07 TOP MAIN SOLVE Loop x[1] = 1.11 y[1] (analytic) = 0 y[1] (numeric) = -2.1954431325244298868561573074616 absolute error = 2.1954431325244298868561573074616 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.439 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.973 Order of pole (six term test) = 3.252e-07 TOP MAIN SOLVE Loop x[1] = 1.12 y[1] (analytic) = 0 y[1] (numeric) = -2.2069343751704835052673135740269 absolute error = 2.2069343751704835052673135740269 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.449 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.984 Order of pole (six term test) = 3.520e-07 TOP MAIN SOLVE Loop bytes used=108029216, alloc=4521156, time=3.51 x[1] = 1.13 y[1] (analytic) = 0 y[1] (numeric) = -2.2183247519694081073258279405795 absolute error = 2.2183247519694081073258279405795 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.46 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 1.995 Order of pole (six term test) = 3.808e-07 TOP MAIN SOLVE Loop x[1] = 1.14 y[1] (analytic) = 0 y[1] (numeric) = -2.2296154508753760741531278354551 absolute error = 2.2296154508753760741531278354551 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.47 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.006 Order of pole (six term test) = 4.116e-07 TOP MAIN SOLVE Loop x[1] = 1.15 y[1] (analytic) = 0 y[1] (numeric) = -2.2408076347235776576660849370312 absolute error = 2.2408076347235776576660849370312 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.481 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.017 Order of pole (six term test) = 4.445e-07 TOP MAIN SOLVE Loop x[1] = 1.16 y[1] (analytic) = 0 y[1] (numeric) = -2.2519024419306982392303747300595 absolute error = 2.2519024419306982392303747300595 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.491 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.028 Order of pole (six term test) = 4.796e-07 TOP MAIN SOLVE Loop bytes used=112030068, alloc=4521156, time=3.64 x[1] = 1.17 y[1] (analytic) = 0 y[1] (numeric) = -2.2629009871709725003434885251092 absolute error = 2.2629009871709725003434885251092 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.502 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.039 Order of pole (six term test) = 5.171e-07 TOP MAIN SOLVE Loop x[1] = 1.18 y[1] (analytic) = 0 y[1] (numeric) = -2.2738043620288312217787262106782 absolute error = 2.2738043620288312217787262106782 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.512 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.05 Order of pole (six term test) = 5.570e-07 TOP MAIN SOLVE Loop x[1] = 1.19 y[1] (analytic) = 0 y[1] (numeric) = -2.2846136356291074537443460881342 absolute error = 2.2846136356291074537443460881342 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.522 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.061 Order of pole (six term test) = 5.996e-07 TOP MAIN SOLVE Loop x[1] = 1.2 y[1] (analytic) = 0 y[1] (numeric) = -2.2953298552457225064888256043844 absolute error = 2.2953298552457225064888256043844 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.533 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.072 Order of pole (six term test) = 6.450e-07 TOP MAIN SOLVE Loop x[1] = 1.21 y[1] (analytic) = 0 y[1] (numeric) = -2.3059540468897284344368140887324 absolute error = 2.3059540468897284344368140887324 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.543 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.083 Order of pole (six term test) = 6.933e-07 TOP MAIN SOLVE Loop bytes used=116031024, alloc=4521156, time=3.77 x[1] = 1.22 y[1] (analytic) = 0 y[1] (numeric) = -2.3164872158775422744636656633464 absolute error = 2.3164872158775422744636656633464 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.554 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.094 Order of pole (six term test) = 7.447e-07 TOP MAIN SOLVE Loop x[1] = 1.23 y[1] (analytic) = 0 y[1] (numeric) = -2.3269303473801681076556122638643 absolute error = 2.3269303473801681076556122638643 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.564 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.105 Order of pole (six term test) = 7.992e-07 TOP MAIN SOLVE Loop x[1] = 1.24 y[1] (analytic) = 0 y[1] (numeric) = -2.3372844069541659107059291729692 absolute error = 2.3372844069541659107059291729692 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.575 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.116 Order of pole (six term test) = 8.572e-07 TOP MAIN SOLVE Loop x[1] = 1.25 y[1] (analytic) = 0 y[1] (numeric) = -2.3475503410550910236235575852792 absolute error = 2.3475503410550910236235575852792 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.585 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.127 Order of pole (six term test) = 9.187e-07 TOP MAIN SOLVE Loop x[1] = 1.26 y[1] (analytic) = 0 y[1] (numeric) = -2.3577290775340947685116520694061 absolute error = 2.3577290775340947685116520694061 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.596 Order of pole (ratio test) Not computed bytes used=120032468, alloc=4521156, time=3.90 NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.138 Order of pole (six term test) = 9.840e-07 TOP MAIN SOLVE Loop x[1] = 1.27 y[1] (analytic) = 0 y[1] (numeric) = -2.3678215261183452012277151340605 absolute error = 2.3678215261183452012277151340605 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.606 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.149 Order of pole (six term test) = 1.053e-06 TOP MAIN SOLVE Loop x[1] = 1.28 y[1] (analytic) = 0 y[1] (numeric) = -2.377828578875897062227464627534 absolute error = 2.377828578875897062227464627534 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.617 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.16 Order of pole (six term test) = 1.126e-06 TOP MAIN SOLVE Loop x[1] = 1.29 y[1] (analytic) = 0 y[1] (numeric) = -2.3877511106656116198297028657483 absolute error = 2.3877511106656116198297028657483 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.627 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.171 Order of pole (six term test) = 1.204e-06 TOP MAIN SOLVE Loop x[1] = 1.3 y[1] (analytic) = 0 y[1] (numeric) = -2.3975899795727001796116718237072 absolute error = 2.3975899795727001796116718237072 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.637 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.182 Order of pole (six term test) = 1.286e-06 TOP MAIN SOLVE Loop bytes used=124033632, alloc=4521156, time=4.03 x[1] = 1.31 y[1] (analytic) = 0 y[1] (numeric) = -2.4073460273304394844043103757123 absolute error = 2.4073460273304394844043103757123 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.648 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.193 Order of pole (six term test) = 1.373e-06 TOP MAIN SOLVE Loop x[1] = 1.32 y[1] (analytic) = 0 y[1] (numeric) = -2.4170200797285829724196655260002 absolute error = 2.4170200797285829724196655260002 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.658 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.204 Order of pole (six term test) = 1.465e-06 TOP MAIN SOLVE Loop x[1] = 1.33 y[1] (analytic) = 0 y[1] (numeric) = -2.4266129470089688233242778757591 absolute error = 2.4266129470089688233242778757591 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.669 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.215 Order of pole (six term test) = 1.562e-06 TOP MAIN SOLVE Loop x[1] = 1.34 y[1] (analytic) = 0 y[1] (numeric) = -2.4361254242488038350524790593401 absolute error = 2.4361254242488038350524790593401 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.679 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.226 Order of pole (six term test) = 1.664e-06 TOP MAIN SOLVE Loop x[1] = 1.35 y[1] (analytic) = 0 y[1] (numeric) = -2.4455582917320813735644325923008 absolute error = 2.4455582917320813735644325923008 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.69 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.237 Order of pole (six term test) = 1.772e-06 TOP MAIN SOLVE Loop bytes used=128034748, alloc=4521156, time=4.17 x[1] = 1.36 y[1] (analytic) = 0 y[1] (numeric) = -2.454912315309571863291540270117 absolute error = 2.454912315309571863291540270117 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.7 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.248 Order of pole (six term test) = 1.886e-06 TOP MAIN SOLVE Loop x[1] = 1.37 y[1] (analytic) = 0 y[1] (numeric) = -2.464188246747805481069246129648 absolute error = 2.464188246747805481069246129648 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.711 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.259 Order of pole (six term test) = 2.006e-06 TOP MAIN SOLVE Loop x[1] = 1.38 y[1] (analytic) = 0 y[1] (numeric) = -2.4733868240674488277758734067561 absolute error = 2.4733868240674488277758734067561 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.721 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.27 Order of pole (six term test) = 2.133e-06 TOP MAIN SOLVE Loop x[1] = 1.39 y[1] (analytic) = 0 y[1] (numeric) = -2.4825087718714603297366086439186 absolute error = 2.4825087718714603297366086439186 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.732 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.281 Order of pole (six term test) = 2.266e-06 TOP MAIN SOLVE Loop bytes used=132035748, alloc=4521156, time=4.30 x[1] = 1.4 y[1] (analytic) = 0 y[1] (numeric) = -2.4915548016633929192807409624228 absolute error = 2.4915548016633929192807409624228 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.742 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.292 Order of pole (six term test) = 2.406e-06 TOP MAIN SOLVE Loop x[1] = 1.41 y[1] (analytic) = 0 y[1] (numeric) = -2.5005256121561971165325267578848 absolute error = 2.5005256121561971165325267578848 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.752 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.303 Order of pole (six term test) = 2.554e-06 TOP MAIN SOLVE Loop x[1] = 1.42 y[1] (analytic) = 0 y[1] (numeric) = -2.5094218895718629410707238524173 absolute error = 2.5094218895718629410707238524173 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.763 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.314 Order of pole (six term test) = 2.709e-06 TOP MAIN SOLVE Loop x[1] = 1.43 y[1] (analytic) = 0 y[1] (numeric) = -2.5182443079322250834617697364134 absolute error = 2.5182443079322250834617697364134 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.773 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.325 Order of pole (six term test) = 2.872e-06 TOP MAIN SOLVE Loop x[1] = 1.44 y[1] (analytic) = 0 y[1] (numeric) = -2.5269935293412424261046652618269 absolute error = 2.5269935293412424261046652618269 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.784 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.336 Order of pole (six term test) = 3.043e-06 TOP MAIN SOLVE Loop bytes used=136036660, alloc=4521156, time=4.44 x[1] = 1.45 y[1] (analytic) = 0 y[1] (numeric) = -2.5356702042590502857172981730796 absolute error = 2.5356702042590502857172981730796 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.794 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.346 Order of pole (six term test) = 3.223e-06 TOP MAIN SOLVE Loop x[1] = 1.46 y[1] (analytic) = 0 y[1] (numeric) = -2.5442749717680716235499228170739 absolute error = 2.5442749717680716235499228170739 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.805 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.357 Order of pole (six term test) = 3.411e-06 TOP MAIN SOLVE Loop x[1] = 1.47 y[1] (analytic) = 0 y[1] (numeric) = -2.5528084598314619033200924417433 absolute error = 2.5528084598314619033200924417433 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.815 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.368 Order of pole (six term test) = 3.609e-06 TOP MAIN SOLVE Loop x[1] = 1.48 y[1] (analytic) = 0 y[1] (numeric) = -2.5612712855441512419764507515276 absolute error = 2.5612712855441512419764507515276 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.826 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.379 Order of pole (six term test) = 3.816e-06 TOP MAIN SOLVE Loop bytes used=140037824, alloc=4521156, time=4.57 x[1] = 1.49 y[1] (analytic) = 0 y[1] (numeric) = -2.569664055376736967421230021796 absolute error = 2.569664055376736967421230021796 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.836 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.39 Order of pole (six term test) = 4.034e-06 TOP MAIN SOLVE Loop x[1] = 1.5 y[1] (analytic) = 0 y[1] (numeric) = -2.5779873654124696445075149594238 absolute error = 2.5779873654124696445075149594238 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.847 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.401 Order of pole (six term test) = 4.262e-06 TOP MAIN SOLVE Loop x[1] = 1.51 y[1] (analytic) = 0 y[1] (numeric) = -2.5862418015775660316851622345111 absolute error = 2.5862418015775660316851622345111 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.857 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.412 Order of pole (six term test) = 4.500e-06 TOP MAIN SOLVE Loop x[1] = 1.52 y[1] (analytic) = 0 y[1] (numeric) = -2.5944279398650732626702185992569 absolute error = 2.5944279398650732626702185992569 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.867 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.423 Order of pole (six term test) = 4.750e-06 TOP MAIN SOLVE Loop x[1] = 1.53 y[1] (analytic) = 0 y[1] (numeric) = -2.6025463465524997888081765676631 absolute error = 2.6025463465524997888081765676631 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.878 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.434 Order of pole (six term test) = 5.011e-06 TOP MAIN SOLVE Loop bytes used=144038620, alloc=4521156, time=4.70 x[1] = 1.54 y[1] (analytic) = 0 y[1] (numeric) = -2.6105975784134202479446241940823 absolute error = 2.6105975784134202479446241940823 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.888 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.445 Order of pole (six term test) = 5.285e-06 TOP MAIN SOLVE Loop x[1] = 1.55 y[1] (analytic) = 0 y[1] (numeric) = -2.6185821829232534252897390453957 absolute error = 2.6185821829232534252897390453957 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.899 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.456 Order of pole (six term test) = 5.571e-06 TOP MAIN SOLVE Loop x[1] = 1.56 y[1] (analytic) = 0 y[1] (numeric) = -2.6265006984594048227082035494362 absolute error = 2.6265006984594048227082035494362 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.909 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.467 Order of pole (six term test) = 5.870e-06 TOP MAIN SOLVE Loop x[1] = 1.57 y[1] (analytic) = 0 y[1] (numeric) = -2.6343536544959580378229343485888 absolute error = 2.6343536544959580378229343485888 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.92 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.478 Order of pole (six term test) = 6.182e-06 TOP MAIN SOLVE Loop bytes used=148039772, alloc=4521156, time=4.83 x[1] = 1.58 y[1] (analytic) = 0 y[1] (numeric) = -2.6421415717930921569663202692568 absolute error = 2.6421415717930921569663202692568 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.93 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.489 Order of pole (six term test) = 6.508e-06 TOP MAIN SOLVE Loop x[1] = 1.59 y[1] (analytic) = 0 y[1] (numeric) = -2.6498649625813956709048998956115 absolute error = 2.6498649625813956709048998956115 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.941 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.499 Order of pole (six term test) = 6.849e-06 TOP MAIN SOLVE Loop x[1] = 1.6 y[1] (analytic) = 0 y[1] (numeric) = -2.6575243307412410147905750397317 absolute error = 2.6575243307412410147905750397317 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.951 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.51 Order of pole (six term test) = 7.205e-06 TOP MAIN SOLVE Loop x[1] = 1.61 y[1] (analytic) = 0 y[1] (numeric) = -2.6651201719773777001223300178158 absolute error = 2.6651201719773777001223300178158 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.962 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.521 Order of pole (six term test) = 7.576e-06 TOP MAIN SOLVE Loop x[1] = 1.62 y[1] (analytic) = 0 y[1] (numeric) = -2.6726529739888961335409213249652 absolute error = 2.6726529739888961335409213249652 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.972 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.532 Order of pole (six term test) = 7.964e-06 TOP MAIN SOLVE Loop bytes used=152040768, alloc=4521156, time=4.97 x[1] = 1.63 y[1] (analytic) = 0 y[1] (numeric) = -2.6801232166347085926214091921459 absolute error = 2.6801232166347085926214091921459 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.982 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.543 Order of pole (six term test) = 8.368e-06 TOP MAIN SOLVE Loop x[1] = 1.64 y[1] (analytic) = 0 y[1] (numeric) = -2.687531372094688440723334642945 absolute error = 2.687531372094688440723334642945 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 1.993 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.554 Order of pole (six term test) = 8.789e-06 TOP MAIN SOLVE Loop x[1] = 1.65 y[1] (analytic) = 0 y[1] (numeric) = -2.6948779050266035002691963982953 absolute error = 2.6948779050266035002691963982953 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.003 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.565 Order of pole (six term test) = 9.229e-06 TOP MAIN SOLVE Loop x[1] = 1.66 y[1] (analytic) = 0 y[1] (numeric) = -2.7021632727189745559916281630923 absolute error = 2.7021632727189745559916281630923 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.014 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.576 Order of pole (six term test) = 9.687e-06 TOP MAIN SOLVE Loop x[1] = 1.67 y[1] (analytic) = 0 y[1] (numeric) = -2.709387925239985216707868944358 absolute error = 2.709387925239985216707868944358 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.024 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.587 Order of pole (six term test) = 1.017e-05 bytes used=156041484, alloc=4521156, time=5.10 TOP MAIN SOLVE Loop x[1] = 1.68 y[1] (analytic) = 0 y[1] (numeric) = -2.716552305582564816551911772987 absolute error = 2.716552305582564816551911772987 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.035 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.598 Order of pole (six term test) = 1.066e-05 TOP MAIN SOLVE Loop x[1] = 1.69 y[1] (analytic) = 0 y[1] (numeric) = -2.7236568498057616753118035260527 absolute error = 2.7236568498057616753118035260527 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.045 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.609 Order of pole (six term test) = 1.118e-05 TOP MAIN SOLVE Loop x[1] = 1.7 y[1] (analytic) = 0 y[1] (numeric) = -2.7307019871725198540328971994575 absolute error = 2.7307019871725198540328971994575 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.056 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.62 Order of pole (six term test) = 1.172e-05 TOP MAIN SOLVE Loop x[1] = 1.71 y[1] (analytic) = 0 y[1] (numeric) = -2.737688140283968528242001845535 absolute error = 2.737688140283968528242001845535 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.066 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.63 Order of pole (six term test) = 1.229e-05 TOP MAIN SOLVE Loop bytes used=160042352, alloc=4521156, time=5.23 x[1] = 1.72 y[1] (analytic) = 0 y[1] (numeric) = -2.744615725210329249316461972452 absolute error = 2.744615725210329249316461972452 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.077 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.641 Order of pole (six term test) = 1.287e-05 TOP MAIN SOLVE Loop x[1] = 1.73 y[1] (analytic) = 0 y[1] (numeric) = -2.751485151618542667347285799778 absolute error = 2.751485151618542667347285799778 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.087 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.652 Order of pole (six term test) = 1.349e-05 TOP MAIN SOLVE Loop x[1] = 1.74 y[1] (analytic) = 0 y[1] (numeric) = -2.7582968228967127393732531121033 absolute error = 2.7582968228967127393732531121033 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.097 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.663 Order of pole (six term test) = 1.412e-05 TOP MAIN SOLVE Loop x[1] = 1.75 y[1] (analytic) = 0 y[1] (numeric) = -2.7650511362754630384858581630014 absolute error = 2.7650511362754630384858581630014 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.108 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.674 Order of pole (six term test) = 1.479e-05 TOP MAIN SOLVE Loop x[1] = 1.76 y[1] (analytic) = 0 y[1] (numeric) = -2.7717484829462965057422272809528 absolute error = 2.7717484829462965057422272809528 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.118 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.685 Order of pole (six term test) = 1.548e-05 TOP MAIN SOLVE Loop bytes used=164043364, alloc=4521156, time=5.37 x[1] = 1.77 y[1] (analytic) = 0 y[1] (numeric) = -2.7783892481770468421031980056232 absolute error = 2.7783892481770468421031980056232 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.129 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.696 Order of pole (six term test) = 1.620e-05 TOP MAIN SOLVE Loop x[1] = 1.78 y[1] (analytic) = 0 y[1] (numeric) = -2.7849738114245067160574588841024 absolute error = 2.7849738114245067160574588841024 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.139 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.707 Order of pole (six term test) = 1.696e-05 TOP MAIN SOLVE Loop x[1] = 1.79 y[1] (analytic) = 0 y[1] (numeric) = -2.7915025464443150587977430921215 absolute error = 2.7915025464443150587977430921215 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.15 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.718 Order of pole (six term test) = 1.774e-05 TOP MAIN SOLVE Loop x[1] = 1.8 y[1] (analytic) = 0 y[1] (numeric) = -2.7979758213981829276413047405396 absolute error = 2.7979758213981829276413047405396 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.16 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.729 Order of pole (six term test) = 1.856e-05 TOP MAIN SOLVE Loop bytes used=168044296, alloc=4521156, time=5.50 x[1] = 1.81 y[1] (analytic) = 0 y[1] (numeric) = -2.8043939989585347349421719206415 absolute error = 2.8043939989585347349421719206415 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.171 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.74 Order of pole (six term test) = 1.942e-05 TOP MAIN SOLVE Loop x[1] = 1.82 y[1] (analytic) = 0 y[1] (numeric) = -2.8107574364106390593698678727943 absolute error = 2.8107574364106390593698678727943 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.181 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.751 Order of pole (six term test) = 2.031e-05 TOP MAIN SOLVE Loop x[1] = 1.83 y[1] (analytic) = 0 y[1] (numeric) = -2.8170664857523007746939778827121 absolute error = 2.8170664857523007746939778827121 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.192 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.762 Order of pole (six term test) = 2.125e-05 TOP MAIN SOLVE Loop x[1] = 1.84 y[1] (analytic) = 0 y[1] (numeric) = -2.8233214937911838438926706602053 absolute error = 2.8233214937911838438926706602053 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.202 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.772 Order of pole (six term test) = 2.223e-05 TOP MAIN SOLVE Loop x[1] = 1.85 y[1] (analytic) = 0 y[1] (numeric) = -2.8295228022398318294726219583118 absolute error = 2.8295228022398318294726219583118 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.212 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.783 Order of pole (six term test) = 2.325e-05 TOP MAIN SOLVE Loop bytes used=172045284, alloc=4521156, time=5.64 x[1] = 1.86 y[1] (analytic) = 0 y[1] (numeric) = -2.83567074780845096051393424812 absolute error = 2.83567074780845096051393424812 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.223 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.794 Order of pole (six term test) = 2.432e-05 TOP MAIN SOLVE Loop x[1] = 1.87 y[1] (analytic) = 0 y[1] (numeric) = -2.8417656622955184694826481458294 absolute error = 2.8417656622955184694826481458294 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.233 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.805 Order of pole (six term test) = 2.545e-05 TOP MAIN SOLVE Loop x[1] = 1.88 y[1] (analytic) = 0 y[1] (numeric) = -2.8478078726762768638019590549274 absolute error = 2.8478078726762768638019590549274 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.244 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.816 Order of pole (six term test) = 2.663e-05 TOP MAIN SOLVE Loop x[1] = 1.89 y[1] (analytic) = 0 y[1] (numeric) = -2.853797701189172825219834511719 absolute error = 2.853797701189172825219834511719 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.254 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.827 Order of pole (six term test) = 2.787e-05 TOP MAIN SOLVE Loop bytes used=176046276, alloc=4521156, time=5.77 x[1] = 1.9 y[1] (analytic) = 0 y[1] (numeric) = -2.8597354654202975309875720161826 absolute error = 2.8597354654202975309875720161826 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.265 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.838 Order of pole (six term test) = 2.918e-05 TOP MAIN SOLVE Loop x[1] = 1.91 y[1] (analytic) = 0 y[1] (numeric) = -2.8656214783858833617490079658848 absolute error = 2.8656214783858833617490079658848 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.275 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.849 Order of pole (six term test) = 3.056e-05 TOP MAIN SOLVE Loop x[1] = 1.92 y[1] (analytic) = 0 y[1] (numeric) = -2.8714560486129101989501610263933 absolute error = 2.8714560486129101989501610263933 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.286 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.86 Order of pole (six term test) = 3.201e-05 TOP MAIN SOLVE Loop x[1] = 1.93 y[1] (analytic) = 0 y[1] (numeric) = -2.8772394802178728167622018394083 absolute error = 2.8772394802178728167622018394083 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.296 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.871 Order of pole (six term test) = 3.355e-05 TOP MAIN SOLVE Loop x[1] = 1.94 y[1] (analytic) = 0 y[1] (numeric) = -2.8829720729837592373399045500421 absolute error = 2.8829720729837592373399045500421 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.307 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.883 Order of pole (six term test) = 3.518e-05 TOP MAIN SOLVE Loop bytes used=180047296, alloc=4521156, time=5.90 x[1] = 1.95 y[1] (analytic) = 0 y[1] (numeric) = -2.8886541224352883412050418342517 absolute error = 2.8886541224352883412050418342517 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.317 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.894 Order of pole (six term test) = 3.691e-05 TOP MAIN SOLVE Loop x[1] = 1.96 y[1] (analytic) = 0 y[1] (numeric) = -2.8942859199124535042543090668809 absolute error = 2.8942859199124535042543090668809 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.327 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.905 Order of pole (six term test) = 3.875e-05 TOP MAIN SOLVE Loop x[1] = 1.97 y[1] (analytic) = 0 y[1] (numeric) = -2.8998677526424175670564030140583 absolute error = 2.8998677526424175670564030140583 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.338 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.916 Order of pole (six term test) = 4.071e-05 TOP MAIN SOLVE Loop x[1] = 1.98 y[1] (analytic) = 0 y[1] (numeric) = -2.9053999038098030285369901373308 absolute error = 2.9053999038098030285369901373308 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.348 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.927 Order of pole (six term test) = 4.280e-05 TOP MAIN SOLVE Loop bytes used=184048216, alloc=4521156, time=6.04 x[1] = 1.99 y[1] (analytic) = 0 y[1] (numeric) = -2.9108826526254199927647035753312 absolute error = 2.9108826526254199927647035753312 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.359 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.938 Order of pole (six term test) = 4.504e-05 TOP MAIN SOLVE Loop x[1] = 2 y[1] (analytic) = 0 y[1] (numeric) = -2.9163162743934730823495791382002 absolute error = 2.9163162743934730823495791382002 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.369 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.949 Order of pole (six term test) = 4.744e-05 TOP MAIN SOLVE Loop x[1] = 2.01 y[1] (analytic) = 0 y[1] (numeric) = -2.9217010405772872630389289275701 absolute error = 2.9217010405772872630389289275701 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.38 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.961 Order of pole (six term test) = 5.002e-05 TOP MAIN SOLVE Loop x[1] = 2.02 y[1] (analytic) = 0 y[1] (numeric) = -2.9270372188635912996196461193622 absolute error = 2.9270372188635912996196461193622 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.39 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.972 Order of pole (six term test) = 5.280e-05 TOP MAIN SOLVE Loop x[1] = 2.03 y[1] (analytic) = 0 y[1] (numeric) = -2.9323250732253963814650506749865 absolute error = 2.9323250732253963814650506749865 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.401 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.983 Order of pole (six term test) = 5.580e-05 TOP MAIN SOLVE Loop bytes used=188049052, alloc=4521156, time=6.17 x[1] = 2.04 y[1] (analytic) = 0 y[1] (numeric) = -2.9375648639835063153291573934807 absolute error = 2.9375648639835063153291573934807 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.411 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 2.995 Order of pole (six term test) = 5.906e-05 TOP MAIN SOLVE Loop x[1] = 2.05 y[1] (analytic) = 0 y[1] (numeric) = -2.9427568478666945816944203628701 absolute error = 2.9427568478666945816944203628701 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.422 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.006 Order of pole (six term test) = 6.259e-05 TOP MAIN SOLVE Loop x[1] = 2.06 y[1] (analytic) = 0 y[1] (numeric) = -2.947901278070582487592117071071 absolute error = 2.947901278070582487592117071071 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.432 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.018 Order of pole (six term test) = 6.643e-05 TOP MAIN SOLVE Loop x[1] = 2.07 y[1] (analytic) = 0 y[1] (numeric) = -2.9529984043152516218746613461051 absolute error = 2.9529984043152516218746613461051 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.442 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.029 Order of pole (six term test) = 7.063e-05 TOP MAIN SOLVE Loop x[1] = 2.08 y[1] (analytic) = 0 y[1] (numeric) = -2.9580484729016228270258225996956 absolute error = 2.9580484729016228270258225996956 relative error = -1 % Correct digits = -1 h = 0.01 bytes used=192050344, alloc=4521156, time=6.30 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.453 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.041 Order of pole (six term test) = 7.522e-05 TOP MAIN SOLVE Loop x[1] = 2.09 y[1] (analytic) = 0 y[1] (numeric) = -2.9630517267666329434071688448284 absolute error = 2.9630517267666329434071688448284 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.463 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.053 Order of pole (six term test) = 8.024e-05 TOP MAIN SOLVE Loop x[1] = 2.1 y[1] (analytic) = 0 y[1] (numeric) = -2.9680084055372396560729021076222 absolute error = 2.9680084055372396560729021076222 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.474 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.065 Order of pole (six term test) = 8.577e-05 TOP MAIN SOLVE Loop x[1] = 2.11 y[1] (analytic) = 0 y[1] (numeric) = -2.9729187455832838797106136758829 absolute error = 2.9729187455832838797106136758829 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.484 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.077 Order of pole (six term test) = 9.185e-05 TOP MAIN SOLVE Loop x[1] = 2.12 y[1] (analytic) = 0 y[1] (numeric) = -2.9777829800692382527039862715416 absolute error = 2.9777829800692382527039862715416 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.495 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.089 Order of pole (six term test) = 9.856e-05 TOP MAIN SOLVE Loop bytes used=196051124, alloc=4521156, time=6.44 x[1] = 2.13 y[1] (analytic) = 0 y[1] (numeric) = -2.982601339004869475636005523873 absolute error = 2.982601339004869475636005523873 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.505 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.101 Order of pole (six term test) = 0.000106 TOP MAIN SOLVE Loop x[1] = 2.14 y[1] (analytic) = 0 y[1] (numeric) = -2.9873740492948414216757142629577 absolute error = 2.9873740492948414216757142629577 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.516 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.114 Order of pole (six term test) = 0.0001142 TOP MAIN SOLVE Loop x[1] = 2.15 y[1] (analytic) = 0 y[1] (numeric) = -2.9921013347872851651807117330416 absolute error = 2.9921013347872851651807117330416 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.526 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.126 Order of pole (six term test) = 0.0001233 TOP MAIN SOLVE Loop x[1] = 2.16 y[1] (analytic) = 0 y[1] (numeric) = -2.9967834163213613195070510441436 absolute error = 2.9967834163213613195070510441436 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.537 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.139 Order of pole (six term test) = 0.0001335 TOP MAIN SOLVE Loop x[1] = 2.17 y[1] (analytic) = 0 y[1] (numeric) = -3.0014205117738393444943936615407 absolute error = 3.0014205117738393444943936615407 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.547 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.152 Order of pole (six term test) = 0.0001448 TOP MAIN SOLVE Loop bytes used=200052644, alloc=4521156, time=6.57 x[1] = 2.18 y[1] (analytic) = 0 y[1] (numeric) = -3.006012836104717777472755543608 absolute error = 3.006012836104717777472755543608 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.557 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.165 Order of pole (six term test) = 0.0001574 TOP MAIN SOLVE Loop x[1] = 2.19 y[1] (analytic) = 0 y[1] (numeric) = -3.0105606014019086580407343719239 absolute error = 3.0105606014019086580407343719239 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.568 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.179 Order of pole (six term test) = 0.0001715 TOP MAIN SOLVE Loop x[1] = 2.2 y[1] (analytic) = 0 y[1] (numeric) = -3.0150640169250087554521760771369 absolute error = 3.0150640169250087554521760771369 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.578 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.193 Order of pole (six term test) = 0.0001873 TOP MAIN SOLVE Loop x[1] = 2.21 y[1] (analytic) = 0 y[1] (numeric) = -3.0195232891481795674112971575793 absolute error = 3.0195232891481795674112971575793 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.589 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.207 Order of pole (six term test) = 0.000205 TOP MAIN SOLVE Loop bytes used=204054620, alloc=4521156, time=6.70 x[1] = 2.22 y[1] (analytic) = 0 y[1] (numeric) = -3.0239386218021574396403345909184 absolute error = 3.0239386218021574396403345909184 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.599 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.221 Order of pole (six term test) = 0.0002248 TOP MAIN SOLVE Loop x[1] = 2.23 y[1] (analytic) = 0 y[1] (numeric) = -3.0283102159154145560049506300159 absolute error = 3.0283102159154145560049506300159 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.61 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.236 Order of pole (six term test) = 0.000247 TOP MAIN SOLVE Loop x[1] = 2.24 y[1] (analytic) = 0 y[1] (numeric) = -3.0326382698544909685467070589507 absolute error = 3.0326382698544909685467070589507 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.62 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.252 Order of pole (six term test) = 0.000272 TOP MAIN SOLVE Loop x[1] = 2.25 y[1] (analytic) = 0 y[1] (numeric) = -3.0369229793635172747932006523562 absolute error = 3.0369229793635172747932006523562 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.631 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.268 Order of pole (six term test) = 0.0003002 TOP MAIN SOLVE Loop x[1] = 2.26 y[1] (analytic) = 0 y[1] (numeric) = -3.0411645376029470055363632138449 absolute error = 3.0411645376029470055363632138449 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.641 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.284 Order of pole (six term test) = 0.0003319 TOP MAIN SOLVE Loop bytes used=208055444, alloc=4521156, time=6.83 x[1] = 2.27 y[1] (analytic) = 0 y[1] (numeric) = -3.0453631351875172592554255341076 absolute error = 3.0453631351875172592554255341076 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.652 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.301 Order of pole (six term test) = 0.0003676 TOP MAIN SOLVE Loop x[1] = 2.28 y[1] (analytic) = 0 y[1] (numeric) = -3.0495189602234556089054546163092 absolute error = 3.0495189602234556089054546163092 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.662 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.319 Order of pole (six term test) = 0.0004079 TOP MAIN SOLVE Loop x[1] = 2.29 y[1] (analytic) = 0 y[1] (numeric) = -3.0536321983449508123113346072054 absolute error = 3.0536321983449508123113346072054 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.672 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.337 Order of pole (six term test) = 0.0004533 TOP MAIN SOLVE Loop x[1] = 2.3 y[1] (analytic) = 0 y[1] (numeric) = -3.057703032749904378339496150707 absolute error = 3.057703032749904378339496150707 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.683 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.357 Order of pole (six term test) = 0.0005047 TOP MAIN SOLVE Loop bytes used=212056496, alloc=4521156, time=6.96 x[1] = 2.31 y[1] (analytic) = 0 y[1] (numeric) = -3.0617316442349795768263389454209 absolute error = 3.0617316442349795768263389454209 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.693 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.377 Order of pole (six term test) = 0.0005628 TOP MAIN SOLVE Loop x[1] = 2.32 y[1] (analytic) = 0 y[1] (numeric) = -3.065718211229964030404751966496 absolute error = 3.065718211229964030404751966496 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.704 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.398 Order of pole (six term test) = 0.0006286 TOP MAIN SOLVE Loop x[1] = 2.33 y[1] (analytic) = 0 y[1] (numeric) = -3.0696629098314615903900239217766 absolute error = 3.0696629098314615903900239217766 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.714 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.421 Order of pole (six term test) = 0.000703 TOP MAIN SOLVE Loop x[1] = 2.34 y[1] (analytic) = 0 y[1] (numeric) = -3.0735659138359287762845114974425 absolute error = 3.0735659138359287762845114974425 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.725 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.445 Order of pole (six term test) = 0.0007873 TOP MAIN SOLVE Loop x[1] = 2.35 y[1] (analytic) = 0 y[1] (numeric) = -3.0774273947720706487757963623194 absolute error = 3.0774273947720706487757963623194 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.735 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.47 Order of pole (six term test) = 0.0008829 TOP MAIN SOLVE Loop bytes used=216058300, alloc=4521156, time=7.10 x[1] = 2.36 y[1] (analytic) = 0 y[1] (numeric) = -3.0812475219326105888923888021669 absolute error = 3.0812475219326105888923888021669 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.746 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.497 Order of pole (six term test) = 0.0009914 TOP MAIN SOLVE Loop x[1] = 2.37 y[1] (analytic) = 0 y[1] (numeric) = -3.0850264624054480708178403006443 absolute error = 3.0850264624054480708178403006443 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.756 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.526 Order of pole (six term test) = 0.001115 TOP MAIN SOLVE Loop x[1] = 2.38 y[1] (analytic) = 0 y[1] (numeric) = -3.088764381104218142338061278714 absolute error = 3.088764381104218142338061278714 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.767 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.556 Order of pole (six term test) = 0.001255 TOP MAIN SOLVE Loop x[1] = 2.39 y[1] (analytic) = 0 y[1] (numeric) = -3.0924614407982659646128238916226 absolute error = 3.0924614407982659646128238916226 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.777 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.589 Order of pole (six term test) = 0.001414 TOP MAIN SOLVE Loop bytes used=220059520, alloc=4521156, time=7.23 x[1] = 2.4 y[1] (analytic) = 0 y[1] (numeric) = -3.0961178021420494115408128060179 absolute error = 3.0961178021420494115408128060179 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.787 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.625 Order of pole (six term test) = 0.001596 TOP MAIN SOLVE Loop x[1] = 2.41 y[1] (analytic) = 0 y[1] (numeric) = -3.0997336237039823880623374599725 absolute error = 3.0997336237039823880623374599725 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.798 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.663 Order of pole (six term test) = 0.001803 TOP MAIN SOLVE Loop x[1] = 2.42 y[1] (analytic) = 0 y[1] (numeric) = -3.1033090619947311959627411387024 absolute error = 3.1033090619947311959627411387024 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.808 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.704 Order of pole (six term test) = 0.002039 TOP MAIN SOLVE Loop x[1] = 2.43 y[1] (analytic) = 0 y[1] (numeric) = -3.1068442714949759547635172387755 absolute error = 3.1068442714949759547635172387755 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.819 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.749 Order of pole (six term test) = 0.002309 TOP MAIN SOLVE Loop x[1] = 2.44 y[1] (analytic) = 0 y[1] (numeric) = -3.110339404682648773790599114454 absolute error = 3.110339404682648773790599114454 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.829 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.798 Order of pole (six term test) = 0.002618 TOP MAIN SOLVE Loop bytes used=224060644, alloc=4521156, time=7.36 x[1] = 2.45 y[1] (analytic) = 0 y[1] (numeric) = -3.1137946120596600691756915885292 absolute error = 3.1137946120596600691756915885292 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.84 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.851 Order of pole (six term test) = 0.002972 TOP MAIN SOLVE Loop x[1] = 2.46 y[1] (analytic) = 0 y[1] (numeric) = -3.117210042178124126073874711792 absolute error = 3.117210042178124126073874711792 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.85 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.91 Order of pole (six term test) = 0.003379 TOP MAIN SOLVE Loop x[1] = 2.47 y[1] (analytic) = 0 y[1] (numeric) = -3.1205858416660947214771341842582 absolute error = 3.1205858416660947214771341842582 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.861 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 3.973 Order of pole (six term test) = 0.003848 TOP MAIN SOLVE Loop x[1] = 2.48 y[1] (analytic) = 0 y[1] (numeric) = -3.1239221552528213463876991565782 absolute error = 3.1239221552528213463876991565782 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.871 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 4.044 Order of pole (six term test) = 0.004389 TOP MAIN SOLVE Loop bytes used=228061604, alloc=4521156, time=7.50 x[1] = 2.49 y[1] (analytic) = 0 y[1] (numeric) = -3.1272191257935362975160533556896 absolute error = 3.1272191257935362975160533556896 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.882 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 4.121 Order of pole (six term test) = 0.005015 TOP MAIN SOLVE Loop x[1] = 2.5 y[1] (analytic) = 0 y[1] (numeric) = -3.1304768942937826478249945040893 absolute error = 3.1304768942937826478249945040893 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.892 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 4.207 Order of pole (six term test) = 0.005742 TOP MAIN SOLVE Loop x[1] = 2.51 y[1] (analytic) = 0 y[1] (numeric) = -3.133695599933292851901333896219 absolute error = 3.133695599933292851901333896219 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.903 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 4.303 Order of pole (six term test) = 0.006589 TOP MAIN SOLVE Loop x[1] = 2.52 y[1] (analytic) = 0 y[1] (numeric) = -3.1368753800894274960579835623155 absolute error = 3.1368753800894274960579835623155 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.913 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 4.409 Order of pole (six term test) = 0.00758 TOP MAIN SOLVE Loop x[1] = 2.53 y[1] (analytic) = 0 y[1] (numeric) = -3.14001637036018346401719378215 absolute error = 3.14001637036018346401719378215 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.923 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 4.528 Order of pole (six term test) = 0.008745 TOP MAIN SOLVE Loop bytes used=232062620, alloc=4586680, time=7.63 x[1] = 2.54 y[1] (analytic) = 0 y[1] (numeric) = -3.1431187045867805567748490090427 absolute error = 3.1431187045867805567748490090427 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.934 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 4.662 Order of pole (six term test) = 0.01012 TOP MAIN SOLVE Loop x[1] = 2.55 y[1] (analytic) = 0 y[1] (numeric) = -3.1461825148758353795782982168259 absolute error = 3.1461825148758353795782982168259 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.944 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 4.814 Order of pole (six term test) = 0.01176 TOP MAIN SOLVE Loop x[1] = 2.56 y[1] (analytic) = 0 y[1] (numeric) = -3.1492079316211310896561887340446 absolute error = 3.1492079316211310896561887340446 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.955 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 4.986 Order of pole (six term test) = 0.01373 TOP MAIN SOLVE Loop x[1] = 2.57 y[1] (analytic) = 0 y[1] (numeric) = -3.1521950835249913852156035024204 absolute error = 3.1521950835249913852156035024204 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.965 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 5.184 Order of pole (six term test) = 0.01611 TOP MAIN SOLVE Loop x[1] = 2.58 y[1] (analytic) = 0 y[1] (numeric) = -3.1551440976192669090740065545452 absolute error = 3.1551440976192669090740065545452 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.976 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 5.412 Order of pole (six term test) = 0.01903 bytes used=236064184, alloc=4586680, time=7.76 TOP MAIN SOLVE Loop x[1] = 2.59 y[1] (analytic) = 0 y[1] (numeric) = -3.1580550992859420389324651894998 absolute error = 3.1580550992859420389324651894998 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.986 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 5.679 Order of pole (six term test) = 0.02265 TOP MAIN SOLVE Loop x[1] = 2.6 y[1] (analytic) = 0 y[1] (numeric) = -3.1609282122773698405403101064037 absolute error = 3.1609282122773698405403101064037 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 2.997 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 5.994 Order of pole (six term test) = 0.02722 TOP MAIN SOLVE Loop x[1] = 2.61 y[1] (analytic) = 0 y[1] (numeric) = -3.1637635587361427696741200913794 absolute error = 3.1637635587361427696741200913794 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.007 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 6.372 Order of pole (six term test) = 0.03311 TOP MAIN SOLVE Loop x[1] = 2.62 y[1] (analytic) = 0 y[1] (numeric) = -3.1665612592146065237860706407471 absolute error = 3.1665612592146065237860706407471 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.018 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 6.836 Order of pole (six term test) = 0.04092 TOP MAIN SOLVE Loop bytes used=240065004, alloc=4586680, time=7.89 x[1] = 2.63 y[1] (analytic) = 0 y[1] (numeric) = -3.1693214326940242642045207680593 absolute error = 3.1693214326940242642045207680593 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.028 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 7.42 Order of pole (six term test) = 0.05164 TOP MAIN SOLVE Loop x[1] = 2.64 y[1] (analytic) = 0 y[1] (numeric) = -3.1720441966033982547351214062862 absolute error = 3.1720441966033982547351214062862 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.038 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 8.182 Order of pole (six term test) = 0.0671 TOP MAIN SOLVE Loop x[1] = 2.65 y[1] (analytic) = 0 y[1] (numeric) = -3.1747296668379557922610291175974 absolute error = 3.1747296668379557922610291175974 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.049 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 9.233 Order of pole (six term test) = 0.09109 TOP MAIN SOLVE Loop x[1] = 2.66 y[1] (analytic) = 0 y[1] (numeric) = -3.1773779577773061393285374846505 absolute error = 3.1773779577773061393285374846505 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.059 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 10.81 Order of pole (six term test) = 0.1327 TOP MAIN SOLVE Loop x[1] = 2.67 y[1] (analytic) = 0 y[1] (numeric) = -3.1799891823032750075871573117773 absolute error = 3.1799891823032750075871573117773 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.07 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 13.56 Order of pole (six term test) = 0.2217 TOP MAIN SOLVE Loop bytes used=244065940, alloc=4586680, time=8.03 x[1] = 2.68 y[1] (analytic) = 0 y[1] (numeric) = -3.1825634518174229841932839687072 absolute error = 3.1825634518174229841932839687072 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.08 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 Radius of convergence (six term test) for eq 1 = 20.51 Order of pole (six term test) = 0.5368 TOP MAIN SOLVE Loop x[1] = 2.69 y[1] (analytic) = 0 y[1] (numeric) = -3.1851008762582541407511405954727 absolute error = 3.1851008762582541407511405954727 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.091 Order of pole (ratio test) Not computed 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 y[1] (numeric) = -3.1876015641181209159252176150202 absolute error = 3.1876015641181209159252176150202 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.101 Order of pole (ratio test) Not computed 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 y[1] (numeric) = -3.1900656224598312183907976932121 absolute error = 3.1900656224598312183907976932121 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.112 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=248066732, alloc=4586680, time=8.16 x[1] = 2.72 y[1] (analytic) = 0 y[1] (numeric) = -3.1924931569329635561733747440344 absolute error = 3.1924931569329635561733747440344 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.122 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.1948842717898958615478648775267 absolute error = 3.1948842717898958615478648775267 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.133 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.1972390699015535474123438943617 absolute error = 3.1972390699015535474123438943617 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.143 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.1995576527728822013102251566059 absolute error = 3.1995576527728822013102251566059 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.153 Order of pole (ratio test) Not computed 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.76 y[1] (analytic) = 0 y[1] (numeric) = -3.2018401205580501969444907232668 absolute error = 3.2018401205580501969444907232668 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.164 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=252067760, alloc=4586680, time=8.29 x[1] = 2.77 y[1] (analytic) = 0 y[1] (numeric) = -3.2040865720753863800064370579238 absolute error = 3.2040865720753863800064370579238 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.174 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2062971048220578653313512689458 absolute error = 3.2062971048220578653313512689458 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.185 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2084718149884928656997589993551 absolute error = 3.2084718149884928656997589993551 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.195 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2106107974725533589336371512062 absolute error = 3.2106107974725533589336371512062 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.206 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=256068860, alloc=4586680, time=8.42 x[1] = 2.81 y[1] (analytic) = 0 y[1] (numeric) = -3.2127141458934622892035014015171 absolute error = 3.2127141458934622892035014015171 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.216 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2147819526054898905786726788737 absolute error = 3.2147819526054898905786726788737 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.227 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2168143087114036157361837869053 absolute error = 3.2168143087114036157361837869053 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.237 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2188113040756860503132668213145 absolute error = 3.2188113040756860503132668213145 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.248 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2207730273375250935663032780025 absolute error = 3.2207730273375250935663032780025 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.258 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=260069652, alloc=4586680, time=8.55 x[1] = 2.86 y[1] (analytic) = 0 y[1] (numeric) = -3.2226995659235805887101499152848 absolute error = 3.2226995659235805887101499152848 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.268 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2245910060605314914829039661266 absolute error = 3.2245910060605314914829039661266 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.279 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2264474327874075730417878682008 absolute error = 3.2264474327874075730417878682008 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.289 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2282689299677095631774992711604 absolute error = 3.2282689299677095631774992711604 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.3 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=264070876, alloc=4586680, time=8.68 x[1] = 2.9 y[1] (analytic) = 0 y[1] (numeric) = -3.23005558030132155197082814187 absolute error = 3.23005558030132155197082814187 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.31 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2318074653362193823424143420824 absolute error = 3.2318074653362193823424143420824 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.321 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2335246654799786824020426208379 absolute error = 3.2335246654799786824020426208379 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.331 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2352072600110861050276262009031 absolute error = 3.2352072600110861050276262009031 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.342 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2368553270900572626376690662965 absolute error = 3.2368553270900572626376690662965 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.352 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=268071972, alloc=4586680, time=8.81 x[1] = 2.95 y[1] (analytic) = 0 y[1] (numeric) = -3.2384689437703647676079857896281 absolute error = 3.2384689437703647676079857896281 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.363 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2400481860091797131690105966787 absolute error = 3.2400481860091797131690105966787 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.373 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2415931286779298558510482982551 absolute error = 3.2415931286779298558510482982551 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.383 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2431038455726776885698449146402 absolute error = 3.2431038455726776885698449146402 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.394 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2445804094243215232139984404377 absolute error = 3.2445804094243215232139984404377 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.404 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=272072860, alloc=4586680, time=8.94 x[1] = 3 y[1] (analytic) = 0 y[1] (numeric) = -3.2460228919086226330606271529656 absolute error = 3.2460228919086226330606271529656 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.415 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2474313636560614384594735185973 absolute error = 3.2474313636560614384594735185973 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.425 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.248805894261525653942778508578 absolute error = 3.248805894261525653942778508578 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.436 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2501465522938332511947218449339 absolute error = 3.2501465522938332511947218449339 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.446 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=276073848, alloc=4586680, time=9.08 x[1] = 3.04 y[1] (analytic) = 0 y[1] (numeric) = -3.251453405305093030107225758018 absolute error = 3.251453405305093030107225758018 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.457 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2527265198399055294169859820781 absolute error = 3.2527265198399055294169859820781 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.467 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2539659614444069491214893823969 absolute error = 3.2539659614444069491214893823969 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.478 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.255171794675158698970469849305 absolute error = 3.255171794675158698970469849305 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.488 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2563440831078851307858719580947 absolute error = 3.2563440831078851307858719580947 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.498 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=280074512, alloc=4586680, time=9.21 x[1] = 3.09 y[1] (analytic) = 0 y[1] (numeric) = -3.2574828893460619571411882199105 absolute error = 3.2574828893460619571411882199105 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.509 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2585882750293578049943503299214 absolute error = 3.2585882750293578049943503299214 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.519 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2596603008419313001825788696764 absolute error = 3.2596603008419313001825788696764 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.53 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.260699026520586027219137803672 absolute error = 3.260699026520586027219137803672 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.54 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=284075520, alloc=4586680, time=9.34 x[1] = 3.13 y[1] (analytic) = 0 y[1] (numeric) = -3.2617045108627856585481922762101 absolute error = 3.2617045108627856585481922762101 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.551 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2626768117345314982832753037747 absolute error = 3.2626768117345314982832753037747 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.561 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2636159860781046374464970228156 absolute error = 3.2636159860781046374464970228156 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.572 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2645220899196748708097369574338 absolute error = 3.2645220899196748708097369574338 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.582 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2653951783767784795866661287452 absolute error = 3.2653951783767784795866661287452 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.593 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=288076580, alloc=4586680, time=9.48 x[1] = 3.18 y[1] (analytic) = 0 y[1] (numeric) = -3.266235305665666939407407932278 absolute error = 3.266235305665666939407407932278 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.603 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2670425251085285691986294314247 absolute error = 3.2670425251085285691986294314247 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.613 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2678168891405850937643058156593 absolute error = 3.2678168891405850937643058156593 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.624 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.26855844931706505099052601197 absolute error = 3.26855844931706505099052601197 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.634 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=292077772, alloc=4586680, time=9.61 x[1] = 3.22 y[1] (analytic) = 0 y[1] (numeric) = -3.2692672563200559336564465366612 absolute error = 3.2692672563200559336564465366612 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.645 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2699433599652369157985040977998 absolute error = 3.2699433599652369157985040977998 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.655 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.270586809208493974422603996086 absolute error = 3.270586809208493974422603996086 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.666 Order of pole (ratio test) Not computed 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.25 y[1] (analytic) = 0 y[1] (numeric) = -3.2711976521524191790662164811231 absolute error = 3.2711976521524191790662164811231 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.676 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.271775936052695884256788104065 absolute error = 3.271775936052695884256788104065 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.687 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=296078576, alloc=4586680, time=9.75 x[1] = 3.27 y[1] (analytic) = 0 y[1] (numeric) = -3.272321707324371523272886502392 absolute error = 3.272321707324371523272886502392 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.697 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2728350115480196657689276963701 absolute error = 3.2728350115480196657689276963701 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.708 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2733158934757929667526547371397 absolute error = 3.2733158934757929667526547371397 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.718 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.273764397037368600086784180559 absolute error = 3.273764397037368600086784180559 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.729 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2741805653457877361030023864812 absolute error = 3.2741805653457877361030023864812 relative error = -1 % Correct digits = -1 h = 0.01 bytes used=300079480, alloc=4586680, time=9.88 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.739 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2745644407031905900489012968736 absolute error = 3.2745644407031905900489012968736 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.749 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.27491606460644853591813510979 absolute error = 3.27491606460644853591813510979 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.76 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2752354777526947487231989382186 absolute error = 3.2752354777526947487231989382186 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.77 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2755227200447548074414083371953 absolute error = 3.2755227200447548074414083371953 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.781 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=304080304, alloc=4586680, time=10.02 x[1] = 3.36 y[1] (analytic) = 0 y[1] (numeric) = -3.2757778305964786606809962348515 absolute error = 3.2757778305964786606809962348515 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.791 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2760008477379753275593001660715 absolute error = 3.2760008477379753275593001660715 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.802 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2761918090207516773427898187553 absolute error = 3.2761918090207516773427898187553 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.812 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2763507512227566030536145073337 absolute error = 3.2763507512227566030536145073337 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.823 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2764777103533318764842807000047 absolute error = 3.2764777103533318764842807000047 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.833 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=308081124, alloc=4586680, time=10.15 x[1] = 3.41 y[1] (analytic) = 0 y[1] (numeric) = -3.2765727216580709448662536126072 absolute error = 3.2765727216580709448662536126072 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.844 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2766358196235869027953584571198 absolute error = 3.2766358196235869027953584571198 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.854 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2766670379821908469128605438803 absolute error = 3.2766670379821908469128605438803 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.865 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2766664097164817952624220313454 absolute error = 3.2766664097164817952624220313454 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.875 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=312082412, alloc=4586680, time=10.28 x[1] = 3.45 y[1] (analytic) = 0 y[1] (numeric) = -3.2766339670638493281765171766591 absolute error = 3.2766339670638493281765171766591 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.886 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2765697415208900829784347662007 absolute error = 3.2765697415208900829784347662007 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.896 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2764737638477392107051397484074 absolute error = 3.2764737638477392107051397484074 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.907 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2763460640723178794497661091697 absolute error = 3.2763460640723178794497661091697 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.917 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2761866714944978857784465633127 absolute error = 3.2761866714944978857784465633127 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.928 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=316083192, alloc=4586680, time=10.41 x[1] = 3.5 y[1] (analytic) = 0 y[1] (numeric) = -3.2759956146901844129829357898081 absolute error = 3.2759956146901844129829357898081 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.938 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2757729215153179526767349634205 absolute error = 3.2757729215153179526767349634205 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.949 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2755186191097963844171477907306 absolute error = 3.2755186191097963844171477907306 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.959 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2752327339013181866281444534778 absolute error = 3.2752327339013181866281444534778 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.97 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=320084232, alloc=4586680, time=10.55 x[1] = 3.54 y[1] (analytic) = 0 y[1] (numeric) = -3.2749152916091477310986045645109 absolute error = 3.2749152916091477310986045645109 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.98 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2745663172478035927272426420691 absolute error = 3.2745663172478035927272426420691 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.991 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2741858351306707859693355343067 absolute error = 3.2741858351306707859693355343067 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.001 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2737738688735378196015655964046 absolute error = 3.2737738688735378196015655964046 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.012 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2733304413980594419504029323817 absolute error = 3.2733304413980594419504029323817 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.022 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=324085160, alloc=4586680, time=10.68 x[1] = 3.59 y[1] (analytic) = 0 y[1] (numeric) = -3.2728555749351459296172460443635 absolute error = 3.2728555749351459296172460443635 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.033 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2723492910282797539710219777683 absolute error = 3.2723492910282797539710219777683 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.043 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2718116105367604412573348537097 absolute error = 3.2718116105367604412573348537097 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.054 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2712425536388784240839805670987 absolute error = 3.2712425536388784240839805670987 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.065 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=328086108, alloc=4586680, time=10.81 x[1] = 3.63 y[1] (analytic) = 0 y[1] (numeric) = -3.270642139835018664277358845132 absolute error = 3.270642139835018664277358845132 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.075 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2700103879506948096548575891379 absolute error = 3.2700103879506948096548575891379 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.086 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2693473161395146301167006876414 absolute error = 3.2693473161395146301167006876414 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.096 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2686529418860774616192722351621 absolute error = 3.2686529418860774616192722351621 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.107 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2679272820088043700429754347741 absolute error = 3.2679272820088043700429754347741 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.118 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=332087296, alloc=4586680, time=10.94 x[1] = 3.68 y[1] (analytic) = 0 y[1] (numeric) = -3.2671703526627017307038513016174 absolute error = 3.2671703526627017307038513016174 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.128 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2663821693420589032722430745501 absolute error = 3.2663821693420589032722430745501 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.139 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2655627468830806661466889218693 absolute error = 3.2655627468830806661466889218693 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.15 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2647120994664550588800645899561 absolute error = 3.2647120994664550588800645899561 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.16 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2638302406198572660610453621927 absolute error = 3.2638302406198572660610453621927 relative error = -1 % Correct digits = -1 h = 0.01 bytes used=336088320, alloc=4586680, time=11.08 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.17 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2629171832203901611106344739982 absolute error = 3.2629171832203901611106344739982 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.18 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2619729394969621137543849971542 absolute error = 3.2619729394969621137543849971542 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.19 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2609975210326026504697424369367 absolute error = 3.2609975210326026504697424369367 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.2 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2599909387667165429785161449174 absolute error = 3.2599909387667165429785161449174 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.21 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=340089476, alloc=4586680, time=11.21 x[1] = 3.77 y[1] (analytic) = 0 y[1] (numeric) = -3.2589532029972768858508472640431 absolute error = 3.2589532029972768858508472640431 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.219 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2578843233829577105033112604359 absolute error = 3.2578843233829577105033112604359 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.229 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2567843089452066693042360704654 absolute error = 3.2567843089452066693042360704654 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.238 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2556531680702583101383205645191 absolute error = 3.2556531680702583101383205645191 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.248 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2544909085110884486247129271147 absolute error = 3.2544909085110884486247129271147 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.257 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=344090316, alloc=4586680, time=11.35 x[1] = 3.82 y[1] (analytic) = 0 y[1] (numeric) = -3.2532975373893101322224840834673 absolute error = 3.2532975373893101322224840834673 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.266 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2520730611970116776896522679184 absolute error = 3.2520730611970116776896522679184 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.275 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2508174857985372507814380391537 absolute error = 3.2508174857985372507814380391537 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.284 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2495308164322104446752200208796 absolute error = 3.2495308164322104446752200208796 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.293 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=348091156, alloc=4586680, time=11.48 x[1] = 3.86 y[1] (analytic) = 0 y[1] (numeric) = -3.2482130577120013013887914086054 absolute error = 3.2482130577120013013887914086054 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.301 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2468642136291372084101592413891 absolute error = 3.2468642136291372084101592413891 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.309 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2454842875536580908765553476533 absolute error = 3.2454842875536580908765553476533 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.316 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2440732822359163079229088847994 absolute error = 3.2440732822359163079229088847994 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.322 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2426311998080216502612281673186 absolute error = 3.2426311998080216502612281673186 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.328 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=352092188, alloc=4586680, time=11.61 x[1] = 3.91 y[1] (analytic) = 0 y[1] (numeric) = -3.2411580417852318246477073958277 absolute error = 3.2411580417852318246477073958277 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.333 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2396538090672887996395533247729 absolute error = 3.2396538090672887996395533247729 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.338 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2381185019397013759342445334922 absolute error = 3.2381185019397013759342445334922 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.343 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2365521200749743336160012283522 absolute error = 3.2365521200749743336160012283522 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.347 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=356093636, alloc=4586680, time=11.74 x[1] = 3.95 y[1] (analytic) = 0 y[1] (numeric) = -3.2349546625337844978035460549488 absolute error = 3.2349546625337844978035460549488 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.351 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2333261277661040534957436500594 absolute error = 3.2333261277661040534957436500594 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.354 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2316665136122714298434613863625 absolute error = 3.2316665136122714298434613863625 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.356 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.229975817304010063633111756913 absolute error = 3.229975817304010063633111756913 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.358 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2282540354653953414460046542525 absolute error = 3.2282540354653953414460046542525 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.359 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=360094600, alloc=4586680, time=11.88 x[1] = 4 y[1] (analytic) = 0 y[1] (numeric) = -3.226501164113770009754110485598 absolute error = 3.226501164113770009754110485598 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.359 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2247171986606083321234340471126 absolute error = 3.2247171986606083321234340471126 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.359 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2229021339123292627173100067992 absolute error = 3.2229021339123292627173100067992 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.357 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2210559640710588954200015330977 absolute error = 3.2210559640710588954200015330977 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.354 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2191786827353424381325220177471 absolute error = 3.2191786827353424381325220177471 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.351 bytes used=364095660, alloc=4586680, time=12.01 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2172702829008059521241721144963 absolute error = 3.2172702829008059521241721144963 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.346 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2153307569607680867515128350351 absolute error = 3.2153307569607680867515128350351 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.34 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2133600967068020303780569595313 absolute error = 3.2133600967068020303780569595313 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.332 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.211358293329247888939584803816 absolute error = 3.211358293329247888939584803816 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.323 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=368096572, alloc=4586680, time=12.14 x[1] = 4.09 y[1] (analytic) = 0 y[1] (numeric) = -3.2093253374176756942984564332893 absolute error = 3.2093253374176756942984564332893 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.313 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.207261218961299235312429680569 absolute error = 3.207261218961299235312429680569 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.301 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2051659273493408954061780024536 absolute error = 3.2051659273493408954061780024536 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.287 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2030394513713476713738560443913 absolute error = 3.2030394513713476713738560443913 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.271 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -3.2008817792174585391556494073728 absolute error = 3.2008817792174585391556494073728 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.253 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 56.94 Order of pole (three term test) = -8306 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=372097504, alloc=4586680, time=12.27 x[1] = 4.14 y[1] (analytic) = 0 y[1] (numeric) = -3.1986928984786233234172764521107 absolute error = 3.1986928984786233234172764521107 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.232 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 22.21 Order of pole (three term test) = -3241 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.15 y[1] (analytic) = 0 y[1] (numeric) = -3.1964727961467732189159326407646 absolute error = 3.1964727961467732189159326407646 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.21 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 13.26 Order of pole (three term test) = -1936 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.16 y[1] (analytic) = 0 y[1] (numeric) = -3.1942214586149431028562696579647 absolute error = 3.1942214586149431028562696579647 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.185 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 9.165 Order of pole (three term test) = -1340 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.17 y[1] (analytic) = 0 y[1] (numeric) = -3.1919388716773457687228077349589 absolute error = 3.1919388716773457687228077349589 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.157 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 6.829 Order of pole (three term test) = -999.5 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=376098776, alloc=4586680, time=12.41 x[1] = 4.18 y[1] (analytic) = 0 y[1] (numeric) = -3.1896250205293982034178517059656 absolute error = 3.1896250205293982034178517059656 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.126 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 5.325 Order of pole (three term test) = -780.8 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.19 y[1] (analytic) = 0 y[1] (numeric) = -3.1872798897677000209337154870968 absolute error = 3.1872798897677000209337154870968 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.091 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 4.28 Order of pole (three term test) = -629 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.2 y[1] (analytic) = 0 y[1] (numeric) = -3.1849034633899641572420852273587 absolute error = 3.1849034633899641572420852273587 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.054 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 3.515 Order of pole (three term test) = -518 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.21 y[1] (analytic) = 0 y[1] (numeric) = -3.1824957247948999225889294734283 absolute error = 3.1824957247948999225889294734283 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.013 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 2.934 Order of pole (three term test) = -433.7 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.22 y[1] (analytic) = 0 y[1] (numeric) = -3.1800566567820484989377868525699 absolute error = 3.1800566567820484989377868525699 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.968 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 2.479 Order of pole (three term test) = -367.9 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=380099564, alloc=4586680, time=12.54 x[1] = 4.23 y[1] (analytic) = 0 y[1] (numeric) = -3.1775862415515709619048485832645 absolute error = 3.1775862415515709619048485832645 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.92 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 2.116 Order of pole (three term test) = -315.4 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.24 y[1] (analytic) = 0 y[1] (numeric) = -3.1750844607039888981733528324574 absolute error = 3.1750844607039888981733528324574 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.867 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 1.819 Order of pole (three term test) = -272.7 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.25 y[1] (analytic) = 0 y[1] (numeric) = -3.1725512952398776810597951793028 absolute error = 3.1725512952398776810597951793028 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.81 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 1.575 Order of pole (three term test) = -237.4 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.26 y[1] (analytic) = 0 y[1] (numeric) = -3.1699867255595124586277339082659 absolute error = 3.1699867255595124586277339082659 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.748 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 1.37 Order of pole (three term test) = -208.1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=384100556, alloc=4586680, time=12.67 x[1] = 4.27 y[1] (analytic) = 0 y[1] (numeric) = -3.1673907314624669005039540092333 absolute error = 3.1673907314624669005039540092333 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.681 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 1.197 Order of pole (three term test) = -183.3 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.28 y[1] (analytic) = 0 y[1] (numeric) = -3.1647632921471647413438955933156 absolute error = 3.1647632921471647413438955933156 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.609 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 1.05 Order of pole (three term test) = -162.2 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.29 y[1] (analytic) = 0 y[1] (numeric) = -3.1621043862103841507160181924091 absolute error = 3.1621043862103841507160181924091 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.531 Order of pole (ratio test) Not computed Radius of convergence (three term test) for eq 1 = 0.9241 Order of pole (three term test) = -144.2 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.3 y[1] (analytic) = 0 y[1] (numeric) = -3.1594139916467149510256493879683 absolute error = 3.1594139916467149510256493879683 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.8152 Order of pole (three term test) = -128.8 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.31 y[1] (analytic) = 0 y[1] (numeric) = -3.1566920858479686969753605229754 absolute error = 3.1566920858479686969753605229754 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.7207 Order of pole (three term test) = -115.4 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=388101452, alloc=4586680, time=12.81 x[1] = 4.32 y[1] (analytic) = 0 y[1] (numeric) = -3.1539386456025416219585476284978 absolute error = 3.1539386456025416219585476284978 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.6383 Order of pole (three term test) = -103.7 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.33 y[1] (analytic) = 0 y[1] (numeric) = -3.1511536470947304487032123202274 absolute error = 3.1511536470947304487032123202274 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.5661 Order of pole (three term test) = -93.56 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.34 y[1] (analytic) = 0 y[1] (numeric) = -3.1483370659040010534214907376765 absolute error = 3.1483370659040010534214907376765 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.5028 Order of pole (three term test) = -84.68 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.35 y[1] (analytic) = 0 y[1] (numeric) = -3.1454888770042099646748381665244 absolute error = 3.1454888770042099646748381665244 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.4469 Order of pole (three term test) = -76.89 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.36 y[1] (analytic) = 0 y[1] (numeric) = -3.1426090547627786701325253243752 absolute error = 3.1426090547627786701325253243752 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.3974 Order of pole (three term test) = -70.04 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=392102408, alloc=4586680, time=12.94 x[1] = 4.37 y[1] (analytic) = 0 y[1] (numeric) = -3.1396975729398206963798337521055 absolute error = 3.1396975729398206963798337521055 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.3536 Order of pole (three term test) = -64.02 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.38 y[1] (analytic) = 0 y[1] (numeric) = -3.1367544046872214189196573911026 absolute error = 3.1367544046872214189196573911026 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.3146 Order of pole (three term test) = -58.7 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.39 y[1] (analytic) = 0 y[1] (numeric) = -3.1337795225476705515047398835099 absolute error = 3.1337795225476705515047398835099 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.2799 Order of pole (three term test) = -54.01 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.4 y[1] (analytic) = 0 y[1] (numeric) = -3.1307728984536472559351255325094 absolute error = 3.1307728984536472559351255325094 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.2488 Order of pole (three term test) = -49.86 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=396103496, alloc=4586680, time=13.08 x[1] = 4.41 y[1] (analytic) = 0 y[1] (numeric) = -3.1277345037263578054542067105435 absolute error = 3.1277345037263578054542067105435 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.2209 Order of pole (three term test) = -46.2 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.42 y[1] (analytic) = 0 y[1] (numeric) = -3.1246643090746257268746486054597 absolute error = 3.1246643090746257268746486054597 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.1959 Order of pole (three term test) = -42.97 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.43 y[1] (analytic) = 0 y[1] (numeric) = -3.1215622845937343385601055560498 absolute error = 3.1215622845937343385601055560498 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.1733 Order of pole (three term test) = -40.12 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.44 y[1] (analytic) = 0 y[1] (numeric) = -3.1184283997642215933776579870068 absolute error = 3.1184283997642215933776579870068 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.1529 Order of pole (three term test) = -37.6 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.45 y[1] (analytic) = 0 y[1] (numeric) = -3.1152626234506271277169443027385 absolute error = 3.1152626234506271277169443027385 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.1344 Order of pole (three term test) = -35.4 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=400104348, alloc=4586680, time=13.21 x[1] = 4.46 y[1] (analytic) = 0 y[1] (numeric) = -3.1120649239001914096426892209591 absolute error = 3.1120649239001914096426892209591 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.1175 Order of pole (three term test) = -33.46 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.47 y[1] (analytic) = 0 y[1] (numeric) = -3.1088352687415068712053910241395 absolute error = 3.1088352687415068712053910241395 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.102 Order of pole (three term test) = -31.78 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.48 y[1] (analytic) = 0 y[1] (numeric) = -3.1055736249831209018779770439532 absolute error = 3.1055736249831209018779770439532 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.08783 Order of pole (three term test) = -30.32 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.49 y[1] (analytic) = 0 y[1] (numeric) = -3.1022799590120905720119201361951 absolute error = 3.1022799590120905720119201361951 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.07467 Order of pole (three term test) = -29.07 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=404105388, alloc=4586680, time=13.34 x[1] = 4.5 y[1] (analytic) = 0 y[1] (numeric) = -3.0989542365924889471122774602169 absolute error = 3.0989542365924889471122774602169 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.06241 Order of pole (three term test) = -28.01 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.51 y[1] (analytic) = 0 y[1] (numeric) = -3.0955964228638628456150117435943 absolute error = 3.0955964228638628456150117435943 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.0509 Order of pole (three term test) = -27.13 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.52 y[1] (analytic) = 0 y[1] (numeric) = -3.0922064823396418847094252161529 absolute error = 3.0922064823396418847094252161529 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.04 Order of pole (three term test) = -26.41 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.53 y[1] (analytic) = 0 y[1] (numeric) = -3.0887843789054986505812129385404 absolute error = 3.0887843789054986505812129385404 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.02959 Order of pole (three term test) = -25.84 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.54 y[1] (analytic) = 0 y[1] (numeric) = -3.0853300758176598212551542469611 absolute error = 3.0853300758176598212551542469611 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.01955 Order of pole (three term test) = -25.43 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=408106320, alloc=4586680, time=13.48 x[1] = 4.55 y[1] (analytic) = 0 y[1] (numeric) = -3.0818435357011680619884298629261 absolute error = 3.0818435357011680619884298629261 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 0.009757 Order of pole (three term test) = -25.16 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.56 y[1] (analytic) = 0 y[1] (numeric) = -3.0783247205480945049035906466916 absolute error = 3.0783247205480945049035906466916 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 Radius of convergence (three term test) for eq 1 = 9.672e-05 Order of pole (three term test) = -25.04 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop x[1] = 4.57 y[1] (analytic) = 0 y[1] (numeric) = -3.0747735917157016162519151091381 absolute error = 3.0747735917157016162519151091381 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0711901099245562463608690067337 absolute error = 3.0711901099245562463608690067337 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0675742352565926489412021869147 absolute error = 3.0675742352565926489412021869147 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for 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=412107624, alloc=4586680, time=13.61 x[1] = 4.6 y[1] (analytic) = 0 y[1] (numeric) = -3.0639259271531252480074529997254 absolute error = 3.0639259271531252480074529997254 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0602451444128109221978327497582 absolute error = 3.0602451444128109221978327497582 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0565318451895605677631704755611 absolute error = 3.0565318451895605677631704755611 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0527859869903996929273343016703 absolute error = 3.0527859869903996929273343016703 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for 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=416108976, alloc=4586680, time=13.74 x[1] = 4.64 y[1] (analytic) = 0 y[1] (numeric) = -3.0490075266732777877008149415488 absolute error = 3.0490075266732777877008149415488 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0451964204448262045524464956886 absolute error = 3.0451964204448262045524464956886 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0413526238580642766090168510655 absolute error = 3.0413526238580642766090168510655 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0374760918100533912562314825656 absolute error = 3.0374760918100533912562314825656 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0335667785394987281545652513508 absolute error = 3.0335667785394987281545652513508 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for 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=420109888, alloc=4586680, time=13.88 x[1] = 4.69 y[1] (analytic) = 0 y[1] (numeric) = -3.0296246376242983617573689337695 absolute error = 3.0296246376242983617573689337695 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0256496219790394194235686527246 absolute error = 3.0256496219790394194235686527246 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.021641683852440977150759808946 absolute error = 3.021641683852440977150759808946 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0176007748247433658137787497757 absolute error = 3.0176007748247433658137787497757 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for 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=424110816, alloc=4586680, time=14.01 x[1] = 4.73 y[1] (analytic) = 0 y[1] (numeric) = -3.0135268458050435515762338284025 absolute error = 3.0135268458050435515762338284025 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0094198470285762448452623688676 absolute error = 3.0094198470285762448452623688676 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0052797280539403827601909071523 absolute error = 3.0052797280539403827601909071523 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 NO POLE (ratio test) for Equation 1 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) = 0 y[1] (numeric) = -3.0011064377602706207410210911117 absolute error = 3.0011064377602706207410210911117 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.674 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9968999243443534590699183042259 absolute error = 2.9968999243443534590699183042259 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.76 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=428111728, alloc=4586680, time=14.14 x[1] = 4.78 y[1] (analytic) = 0 y[1] (numeric) = -2.9926601353176876208352859996669 absolute error = 2.9926601353176876208352859996669 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.841 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9883870175034882878306722095371 absolute error = 2.9883870175034882878306722095371 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.916 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9840805170336347911667454654443 absolute error = 2.9840805170336347911667454654443 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 3.986 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9797405793455613434209272353865 absolute error = 2.9797405793455613434209272353865 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.051 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9753671491790903891129694492409 absolute error = 2.9753671491790903891129694492409 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.111 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=432112932, alloc=4586680, time=14.28 x[1] = 4.83 y[1] (analytic) = 0 y[1] (numeric) = -2.9709601705732081401527705538514 absolute error = 2.9709601705732081401527705538514 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.166 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9665195868627818526559414953572 absolute error = 2.9665195868627818526559414953572 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.218 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9620453406752183911599301985409 absolute error = 2.9620453406752183911599301985409 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.265 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9575373739270636157957106009999 absolute error = 2.9575373739270636157957106009999 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.308 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=436113908, alloc=4586680, time=14.41 x[1] = 4.87 y[1] (analytic) = 0 y[1] (numeric) = -2.9529956278205421173739146824824 absolute error = 2.9529956278205421173739146824824 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.348 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9484200428400368146265597416076 absolute error = 2.9484200428400368146265597416076 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.384 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9438105587485079170028753539189 absolute error = 2.9438105587485079170028753539189 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.417 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9391671145838507454467907629828 absolute error = 2.9391671145838507454467907629828 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.447 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.934489648655191892480976891298 absolute error = 2.934489648655191892480976891298 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.474 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=440115088, alloc=4586680, time=14.54 x[1] = 4.92 y[1] (analytic) = 0 y[1] (numeric) = -2.9297780985391231916844662641994 absolute error = 2.9297780985391231916844662641994 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.498 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9250324010758729552742613695496 absolute error = 2.9250324010758729552742613695496 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.52 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9202524923654139269823919694174 absolute error = 2.9202524923654139269823919694174 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.539 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.9154383077635073857549397224076 absolute error = 2.9154383077635073857549397224076 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.557 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 TOP MAIN SOLVE Loop bytes used=444115932, alloc=4586680, time=14.68 x[1] = 4.96 y[1] (analytic) = 0 y[1] (numeric) = -2.9105897818776828239848979163556 absolute error = 2.9105897818776828239848979163556 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.572 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.905706848563152612022595746541 absolute error = 2.905706848563152612022595746541 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.586 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.900789440918661048581945989712 absolute error = 2.900789440918661048581945989712 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.597 Order of pole (ratio test) Not computed 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) = 0 y[1] (numeric) = -2.8958374912822671843740607969806 absolute error = 2.8958374912822671843740607969806 relative error = -1 % Correct digits = -1 h = 0.01 NO INFO (given) for Equation 1 Radius of convergence (ratio test) for eq 1 = 4.607 Order of pole (ratio test) Not computed NO REAL POLE (three term test) for Equation 1 NO COMPLEX POLE (six term test) for Equation 1 Finished! diff ( y , x , 1 ) = tan(sqrt(2.0*x + 3.0)); Iterations = 490 Total Elapsed Time = 14 Seconds Elapsed Time(since restart) = 14 Seconds Time to Timeout = 2 Minutes 45 Seconds Percent Done = 100.2 % > quit bytes used=446901120, alloc=4586680, time=14.76