(%i1) batch(diffeq.max) read and interpret file: /home/dennis/mastersource/mine/omnisode/diffeq.max (%i2) load(stringproc) (%o2) /usr/share/maxima/5.27.0/share/stringproc/stringproc.mac (%i3) check_sign(x0, xf) := block([ret], if xf > x0 then ret : 1.0 else ret : - 1.0, ret) (%o3) check_sign(x0, xf) := block([ret], if xf > x0 then ret : 1.0 else ret : - 1.0, ret) (%i4) est_size_answer() := block([min_size], min_size : glob_large_float, if omniabs(array_y ) < min_size then (min_size : omniabs(array_y ), 1 1 omniout_float(ALWAYS, "min_size", 32, min_size, 32, "")), if min_size < 1.0 then (min_size : 1.0, omniout_float(ALWAYS, "min_size", 32, min_size, 32, "")), min_size) (%o4) est_size_answer() := block([min_size], min_size : glob_large_float, if omniabs(array_y ) < min_size then (min_size : omniabs(array_y ), 1 1 omniout_float(ALWAYS, "min_size", 32, min_size, 32, "")), if min_size < 1.0 then (min_size : 1.0, omniout_float(ALWAYS, "min_size", 32, min_size, 32, "")), min_size) (%i5) test_suggested_h() := block([max_value3, hn_div_ho, hn_div_ho_2, hn_div_ho_3, value3, no_terms], max_value3 : 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, ""), value3 : omniabs(array_y hn_div_ho_3 + array_y hn_div_ho_2 no_terms no_terms - 1 + array_y hn_div_ho + array_y ), no_terms - 2 no_terms - 3 if value3 > max_value3 then (max_value3 : value3, omniout_float(ALWAYS, "value3", 32, value3, 32, "")), omniout_float(ALWAYS, "max_value3", 32, max_value3, 32, ""), max_value3) (%o5) test_suggested_h() := block([max_value3, hn_div_ho, hn_div_ho_2, hn_div_ho_3, value3, no_terms], max_value3 : 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, ""), value3 : omniabs(array_y hn_div_ho_3 + array_y hn_div_ho_2 no_terms no_terms - 1 + array_y hn_div_ho + array_y ), no_terms - 2 no_terms - 3 if value3 > max_value3 then (max_value3 : value3, omniout_float(ALWAYS, "value3", 32, value3, 32, "")), omniout_float(ALWAYS, "max_value3", 32, max_value3, 32, ""), max_value3) (%i6) reached_interval() := block([ret], if glob_check_sign array_x >= glob_check_sign glob_next_display 1 then ret : true else ret : false, return(ret)) (%o6) reached_interval() := block([ret], if glob_check_sign array_x >= glob_check_sign glob_next_display 1 then ret : true else ret : false, return(ret)) (%i7) display_alot(iter) := block([abserr, analytic_val_y, ind_var, numeric_val, relerr, term_no], if reached_interval() then (if iter >= 0 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.0 abserr 100.0 then (relerr : -----------------------, omniabs(analytic_val_y) if relerr > 1.0E-34 then glob_good_digits : 2 - floor(log10(relerr)) else glob_good_digits : 16) else (relerr : - 1.0, glob_good_digits : - 1), if glob_iter = 1 then array_1st_rel_error : relerr 1 else array_last_rel_error : relerr, omniout_float(ALWAYS, 1 "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, " ")))) (%o7) display_alot(iter) := block([abserr, analytic_val_y, ind_var, numeric_val, relerr, term_no], if reached_interval() then (if iter >= 0 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.0 abserr 100.0 then (relerr : -----------------------, omniabs(analytic_val_y) if relerr > 1.0E-34 then glob_good_digits : 2 - floor(log10(relerr)) else glob_good_digits : 16) else (relerr : - 1.0, glob_good_digits : - 1), if glob_iter = 1 then array_1st_rel_error : relerr 1 else array_last_rel_error : relerr, omniout_float(ALWAYS, 1 "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, " ")))) (%i8) adjust_for_pole(h_param) := block([hnew, sz2, tmp], block(hnew : h_param, glob_normmax : glob_small_float, if omniabs(array_y_higher ) > glob_small_float 1, 1 then (tmp : omniabs(array_y_higher ), 1, 1 if tmp < glob_normmax then glob_normmax : tmp), if glob_look_poles and (omniabs(array_pole ) > glob_small_float) 1 array_pole 1 and (array_pole # glob_large_float) then (sz2 : -----------, 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))), 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 ), hnew : sz2), return(hnew)) 1 (%o8) adjust_for_pole(h_param) := block([hnew, sz2, tmp], block(hnew : h_param, glob_normmax : glob_small_float, if omniabs(array_y_higher ) > glob_small_float 1, 1 then (tmp : omniabs(array_y_higher ), 1, 1 if tmp < glob_normmax then glob_normmax : tmp), if glob_look_poles and (omniabs(array_pole ) > glob_small_float) 1 array_pole 1 and (array_pole # glob_large_float) then (sz2 : -----------, 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))), 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 ), hnew : sz2), return(hnew)) 1 (%i9) prog_report(x_start, x_end) := block([clock_sec, opt_clock_sec, clock_sec1, expect_sec, left_sec, percent_done, total_clock_sec], 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(clock_sec1) + convfloat(glob_orig_start_sec) + convfloat(glob_max_sec), expect_sec : comp_expect_sec(convfloat(x_end), convfloat(x_start), convfloat(glob_h) + convfloat(array_x ), 1 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(glob_h) + convfloat(array_x ), 1 convfloat(opt_clock_sec)), glob_total_exp_sec : total_clock_sec + glob_optimal_expect_sec, percent_done : comp_percent(convfloat(x_end), convfloat(x_start), convfloat(glob_h) + convfloat(array_x )), glob_percent_done : percent_done, 1 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))), omniout_str_noeol(INFO, "Time to Timeout "), omniout_timestr(convfloat(left_sec)), omniout_float(INFO, "Percent Done ", 33, percent_done, 4, "%")) (%o9) prog_report(x_start, x_end) := block([clock_sec, opt_clock_sec, clock_sec1, expect_sec, left_sec, percent_done, total_clock_sec], 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(clock_sec1) + convfloat(glob_orig_start_sec) + convfloat(glob_max_sec), expect_sec : comp_expect_sec(convfloat(x_end), convfloat(x_start), convfloat(glob_h) + convfloat(array_x ), 1 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(glob_h) + convfloat(array_x ), 1 convfloat(opt_clock_sec)), glob_total_exp_sec : total_clock_sec + glob_optimal_expect_sec, percent_done : comp_percent(convfloat(x_end), convfloat(x_start), convfloat(glob_h) + convfloat(array_x )), glob_percent_done : percent_done, 1 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))), omniout_str_noeol(INFO, "Time to Timeout "), omniout_timestr(convfloat(left_sec)), omniout_float(INFO, "Percent Done ", 33, percent_done, 4, "%")) (%i10) check_for_pole() := block([cnt, dr1, dr2, ds1, ds2, hdrc, hdrc_BBB, m, n, nr1, nr2, ord_no, rad_c, rcs, rm0, rm1, rm2, rm3, rm4, found_sing, h_new, ratio, term], n : glob_max_terms, m : - 1 - 1 + n, while (m >= 10) and ((omniabs(array_y_higher ) < glob_small_float glob_small_float) 1, m or (omniabs(array_y_higher ) < glob_small_float glob_small_float) 1, m - 1 or (omniabs(array_y_higher ) < glob_small_float glob_small_float)) do m 1, m - 2 array_y_higher 1, m : m - 1, if m > 10 then (rm0 : ----------------------, array_y_higher 1, m - 1 array_y_higher 1, m - 1 rm1 : ----------------------, hdrc : convfloat(m) rm0 - convfloat(m - 1) rm1, array_y_higher 1, m - 2 if omniabs(hdrc) > glob_small_float glob_small_float glob_h then (rcs : ------, ord_no : hdrc rm1 convfloat((m - 2) (m - 2)) - rm0 convfloat(m - 3) -----------------------------------------------------, hdrc array_real_pole : rcs, array_real_pole : ord_no) 1, 1 1, 2 else (array_real_pole : glob_large_float, 1, 1 array_real_pole : glob_large_float)) 1, 2 else (array_real_pole : glob_large_float, 1, 1 array_real_pole : glob_large_float), n : - 1 - 1 + glob_max_terms, 1, 2 cnt : 0, while (cnt < 5) and (n >= 10) do (if omniabs(array_y_higher ) > 1, n glob_small_float then cnt : 1 + cnt else cnt : 0, n : n - 1), m : cnt + n, if m <= 10 then (rad_c : glob_large_float, ord_no : glob_large_float) elseif ((omniabs(array_y_higher ) >= glob_large_float) 1, m or (omniabs(array_y_higher ) >= glob_large_float) 1, m - 1 or (omniabs(array_y_higher ) >= glob_large_float) 1, m - 2 or (omniabs(array_y_higher ) >= glob_large_float) 1, m - 3 or (omniabs(array_y_higher ) >= glob_large_float) 1, m - 4 or (omniabs(array_y_higher ) >= glob_large_float)) 1, m - 5 or ((omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float)) 1, m 1, m - 1 1, m - 2 1, m - 3 1, m - 4 1, m - 5 then (rad_c : glob_large_float, ord_no : glob_large_float) array_y_higher array_y_higher 1, m 1, m - 1 else (rm0 : ----------------------, rm1 : ----------------------, array_y_higher array_y_higher 1, m - 1 1, m - 2 array_y_higher array_y_higher 1, m - 2 1, m - 3 rm2 : ----------------------, rm3 : ----------------------, array_y_higher array_y_higher 1, m - 3 1, m - 4 array_y_higher 1, m - 4 rm4 : ----------------------, nr1 : convfloat(m - 3) rm2 array_y_higher 1, m - 5 - 2.0 convfloat(m - 2) rm1 + convfloat(m - 1) rm0, nr2 : convfloat(m - 4) rm3 - 2.0 convfloat(m - 3) rm2 + convfloat(m - 2) rm1, - 1.0 2.0 - 1.0 - 1.0 2.0 - 1.0 5.0 8.0 3.0 dr1 : ----- + --- + -----, dr2 : ----- + --- + -----, ds1 : --- - --- + ---, rm3 rm2 rm1 rm4 rm3 rm2 rm3 rm2 rm1 5.0 8.0 3.0 ds2 : --- - --- + ---, if (omniabs(nr1 dr2 - nr2 dr1) <= glob_small_float) rm4 rm3 rm2 or (omniabs(dr1) <= glob_small_float) then (rad_c : glob_large_float, ord_no : glob_large_float) else (if omniabs(nr1 dr2 - nr2 dr1) > dr1 dr2 - ds2 dr1 + ds1 dr2 glob_small_float then (rcs : ---------------------------, nr1 dr2 - nr2 dr1 rcs nr1 - ds1 convfloat(m) ord_no : ------------- - ------------, 2.0 dr1 2.0 if omniabs(rcs) > glob_small_float then (if rcs > 0.0 then rad_c : sqrt(rcs) omniabs(glob_h) else rad_c : glob_large_float) else (rad_c : glob_large_float, ord_no : glob_large_float)) else (rad_c : glob_large_float, ord_no : glob_large_float)), array_complex_pole : rad_c, array_complex_pole : ord_no), 1, 1 1, 2 found_sing : 0, if (1 # found_sing) and ((array_real_pole = glob_large_float) 1, 1 or (array_real_pole = glob_large_float)) 1, 2 and ((array_complex_pole # glob_large_float) and (array_complex_pole # glob_large_float)) 1, 1 1, 2 and ((array_complex_pole > 0.0) and (array_complex_pole > 0.0)) 1, 1 1, 2 then (array_poles : array_complex_pole , 1, 1 1, 1 array_poles : array_complex_pole , found_sing : 1, 1, 2 1, 2 array_type_pole : 2, if glob_display_flag 1 then (if reached_interval() then omniout_str(ALWAYS, "Complex estimate of poles used for equation 1"))), if (1 # found_sing) and ((array_real_pole # glob_large_float) 1, 1 and (array_real_pole # glob_large_float) and (array_real_pole > 0.0) 1, 2 1, 1 and (array_real_pole > - 1.0 glob_smallish_float) 1, 2 and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float) or (array_complex_pole <= 0.0) or (array_complex_pole <= 0.0))) 1, 1 1, 2 1, 1 1, 2 then (array_poles : array_real_pole , 1, 1 1, 1 array_poles : array_real_pole , found_sing : 1, array_type_pole : 1, 1, 2 1, 2 1 if glob_display_flag then (if reached_interval() then omniout_str(ALWAYS, "Real estimate of pole used for equation 1"))), if (1 # found_sing) and (((array_real_pole = glob_large_float) 1, 1 or (array_real_pole = glob_large_float)) 1, 2 and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float))) 1, 1 1, 2 then (array_poles : glob_large_float, array_poles : glob_large_float, 1, 1 1, 2 found_sing : 1, array_type_pole : 3, if reached_interval() 1 then omniout_str(ALWAYS, "NO POLE for equation 1")), if (1 # found_sing) and ((array_real_pole < array_complex_pole ) 1, 1 1, 1 and (array_real_pole > 0.0) and (array_real_pole > - 1.0 1, 1 1, 2 glob_smallish_float)) then (array_poles : array_real_pole , 1, 1 1, 1 array_poles : array_real_pole , found_sing : 1, array_type_pole : 1, 1, 2 1, 2 1 if glob_display_flag then (if reached_interval() then omniout_str(ALWAYS, "Real estimate of pole used for equation 1"))), if (1 # found_sing) and ((array_complex_pole # glob_large_float) 1, 1 and (array_complex_pole # glob_large_float) 1, 2 and (array_complex_pole > 0.0) and (array_complex_pole > 1, 1 1, 2 0.0)) then (array_poles : array_complex_pole , 1, 1 1, 1 array_poles : array_complex_pole , array_type_pole : 2, 1, 2 1, 2 1 found_sing : 1, if glob_display_flag then (if reached_interval() then omniout_str(ALWAYS, "Complex estimate of poles used for equation 1"))), if 1 # found_sing then (array_poles : glob_large_float, 1, 1 array_poles : glob_large_float, array_type_pole : 3, 1, 2 1 if reached_interval() then omniout_str(ALWAYS, "NO POLE for equation 1")), array_pole : glob_large_float, array_pole : glob_large_float, 1 2 if array_pole > array_poles then (array_pole : array_poles , 1 1, 1 1 1, 1 array_pole : array_poles ), if array_pole glob_ratio_of_radius < 2 1, 2 1 omniabs(glob_h) then (h_new : array_pole glob_ratio_of_radius, term : 1, 1 ratio : 1.0, while term <= glob_max_terms do (array_y : term array_y ratio, array_y_higher : array_y_higher ratio, term 1, term 1, term ratio h_new array_x : array_x ratio, ratio : ---------------, term : 1 + term), term term omniabs(glob_h) glob_h : h_new), if reached_interval() then display_pole()) (%o10) check_for_pole() := block([cnt, dr1, dr2, ds1, ds2, hdrc, hdrc_BBB, m, n, nr1, nr2, ord_no, rad_c, rcs, rm0, rm1, rm2, rm3, rm4, found_sing, h_new, ratio, term], n : glob_max_terms, m : - 1 - 1 + n, while (m >= 10) and ((omniabs(array_y_higher ) < glob_small_float glob_small_float) 1, m or (omniabs(array_y_higher ) < glob_small_float glob_small_float) 1, m - 1 or (omniabs(array_y_higher ) < glob_small_float glob_small_float)) do m 1, m - 2 array_y_higher 1, m : m - 1, if m > 10 then (rm0 : ----------------------, array_y_higher 1, m - 1 array_y_higher 1, m - 1 rm1 : ----------------------, hdrc : convfloat(m) rm0 - convfloat(m - 1) rm1, array_y_higher 1, m - 2 if omniabs(hdrc) > glob_small_float glob_small_float glob_h then (rcs : ------, ord_no : hdrc rm1 convfloat((m - 2) (m - 2)) - rm0 convfloat(m - 3) -----------------------------------------------------, hdrc array_real_pole : rcs, array_real_pole : ord_no) 1, 1 1, 2 else (array_real_pole : glob_large_float, 1, 1 array_real_pole : glob_large_float)) 1, 2 else (array_real_pole : glob_large_float, 1, 1 array_real_pole : glob_large_float), n : - 1 - 1 + glob_max_terms, 1, 2 cnt : 0, while (cnt < 5) and (n >= 10) do (if omniabs(array_y_higher ) > 1, n glob_small_float then cnt : 1 + cnt else cnt : 0, n : n - 1), m : cnt + n, if m <= 10 then (rad_c : glob_large_float, ord_no : glob_large_float) elseif ((omniabs(array_y_higher ) >= glob_large_float) 1, m or (omniabs(array_y_higher ) >= glob_large_float) 1, m - 1 or (omniabs(array_y_higher ) >= glob_large_float) 1, m - 2 or (omniabs(array_y_higher ) >= glob_large_float) 1, m - 3 or (omniabs(array_y_higher ) >= glob_large_float) 1, m - 4 or (omniabs(array_y_higher ) >= glob_large_float)) 1, m - 5 or ((omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float) or (omniabs(array_y_higher ) <= glob_small_float)) 1, m 1, m - 1 1, m - 2 1, m - 3 1, m - 4 1, m - 5 then (rad_c : glob_large_float, ord_no : glob_large_float) array_y_higher array_y_higher 1, m 1, m - 1 else (rm0 : ----------------------, rm1 : ----------------------, array_y_higher array_y_higher 1, m - 1 1, m - 2 array_y_higher array_y_higher 1, m - 2 1, m - 3 rm2 : ----------------------, rm3 : ----------------------, array_y_higher array_y_higher 1, m - 3 1, m - 4 array_y_higher 1, m - 4 rm4 : ----------------------, nr1 : convfloat(m - 3) rm2 array_y_higher 1, m - 5 - 2.0 convfloat(m - 2) rm1 + convfloat(m - 1) rm0, nr2 : convfloat(m - 4) rm3 - 2.0 convfloat(m - 3) rm2 + convfloat(m - 2) rm1, - 1.0 2.0 - 1.0 - 1.0 2.0 - 1.0 5.0 8.0 3.0 dr1 : ----- + --- + -----, dr2 : ----- + --- + -----, ds1 : --- - --- + ---, rm3 rm2 rm1 rm4 rm3 rm2 rm3 rm2 rm1 5.0 8.0 3.0 ds2 : --- - --- + ---, if (omniabs(nr1 dr2 - nr2 dr1) <= glob_small_float) rm4 rm3 rm2 or (omniabs(dr1) <= glob_small_float) then (rad_c : glob_large_float, ord_no : glob_large_float) else (if omniabs(nr1 dr2 - nr2 dr1) > dr1 dr2 - ds2 dr1 + ds1 dr2 glob_small_float then (rcs : ---------------------------, nr1 dr2 - nr2 dr1 rcs nr1 - ds1 convfloat(m) ord_no : ------------- - ------------, 2.0 dr1 2.0 if omniabs(rcs) > glob_small_float then (if rcs > 0.0 then rad_c : sqrt(rcs) omniabs(glob_h) else rad_c : glob_large_float) else (rad_c : glob_large_float, ord_no : glob_large_float)) else (rad_c : glob_large_float, ord_no : glob_large_float)), array_complex_pole : rad_c, array_complex_pole : ord_no), 1, 1 1, 2 found_sing : 0, if (1 # found_sing) and ((array_real_pole = glob_large_float) 1, 1 or (array_real_pole = glob_large_float)) 1, 2 and ((array_complex_pole # glob_large_float) and (array_complex_pole # glob_large_float)) 1, 1 1, 2 and ((array_complex_pole > 0.0) and (array_complex_pole > 0.0)) 1, 1 1, 2 then (array_poles : array_complex_pole , 1, 1 1, 1 array_poles : array_complex_pole , found_sing : 1, 1, 2 1, 2 array_type_pole : 2, if glob_display_flag 1 then (if reached_interval() then omniout_str(ALWAYS, "Complex estimate of poles used for equation 1"))), if (1 # found_sing) and ((array_real_pole # glob_large_float) 1, 1 and (array_real_pole # glob_large_float) and (array_real_pole > 0.0) 1, 2 1, 1 and (array_real_pole > - 1.0 glob_smallish_float) 1, 2 and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float) or (array_complex_pole <= 0.0) or (array_complex_pole <= 0.0))) 1, 1 1, 2 1, 1 1, 2 then (array_poles : array_real_pole , 1, 1 1, 1 array_poles : array_real_pole , found_sing : 1, array_type_pole : 1, 1, 2 1, 2 1 if glob_display_flag then (if reached_interval() then omniout_str(ALWAYS, "Real estimate of pole used for equation 1"))), if (1 # found_sing) and (((array_real_pole = glob_large_float) 1, 1 or (array_real_pole = glob_large_float)) 1, 2 and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float))) 1, 1 1, 2 then (array_poles : glob_large_float, array_poles : glob_large_float, 1, 1 1, 2 found_sing : 1, array_type_pole : 3, if reached_interval() 1 then omniout_str(ALWAYS, "NO POLE for equation 1")), if (1 # found_sing) and ((array_real_pole < array_complex_pole ) 1, 1 1, 1 and (array_real_pole > 0.0) and (array_real_pole > - 1.0 1, 1 1, 2 glob_smallish_float)) then (array_poles : array_real_pole , 1, 1 1, 1 array_poles : array_real_pole , found_sing : 1, array_type_pole : 1, 1, 2 1, 2 1 if glob_display_flag then (if reached_interval() then omniout_str(ALWAYS, "Real estimate of pole used for equation 1"))), if (1 # found_sing) and ((array_complex_pole # glob_large_float) 1, 1 and (array_complex_pole # glob_large_float) 1, 2 and (array_complex_pole > 0.0) and (array_complex_pole > 1, 1 1, 2 0.0)) then (array_poles : array_complex_pole , 1, 1 1, 1 array_poles : array_complex_pole , array_type_pole : 2, 1, 2 1, 2 1 found_sing : 1, if glob_display_flag then (if reached_interval() then omniout_str(ALWAYS, "Complex estimate of poles used for equation 1"))), if 1 # found_sing then (array_poles : glob_large_float, 1, 1 array_poles : glob_large_float, array_type_pole : 3, 1, 2 1 if reached_interval() then omniout_str(ALWAYS, "NO POLE for equation 1")), array_pole : glob_large_float, array_pole : glob_large_float, 1 2 if array_pole > array_poles then (array_pole : array_poles , 1 1, 1 1 1, 1 array_pole : array_poles ), if array_pole glob_ratio_of_radius < 2 1, 2 1 omniabs(glob_h) then (h_new : array_pole glob_ratio_of_radius, term : 1, 1 ratio : 1.0, while term <= glob_max_terms do (array_y : term array_y ratio, array_y_higher : array_y_higher ratio, term 1, term 1, term ratio h_new array_x : array_x ratio, ratio : ---------------, term : 1 + term), term term omniabs(glob_h) glob_h : h_new), if reached_interval() then display_pole()) (%i11) get_norms() := block([iii], if not glob_initial_pass then (iii : 1, while iii <= glob_max_terms do (array_norms : 0.0, iii iii : 1 + iii), iii : 1, while iii <= glob_max_terms do (if omniabs(array_y ) > array_norms iii iii then array_norms : omniabs(array_y ), iii : 1 + iii))) iii iii (%o11) get_norms() := block([iii], if not glob_initial_pass then (iii : 1, while iii <= glob_max_terms do (array_norms : 0.0, iii iii : 1 + iii), iii : 1, while iii <= glob_max_terms do (if omniabs(array_y ) > array_norms iii iii then array_norms : omniabs(array_y ), iii : 1 + iii))) iii iii (%i12) atomall() := block([kkk, order_d, adj2, adj3, temporary, term, temp, temp2], array_tmp1 : array_y + array_const_0D0 , 1 1 1 if not array_y_set_initial then (if 1 <= glob_max_terms 1, 2 then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(0, 1), 1 array_y : temporary, array_y_higher : temporary, 2 1, 2 temporary 1.0 temporary : -------------, array_y_higher : temporary, 0)), kkk : 2, glob_h 2, 1 array_tmp1 : array_y , if not array_y_set_initial 2 2 1, 3 then (if 2 <= glob_max_terms then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(1, 2), array_y : temporary, 2 3 temporary 2.0 array_y_higher : temporary, temporary : -------------, 1, 3 glob_h array_y_higher : temporary, 0)), kkk : 3, array_tmp1 : array_y , 2, 2 3 3 if not array_y_set_initial then (if 3 <= glob_max_terms 1, 4 then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(2, 3), 3 array_y : temporary, array_y_higher : temporary, 4 1, 4 temporary 3.0 temporary : -------------, array_y_higher : temporary, 0)), kkk : 4, glob_h 2, 3 array_tmp1 : array_y , if not array_y_set_initial 4 4 1, 5 then (if 4 <= glob_max_terms then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(3, 4), array_y : temporary, 4 5 temporary 4.0 array_y_higher : temporary, temporary : -------------, 1, 5 glob_h array_y_higher : temporary, 0)), kkk : 5, array_tmp1 : array_y , 2, 4 5 5 if not array_y_set_initial then (if 5 <= glob_max_terms 1, 6 then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(4, 5), 5 array_y : temporary, array_y_higher : temporary, 6 1, 6 temporary 5.0 temporary : -------------, array_y_higher : temporary, 0)), kkk : 6, glob_h 2, 5 while kkk <= glob_max_terms do (array_tmp1 : array_y , order_d : 1, kkk kkk if 1 + order_d + kkk <= glob_max_terms then (if not array_y_set_initial 1, order_d + kkk then (temporary : array_tmp1 expt(glob_h, order_d) kkk factorial_3(kkk - 1, - 1 + order_d + kkk), array_y : temporary, order_d + kkk array_y_higher : temporary, term : - 1 + order_d + kkk, 1, order_d + kkk adj2 : - 1 + order_d + kkk, adj3 : 2, while term >= 1 do (if adj3 <= 1 + order_d then (if adj2 > 0 temporary convfp(adj2) then temporary : ---------------------- else temporary : temporary, glob_h array_y_higher : temporary), term : term - 1, adj2 : adj2 - 1, adj3, term adj3 : 1 + adj3))), kkk : 1 + kkk)) (%o12) atomall() := block([kkk, order_d, adj2, adj3, temporary, term, temp, temp2], array_tmp1 : array_y + array_const_0D0 , 1 1 1 if not array_y_set_initial then (if 1 <= glob_max_terms 1, 2 then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(0, 1), 1 array_y : temporary, array_y_higher : temporary, 2 1, 2 temporary 1.0 temporary : -------------, array_y_higher : temporary, 0)), kkk : 2, glob_h 2, 1 array_tmp1 : array_y , if not array_y_set_initial 2 2 1, 3 then (if 2 <= glob_max_terms then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(1, 2), array_y : temporary, 2 3 temporary 2.0 array_y_higher : temporary, temporary : -------------, 1, 3 glob_h array_y_higher : temporary, 0)), kkk : 3, array_tmp1 : array_y , 2, 2 3 3 if not array_y_set_initial then (if 3 <= glob_max_terms 1, 4 then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(2, 3), 3 array_y : temporary, array_y_higher : temporary, 4 1, 4 temporary 3.0 temporary : -------------, array_y_higher : temporary, 0)), kkk : 4, glob_h 2, 3 array_tmp1 : array_y , if not array_y_set_initial 4 4 1, 5 then (if 4 <= glob_max_terms then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(3, 4), array_y : temporary, 4 5 temporary 4.0 array_y_higher : temporary, temporary : -------------, 1, 5 glob_h array_y_higher : temporary, 0)), kkk : 5, array_tmp1 : array_y , 2, 4 5 5 if not array_y_set_initial then (if 5 <= glob_max_terms 1, 6 then (temporary : array_tmp1 expt(glob_h, 1) factorial_3(4, 5), 5 array_y : temporary, array_y_higher : temporary, 6 1, 6 temporary 5.0 temporary : -------------, array_y_higher : temporary, 0)), kkk : 6, glob_h 2, 5 while kkk <= glob_max_terms do (array_tmp1 : array_y , order_d : 1, kkk kkk if 1 + order_d + kkk <= glob_max_terms then (if not array_y_set_initial 1, order_d + kkk then (temporary : array_tmp1 expt(glob_h, order_d) kkk factorial_3(kkk - 1, - 1 + order_d + kkk), array_y : temporary, order_d + kkk array_y_higher : temporary, term : - 1 + order_d + kkk, 1, order_d + kkk adj2 : - 1 + order_d + kkk, adj3 : 2, while term >= 1 do (if adj3 <= 1 + order_d then (if adj2 > 0 temporary convfp(adj2) then temporary : ---------------------- else temporary : temporary, glob_h array_y_higher : temporary), term : term - 1, adj2 : adj2 - 1, adj3, term adj3 : 1 + adj3))), kkk : 1 + kkk)) log(x) (%i13) log10(x) := --------- log(10.0) log(x) (%o13) log10(x) := --------- log(10.0) (%i14) omniout_str(iolevel, str) := if glob_iolevel >= iolevel then printf(true, "~a~%", string(str)) (%o14) omniout_str(iolevel, str) := if glob_iolevel >= iolevel then printf(true, "~a~%", string(str)) (%i15) omniout_str_noeol(iolevel, str) := if glob_iolevel >= iolevel then printf(true, "~a", string(str)) (%o15) omniout_str_noeol(iolevel, str) := if glob_iolevel >= iolevel then printf(true, "~a", string(str)) (%i16) omniout_labstr(iolevel, label, str) := if glob_iolevel >= iolevel then printf(true, "~a = ~a~%", string(label), string(str)) (%o16) omniout_labstr(iolevel, label, str) := if glob_iolevel >= iolevel then printf(true, "~a = ~a~%", string(label), string(str)) (%i17) omniout_float(iolevel, prelabel, prelen, value, vallen, postlabel) := if glob_iolevel >= iolevel then (if vallen = 4 then printf(true, "~a = ~g ~s ~%", prelabel, value, postlabel) else printf(true, "~a = ~g ~s ~%", prelabel, value, postlabel)) (%o17) omniout_float(iolevel, prelabel, prelen, value, vallen, postlabel) := if glob_iolevel >= iolevel then (if vallen = 4 then printf(true, "~a = ~g ~s ~%", prelabel, value, postlabel) else printf(true, "~a = ~g ~s ~%", prelabel, value, postlabel)) (%i18) omniout_int(iolevel, prelabel, prelen, value, vallen, postlabel) := if glob_iolevel >= iolevel then (printf(true, "~a = ~d ~a~%", prelabel, value, postlabel), newline()) (%o18) omniout_int(iolevel, prelabel, prelen, value, vallen, postlabel) := if glob_iolevel >= iolevel then (printf(true, "~a = ~d ~a~%", prelabel, value, postlabel), newline()) (%i19) omniout_float_arr(iolevel, prelabel, elemnt, prelen, value, vallen, postlabel) := if glob_iolevel >= iolevel then (sprint(prelabel, "[", elemnt, "]=", value, postlabel), newline()) (%o19) omniout_float_arr(iolevel, prelabel, elemnt, prelen, value, vallen, postlabel) := if glob_iolevel >= iolevel then (sprint(prelabel, "[", elemnt, "]=", value, postlabel), newline()) (%i20) dump_series(iolevel, dump_label, series_name, arr_series, numb) := block([i], if glob_iolevel >= iolevel then (i : 1, while i <= numb do (sprint(dump_label, series_name, "i = ", i, "series = ", array_series ), newline(), i : 1 + i))) i (%o20) dump_series(iolevel, dump_label, series_name, arr_series, numb) := block([i], if glob_iolevel >= iolevel then (i : 1, while i <= numb do (sprint(dump_label, series_name, "i = ", i, "series = ", array_series ), newline(), i : 1 + i))) i (%i21) dump_series_2(iolevel, dump_label, series_name2, arr_series2, numb, subnum, arr_x) := (array_series2, numb, subnum) := block([i, sub, ts_term], if glob_iolevel >= iolevel then (sub : 1, while sub <= subnum do (i : 1, while i <= num do (sprint(dump_label, series_name, "sub = ", sub, "i = ", i, "series2 = ", array_series2 ), i : 1 + i), sub : 1 + sub))) sub, i (%o21) dump_series_2(iolevel, dump_label, series_name2, arr_series2, numb, subnum, arr_x) := (array_series2, numb, subnum) := block([i, sub, ts_term], if glob_iolevel >= iolevel then (sub : 1, while sub <= subnum do (i : 1, while i <= num do (sprint(dump_label, series_name, "sub = ", sub, "i = ", i, "series2 = ", array_series2 ), i : 1 + i), sub : 1 + sub))) sub, i (%i22) cs_info(iolevel, str) := if glob_iolevel >= iolevel then sprint(concat("cs_info ", str, " glob_correct_start_flag = ", glob_correct_start_flag, "glob_h := ", glob_h, "glob_reached_optimal_h := ", glob_reached_optimal_h)) (%o22) cs_info(iolevel, str) := if glob_iolevel >= iolevel then sprint(concat("cs_info ", str, " glob_correct_start_flag = ", glob_correct_start_flag, "glob_h := ", glob_h, "glob_reached_optimal_h := ", glob_reached_optimal_h)) (%i23) logitem_time(fd, secs_in) := block([days, days_int, hours, hours_int, minutes, minutes_int, sec_int, seconds, secs, years, years_int], secs : convfloat(secs_in), printf(fd, "~%"), secs if secs >= 0 then (years_int : trunc(----------------), glob_sec_in_year sec_temp : mod(trunc(secs), trunc(glob_sec_in_year)), sec_temp days_int : trunc(---------------), sec_temp : glob_sec_in_day sec_temp mod(sec_temp, trunc(glob_sec_in_day)), hours_int : trunc(----------------), glob_sec_in_hour sec_temp : mod(sec_temp, trunc(glob_sec_in_hour)), sec_temp minutes_int : trunc(------------------), glob_sec_in_minute sec_int : mod(sec_temp, trunc(glob_sec_in_minute)), if years_int > 0 then printf(fd, "= ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds~%", years_int, days_int, hours_int, minutes_int, sec_int) elseif days_int > 0 then printf(fd, "= ~d Days ~d Hours ~d Minutes ~d Seconds~%", days_int, hours_int, minutes_int, sec_int) elseif hours_int > 0 then printf(fd, "= ~d Hours ~d Minutes ~d Seconds~%", hours_int, minutes_int, sec_int) elseif minutes_int > 0 then printf(fd, "= ~d Minutes ~d Seconds~%", minutes_int, sec_int) else printf(fd, "= ~d Seconds~%", sec_int)) else printf(fd, " Unknown~%"), printf(fd, "~%")) (%o23) logitem_time(fd, secs_in) := block([days, days_int, hours, hours_int, minutes, minutes_int, sec_int, seconds, secs, years, years_int], secs : convfloat(secs_in), printf(fd, "~%"), secs if secs >= 0 then (years_int : trunc(----------------), glob_sec_in_year sec_temp : mod(trunc(secs), trunc(glob_sec_in_year)), sec_temp days_int : trunc(---------------), sec_temp : glob_sec_in_day sec_temp mod(sec_temp, trunc(glob_sec_in_day)), hours_int : trunc(----------------), glob_sec_in_hour sec_temp : mod(sec_temp, trunc(glob_sec_in_hour)), sec_temp minutes_int : trunc(------------------), glob_sec_in_minute sec_int : mod(sec_temp, trunc(glob_sec_in_minute)), if years_int > 0 then printf(fd, "= ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds~%", years_int, days_int, hours_int, minutes_int, sec_int) elseif days_int > 0 then printf(fd, "= ~d Days ~d Hours ~d Minutes ~d Seconds~%", days_int, hours_int, minutes_int, sec_int) elseif hours_int > 0 then printf(fd, "= ~d Hours ~d Minutes ~d Seconds~%", hours_int, minutes_int, sec_int) elseif minutes_int > 0 then printf(fd, "= ~d Minutes ~d Seconds~%", minutes_int, sec_int) else printf(fd, "= ~d Seconds~%", sec_int)) else printf(fd, " Unknown~%"), printf(fd, "~%")) (%i24) omniout_timestr(secs_in) := block([days, days_int, hours, hours_int, minutes, minutes_int, sec_int, seconds, secs, years, years_int], secs : convfloat(secs_in), if secs >= 0 secs then (years_int : trunc(----------------), glob_sec_in_year sec_temp : mod(trunc(secs), trunc(glob_sec_in_year)), sec_temp days_int : trunc(---------------), sec_temp : glob_sec_in_day sec_temp mod(sec_temp, trunc(glob_sec_in_day)), hours_int : trunc(----------------), glob_sec_in_hour sec_temp : mod(sec_temp, trunc(glob_sec_in_hour)), sec_temp minutes_int : trunc(------------------), glob_sec_in_minute sec_int : mod(sec_temp, trunc(glob_sec_in_minute)), if years_int > 0 then printf(true, "= ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds~%", years_int, days_int, hours_int, minutes_int, sec_int) elseif days_int > 0 then printf(true, "= ~d Days ~d Hours ~d Minutes ~d Seconds~%", days_int, hours_int, minutes_int, sec_int) elseif hours_int > 0 then printf(true, "= ~d Hours ~d Minutes ~d Seconds~%", hours_int, minutes_int, sec_int) elseif minutes_int > 0 then printf(true, "= ~d Minutes ~d Seconds~%", minutes_int, sec_int) else printf(true, "= ~d Seconds~%", sec_int)) else printf(true, " Unknown~%")) (%o24) omniout_timestr(secs_in) := block([days, days_int, hours, hours_int, minutes, minutes_int, sec_int, seconds, secs, years, years_int], secs : convfloat(secs_in), if secs >= 0 secs then (years_int : trunc(----------------), glob_sec_in_year sec_temp : mod(trunc(secs), trunc(glob_sec_in_year)), sec_temp days_int : trunc(---------------), sec_temp : glob_sec_in_day sec_temp mod(sec_temp, trunc(glob_sec_in_day)), hours_int : trunc(----------------), glob_sec_in_hour sec_temp : mod(sec_temp, trunc(glob_sec_in_hour)), sec_temp minutes_int : trunc(------------------), glob_sec_in_minute sec_int : mod(sec_temp, trunc(glob_sec_in_minute)), if years_int > 0 then printf(true, "= ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds~%", years_int, days_int, hours_int, minutes_int, sec_int) elseif days_int > 0 then printf(true, "= ~d Days ~d Hours ~d Minutes ~d Seconds~%", days_int, hours_int, minutes_int, sec_int) elseif hours_int > 0 then printf(true, "= ~d Hours ~d Minutes ~d Seconds~%", hours_int, minutes_int, sec_int) elseif minutes_int > 0 then printf(true, "= ~d Minutes ~d Seconds~%", minutes_int, sec_int) else printf(true, "= ~d Seconds~%", sec_int)) else printf(true, " Unknown~%")) (%i25) ats(mmm_ats, arr_a, arr_b, jjj_ats) := block([iii_ats, lll_ats, ma_ats, ret_ats], ret_ats : 0.0, if jjj_ats <= mmm_ats then (ma_ats : 1 + mmm_ats, iii_ats : jjj_ats, while iii_ats <= mmm_ats do (lll_ats : ma_ats - iii_ats, ret_ats : arr_a arr_b + ret_ats, iii_ats : 1 + iii_ats)), iii_ats lll_ats ret_ats) (%o25) ats(mmm_ats, arr_a, arr_b, jjj_ats) := block([iii_ats, lll_ats, ma_ats, ret_ats], ret_ats : 0.0, if jjj_ats <= mmm_ats then (ma_ats : 1 + mmm_ats, iii_ats : jjj_ats, while iii_ats <= mmm_ats do (lll_ats : ma_ats - iii_ats, ret_ats : arr_a arr_b + ret_ats, iii_ats : 1 + iii_ats)), iii_ats lll_ats ret_ats) (%i26) att(mmm_att, arr_aa, arr_bb, jjj_att) := block([al_att, iii_att, lll_att, ma_att, ret_att], ret_att : 0.0, if jjj_att <= mmm_att then (ma_att : 2 + mmm_att, 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 : arr_aa arr_bb convfp(al_att) + ret_att, iii_att lll_att ret_att iii_att : 1 + iii_att), ret_att : ---------------), ret_att) convfp(mmm_att) (%o26) att(mmm_att, arr_aa, arr_bb, jjj_att) := block([al_att, iii_att, lll_att, ma_att, ret_att], ret_att : 0.0, if jjj_att <= mmm_att then (ma_att : 2 + mmm_att, 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 : arr_aa arr_bb convfp(al_att) + ret_att, iii_att lll_att ret_att iii_att : 1 + iii_att), ret_att : ---------------), ret_att) convfp(mmm_att) (%i27) display_pole_debug(typ, radius, order2) := (if typ = 1 then omniout_str(ALWAYS, "Real") else omniout_str(ALWAYS, "Complex"), omniout_float(ALWAYS, "DBG Radius of convergence ", 4, radius, 4, " "), omniout_float(ALWAYS, "DBG Order of pole ", 4, order2, 4, " ")) (%o27) display_pole_debug(typ, radius, order2) := (if typ = 1 then omniout_str(ALWAYS, "Real") else omniout_str(ALWAYS, "Complex"), omniout_float(ALWAYS, "DBG Radius of convergence ", 4, radius, 4, " "), omniout_float(ALWAYS, "DBG Order of pole ", 4, order2, 4, " ")) (%i28) display_pole() := if (array_pole # glob_large_float) 1 and (array_pole > 0.0) and (array_pole # glob_large_float) 1 2 and (array_pole > 0.0) and glob_display_flag 2 then (omniout_float(ALWAYS, "Radius of convergence ", 4, array_pole , 4, " "), omniout_float(ALWAYS, 1 "Order of pole ", 4, array_pole , 4, " ")) 2 (%o28) display_pole() := if (array_pole # glob_large_float) 1 and (array_pole > 0.0) and (array_pole # glob_large_float) 1 2 and (array_pole > 0.0) and glob_display_flag 2 then (omniout_float(ALWAYS, "Radius of convergence ", 4, array_pole , 4, " "), omniout_float(ALWAYS, 1 "Order of pole ", 4, array_pole , 4, " ")) 2 (%i29) logditto(file) := (printf(file, ""), printf(file, "ditto"), printf(file, "")) (%o29) logditto(file) := (printf(file, ""), printf(file, "ditto"), printf(file, "")) (%i30) logitem_integer(file, n) := (printf(file, ""), printf(file, "~d", n), printf(file, "")) (%o30) logitem_integer(file, n) := (printf(file, ""), printf(file, "~d", n), printf(file, "")) (%i31) logitem_str(file, str) := (printf(file, ""), printf(file, str), printf(file, "")) (%o31) logitem_str(file, str) := (printf(file, ""), printf(file, str), printf(file, "")) (%i32) logitem_good_digits(file, rel_error) := block([good_digits], printf(file, ""), if rel_error # - 1.0 then (if rel_error > + 1.0E-34 then (good_digits : 1 - floor(log10(rel_error)), printf(file, "~d", good_digits)) else (good_digits : 16, printf(file, "~d", good_digits))) else printf(file, "Unknown"), printf(file, "")) (%o32) logitem_good_digits(file, rel_error) := block([good_digits], printf(file, ""), if rel_error # - 1.0 then (if rel_error > + 1.0E-34 then (good_digits : 1 - floor(log10(rel_error)), printf(file, "~d", good_digits)) else (good_digits : 16, printf(file, "~d", good_digits))) else printf(file, "Unknown"), printf(file, "")) (%i33) log_revs(file, revs) := printf(file, revs) (%o33) log_revs(file, revs) := printf(file, revs) (%i34) logitem_float(file, x) := (printf(file, ""), printf(file, "~g", x), printf(file, "")) (%o34) logitem_float(file, x) := (printf(file, ""), printf(file, "~g", x), printf(file, "")) (%i35) logitem_pole(file, pole) := (printf(file, ""), if pole = 0 then printf(file, "NA") elseif pole = 1 then printf(file, "Real") elseif pole = 2 then printf(file, "Complex") else printf(file, "No Pole"), printf(file, "")) (%o35) logitem_pole(file, pole) := (printf(file, ""), if pole = 0 then printf(file, "NA") elseif pole = 1 then printf(file, "Real") elseif pole = 2 then printf(file, "Complex") else printf(file, "No Pole"), printf(file, "")) (%i36) logstart(file) := printf(file, "") (%o36) logstart(file) := printf(file, "") (%i37) logend(file) := printf(file, "~%") (%o37) logend(file) := printf(file, "~%") (%i38) chk_data() := block([errflag], errflag : false, if (glob_max_terms < 15) or (glob_max_terms > 512) then (omniout_str(ALWAYS, "Illegal max_terms = -- Using 30"), glob_max_terms : 30), if glob_max_iter < 2 then (omniout_str(ALWAYS, "Illegal max_iter"), errflag : true), if errflag then quit()) (%o38) chk_data() := block([errflag], errflag : false, if (glob_max_terms < 15) or (glob_max_terms > 512) then (omniout_str(ALWAYS, "Illegal max_terms = -- Using 30"), glob_max_terms : 30), if glob_max_iter < 2 then (omniout_str(ALWAYS, "Illegal max_iter"), errflag : true), if errflag then quit()) (%i39) comp_expect_sec(t_end2, t_start2, t2, clock_sec2) := block([ms2, rrr, sec_left, sub1, sub2], ms2 : clock_sec2, sub1 : t_end2 - t_start2, sub2 : t2 - t_start2, if sub1 = 0.0 then sec_left : 0.0 else (if sub2 > 0.0 sub1 then (rrr : ----, sec_left : rrr ms2 - ms2) else sec_left : 0.0), sec_left) sub2 (%o39) comp_expect_sec(t_end2, t_start2, t2, clock_sec2) := block([ms2, rrr, sec_left, sub1, sub2], ms2 : clock_sec2, sub1 : t_end2 - t_start2, sub2 : t2 - t_start2, if sub1 = 0.0 then sec_left : 0.0 else (if sub2 > 0.0 sub1 then (rrr : ----, sec_left : rrr ms2 - ms2) else sec_left : 0.0), sec_left) sub2 (%i40) comp_percent(t_end2, t_start2, t2) := block([rrr, sub1, sub2], sub1 : t_end2 - t_start2, sub2 : t2 - t_start2, 100.0 sub2 if sub2 > glob_small_float then rrr : ---------- else rrr : 0.0, rrr) sub1 (%o40) comp_percent(t_end2, t_start2, t2) := block([rrr, sub1, sub2], sub1 : t_end2 - t_start2, sub2 : t2 - t_start2, 100.0 sub2 if sub2 > glob_small_float then rrr : ---------- else rrr : 0.0, rrr) sub1 (%i41) factorial_2(nnn) := nnn! (%o41) factorial_2(nnn) := nnn! (%i42) factorial_1(nnn) := block([ret], if nnn <= glob_max_terms then (if array_fact_1 = 0 nnn then (ret : factorial_2(nnn), array_fact_1 : ret) nnn else ret : array_fact_1 ) else ret : factorial_2(nnn), ret) nnn (%o42) factorial_1(nnn) := block([ret], if nnn <= glob_max_terms then (if array_fact_1 = 0 nnn then (ret : factorial_2(nnn), array_fact_1 : ret) nnn else ret : array_fact_1 ) else ret : factorial_2(nnn), ret) nnn (%i43) factorial_3(mmm, nnn) := block([ret], if (nnn <= glob_max_terms) and (mmm <= glob_max_terms) factorial_1(mmm) then (if array_fact_2 = 0 then (ret : ----------------, mmm, nnn factorial_1(nnn) array_fact_2 : ret) else ret : array_fact_2 ) mmm, nnn mmm, nnn factorial_2(mmm) else ret : ----------------, ret) factorial_2(nnn) (%o43) factorial_3(mmm, nnn) := block([ret], if (nnn <= glob_max_terms) and (mmm <= glob_max_terms) factorial_1(mmm) then (if array_fact_2 = 0 then (ret : ----------------, mmm, nnn factorial_1(nnn) array_fact_2 : ret) else ret : array_fact_2 ) mmm, nnn mmm, nnn factorial_2(mmm) else ret : ----------------, ret) factorial_2(nnn) (%i44) convfp(mmm) := mmm (%o44) convfp(mmm) := mmm (%i45) convfloat(mmm) := mmm (%o45) convfloat(mmm) := mmm (%i46) elapsed_time_seconds() := block([t], t : elapsed_real_time(), t) (%o46) elapsed_time_seconds() := block([t], t : elapsed_real_time(), t) (%i47) Si(x) := 0.0 (%o47) Si(x) := 0.0 (%i48) Ci(x) := 0.0 (%o48) Ci(x) := 0.0 (%i49) ln(x) := log(x) (%o49) ln(x) := log(x) (%i50) arcsin(x) := asin(x) (%o50) arcsin(x) := asin(x) (%i51) arccos(x) := acos(x) (%o51) arccos(x) := acos(x) (%i52) arctan(x) := atan(x) (%o52) arctan(x) := atan(x) (%i53) omniabs(x) := abs(x) (%o53) omniabs(x) := abs(x) (%i54) expt(x, y) := (if (x = 0.0) and (y < 0.0) y then print("expt error x = ", x, "y = ", y), x ) (%o54) expt(x, y) := (if (x = 0.0) and (y < 0.0) y then print("expt error x = ", x, "y = ", y), x ) (%i55) estimated_needed_step_error(x_start, x_end, estimated_h, estimated_answer) := block([desired_abs_gbl_error, range, estimated_steps, step_error], 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, range ""), estimated_steps : -----------, omniout_float(ALWAYS, "estimated_steps", estimated_h desired_abs_gbl_error 32, estimated_steps, 32, ""), step_error : omniabs(---------------------), estimated_steps omniout_float(ALWAYS, "step_error", 32, step_error, 32, ""), step_error) (%o55) estimated_needed_step_error(x_start, x_end, estimated_h, estimated_answer) := block([desired_abs_gbl_error, range, estimated_steps, step_error], 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, range ""), estimated_steps : -----------, omniout_float(ALWAYS, "estimated_steps", estimated_h desired_abs_gbl_error 32, estimated_steps, 32, ""), step_error : omniabs(---------------------), estimated_steps omniout_float(ALWAYS, "step_error", 32, step_error, 32, ""), step_error) (%i56) exact_soln_y(x) := block(exp(x)) (%o56) exact_soln_y(x) := block(exp(x)) (%i57) main() := block([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, value3, min_value, est_answer, best_h, found_h, repeat_it], define_variable(glob_max_terms, 30, fixnum), define_variable(glob_iolevel, 5, fixnum), define_variable(ALWAYS, 1, fixnum), define_variable(INFO, 2, fixnum), define_variable(DEBUGL, 3, fixnum), define_variable(DEBUGMASSIVE, 4, fixnum), define_variable(MAX_UNCHANGED, 10, fixnum), define_variable(glob_check_sign, 1.0, float), define_variable(glob_desired_digits_correct, 8.0, float), define_variable(glob_max_value3, 0.0, float), define_variable(glob_ratio_of_radius, 0.01, float), define_variable(glob_percent_done, 0.0, float), define_variable(glob_subiter_method, 3, fixnum), define_variable(glob_total_exp_sec, 0.1, float), define_variable(glob_optimal_expect_sec, 0.1, float), define_variable(glob_html_log, true, boolean), define_variable(glob_good_digits, 0, fixnum), define_variable(glob_max_opt_iter, 10, fixnum), define_variable(glob_dump, false, boolean), define_variable(glob_djd_debug, true, boolean), define_variable(glob_display_flag, true, boolean), define_variable(glob_djd_debug2, true, boolean), define_variable(glob_sec_in_minute, 60, fixnum), define_variable(glob_min_in_hour, 60, fixnum), define_variable(glob_hours_in_day, 24, fixnum), define_variable(glob_days_in_year, 365, fixnum), define_variable(glob_sec_in_hour, 3600, fixnum), define_variable(glob_sec_in_day, 86400, fixnum), define_variable(glob_sec_in_year, 31536000, fixnum), define_variable(glob_almost_1, 0.999, float), define_variable(glob_clock_sec, 0.0, float), define_variable(glob_clock_start_sec, 0.0, float), define_variable(glob_not_yet_finished, true, boolean), define_variable(glob_initial_pass, true, boolean), define_variable(glob_not_yet_start_msg, true, boolean), define_variable(glob_reached_optimal_h, false, boolean), define_variable(glob_optimal_done, false, boolean), define_variable(glob_disp_incr, 0.1, float), define_variable(glob_h, 0.1, float), define_variable(glob_max_h, 0.1, float), define_variable(glob_large_float, 9.0E+100, float), define_variable(glob_last_good_h, 0.1, float), define_variable(glob_look_poles, false, boolean), define_variable(glob_neg_h, false, boolean), define_variable(glob_display_interval, 0.0, float), define_variable(glob_next_display, 0.0, float), define_variable(glob_dump_analytic, false, boolean), define_variable(glob_abserr, 1.0E-11, float), define_variable(glob_relerr, 1.0E-11, float), define_variable(glob_max_hours, 0.0, float), define_variable(glob_max_iter, 1000, fixnum), define_variable(glob_max_rel_trunc_err, 1.0E-11, float), define_variable(glob_max_trunc_err, 1.0E-11, float), define_variable(glob_no_eqs, 0, fixnum), define_variable(glob_optimal_clock_start_sec, 0.0, float), define_variable(glob_optimal_start, 0.0, float), define_variable(glob_small_float, 1.0E-201, float), define_variable(glob_smallish_float, 1.0E-101, float), define_variable(glob_unchanged_h_cnt, 0, fixnum), define_variable(glob_warned, false, boolean), define_variable(glob_warned2, false, boolean), define_variable(glob_max_sec, 10000.0, float), define_variable(glob_orig_start_sec, 0.0, float), define_variable(glob_start, 0, fixnum), define_variable(glob_curr_iter_when_opt, 0, fixnum), define_variable(glob_current_iter, 0, fixnum), define_variable(glob_iter, 0, fixnum), define_variable(glob_normmax, 0.0, float), define_variable(glob_max_minutes, 0.0, float), ALWAYS : 1, INFO : 2, DEBUGL : 3, DEBUGMASSIVE : 4, glob_iolevel : INFO, 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/diff0postode.ode#################"), omniout_str(ALWAYS, "diff ( y , x , 1 ) = y;"), 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:-5.0,"), 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:false,"), omniout_str(ALWAYS, "glob_max_iter:1000000,"), omniout_str(ALWAYS, "glob_display_interval:0.1,"), omniout_str(ALWAYS, "glob_max_minutes:10,"), 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.001,"), 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 (x) := (block("), omniout_str(ALWAYS, " (exp(x)) "), omniout_str(ALWAYS, "));"), omniout_str(ALWAYS, ""), 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 : 1.0E-200, glob_smallish_float : 1.0E-64, glob_large_float : 1.0E+100, glob_almost_1 : 0.99, Digits : 32, max_terms : 30, glob_max_terms : max_terms, glob_html_log : true, array(array_y_init, 1 + max_terms), array(array_norms, 1 + max_terms), array(array_fact_1, 1 + max_terms), array(array_pole, 1 + max_terms), array(array_1st_rel_error, 1 + max_terms), array(array_last_rel_error, 1 + max_terms), array(array_type_pole, 1 + max_terms), array(array_y, 1 + max_terms), array(array_x, 1 + max_terms), array(array_tmp0, 1 + max_terms), array(array_tmp1, 1 + max_terms), array(array_m1, 1 + max_terms), array(array_y_higher, 1 + 2, 1 + max_terms), array(array_y_higher_work, 1 + 2, 1 + max_terms), array(array_y_higher_work2, 1 + 2, 1 + max_terms), array(array_y_set_initial, 1 + 2, 1 + max_terms), array(array_poles, 1 + 1, 1 + 3), array(array_real_pole, 1 + 1, 1 + 3), array(array_complex_pole, 1 + 1, 1 + 3), array(array_fact_2, 1 + max_terms, 1 + max_terms), term : 1, while term <= max_terms do (array_y_init : 0.0, term : 1 + term), term term : 1, while term <= max_terms do (array_norms : 0.0, term term : 1 + term), term : 1, while term <= max_terms do (array_fact_1 : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_pole : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_1st_rel_error : 0.0, term : 1 + term), term term : 1, while term <= max_terms do (array_last_rel_error : 0.0, term term : 1 + term), term : 1, while term <= max_terms do (array_type_pole : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_y : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_x : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_tmp0 : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_tmp1 : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_m1 : 0.0, term : 1 + term), ord : 1, term while ord <= 2 do (term : 1, while term <= max_terms do (array_y_higher : 0.0, term : 1 + term), ord : 1 + ord), ord, term ord : 1, while ord <= 2 do (term : 1, while term <= max_terms do (array_y_higher_work : 0.0, ord, term term : 1 + term), ord : 1 + ord), ord : 1, while ord <= 2 do (term : 1, while term <= max_terms do (array_y_higher_work2 : 0.0, term : 1 + term), ord, term ord : 1 + ord), ord : 1, while ord <= 2 do (term : 1, while term <= max_terms do (array_y_set_initial : 0.0, ord, term term : 1 + term), ord : 1 + ord), ord : 1, while ord <= 1 do (term : 1, while term <= 3 do (array_poles : 0.0, ord, term term : 1 + term), ord : 1 + ord), ord : 1, while ord <= 1 do (term : 1, while term <= 3 do (array_real_pole : 0.0, term : 1 + term), ord : 1 + ord), ord, term ord : 1, while ord <= 1 do (term : 1, while term <= 3 do (array_complex_pole : 0.0, term : 1 + term), ord, term ord : 1 + ord), ord : 1, while ord <= max_terms do (term : 1, while term <= max_terms do (array_fact_2 : 0.0, term : 1 + term), ord, term ord : 1 + ord), array(array_y, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_y : 0.0, term : 1 + term), term array(array_x, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_x : 0.0, term : 1 + term), term array(array_tmp0, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_tmp0 : 0.0, term : 1 + term), term array(array_tmp1, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_tmp1 : 0.0, term : 1 + term), term array(array_m1, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_m1 : 0.0, term : 1 + term), term array(array_const_1, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_const_1 : 0.0, term : 1 + term), term array_const_1 : 1, array(array_const_0D0, 1 + 1 + max_terms), term : 1, 1 while term <= 1 + max_terms do (array_const_0D0 : 0.0, term : 1 + term), term array_const_0D0 : 0.0, array(array_m1, 1 + 1 + max_terms), term : 1, 1 while term <= max_terms do (array_m1 : 0.0, term : 1 + term), term array_m1 : - 1.0, iiif : 0, while iiif <= glob_max_terms do (jjjf : 0, 1 while jjjf <= glob_max_terms do (array_fact_1 : 0, iiif array_fact_2 : 0, jjjf : 1 + jjjf), iiif : 1 + iiif), iiif, jjjf x_start : - 5.0, x_end : 5.0, array_y_init : exact_soln_y(x_start), 1 + 0 glob_look_poles : false, glob_max_iter : 1000000, glob_display_interval : 0.1, glob_max_minutes : 10, glob_desired_digits_correct : 10, glob_display_interval : 0.001, 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(3600.0) convfloat(glob_max_hours) + convfloat(60.0) convfloat(glob_max_minutes), if glob_h > 0.0 then (glob_neg_h : false, glob_display_interval : omniabs(glob_display_interval)) else (glob_neg_h : true, glob_display_interval : - omniabs(glob_display_interval)), chk_data(), array_y_set_initial : true, 1, 1 array_y_set_initial : false, array_y_set_initial : false, 1, 2 1, 3 array_y_set_initial : false, array_y_set_initial : false, 1, 4 1, 5 array_y_set_initial : false, array_y_set_initial : false, 1, 6 1, 7 array_y_set_initial : false, array_y_set_initial : false, 1, 8 1, 9 array_y_set_initial : false, array_y_set_initial : false, 1, 10 1, 11 array_y_set_initial : false, array_y_set_initial : false, 1, 12 1, 13 array_y_set_initial : false, array_y_set_initial : false, 1, 14 1, 15 array_y_set_initial : false, array_y_set_initial : false, 1, 16 1, 17 array_y_set_initial : false, array_y_set_initial : false, 1, 18 1, 19 array_y_set_initial : false, array_y_set_initial : false, 1, 20 1, 21 array_y_set_initial : false, array_y_set_initial : false, 1, 22 1, 23 array_y_set_initial : false, array_y_set_initial : false, 1, 24 1, 25 array_y_set_initial : false, array_y_set_initial : false, 1, 26 1, 27 array_y_set_initial : false, array_y_set_initial : false, 1, 28 1, 29 array_y_set_initial : false, omniout_str(ALWAYS, "START of Optimize"), 1, 30 glob_check_sign : check_sign(x_start, x_end), glob_h : check_sign(x_start, x_end), if glob_display_interval < glob_h then glob_h : glob_display_interval, if glob_max_h < glob_h then glob_h : glob_max_h, found_h : - 1.0, best_h : 0.0, min_value : glob_large_float, est_answer : est_size_answer(), opt_iter : 1, while (opt_iter <= 20) and (found_h < 0.0) do (omniout_int(ALWAYS, "opt_iter", 32, opt_iter, 4, ""), array_x : x_start, array_x : glob_h, 1 2 glob_next_display : x_start, order_diff : 1, term_no : 1, while term_no <= order_diff do (array_y : term_no array_y_init expt(glob_h, term_no - 1) term_no ---------------------------------------------, term_no : 1 + term_no), factorial_1(term_no - 1) rows : order_diff, r_order : 1, while r_order <= rows do (term_no : 1, while term_no <= 1 - r_order + rows do (it : - 1 + r_order + term_no, array_y_init expt(glob_h, term_no - 1) it array_y_higher : ----------------------------------------, r_order, term_no factorial_1(term_no - 1) term_no : 1 + term_no), r_order : 1 + r_order), atomall(), 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, ""), value3 : test_suggested_h(), omniout_float(ALWAYS, "value3", 32, value3, 32, ""), if (value3 < est_needed_step_err) and (found_h < 0.0) then (best_h : glob_h, found_h : 1.0), omniout_float(ALWAYS, "best_h", 32, best_h, 32, ""), opt_iter : 1 + opt_iter, glob_h : glob_h 0.5), if found_h > 0.0 then glob_h : best_h else omniout_str(ALWAYS, "No increment to obtain desired accuracy found"), if glob_html_log then html_log_file : openw("html/entry.html"), if found_h > 0.0 then (omniout_str(ALWAYS, "START of Soultion"), array_x : x_start, array_x : glob_h, glob_next_display : x_start, 1 2 order_diff : 1, term_no : 1, while term_no <= order_diff do (array_y : (array_y_init expt(glob_h, term_no - 1)) term_no term_no /factorial_1(term_no - 1), term_no : 1 + term_no), rows : order_diff, r_order : 1, while r_order <= rows do (term_no : 1, while term_no <= 1 - r_order + rows do (it : - 1 + r_order + term_no, array_y_init expt(glob_h, term_no - 1) it array_y_higher : ----------------------------------------, r_order, term_no factorial_1(term_no - 1) term_no : 1 + term_no), r_order : 1 + r_order), 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 < glob_check_sign x_end) 1 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")), glob_iter : 1 + glob_iter, glob_clock_sec : elapsed_time_seconds(), glob_current_iter : 1 + glob_current_iter, atomall(), display_alot(current_iter), if glob_look_poles then check_for_pole(), if reached_interval() then glob_next_display : glob_display_interval + glob_next_display, array_x : glob_h + array_x , 1 1 array_x : glob_h, order_diff : 2, ord : 2, calc_term : 1, 2 iii : glob_max_terms, while iii >= calc_term do (array_y_higher_work : 2, iii array_y_higher 2, iii --------------------------- expt(glob_h, calc_term - 1) -------------------------------------, iii : iii - 1), temp_sum : 0.0, factorial_3(iii - calc_term, iii - 1) ord : 2, calc_term : 1, iii : glob_max_terms, while iii >= calc_term do (temp_sum : array_y_higher_work + temp_sum, ord, iii iii : iii - 1), array_y_higher_work2 : ord, calc_term temp_sum expt(glob_h, calc_term - 1) ------------------------------------, ord : 1, calc_term : 2, factorial_1(calc_term - 1) iii : glob_max_terms, while iii >= calc_term do (array_y_higher_work : 1, iii array_y_higher 1, iii --------------------------- expt(glob_h, calc_term - 1) -------------------------------------, iii : iii - 1), temp_sum : 0.0, factorial_3(iii - calc_term, iii - 1) ord : 1, calc_term : 2, iii : glob_max_terms, while iii >= calc_term do (temp_sum : array_y_higher_work + temp_sum, ord, iii iii : iii - 1), array_y_higher_work2 : ord, calc_term temp_sum expt(glob_h, calc_term - 1) ------------------------------------, ord : 1, calc_term : 1, factorial_1(calc_term - 1) iii : glob_max_terms, while iii >= calc_term do (array_y_higher_work : 1, iii array_y_higher 1, iii --------------------------- expt(glob_h, calc_term - 1) -------------------------------------, iii : iii - 1), temp_sum : 0.0, factorial_3(iii - calc_term, iii - 1) ord : 1, calc_term : 1, iii : glob_max_terms, while iii >= calc_term do (temp_sum : array_y_higher_work + temp_sum, ord, iii iii : iii - 1), array_y_higher_work2 : ord, calc_term temp_sum expt(glob_h, calc_term - 1) ------------------------------------, term_no : glob_max_terms, factorial_1(calc_term - 1) while term_no >= 1 do (array_y : array_y_higher_work2 , term_no 1, term_no ord : 1, while ord <= order_diff do (array_y_higher : ord, term_no array_y_higher_work2 , ord : 1 + ord), term_no : term_no - 1)), ord, term_no omniout_str(ALWAYS, "Finished!"), if glob_iter >= glob_max_iter then omniout_str(ALWAYS, "Maximum Iterations Reached before Solution Completed!"), if elapsed_time_seconds() - convfloat(glob_orig_start_sec) >= convfloat(glob_max_sec) then omniout_str(ALWAYS, "Maximum Time Reached before Solution Completed!"), glob_clock_sec : elapsed_time_seconds(), omniout_str(INFO, "diff ( y , x , 1 ) = y;"), 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-01-28T12:39:40-06:00"), logitem_str(html_log_file, "Maxima"), logitem_str(html_log_file, "diff0"), logitem_str(html_log_file, "diff ( y , x , 1 ) = y;"), logitem_float(html_log_file, x_start), logitem_float(html_log_file, x_end), logitem_float(html_log_file, array_x ), logitem_float(html_log_file, glob_h), 1 logitem_str(html_log_file, "16"), logitem_good_digits(html_log_file, array_last_rel_error ), logitem_integer(html_log_file, glob_max_terms), 1 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_pole(html_log_file, array_type_pole ), 1 if (array_type_pole = 1) or (array_type_pole = 2) 1 1 then (logitem_float(html_log_file, array_pole ), 1 logitem_float(html_log_file, array_pole ), 0) 2 else (logitem_str(html_log_file, "NA"), logitem_str(html_log_file, "NA"), 0), 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), log_revs(html_log_file, " 165 "), logitem_str(html_log_file, "diff0 diffeq.max"), logitem_str(html_log_file, "diff0 maxima results" ), logitem_str(html_log_file, "All Tests - All Languages"), logend(html_log_file)), if glob_html_log then close(html_log_file))) (%o57) main() := block([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, value3, min_value, est_answer, best_h, found_h, repeat_it], define_variable(glob_max_terms, 30, fixnum), define_variable(glob_iolevel, 5, fixnum), define_variable(ALWAYS, 1, fixnum), define_variable(INFO, 2, fixnum), define_variable(DEBUGL, 3, fixnum), define_variable(DEBUGMASSIVE, 4, fixnum), define_variable(MAX_UNCHANGED, 10, fixnum), define_variable(glob_check_sign, 1.0, float), define_variable(glob_desired_digits_correct, 8.0, float), define_variable(glob_max_value3, 0.0, float), define_variable(glob_ratio_of_radius, 0.01, float), define_variable(glob_percent_done, 0.0, float), define_variable(glob_subiter_method, 3, fixnum), define_variable(glob_total_exp_sec, 0.1, float), define_variable(glob_optimal_expect_sec, 0.1, float), define_variable(glob_html_log, true, boolean), define_variable(glob_good_digits, 0, fixnum), define_variable(glob_max_opt_iter, 10, fixnum), define_variable(glob_dump, false, boolean), define_variable(glob_djd_debug, true, boolean), define_variable(glob_display_flag, true, boolean), define_variable(glob_djd_debug2, true, boolean), define_variable(glob_sec_in_minute, 60, fixnum), define_variable(glob_min_in_hour, 60, fixnum), define_variable(glob_hours_in_day, 24, fixnum), define_variable(glob_days_in_year, 365, fixnum), define_variable(glob_sec_in_hour, 3600, fixnum), define_variable(glob_sec_in_day, 86400, fixnum), define_variable(glob_sec_in_year, 31536000, fixnum), define_variable(glob_almost_1, 0.999, float), define_variable(glob_clock_sec, 0.0, float), define_variable(glob_clock_start_sec, 0.0, float), define_variable(glob_not_yet_finished, true, boolean), define_variable(glob_initial_pass, true, boolean), define_variable(glob_not_yet_start_msg, true, boolean), define_variable(glob_reached_optimal_h, false, boolean), define_variable(glob_optimal_done, false, boolean), define_variable(glob_disp_incr, 0.1, float), define_variable(glob_h, 0.1, float), define_variable(glob_max_h, 0.1, float), define_variable(glob_large_float, 9.0E+100, float), define_variable(glob_last_good_h, 0.1, float), define_variable(glob_look_poles, false, boolean), define_variable(glob_neg_h, false, boolean), define_variable(glob_display_interval, 0.0, float), define_variable(glob_next_display, 0.0, float), define_variable(glob_dump_analytic, false, boolean), define_variable(glob_abserr, 1.0E-11, float), define_variable(glob_relerr, 1.0E-11, float), define_variable(glob_max_hours, 0.0, float), define_variable(glob_max_iter, 1000, fixnum), define_variable(glob_max_rel_trunc_err, 1.0E-11, float), define_variable(glob_max_trunc_err, 1.0E-11, float), define_variable(glob_no_eqs, 0, fixnum), define_variable(glob_optimal_clock_start_sec, 0.0, float), define_variable(glob_optimal_start, 0.0, float), define_variable(glob_small_float, 1.0E-201, float), define_variable(glob_smallish_float, 1.0E-101, float), define_variable(glob_unchanged_h_cnt, 0, fixnum), define_variable(glob_warned, false, boolean), define_variable(glob_warned2, false, boolean), define_variable(glob_max_sec, 10000.0, float), define_variable(glob_orig_start_sec, 0.0, float), define_variable(glob_start, 0, fixnum), define_variable(glob_curr_iter_when_opt, 0, fixnum), define_variable(glob_current_iter, 0, fixnum), define_variable(glob_iter, 0, fixnum), define_variable(glob_normmax, 0.0, float), define_variable(glob_max_minutes, 0.0, float), ALWAYS : 1, INFO : 2, DEBUGL : 3, DEBUGMASSIVE : 4, glob_iolevel : INFO, 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/diff0postode.ode#################"), omniout_str(ALWAYS, "diff ( y , x , 1 ) = y;"), 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:-5.0,"), 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:false,"), omniout_str(ALWAYS, "glob_max_iter:1000000,"), omniout_str(ALWAYS, "glob_display_interval:0.1,"), omniout_str(ALWAYS, "glob_max_minutes:10,"), 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.001,"), 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 (x) := (block("), omniout_str(ALWAYS, " (exp(x)) "), omniout_str(ALWAYS, "));"), omniout_str(ALWAYS, ""), 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 : 1.0E-200, glob_smallish_float : 1.0E-64, glob_large_float : 1.0E+100, glob_almost_1 : 0.99, Digits : 32, max_terms : 30, glob_max_terms : max_terms, glob_html_log : true, array(array_y_init, 1 + max_terms), array(array_norms, 1 + max_terms), array(array_fact_1, 1 + max_terms), array(array_pole, 1 + max_terms), array(array_1st_rel_error, 1 + max_terms), array(array_last_rel_error, 1 + max_terms), array(array_type_pole, 1 + max_terms), array(array_y, 1 + max_terms), array(array_x, 1 + max_terms), array(array_tmp0, 1 + max_terms), array(array_tmp1, 1 + max_terms), array(array_m1, 1 + max_terms), array(array_y_higher, 1 + 2, 1 + max_terms), array(array_y_higher_work, 1 + 2, 1 + max_terms), array(array_y_higher_work2, 1 + 2, 1 + max_terms), array(array_y_set_initial, 1 + 2, 1 + max_terms), array(array_poles, 1 + 1, 1 + 3), array(array_real_pole, 1 + 1, 1 + 3), array(array_complex_pole, 1 + 1, 1 + 3), array(array_fact_2, 1 + max_terms, 1 + max_terms), term : 1, while term <= max_terms do (array_y_init : 0.0, term : 1 + term), term term : 1, while term <= max_terms do (array_norms : 0.0, term term : 1 + term), term : 1, while term <= max_terms do (array_fact_1 : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_pole : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_1st_rel_error : 0.0, term : 1 + term), term term : 1, while term <= max_terms do (array_last_rel_error : 0.0, term term : 1 + term), term : 1, while term <= max_terms do (array_type_pole : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_y : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_x : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_tmp0 : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_tmp1 : 0.0, term : 1 + term), term : 1, term while term <= max_terms do (array_m1 : 0.0, term : 1 + term), ord : 1, term while ord <= 2 do (term : 1, while term <= max_terms do (array_y_higher : 0.0, term : 1 + term), ord : 1 + ord), ord, term ord : 1, while ord <= 2 do (term : 1, while term <= max_terms do (array_y_higher_work : 0.0, ord, term term : 1 + term), ord : 1 + ord), ord : 1, while ord <= 2 do (term : 1, while term <= max_terms do (array_y_higher_work2 : 0.0, term : 1 + term), ord, term ord : 1 + ord), ord : 1, while ord <= 2 do (term : 1, while term <= max_terms do (array_y_set_initial : 0.0, ord, term term : 1 + term), ord : 1 + ord), ord : 1, while ord <= 1 do (term : 1, while term <= 3 do (array_poles : 0.0, ord, term term : 1 + term), ord : 1 + ord), ord : 1, while ord <= 1 do (term : 1, while term <= 3 do (array_real_pole : 0.0, term : 1 + term), ord : 1 + ord), ord, term ord : 1, while ord <= 1 do (term : 1, while term <= 3 do (array_complex_pole : 0.0, term : 1 + term), ord, term ord : 1 + ord), ord : 1, while ord <= max_terms do (term : 1, while term <= max_terms do (array_fact_2 : 0.0, term : 1 + term), ord, term ord : 1 + ord), array(array_y, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_y : 0.0, term : 1 + term), term array(array_x, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_x : 0.0, term : 1 + term), term array(array_tmp0, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_tmp0 : 0.0, term : 1 + term), term array(array_tmp1, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_tmp1 : 0.0, term : 1 + term), term array(array_m1, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_m1 : 0.0, term : 1 + term), term array(array_const_1, 1 + 1 + max_terms), term : 1, while term <= 1 + max_terms do (array_const_1 : 0.0, term : 1 + term), term array_const_1 : 1, array(array_const_0D0, 1 + 1 + max_terms), term : 1, 1 while term <= 1 + max_terms do (array_const_0D0 : 0.0, term : 1 + term), term array_const_0D0 : 0.0, array(array_m1, 1 + 1 + max_terms), term : 1, 1 while term <= max_terms do (array_m1 : 0.0, term : 1 + term), term array_m1 : - 1.0, iiif : 0, while iiif <= glob_max_terms do (jjjf : 0, 1 while jjjf <= glob_max_terms do (array_fact_1 : 0, iiif array_fact_2 : 0, jjjf : 1 + jjjf), iiif : 1 + iiif), iiif, jjjf x_start : - 5.0, x_end : 5.0, array_y_init : exact_soln_y(x_start), 1 + 0 glob_look_poles : false, glob_max_iter : 1000000, glob_display_interval : 0.1, glob_max_minutes : 10, glob_desired_digits_correct : 10, glob_display_interval : 0.001, 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(3600.0) convfloat(glob_max_hours) + convfloat(60.0) convfloat(glob_max_minutes), if glob_h > 0.0 then (glob_neg_h : false, glob_display_interval : omniabs(glob_display_interval)) else (glob_neg_h : true, glob_display_interval : - omniabs(glob_display_interval)), chk_data(), array_y_set_initial : true, 1, 1 array_y_set_initial : false, array_y_set_initial : false, 1, 2 1, 3 array_y_set_initial : false, array_y_set_initial : false, 1, 4 1, 5 array_y_set_initial : false, array_y_set_initial : false, 1, 6 1, 7 array_y_set_initial : false, array_y_set_initial : false, 1, 8 1, 9 array_y_set_initial : false, array_y_set_initial : false, 1, 10 1, 11 array_y_set_initial : false, array_y_set_initial : false, 1, 12 1, 13 array_y_set_initial : false, array_y_set_initial : false, 1, 14 1, 15 array_y_set_initial : false, array_y_set_initial : false, 1, 16 1, 17 array_y_set_initial : false, array_y_set_initial : false, 1, 18 1, 19 array_y_set_initial : false, array_y_set_initial : false, 1, 20 1, 21 array_y_set_initial : false, array_y_set_initial : false, 1, 22 1, 23 array_y_set_initial : false, array_y_set_initial : false, 1, 24 1, 25 array_y_set_initial : false, array_y_set_initial : false, 1, 26 1, 27 array_y_set_initial : false, array_y_set_initial : false, 1, 28 1, 29 array_y_set_initial : false, omniout_str(ALWAYS, "START of Optimize"), 1, 30 glob_check_sign : check_sign(x_start, x_end), glob_h : check_sign(x_start, x_end), if glob_display_interval < glob_h then glob_h : glob_display_interval, if glob_max_h < glob_h then glob_h : glob_max_h, found_h : - 1.0, best_h : 0.0, min_value : glob_large_float, est_answer : est_size_answer(), opt_iter : 1, while (opt_iter <= 20) and (found_h < 0.0) do (omniout_int(ALWAYS, "opt_iter", 32, opt_iter, 4, ""), array_x : x_start, array_x : glob_h, 1 2 glob_next_display : x_start, order_diff : 1, term_no : 1, while term_no <= order_diff do (array_y : term_no array_y_init expt(glob_h, term_no - 1) term_no ---------------------------------------------, term_no : 1 + term_no), factorial_1(term_no - 1) rows : order_diff, r_order : 1, while r_order <= rows do (term_no : 1, while term_no <= 1 - r_order + rows do (it : - 1 + r_order + term_no, array_y_init expt(glob_h, term_no - 1) it array_y_higher : ----------------------------------------, r_order, term_no factorial_1(term_no - 1) term_no : 1 + term_no), r_order : 1 + r_order), atomall(), 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, ""), value3 : test_suggested_h(), omniout_float(ALWAYS, "value3", 32, value3, 32, ""), if (value3 < est_needed_step_err) and (found_h < 0.0) then (best_h : glob_h, found_h : 1.0), omniout_float(ALWAYS, "best_h", 32, best_h, 32, ""), opt_iter : 1 + opt_iter, glob_h : glob_h 0.5), if found_h > 0.0 then glob_h : best_h else omniout_str(ALWAYS, "No increment to obtain desired accuracy found"), if glob_html_log then html_log_file : openw("html/entry.html"), if found_h > 0.0 then (omniout_str(ALWAYS, "START of Soultion"), array_x : x_start, array_x : glob_h, glob_next_display : x_start, 1 2 order_diff : 1, term_no : 1, while term_no <= order_diff do (array_y : (array_y_init expt(glob_h, term_no - 1)) term_no term_no /factorial_1(term_no - 1), term_no : 1 + term_no), rows : order_diff, r_order : 1, while r_order <= rows do (term_no : 1, while term_no <= 1 - r_order + rows do (it : - 1 + r_order + term_no, array_y_init expt(glob_h, term_no - 1) it array_y_higher : ----------------------------------------, r_order, term_no factorial_1(term_no - 1) term_no : 1 + term_no), r_order : 1 + r_order), 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 < glob_check_sign x_end) 1 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")), glob_iter : 1 + glob_iter, glob_clock_sec : elapsed_time_seconds(), glob_current_iter : 1 + glob_current_iter, atomall(), display_alot(current_iter), if glob_look_poles then check_for_pole(), if reached_interval() then glob_next_display : glob_display_interval + glob_next_display, array_x : glob_h + array_x , 1 1 array_x : glob_h, order_diff : 2, ord : 2, calc_term : 1, 2 iii : glob_max_terms, while iii >= calc_term do (array_y_higher_work : 2, iii array_y_higher 2, iii --------------------------- expt(glob_h, calc_term - 1) -------------------------------------, iii : iii - 1), temp_sum : 0.0, factorial_3(iii - calc_term, iii - 1) ord : 2, calc_term : 1, iii : glob_max_terms, while iii >= calc_term do (temp_sum : array_y_higher_work + temp_sum, ord, iii iii : iii - 1), array_y_higher_work2 : ord, calc_term temp_sum expt(glob_h, calc_term - 1) ------------------------------------, ord : 1, calc_term : 2, factorial_1(calc_term - 1) iii : glob_max_terms, while iii >= calc_term do (array_y_higher_work : 1, iii array_y_higher 1, iii --------------------------- expt(glob_h, calc_term - 1) -------------------------------------, iii : iii - 1), temp_sum : 0.0, factorial_3(iii - calc_term, iii - 1) ord : 1, calc_term : 2, iii : glob_max_terms, while iii >= calc_term do (temp_sum : array_y_higher_work + temp_sum, ord, iii iii : iii - 1), array_y_higher_work2 : ord, calc_term temp_sum expt(glob_h, calc_term - 1) ------------------------------------, ord : 1, calc_term : 1, factorial_1(calc_term - 1) iii : glob_max_terms, while iii >= calc_term do (array_y_higher_work : 1, iii array_y_higher 1, iii --------------------------- expt(glob_h, calc_term - 1) -------------------------------------, iii : iii - 1), temp_sum : 0.0, factorial_3(iii - calc_term, iii - 1) ord : 1, calc_term : 1, iii : glob_max_terms, while iii >= calc_term do (temp_sum : array_y_higher_work + temp_sum, ord, iii iii : iii - 1), array_y_higher_work2 : ord, calc_term temp_sum expt(glob_h, calc_term - 1) ------------------------------------, term_no : glob_max_terms, factorial_1(calc_term - 1) while term_no >= 1 do (array_y : array_y_higher_work2 , term_no 1, term_no ord : 1, while ord <= order_diff do (array_y_higher : ord, term_no array_y_higher_work2 , ord : 1 + ord), term_no : term_no - 1)), ord, term_no omniout_str(ALWAYS, "Finished!"), if glob_iter >= glob_max_iter then omniout_str(ALWAYS, "Maximum Iterations Reached before Solution Completed!"), if elapsed_time_seconds() - convfloat(glob_orig_start_sec) >= convfloat(glob_max_sec) then omniout_str(ALWAYS, "Maximum Time Reached before Solution Completed!"), glob_clock_sec : elapsed_time_seconds(), omniout_str(INFO, "diff ( y , x , 1 ) = y;"), 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-01-28T12:39:40-06:00"), logitem_str(html_log_file, "Maxima"), logitem_str(html_log_file, "diff0"), logitem_str(html_log_file, "diff ( y , x , 1 ) = y;"), logitem_float(html_log_file, x_start), logitem_float(html_log_file, x_end), logitem_float(html_log_file, array_x ), logitem_float(html_log_file, glob_h), 1 logitem_str(html_log_file, "16"), logitem_good_digits(html_log_file, array_last_rel_error ), logitem_integer(html_log_file, glob_max_terms), 1 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_pole(html_log_file, array_type_pole ), 1 if (array_type_pole = 1) or (array_type_pole = 2) 1 1 then (logitem_float(html_log_file, array_pole ), 1 logitem_float(html_log_file, array_pole ), 0) 2 else (logitem_str(html_log_file, "NA"), logitem_str(html_log_file, "NA"), 0), 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), log_revs(html_log_file, " 165 "), logitem_str(html_log_file, "diff0 diffeq.max"), logitem_str(html_log_file, "diff0 maxima results" ), logitem_str(html_log_file, "All Tests - All Languages"), logend(html_log_file)), if glob_html_log then close(html_log_file))) (%i58) main() "##############ECHO OF PROBLEM#################" "##############temp/diff0postode.ode#################" "diff ( y , x , 1 ) = y;" "!" "/* BEGIN FIRST INPUT BLOCK */" "Digits:32," "max_terms:30," "!" "/* END FIRST INPUT BLOCK */" "/* BEGIN SECOND INPUT BLOCK */" "x_start:-5.0," "x_end:5.0," "array_y_init[0 + 1] : exact_soln_y(x_start)," "glob_look_poles:false," "glob_max_iter:1000000," "glob_display_interval:0.1," "glob_max_minutes:10," "/* END SECOND INPUT BLOCK */" "/* BEGIN OVERRIDE BLOCK */" "glob_desired_digits_correct:10," "glob_display_interval:0.001," "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 (x) := (block(" " (exp(x)) " "));" "" "/* END USER DEF BLOCK */" "#######END OF ECHO OF PROBLEM#################" "START of Optimize" min_size = 0.0 "" min_size = 1. "" opt_iter = 1 glob_desired_digits_correct = 10. "" desired_abs_gbl_error = 1.0000000000E-10 "" range = 10. "" estimated_steps = 10000. "" step_error = 1.00000000000000E-14 "" est_needed_step_err = 1.00000000000000E-14 "" hn_div_ho = 0.5 "" hn_div_ho_2 = 0.25 "" hn_div_ho_3 = 0.125 "" value3 = 1.67076976023417900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-107 "" max_value3 = 1.67076976023417900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-107 "" value3 = 1.67076976023417900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-107 "" best_h = 1.000E-3 "" "START of Soultion" " " "TOP MAIN SOLVE Loop" x[1] = -5. " " y[1] (analytic) = 6.737946999085467000E-3 " " y[1] (numeric) = 6.737946999085467000E-3 " " absolute error = 0.0 " " relative error = 0.0 "%" Correct digits = 16 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.999 " " y[1] (analytic) = 6.744688316181326000E-3 " " y[1] (numeric) = 6.744688316181324000E-3 " " absolute error = 2.6020852139652106000000000000000000E-18 " " relative error = 3.857976961993176400000000000000E-14 "%" Correct digits = 16 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.998000000000000 " " y[1] (analytic) = 6.751436377966064000E-3 " " y[1] (numeric) = 6.751436377966059000E-3 " " absolute error = 4.336808689942018000000000000000000E-18 " " relative error = 6.42353485562804700000000000000E-14 "%" Correct digits = 16 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.996999999999999 " " y[1] (analytic) = 6.758191191187742000E-3 " " y[1] (numeric) = 6.758191191187735000E-3 " " absolute error = 6.938893903907228000000000000000000E-18 " " relative error = 1.02673832503512350000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.995999999999999 " " y[1] (analytic) = 6.764952762601174000E-3 " " y[1] (numeric) = 6.764952762601165000E-3 " " absolute error = 8.673617379884035000000000000000000E-18 " " relative error = 1.2821401248852130000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.994999999999998 " " y[1] (analytic) = 6.771721098967933000E-3 " " y[1] (numeric) = 6.771721098967922000E-3 " " absolute error = 1.127570259384924600000000000000000E-17 " " relative error = 1.6651162133017788000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.993999999999998 " " y[1] (analytic) = 6.778496207056355000E-3 " " y[1] (numeric) = 6.778496207056341000E-3 " " absolute error = 1.301042606982605300000000000000000E-17 " " relative error = 1.91936761081053840000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.992999999999998 " " y[1] (analytic) = 6.785278093641549000E-3 " " y[1] (numeric) = 6.785278093641534000E-3 " " absolute error = 1.561251128379126400000000000000000E-17 " " relative error = 2.30093904307646150000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.991999999999997 " " y[1] (analytic) = 6.792066765505402000E-3 " " y[1] (numeric) = 6.792066765505385000E-3 " " absolute error = 1.821459649775647400000000000000000E-17 " " relative error = 2.6817457964727640000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.990999999999997 " " y[1] (analytic) = 6.798862229436587000E-3 " " y[1] (numeric) = 6.798862229436566000E-3 " " absolute error = 2.081668171172168500000000000000000E-17 " " relative error = 3.06178901840267750000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.989999999999997 " " y[1] (analytic) = 6.805664492230568000E-3 " " y[1] (numeric) = 6.805664492230545000E-3 " " absolute error = 2.255140518769849200000000000000000E-17 " " relative error = 3.31362282308266360000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.988999999999996 " " y[1] (analytic) = 6.812473560689608000E-3 " " y[1] (numeric) = 6.812473560689583000E-3 " " absolute error = 2.515349040166370300000000000000000E-17 " " relative error = 3.69226980150180350000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.987999999999996 " " y[1] (analytic) = 6.819289441622776000E-3 " " y[1] (numeric) = 6.819289441622749000E-3 " " absolute error = 2.68882138776405100000000000000000E-17 " " relative error = 3.94296416185583750000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.986999999999996 " " y[1] (analytic) = 6.826112141845954000E-3 " " y[1] (numeric) = 6.826112141845925000E-3 " " absolute error = 2.86229373536173170000000000000000E-17 " " relative error = 4.1931536955202947000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.985999999999995 " " y[1] (analytic) = 6.8329416681818430000E-3 " " y[1] (numeric) = 6.832941668181812000E-3 " " absolute error = 3.12250225675825300000000000000000E-17 " " relative error = 4.5697774229486576000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.984999999999995 " " y[1] (analytic) = 6.8397780274599700000E-3 " " y[1] (numeric) = 6.839778027459936000E-3 " " absolute error = 3.295974604355933500000000000000000E-17 " " relative error = 4.8188327035225910000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.983999999999995 " " y[1] (analytic) = 6.846621226516694000E-3 " " y[1] (numeric) = 6.8466212265166580000E-3 " " absolute error = 3.556183125752454500000000000000000E-17 " " relative error = 5.1940701962297810000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.982999999999994 " " y[1] (analytic) = 6.853471272195215000E-3 " " y[1] (numeric) = 6.853471272195177000E-3 " " absolute error = 3.72965547335013500000000000000000E-17 " " relative error = 5.4419947574326090000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.981999999999994 " " y[1] (analytic) = 6.86032817134558000E-3 " " y[1] (numeric) = 6.86032817134554000E-3 " " absolute error = 3.989863994746656300000000000000000E-17 " " relative error = 5.8158500513308350000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.980999999999994 " " y[1] (analytic) = 6.867191930824688000E-3 " " y[1] (numeric) = 6.867191930824644000E-3 " " absolute error = 4.250072516143177400000000000000000E-17 " " relative error = 6.1889525718160350000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.979999999999993 " " y[1] (analytic) = 6.874062557496298000E-3 " " y[1] (numeric) = 6.874062557496253000E-3 " " absolute error = 4.42354486374085800000000000000000E-17 " " relative error = 6.4351245376969930000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.978999999999993 " " y[1] (analytic) = 6.880940058231039000E-3 " " y[1] (numeric) = 6.8809400582309910000E-3 " " absolute error = 4.68375338513737900000000000000000E-17 " " relative error = 6.8068510196286820000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 83171684.04956704 " " Order of pole = 137438953471987.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.977999999999993 " " y[1] (analytic) = 6.887824439906410000E-3 " " y[1] (numeric) = 6.887824439906363000E-3 " " absolute error = 4.8572257327350600000000000000000E-17 " " relative error = 7.0519011846374210000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.976999999999992 " " y[1] (analytic) = 6.894715709406797000E-3 " " y[1] (numeric) = 6.894715709406746000E-3 " " absolute error = 5.11743425413158100000000000000000E-17 " " relative error = 7.4222556372405830000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.975999999999992 " " y[1] (analytic) = 6.901613873623468000E-3 " " y[1] (numeric) = 6.901613873623414000E-3 " " absolute error = 5.37764277552810200000000000000000E-17 " " relative error = 7.7918627063161760000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.974999999999992 " " y[1] (analytic) = 6.908518939454587000E-3 " " y[1] (numeric) = 6.908518939454531000E-3 " " absolute error = 5.55111512312578300000000000000000E-17 " " relative error = 8.0351739233475020000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.973999999999991 " " y[1] (analytic) = 6.915430913805222000E-3 " " y[1] (numeric) = 6.915430913805164000E-3 " " absolute error = 5.81132364452230400000000000000000E-17 " " relative error = 8.4034150828131370000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.972999999999991 " " y[1] (analytic) = 6.9223498035873450000E-3 " " y[1] (numeric) = 6.922349803587285000E-3 " " absolute error = 5.98479599211998400000000000000000E-17 " " relative error = 8.6456133566357830000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.971999999999990 " " y[1] (analytic) = 6.9292756157198510000E-3 " " y[1] (numeric) = 6.929275615719788000E-3 " " absolute error = 6.24500451351650600000000000000000E-17 " " relative error = 9.0124925891950410000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.97099999999999 " " y[1] (analytic) = 6.936208357128549000E-3 " " y[1] (numeric) = 6.936208357128484000E-3 " " absolute error = 6.50521303491302700000000000000000E-17 " " relative error = 9.3786297930733650000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.96999999999999 " " y[1] (analytic) = 6.943148034746183000E-3 " " y[1] (numeric) = 6.9431480347461150000E-3 " " absolute error = 6.76542155630954800000000000000000E-17 " " relative error = 9.744026085073769000000000000E-13 "%" Correct digits = 15 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.96899999999999 " " y[1] (analytic) = 6.950094655512429000E-3 " " y[1] (numeric) = 6.950094655512359000E-3 " " absolute error = 7.02563007770606900000000000000000E-17 " " relative error = 1.0108682580508065000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.967999999999990 " " y[1] (analytic) = 6.95704822637391000E-3 " " y[1] (numeric) = 6.957048226373838000E-3 " " absolute error = 7.1991024253037490000000000000000E-17 " " relative error = 1.0347926578993977000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.966999999999989 " " y[1] (analytic) = 6.964008754284198000E-3 " " y[1] (numeric) = 6.964008754284123000E-3 " " absolute error = 7.4593109467002700000000000000000E-17 " " relative error = 1.0711231432774072000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.965999999999989 " " y[1] (analytic) = 6.970976246203819000E-3 " " y[1] (numeric) = 6.9709762462037430000E-3 " " absolute error = 7.63278329429795100000000000000000E-17 " " relative error = 1.0949374986687886000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.964999999999988 " " y[1] (analytic) = 6.977950709100268000E-3 " " y[1] (numeric) = 6.977950709100189000E-3 " " absolute error = 7.89299181569447200000000000000000E-17 " " relative error = 1.1311332144265301000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.963999999999988 " " y[1] (analytic) = 6.984932149948008000E-3 " " y[1] (numeric) = 6.984932149947927000E-3 " " absolute error = 8.15320033709099300000000000000000E-17 " " relative error = 1.1672554810932101000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.962999999999988 " " y[1] (analytic) = 6.99192057572848000E-3 " " y[1] (numeric) = 6.991920575728396000E-3 " " absolute error = 8.41340885848751400000000000000000E-17 " " relative error = 1.203304409334045000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 83171684.04956704 " " Order of pole = 137438953471987.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.961999999999987 " " y[1] (analytic) = 6.99891599343011000E-3 " " y[1] (numeric) = 6.998915993430024000E-3 " " absolute error = 8.67361737988403500000000000000000E-17 " " relative error = 1.2392801096664068000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.960999999999987 " " y[1] (analytic) = 7.005918410048317000E-3 " " y[1] (numeric) = 7.005918410048227000E-3 " " absolute error = 8.93382590128055700000000000000000E-17 " " relative error = 1.2751826924600088000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.959999999999987 " " y[1] (analytic) = 7.012927832585517000E-3 " " y[1] (numeric) = 7.012927832585426000E-3 " " absolute error = 9.10729824887823700000000000000000E-17 " " relative error = 1.2986442276735322000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.958999999999986 " " y[1] (analytic) = 7.019944268051135000E-3 " " y[1] (numeric) = 7.019944268051042000E-3 " " absolute error = 9.36750677027475800000000000000000E-17 " " relative error = 1.334413267767345000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.957999999999986 " " y[1] (analytic) = 7.026967723461606000E-3 " " y[1] (numeric) = 7.02696772346151000E-3 " " absolute error = 9.62771529167127900000000000000000E-17 " " relative error = 1.3701095081917494000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.956999999999986 " " y[1] (analytic) = 7.033998205840386000E-3 " " y[1] (numeric) = 7.033998205840287000E-3 " " absolute error = 9.887923813067800000000000000000E-17 " " relative error = 1.4057330587400174000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.955999999999985 " " y[1] (analytic) = 7.0410357222179580000E-3 " " y[1] (numeric) = 7.041035722217857000E-3 " " absolute error = 1.00613961606654810000000000000000E-16 " " relative error = 1.428965362143638800000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.954999999999985 " " y[1] (analytic) = 7.0480802796318390000E-3 " " y[1] (numeric) = 7.048080279631735000E-3 " " absolute error = 1.03216046820620020000000000000000E-16 " " relative error = 1.464456174242266000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.953999999999985 " " y[1] (analytic) = 7.055131885126587000E-3 " " y[1] (numeric) = 7.055131885126481000E-3 " " absolute error = 1.05818132034585230000000000000000E-16 " " relative error = 1.4998746126584506000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.952999999999984 " " y[1] (analytic) = 7.062190545753807000E-3 " " y[1] (numeric) = 7.0621905457536990000E-3 " " absolute error = 1.07552855510562040000000000000000E-16 " " relative error = 1.5229390203189713000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.951999999999984 " " y[1] (analytic) = 7.069256268572163000E-3 " " y[1] (numeric) = 7.069256268572052000E-3 " " absolute error = 1.10154940724527250000000000000000E-16 " " relative error = 1.5582253145107183000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.950999999999984 " " y[1] (analytic) = 7.076329060647375000E-3 " " y[1] (numeric) = 7.0763290606472630000E-3 " " absolute error = 1.12757025938492460000000000000000E-16 " " relative error = 1.5934395499716478000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.949999999999983 " " y[1] (analytic) = 7.083408929052238000E-3 " " y[1] (numeric) = 7.083408929052123000E-3 " " absolute error = 1.15359111152457670000000000000000E-16 " " relative error = 1.6285818354961580000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.948999999999983 " " y[1] (analytic) = 7.090495880866621000E-3 " " y[1] (numeric) = 7.090495880866503000E-3 " " absolute error = 1.17961196366422880000000000000000E-16 " " relative error = 1.6636522797331535000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.947999999999983 " " y[1] (analytic) = 7.097589923177475000E-3 " " y[1] (numeric) = 7.0975899231773540000E-3 " " absolute error = 1.2056328158038810000000000000000E-16 " " relative error = 1.698650991186229000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.946999999999982 " " y[1] (analytic) = 7.104691063078844000E-3 " " y[1] (numeric) = 7.104691063078721000E-3 " " absolute error = 1.2316536679435330000000000000000E-16 " " relative error = 1.733578078213849000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.945999999999982 " " y[1] (analytic) = 7.111799307671868000E-3 " " y[1] (numeric) = 7.1117993076717420000E-3 " " absolute error = 1.25767452008318510000000000000000E-16 " " relative error = 1.7684336490295305000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 83171684.04956704 " " Order of pole = 137438953471987.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.944999999999982 " " y[1] (analytic) = 7.118914664064793000E-3 " " y[1] (numeric) = 7.118914664064664000E-3 " " absolute error = 1.28369537222283720000000000000000E-16 " " relative error = 1.8032178117020250000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.943999999999981 " " y[1] (analytic) = 7.126037139372974000E-3 " " y[1] (numeric) = 7.126037139372843000E-3 " " absolute error = 1.30971622436248940000000000000000E-16 " " relative error = 1.837930674155499000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.942999999999981 " " y[1] (analytic) = 7.133166740718889000E-3 " " y[1] (numeric) = 7.133166740718755000E-3 " " absolute error = 1.33573707650214150000000000000000E-16 " " relative error = 1.872572344169714800000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.941999999999980 " " y[1] (analytic) = 7.140303475232139000E-3 " " y[1] (numeric) = 7.140303475232003000E-3 " " absolute error = 1.36175792864179360000000000000000E-16 " " relative error = 1.907142929380212800000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.94099999999998 " " y[1] (analytic) = 7.147447350049460000E-3 " " y[1] (numeric) = 7.147447350049321000E-3 " " absolute error = 1.38777878078144570000000000000000E-16 " " relative error = 1.9416425372784904000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 166343368.0991351 " " Order of pole = 274877906943988.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.93999999999998 " " y[1] (analytic) = 7.154598372314724000E-3 " " y[1] (numeric) = 7.154598372314585000E-3 " " absolute error = 1.40512601554121370000000000000000E-16 " " relative error = 1.963948138554440800000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 166343368.0991351 " " Order of pole = 274877906943988.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.93899999999998 " " y[1] (analytic) = 7.161756549178959000E-3 " " y[1] (numeric) = 7.161756549178816000E-3 " " absolute error = 1.43114686768086590000000000000000E-16 " " relative error = 1.9983182308046143000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.937999999999980 " " y[1] (analytic) = 7.16892188780034000E-3 " " y[1] (numeric) = 7.1689218878001950000E-3 " " absolute error = 1.4571677198205180000000000000000E-16 " " relative error = 2.03261765524359000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.936999999999979 " " y[1] (analytic) = 7.176094395344206000E-3 " " y[1] (numeric) = 7.176094395344058000E-3 " " absolute error = 1.483188571960170000000000000000E-16 " " relative error = 2.0668465188006044000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.935999999999979 " " y[1] (analytic) = 7.183274078983065000E-3 " " y[1] (numeric) = 7.183274078982915000E-3 " " absolute error = 1.50053580671993800000000000000000E-16 " " relative error = 2.0889301872947172000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.934999999999978 " " y[1] (analytic) = 7.190460945896602000E-3 " " y[1] (numeric) = 7.190460945896449000E-3 " " absolute error = 1.52655665885959020000000000000000E-16 " " relative error = 2.1230303180086862000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.933999999999978 " " y[1] (analytic) = 7.197655003271684000E-3 " " y[1] (numeric) = 7.197655003271528000E-3 " " absolute error = 1.55257751099924230000000000000000E-16 " " relative error = 2.1570601957075192000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.932999999999978 " " y[1] (analytic) = 7.204856258302368000E-3 " " y[1] (numeric) = 7.20485625830221000E-3 " " absolute error = 1.57859836313889450000000000000000E-16 " " relative error = 2.191019926760966200000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.931999999999977 " " y[1] (analytic) = 7.212064718189912000E-3 " " y[1] (numeric) = 7.212064718189751000E-3 " " absolute error = 1.60461921527854660000000000000000E-16 " " relative error = 2.224909617396327000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.930999999999977 " " y[1] (analytic) = 7.219280390142775000E-3 " " y[1] (numeric) = 7.219280390142612000E-3 " " absolute error = 1.63064006741819870000000000000000E-16 " " relative error = 2.2587293736986291000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.929999999999977 " " y[1] (analytic) = 7.226503281376630000E-3 " " y[1] (numeric) = 7.226503281376463000E-3 " " absolute error = 1.65666091955785080000000000000000E-16 " " relative error = 2.292479301610808000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.928999999999976 " " y[1] (analytic) = 7.233733399114367000E-3 " " y[1] (numeric) = 7.233733399114199000E-3 " " absolute error = 1.6826817716975030000000000000000E-16 " " relative error = 2.326159506933882000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.927999999999976 " " y[1] (analytic) = 7.240970750586108000E-3 " " y[1] (numeric) = 7.2409707505859370000E-3 " " absolute error = 1.7087026238371550000000000000000E-16 " " relative error = 2.3597700953271317000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.926999999999976 " " y[1] (analytic) = 7.248215343029201000E-3 " " y[1] (numeric) = 7.248215343029027000E-3 " " absolute error = 1.7347234759768070000000000000000E-16 " " relative error = 2.393311172308279000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.925999999999975 " " y[1] (analytic) = 7.255467183688242000E-3 " " y[1] (numeric) = 7.255467183688067000E-3 " " absolute error = 1.76074432811645920000000000000000E-16 " " relative error = 2.426782843253661700000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.924999999999975 " " y[1] (analytic) = 7.262726279815072000E-3 " " y[1] (numeric) = 7.262726279814893000E-3 " " absolute error = 1.78676518025611130000000000000000E-16 " " relative error = 2.460185213398414200000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.923999999999975 " " y[1] (analytic) = 7.2699926386687860000E-3 " " y[1] (numeric) = 7.269992638668605000E-3 " " absolute error = 1.81278603239576340000000000000000E-16 " " relative error = 2.4935183878366401000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.922999999999974 " " y[1] (analytic) = 7.277266267515745000E-3 " " y[1] (numeric) = 7.277266267515562000E-3 " " absolute error = 1.83013326715553150000000000000000E-16 " " relative error = 2.514863686278567000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 14.7683380243005 " " Order of pole = 274877906943986. " " " " "TOP MAIN SOLVE Loop" x[1] = -4.921999999999974 " " y[1] (analytic) = 7.284547173629579000E-3 " " y[1] (numeric) = 7.284547173629392000E-3 " " absolute error = 1.86482773667506760000000000000000E-16 " " relative error = 2.5599775692658516000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.920999999999974 " " y[1] (analytic) = 7.291835364291192000E-3 " " y[1] (numeric) = 7.291835364291003000E-3 " " absolute error = 1.89084858881471970000000000000000E-16 " " relative error = 2.593103785741494000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.919999999999973 " " y[1] (analytic) = 7.299130846788777000E-3 " " y[1] (numeric) = 7.2991308467885850000E-3 " " absolute error = 1.91686944095437180000000000000000E-16 " " relative error = 2.6261612254802785000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.918999999999973 " " y[1] (analytic) = 7.306433628417818000E-3 " " y[1] (numeric) = 7.306433628417623000E-3 " " absolute error = 1.9428902930940240000000000000000E-16 " " relative error = 2.6591499928738144000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.917999999999973 " " y[1] (analytic) = 7.313743716481096000E-3 " " y[1] (numeric) = 7.313743716480899000E-3 " " absolute error = 1.9689111452336760000000000000000E-16 " " relative error = 2.6920701921737417000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.916999999999972 " " y[1] (analytic) = 7.321061118288700000E-3 " " y[1] (numeric) = 7.3210611182885000E-3 " " absolute error = 1.99493199737332820000000000000000E-16 " " relative error = 2.7249219274919045000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.915999999999972 " " y[1] (analytic) = 7.328385841158032000E-3 " " y[1] (numeric) = 7.32838584115783000E-3 " " absolute error = 2.02095284951298030000000000000000E-16 " " relative error = 2.7577053028005266000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.914999999999972 " " y[1] (analytic) = 7.335717892413816000E-3 " " y[1] (numeric) = 7.335717892413611000E-3 " " absolute error = 2.04697370165263240000000000000000E-16 " " relative error = 2.7904204219323875000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.913999999999971 " " y[1] (analytic) = 7.343057279388104000E-3 " " y[1] (numeric) = 7.3430572793878970000E-3 " " absolute error = 2.07299455379228450000000000000000E-16 " " relative error = 2.8230673885809954000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.912999999999971 " " y[1] (analytic) = 7.350404009420283000E-3 " " y[1] (numeric) = 7.350404009420073000E-3 " " absolute error = 2.09901540593193660000000000000000E-16 " " relative error = 2.8556463063007653000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.911999999999970 " " y[1] (analytic) = 7.357758089857084000E-3 " " y[1] (numeric) = 7.357758089856871000E-3 " " absolute error = 2.13370987545147270000000000000000E-16 " " relative error = 2.89994567556232000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.91099999999997 " " y[1] (analytic) = 7.3651195280525880000E-3 " " y[1] (numeric) = 7.3651195280523730000E-3 " " absolute error = 2.15973072759112480000000000000000E-16 " " relative error = 2.9323770230273220000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.90999999999997 " " y[1] (analytic) = 7.372488331368234000E-3 " " y[1] (numeric) = 7.3724883313680160000E-3 " " absolute error = 2.1857515797307770000000000000000E-16 " " relative error = 2.9647406431705140000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.90899999999997 " " y[1] (analytic) = 7.379864507172826000E-3 " " y[1] (numeric) = 7.379864507172604000E-3 " " absolute error = 2.2204460492503130000000000000000E-16 " " relative error = 3.008789723838643000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.907999999999970 " " y[1] (analytic) = 7.38724806284254000E-3 " " y[1] (numeric) = 7.3872480628423150000E-3 " " absolute error = 2.2464669013899652000000000000000E-16 " " relative error = 3.0410064509537360000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.906999999999969 " " y[1] (analytic) = 7.394639005760932000E-3 " " y[1] (numeric) = 7.394639005760705000E-3 " " absolute error = 2.27248775352961730000000000000000E-16 " " relative error = 3.0731557710379010000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.905999999999969 " " y[1] (analytic) = 7.402037343318947000E-3 " " y[1] (numeric) = 7.4020373433187170000E-3 " " absolute error = 2.29850860566926940000000000000000E-16 " " relative error = 3.105237786653286000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.904999999999968 " " y[1] (analytic) = 7.4094430829149200000E-3 " " y[1] (numeric) = 7.409443082914688000E-3 " " absolute error = 2.32452945780892150000000000000000E-16 " " relative error = 3.1372526002243570000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.903999999999968 " " y[1] (analytic) = 7.416856231954596000E-3 " " y[1] (numeric) = 7.4168562319543610000E-3 " " absolute error = 2.35055030994857360000000000000000E-16 " " relative error = 3.169200314038072000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.902999999999968 " " y[1] (analytic) = 7.424276797851120000E-3 " " y[1] (numeric) = 7.424276797850883000E-3 " " absolute error = 2.37657116208822570000000000000000E-16 " " relative error = 3.2010810302440496000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.901999999999967 " " y[1] (analytic) = 7.431704788025062000E-3 " " y[1] (numeric) = 7.4317047880248210000E-3 " " absolute error = 2.4025920142278778000000000000000E-16 " " relative error = 3.2328948508547450000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.900999999999967 " " y[1] (analytic) = 7.439140209904411000E-3 " " y[1] (numeric) = 7.439140209904167000E-3 " " absolute error = 2.4372864837474140000000000000000E-16 " " relative error = 3.276301313023285000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.899999999999967 " " y[1] (analytic) = 7.446583070924588000E-3 " " y[1] (numeric) = 7.446583070924343000E-3 " " absolute error = 2.4546337185071820000000000000000E-16 " " relative error = 3.2963222126553243000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.898999999999966 " " y[1] (analytic) = 7.454033378528460000E-3 " " y[1] (numeric) = 7.454033378528211000E-3 " " absolute error = 2.4806545706468341000000000000000E-16 " " relative error = 3.3279359571858447000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.897999999999966 " " y[1] (analytic) = 7.461491140166329000E-3 " " y[1] (numeric) = 7.461491140166078000E-3 " " absolute error = 2.50667542278648600000000000000000E-16 " " relative error = 3.3594832128027000000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.896999999999966 " " y[1] (analytic) = 7.468956363295961000E-3 " " y[1] (numeric) = 7.4689563632957080000E-3 " " absolute error = 2.53269627492613840000000000000000E-16 " " relative error = 3.390964080835103000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.895999999999965 " " y[1] (analytic) = 7.4764290553825790000E-3 " " y[1] (numeric) = 7.476429055382322000E-3 " " absolute error = 2.56739074444567450000000000000000E-16 " " relative error = 3.433979946077744000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.894999999999965 " " y[1] (analytic) = 7.483909223898874000E-3 " " y[1] (numeric) = 7.4839092238986150000E-3 " " absolute error = 2.59341159658532660000000000000000E-16 " " relative error = 3.465316746899615000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.893999999999965 " " y[1] (analytic) = 7.491396876325018000E-3 " " y[1] (numeric) = 7.491396876324755000E-3 " " absolute error = 2.62810606610486300000000000000000E-16 " " relative error = 3.508165579119748000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 166343368.0991351 " " Order of pole = 274877906943988.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.892999999999964 " " y[1] (analytic) = 7.4988920201486620000E-3 " " y[1] (numeric) = 7.498892020148396000E-3 " " absolute error = 2.6541269182445150000000000000000E-16 " " relative error = 3.539358762752125000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.891999999999964 " " y[1] (analytic) = 7.506394662864951000E-3 " " y[1] (numeric) = 7.506394662864682000E-3 " " absolute error = 2.6888213877640510000000000000000E-16 " " relative error = 3.582041057694419000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.890999999999964 " " y[1] (analytic) = 7.513904811976527000E-3 " " y[1] (numeric) = 7.513904811976257000E-3 " " absolute error = 2.7061686225238190000000000000000E-16 " " relative error = 3.6015476509769134000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.889999999999963 " " y[1] (analytic) = 7.5214224749935430000E-3 " " y[1] (numeric) = 7.52142247499327000E-3 " " absolute error = 2.7321894746634710000000000000000E-16 " " relative error = 3.632543556417918700000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.888999999999963 " " y[1] (analytic) = 7.5289476594336610000E-3 " " y[1] (numeric) = 7.528947659433385000E-3 " " absolute error = 2.76688394418300730000000000000000E-16 " " relative error = 3.6749942612712170000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.887999999999963 " " y[1] (analytic) = 7.536480372822065000E-3 " " y[1] (numeric) = 7.536480372821787000E-3 " " absolute error = 2.79290479632265940000000000000000E-16 " " relative error = 3.705847634652360600000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.886999999999962 " " y[1] (analytic) = 7.544020622691471000E-3 " " y[1] (numeric) = 7.544020622691189000E-3 " " absolute error = 2.81892564846231150000000000000000E-16 " " relative error = 3.736635660808423000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.885999999999962 " " y[1] (analytic) = 7.551568416582127000E-3 " " y[1] (numeric) = 7.551568416581843000E-3 " " absolute error = 2.84494650060196360000000000000000E-16 " " relative error = 3.767358439545992000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.884999999999962 " " y[1] (analytic) = 7.55912376204183000E-3 " " y[1] (numeric) = 7.559123762041542000E-3 " " absolute error = 2.87964097012150000000000000000E-16 " " relative error = 3.809490439330585000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.883999999999961 " " y[1] (analytic) = 7.566686666625924000E-3 " " y[1] (numeric) = 7.566686666625634000E-3 " " absolute error = 2.9056618222611520000000000000000E-16 " " relative error = 3.840071553480648400000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.882999999999961 " " y[1] (analytic) = 7.574257137897316000E-3 " " y[1] (numeric) = 7.574257137897022000E-3 " " absolute error = 2.9316826744008040000000000000000E-16 " " relative error = 3.870587730290163700000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.881999999999960 " " y[1] (analytic) = 7.581835183426475000E-3 " " y[1] (numeric) = 7.58183518342618000E-3 " " absolute error = 2.9577035265404560000000000000000E-16 " " relative error = 3.901039069018346600000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.88099999999996 " " y[1] (analytic) = 7.589420810791452000E-3 " " y[1] (numeric) = 7.589420810791153000E-3 " " absolute error = 2.9837243786801080000000000000000E-16 " " relative error = 3.9314256687908633000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.87999999999996 " " y[1] (analytic) = 7.5970140275778720000E-3 " " y[1] (numeric) = 7.59701402757757000E-3 " " absolute error = 3.01841884819964430000000000000000E-16 " " relative error = 3.973164768740063000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.87899999999996 " " y[1] (analytic) = 7.604614841378950000E-3 " " y[1] (numeric) = 7.6046148413786460000E-3 " " absolute error = 3.04443970033929650000000000000000E-16 " " relative error = 4.003410776011433000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.877999999999960 " " y[1] (analytic) = 7.612223259795505000E-3 " " y[1] (numeric) = 7.612223259795199000E-3 " " absolute error = 3.07046055247894860000000000000000E-16 " " relative error = 4.0335923523102674000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.876999999999959 " " y[1] (analytic) = 7.619839290435955000E-3 " " y[1] (numeric) = 7.619839290435645000E-3 " " absolute error = 3.09648140461860070000000000000000E-16 " " relative error = 4.063709596218323400000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.875999999999959 " " y[1] (analytic) = 7.627462940916329000E-3 " " y[1] (numeric) = 7.627462940916017000E-3 " " absolute error = 3.1225022567582530000000000000000E-16 " " relative error = 4.093762606184657700000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.874999999999958 " " y[1] (analytic) = 7.63509421886028000E-3 " " y[1] (numeric) = 7.635094218859965000E-3 " " absolute error = 3.1485231088979050000000000000000E-16 " " relative error = 4.123751480525799000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.873999999999958 " " y[1] (analytic) = 7.642733131899087000E-3 " " y[1] (numeric) = 7.6427331318987690000E-3 " " absolute error = 3.1832175784174410000000000000000E-16 " " relative error = 4.165025159823246000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.872999999999958 " " y[1] (analytic) = 7.6503796876716610000E-3 " " y[1] (numeric) = 7.6503796876713400000E-3 " " absolute error = 3.2092384305570930000000000000000E-16 " " relative error = 4.194874714164418000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.871999999999957 " " y[1] (analytic) = 7.658033893824562000E-3 " " y[1] (numeric) = 7.658033893824238000E-3 " " absolute error = 3.24393290007662900000000000000000E-16 " " relative error = 4.235986605769056000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.870999999999957 " " y[1] (analytic) = 7.665695758011993000E-3 " " y[1] (numeric) = 7.665695758011667000E-3 " " absolute error = 3.26995375221628140000000000000000E-16 " " relative error = 4.265697277117485000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.869999999999957 " " y[1] (analytic) = 7.673365287895824000E-3 " " y[1] (numeric) = 7.673365287895493000E-3 " " absolute error = 3.30464822173581750000000000000000E-16 " " relative error = 4.3066478627684524000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.868999999999956 " " y[1] (analytic) = 7.681042491145579000E-3 " " y[1] (numeric) = 7.681042491145246000E-3 " " absolute error = 3.33066907387546960000000000000000E-16 " " relative error = 4.3362200869412476000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 83171684.04956704 " " Order of pole = 137438953471987.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.867999999999956 " " y[1] (analytic) = 7.688727375438467000E-3 " " y[1] (numeric) = 7.6887273754381300000E-3 " " absolute error = 3.3653635433950060000000000000000E-16 " " relative error = 4.377009847098511000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.866999999999956 " " y[1] (analytic) = 7.69641994845937100E-3 " " y[1] (numeric) = 7.696419948459031000E-3 " " absolute error = 3.3913843955346580000000000000000E-16 " " relative error = 4.406444058725677600000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.865999999999955 " " y[1] (analytic) = 7.704120217900864000E-3 " " y[1] (numeric) = 7.704120217900522000E-3 " " absolute error = 3.417405247674310000000000000000E-16 " " relative error = 4.435815058718603000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.864999999999955 " " y[1] (analytic) = 7.711828191463217000E-3 " " y[1] (numeric) = 7.711828191462873000E-3 " " absolute error = 3.4434260998139620000000000000000E-16 " " relative error = 4.465122944032571000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.863999999999955 " " y[1] (analytic) = 7.719543876854404000E-3 " " y[1] (numeric) = 7.719543876854058000E-3 " " absolute error = 3.4694469519536140000000000000000E-16 " " relative error = 4.4943678114921990000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.862999999999954 " " y[1] (analytic) = 7.727267281790113000E-3 " " y[1] (numeric) = 7.727267281789763000E-3 " " absolute error = 3.50414142147315030000000000000000E-16 " " relative error = 4.5347744470168944000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.861999999999954 " " y[1] (analytic) = 7.734998413993747000E-3 " " y[1] (numeric) = 7.734998413993394000E-3 " " absolute error = 3.53016227361280240000000000000000E-16 " " relative error = 4.563882349641108000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.860999999999954 " " y[1] (analytic) = 7.742737281196439000E-3 " " y[1] (numeric) = 7.7427372811960830000E-3 " " absolute error = 3.56485674313233860000000000000000E-16 " " relative error = 4.604129797597217300000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 166343368.0991351 " " Order of pole = 274877906943988.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.859999999999953 " " y[1] (analytic) = 7.750483891137058000E-3 " " y[1] (numeric) = 7.750483891136698000E-3 " " absolute error = 3.59087759527199070000000000000000E-16 " " relative error = 4.633101165952079300000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.858999999999953 " " y[1] (analytic) = 7.758238251562213000E-3 " " y[1] (numeric) = 7.758238251561851000E-3 " " absolute error = 3.6168984474116430000000000000000E-16 " " relative error = 4.662010021003592500000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.857999999999953 " " y[1] (analytic) = 7.766000370226266000E-3 " " y[1] (numeric) = 7.7660003702259020000E-3 " " absolute error = 3.6429192995512950000000000000000E-16 " " relative error = 4.6908564587734586000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.856999999999952 " " y[1] (analytic) = 7.773770254891338000E-3 " " y[1] (numeric) = 7.77377025489096900E-3 " " absolute error = 3.6776137690708310000000000000000E-16 " " relative error = 4.730798117884739000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.855999999999952 " " y[1] (analytic) = 7.781547913327311000E-3 " " y[1] (numeric) = 7.781547913326940000E-3 " " absolute error = 3.7036346212104830000000000000000E-16 " " relative error = 4.759508856672767000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.854999999999952 " " y[1] (analytic) = 7.789333353311847000E-3 " " y[1] (numeric) = 7.789333353311474000E-3 " " absolute error = 3.72965547335013500000000000000000E-16 " " relative error = 4.788157476614312000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.853999999999951 " " y[1] (analytic) = 7.797126582630385000E-3 " " y[1] (numeric) = 7.797126582630010000E-3 " " absolute error = 3.75567632548978740000000000000000E-16 " " relative error = 4.816744073202924000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.852999999999951 " " y[1] (analytic) = 7.804927609076154000E-3 " " y[1] (numeric) = 7.8049276090757770000E-3 " " absolute error = 3.78169717762943950000000000000000E-16 " " relative error = 4.8452687418033175000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.851999999999950 " " y[1] (analytic) = 7.812736440450184000E-3 " " y[1] (numeric) = 7.812736440449805000E-3 " " absolute error = 3.79904441238920750000000000000000E-16 " " relative error = 4.862629683397204000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.85099999999995 " " y[1] (analytic) = 7.820553084561307000E-3 " " y[1] (numeric) = 7.820553084560922000E-3 " " absolute error = 3.85108611666851200000000000000000E-16 " " relative error = 4.924314271673456700000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.84999999999995 " " y[1] (analytic) = 7.828377549226164000E-3 " " y[1] (numeric) = 7.828377549225777000E-3 " " absolute error = 3.868433351428280000000000000000E-16 " " relative error = 4.941551844048036600000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.84899999999995 " " y[1] (analytic) = 7.836209842269224000E-3 " " y[1] (numeric) = 7.836209842268833000E-3 " " absolute error = 3.9031278209478160000000000000000E-16 " " relative error = 4.980887316077209000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.847999999999950 " " y[1] (analytic) = 7.844049971522777000E-3 " " y[1] (numeric) = 7.844049971522384000E-3 " " absolute error = 3.9378222904673520000000000000000E-16 " " relative error = 5.020139219871513000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.846999999999949 " " y[1] (analytic) = 7.851897944826957000E-3 " " y[1] (numeric) = 7.85189794482656000E-3 " " absolute error = 3.955169525227120000000000000000E-16 " " relative error = 5.0372146365362450000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.845999999999949 " " y[1] (analytic) = 7.859753770029737000E-3 " " y[1] (numeric) = 7.859753770029336000E-3 " " absolute error = 4.00721122950642440000000000000000E-16 " " relative error = 5.098392833610694000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.844999999999948 " " y[1] (analytic) = 7.867617454986939000E-3 " " y[1] (numeric) = 7.867617454986536000E-3 " " absolute error = 4.02455846426619250000000000000000E-16 " " relative error = 5.115345893838802000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.843999999999948 " " y[1] (analytic) = 7.875489007562254000E-3 " " y[1] (numeric) = 7.875489007561848000E-3 " " absolute error = 4.05925293378572860000000000000000E-16 " " relative error = 5.154286838427335000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.842999999999948 " " y[1] (analytic) = 7.883368435627233000E-3 " " y[1] (numeric) = 7.883368435626823000E-3 " " absolute error = 4.09394740330526500000000000000000E-16 " " relative error = 5.19314482982113000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.841999999999947 " " y[1] (analytic) = 7.891255747061303000E-3 " " y[1] (numeric) = 7.89125574706089000E-3 " " absolute error = 4.1286418728248010000000000000000E-16 " " relative error = 5.23191999494162100000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.840999999999947 " " y[1] (analytic) = 7.89915094975178000E-3 " " y[1] (numeric) = 7.899150949751363000E-3 " " absolute error = 4.1633363423443370000000000000000E-16 " " relative error = 5.2706124605394000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.839999999999947 " " y[1] (analytic) = 7.907054051593863000E-3 " " y[1] (numeric) = 7.907054051593443000E-3 " " absolute error = 4.1980308118638730000000000000000E-16 " " relative error = 5.309222353194430000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.838999999999946 " " y[1] (analytic) = 7.914965060490657000E-3 " " y[1] (numeric) = 7.914965060490233000E-3 " " absolute error = 4.23272528138340930000000000000000E-16 " " relative error = 5.3477497993162560000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.837999999999946 " " y[1] (analytic) = 7.922883984353172000E-3 " " y[1] (numeric) = 7.922883984352745000E-3 " " absolute error = 4.26741975090294550000000000000000E-16 " " relative error = 5.386194925144218000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.836999999999946 " " y[1] (analytic) = 7.93081083110033100E-3 " " y[1] (numeric) = 7.9308108310999000E-3 " " absolute error = 4.30211422042248160000000000000000E-16 " " relative error = 5.424557856747669000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.835999999999945 " " y[1] (analytic) = 7.938745608658981000E-3 " " y[1] (numeric) = 7.938745608658547000E-3 " " absolute error = 4.33680868994201800000000000000000E-16 " " relative error = 5.4628387200261920000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.834999999999945 " " y[1] (analytic) = 7.946688324963902000E-3 " " y[1] (numeric) = 7.946688324963467000E-3 " " absolute error = 4.3541559247017860000000000000000E-16 " " relative error = 5.4792081262625390000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.833999999999945 " " y[1] (analytic) = 7.954638987957810000E-3 " " y[1] (numeric) = 7.954638987957372000E-3 " " absolute error = 4.3888503942213220000000000000000E-16 " " relative error = 5.517347048515232000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.832999999999944 " " y[1] (analytic) = 7.962597605591368000E-3 " " y[1] (numeric) = 7.962597605590929000E-3 " " absolute error = 4.406197628981090000000000000000E-16 " " relative error = 5.533618358269217000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.831999999999944 " " y[1] (analytic) = 7.970564185823198000E-3 " " y[1] (numeric) = 7.970564185822754000E-3 " " absolute error = 4.4408920985006260000000000000000E-16 " " relative error = 5.571615753875234000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.830999999999944 " " y[1] (analytic) = 7.978538736619877000E-3 " " y[1] (numeric) = 7.978538736619429000E-3 " " absolute error = 4.4755865680201623000000000000000E-16 " " relative error = 5.609531664586809000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.829999999999943 " " y[1] (analytic) = 7.986521265955957000E-3 " " y[1] (numeric) = 7.986521265955506000E-3 " " absolute error = 4.5102810375396984000000000000000E-16 " " relative error = 5.647366215332846000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.828999999999943 " " y[1] (analytic) = 7.994511781813967000E-3 " " y[1] (numeric) = 7.994511781813515000E-3 " " absolute error = 4.5276282722994665000000000000000E-16 " " relative error = 5.66342060136678000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.827999999999943 " " y[1] (analytic) = 8.002510292184427000E-3 " " y[1] (numeric) = 8.00251029218397100E-3 " " absolute error = 4.5623227418190027000000000000000E-16 " " relative error = 5.701114494379033000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.826999999999942 " " y[1] (analytic) = 8.010516805065845000E-3 " " y[1] (numeric) = 8.010516805065386000E-3 " " absolute error = 4.5796699765787710000000000000000E-16 " " relative error = 5.717071804509031000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.825999999999942 " " y[1] (analytic) = 8.018531328464737000E-3 " " y[1] (numeric) = 8.018531328464273000E-3 " " absolute error = 4.6317116808580750000000000000000E-16 " " relative error = 5.7762593810865390000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.824999999999942 " " y[1] (analytic) = 8.026553870395624000E-3 " " y[1] (numeric) = 8.026553870395158000E-3 " " absolute error = 4.6664061503776110000000000000000E-16 " " relative error = 5.813710623171344000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.823999999999941 " " y[1] (analytic) = 8.03458443888105100E-3 " " y[1] (numeric) = 8.034584438880582000E-3 " " absolute error = 4.6837533851373790000000000000000E-16 " " relative error = 5.829490524079513000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.822999999999941 " " y[1] (analytic) = 8.042623041951587000E-3 " " y[1] (numeric) = 8.042623041951115000E-3 " " absolute error = 4.7184478546569153000000000000000E-16 " " relative error = 5.8668021987910520000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.821999999999940 " " y[1] (analytic) = 8.050669687645834000E-3 " " y[1] (numeric) = 8.050669687645359000E-3 " " absolute error = 4.7531423241764514000000000000000E-16 " " relative error = 5.904033463787978000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.82099999999994 " " y[1] (analytic) = 8.05872438401044000E-3 " " y[1] (numeric) = 8.058724384009962000E-3 " " absolute error = 4.770489558936219500000000000000E-16 " " relative error = 5.919658411946056000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.81999999999994 " " y[1] (analytic) = 8.066787139100102000E-3 " " y[1] (numeric) = 8.066787139099622000E-3 " " absolute error = 4.8051840284557557000000000000000E-16 " " relative error = 5.956750743012419000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.8189999999999396 " " y[1] (analytic) = 8.074857960977575000E-3 " " y[1] (numeric) = 8.07485796097709100E-3 " " absolute error = 4.8398784979752920000000000000000E-16 " " relative error = 5.993763012754414000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.817999999999940 " " y[1] (analytic) = 8.082936857713682000E-3 " " y[1] (numeric) = 8.082936857713194000E-3 " " absolute error = 4.8745729674948280000000000000000E-16 " " relative error = 6.0306953441593960000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.816999999999939 " " y[1] (analytic) = 8.09102383738732000E-3 " " y[1] (numeric) = 8.09102383738682900E-3 " " absolute error = 4.9092674370143640000000000000000E-16 " " relative error = 6.0675478600488460000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.8159999999999386 " " y[1] (analytic) = 8.09911890808547000E-3 " " y[1] (numeric) = 8.099118908084976000E-3 " " absolute error = 4.94396190653390000000000000000E-16 " " relative error = 6.1043206830785880000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.814999999999938 " " y[1] (analytic) = 8.107222077903202000E-3 " " y[1] (numeric) = 8.107222077902706000E-3 " " absolute error = 4.9613091412936683000000000000000E-16 " " relative error = 6.119616674638854000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.813999999999938 " " y[1] (analytic) = 8.11533335494369000E-3 " " y[1] (numeric) = 8.115333354943188000E-3 " " absolute error = 5.01335084557297300000000000000000E-16 " " relative error = 6.17762774035516900000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.8129999999999376 " " y[1] (analytic) = 8.123452747318207000E-3 " " y[1] (numeric) = 8.123452747317702000E-3 " " absolute error = 5.0480453150925090000000000000000E-16 " " relative error = 6.21416221908722000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.811999999999937 " " y[1] (analytic) = 8.131580263146149000E-3 " " y[1] (numeric) = 8.131580263145641000E-3 " " absolute error = 5.0653925498522770000000000000000E-16 " " relative error = 6.2292843284221010000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.810999999999937 " " y[1] (analytic) = 8.139715910555031000E-3 " " y[1] (numeric) = 8.139715910554521000E-3 " " absolute error = 5.1000870193718130000000000000000E-16 " " relative error = 6.265681843709516000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.8099999999999365 " " y[1] (analytic) = 8.147859697680502000E-3 " " y[1] (numeric) = 8.147859697679989000E-3 " " absolute error = 5.1347814888913490000000000000000E-16 " " relative error = 6.302000377293066000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.808999999999936 " " y[1] (analytic) = 8.156011632666351000E-3 " " y[1] (numeric) = 8.156011632665834000E-3 " " absolute error = 5.1694759584108850000000000000000E-16 " " relative error = 6.338240050696063000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.807999999999936 " " y[1] (analytic) = 8.164171723664512000E-3 " " y[1] (numeric) = 8.164171723663991000E-3 " " absolute error = 5.2041704279304210000000000000000E-16 " " relative error = 6.3744009852777990000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.8069999999999355 " " y[1] (analytic) = 8.172339978835076000E-3 " " y[1] (numeric) = 8.172339978834552000E-3 " " absolute error = 5.2388648974499570000000000000000E-16 " " relative error = 6.41048330223375000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.805999999999935 " " y[1] (analytic) = 8.180516406346301000E-3 " " y[1] (numeric) = 8.180516406345774000E-3 " " absolute error = 5.2735593669694940000000000000000E-16 " " relative error = 6.44648712259578000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.804999999999935 " " y[1] (analytic) = 8.188701014374614000E-3 " " y[1] (numeric) = 8.188701014374083000E-3 " " absolute error = 5.308253836489030000000000000000E-16 " " relative error = 6.482412567232351000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.8039999999999345 " " y[1] (analytic) = 8.196893811104623000E-3 " " y[1] (numeric) = 8.196893811104089000E-3 " " absolute error = 5.3429483060085660000000000000000E-16 " " relative error = 6.5182597568487280000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.802999999999934 " " y[1] (analytic) = 8.205094804729127000E-3 " " y[1] (numeric) = 8.205094804728589000E-3 " " absolute error = 5.3776427755281020000000000000000E-16 " " relative error = 6.55402881198718000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.801999999999934 " " y[1] (analytic) = 8.213304003449119000E-3 " " y[1] (numeric) = 8.213304003448577000E-3 " " absolute error = 5.4123372450476380000000000000000E-16 " " relative error = 6.5897198530271930000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.8009999999999335 " " y[1] (analytic) = 8.221521415473798000E-3 " " y[1] (numeric) = 8.221521415473254000E-3 " " absolute error = 5.4470317145671740000000000000000E-16 " " relative error = 6.625333000185668000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.799999999999933 " " y[1] (analytic) = 8.229747049020578000E-3 " " y[1] (numeric) = 8.22974704902003000E-3 " " absolute error = 5.481726184086710000000000000000E-16 " " relative error = 6.660868373517130000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.798999999999933 " " y[1] (analytic) = 8.237980912315094000E-3 " " y[1] (numeric) = 8.237980912314542000E-3 " " absolute error = 5.5164206536062470000000000000000E-16 " " relative error = 6.69632609291393000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7979999999999325 " " y[1] (analytic) = 8.246223013591208000E-3 " " y[1] (numeric) = 8.246223013590653000E-3 " " absolute error = 5.5511151231257830000000000000000E-16 " " relative error = 6.73170627810645100000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.796999999999932 " " y[1] (analytic) = 8.254473361091024000E-3 " " y[1] (numeric) = 8.254473361090465000E-3 " " absolute error = 5.5858095926453190000000000000000E-16 " " relative error = 6.7670090486633080000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.795999999999932 " " y[1] (analytic) = 8.262731963064887000E-3 " " y[1] (numeric) = 8.262731963064325000E-3 " " absolute error = 5.6205040621648550000000000000000E-16 " " relative error = 6.802234523991563000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7949999999999315 " " y[1] (analytic) = 8.270998827771402000E-3 " " y[1] (numeric) = 8.270998827770838000E-3 " " absolute error = 5.6378512969246230000000000000000E-16 " " relative error = 6.81640925639416000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.793999999999931 " " y[1] (analytic) = 8.279273963477435000E-3 " " y[1] (numeric) = 8.279273963476868000E-3 " " absolute error = 5.6725457664441590000000000000000E-16 " " relative error = 6.851501461924802000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.792999999999930 " " y[1] (analytic) = 8.287557378458121000E-3 " " y[1] (numeric) = 8.287557378457551000E-3 " " absolute error = 5.7072402359636950000000000000000E-16 " " relative error = 6.886516708528071000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7919999999999305 " " y[1] (analytic) = 8.295849080996875000E-3 " " y[1] (numeric) = 8.295849080996303000E-3 " " absolute error = 5.7245874707234630000000000000000E-16 " " relative error = 6.900544374459094000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.79099999999993 " " y[1] (analytic) = 8.304149079385403000E-3 " " y[1] (numeric) = 8.304149079384827000E-3 " " absolute error = 5.7592819402430000000000000000E-16 " " relative error = 6.935426959687059000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.78999999999993 " " y[1] (analytic) = 8.312457381923701000E-3 " " y[1] (numeric) = 8.312457381923122000E-3 " " absolute error = 5.7939764097625360000000000000000E-16 " " relative error = 6.9702329209676750000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7889999999999295 " " y[1] (analytic) = 8.320773996920076000E-3 " " y[1] (numeric) = 8.320773996919492000E-3 " " absolute error = 5.846018114041840000000000000000E-16 " " relative error = 7.025810478935898000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.787999999999930 " " y[1] (analytic) = 8.32909893269113900E-3 " " y[1] (numeric) = 8.329098932690552000E-3 " " absolute error = 5.8807125835613760000000000000000E-16 " " relative error = 7.060442709450819000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.786999999999929 " " y[1] (analytic) = 8.33743219756183000E-3 " " y[1] (numeric) = 8.337432197561239000E-3 " " absolute error = 5.9154070530809120000000000000000E-16 " " relative error = 7.094998691336636000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7859999999999285 " " y[1] (analytic) = 8.345773799865412000E-3 " " y[1] (numeric) = 8.345773799864817000E-3 " " absolute error = 5.9501015226004480000000000000000E-16 " " relative error = 7.129478542416764000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.784999999999928 " " y[1] (analytic) = 8.354123747943492000E-3 " " y[1] (numeric) = 8.354123747942893000E-3 " " absolute error = 5.9847959921199840000000000000000E-16 " " relative error = 7.163882380355262000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.783999999999928 " " y[1] (analytic) = 8.362482050146013000E-3 " " y[1] (numeric) = 8.362482050145411000E-3 " " absolute error = 6.0194904616395210000000000000000E-16 " " relative error = 7.198210322657036000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7829999999999275 " " y[1] (analytic) = 8.370848714831283000E-3 " " y[1] (numeric) = 8.370848714830678000E-3 " " absolute error = 6.0541849311590570000000000000000E-16 " " relative error = 7.232462486668033000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.781999999999927 " " y[1] (analytic) = 8.379223750365964000E-3 " " y[1] (numeric) = 8.379223750365357000E-3 " " absolute error = 6.0715321659188250000000000000000E-16 " " relative error = 7.245936314391473000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.780999999999927 " " y[1] (analytic) = 8.387607165125094000E-3 " " y[1] (numeric) = 8.387607165124483000E-3 " " absolute error = 6.1062266354383610000000000000000E-16 " " relative error = 7.280057965551242000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 14.7683380243005 " " Order of pole = 274877906943986. " " " " "TOP MAIN SOLVE Loop" x[1] = -4.7799999999999265 " " y[1] (analytic) = 8.39599896749209000E-3 " " y[1] (numeric) = 8.395998967491474000E-3 " " absolute error = 6.1582683397176650000000000000000E-16 " " relative error = 7.334765480035734000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.778999999999926 " " y[1] (analytic) = 8.404399165858752000E-3 " " y[1] (numeric) = 8.404399165858133000E-3 " " absolute error = 6.1929628092372010000000000000000E-16 " " relative error = 7.368715701171021000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.777999999999926 " " y[1] (analytic) = 8.41280776862527900E-3 " " y[1] (numeric) = 8.412807768624656000E-3 " " absolute error = 6.2276572787567370000000000000000E-16 " " relative error = 7.402590728367952000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7769999999999255 " " y[1] (analytic) = 8.421224784200277000E-3 " " y[1] (numeric) = 8.421224784199651000E-3 " " absolute error = 6.2623517482762740000000000000000E-16 " " relative error = 7.436390678022946000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.775999999999925 " " y[1] (analytic) = 8.42965022100076000E-3 " " y[1] (numeric) = 8.429650221000131000E-3 " " absolute error = 6.2796989830360420000000000000000E-16 " " relative error = 7.449536835338016000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.774999999999925 " " y[1] (analytic) = 8.438084087452167000E-3 " " y[1] (numeric) = 8.438084087451536000E-3 " " absolute error = 6.3143934525555780000000000000000E-16 " " relative error = 7.483207547013404000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7739999999999245 " " y[1] (analytic) = 8.446526391988365000E-3 " " y[1] (numeric) = 8.44652639198773000E-3 " " absolute error = 6.3490879220751140000000000000000E-16 " " relative error = 7.51680350883329100000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.772999999999924 " " y[1] (analytic) = 8.454977143051658000E-3 " " y[1] (numeric) = 8.45497714305102000E-3 " " absolute error = 6.383782391594650000000000000000E-16 " " relative error = 7.550324836585601000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.771999999999924 " " y[1] (analytic) = 8.4634363490927990E-3 " " y[1] (numeric) = 8.463436349092157000E-3 " " absolute error = 6.4184768611141860000000000000000E-16 " " relative error = 7.583771645901474000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7709999999999235 " " y[1] (analytic) = 8.471904018570996000E-3 " " y[1] (numeric) = 8.471904018570349000E-3 " " absolute error = 6.470518565393490000000000000000E-16 " " relative error = 7.637620245944322000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.769999999999923 " " y[1] (analytic) = 8.480380159953915000E-3 " " y[1] (numeric) = 8.480380159953265000E-3 " " absolute error = 6.5052130349130270000000000000000E-16 " " relative error = 7.67089789869559000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.768999999999923 " " y[1] (analytic) = 8.488864781717703000E-3 " " y[1] (numeric) = 8.48886478171704900E-3 " " absolute error = 6.5399075044325630000000000000000E-16 " " relative error = 7.704101399420838000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7679999999999225 " " y[1] (analytic) = 8.497357892346978000E-3 " " y[1] (numeric) = 8.497357892346322000E-3 " " absolute error = 6.5572547391923310000000000000000E-16 " " relative error = 7.71681600594700900000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.766999999999922 " " y[1] (analytic) = 8.505859500334855000E-3 " " y[1] (numeric) = 8.505859500334195000E-3 " " absolute error = 6.5919492087118670000000000000000E-16 " " relative error = 7.749891952074165000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.765999999999922 " " y[1] (analytic) = 8.514369614182942000E-3 " " y[1] (numeric) = 8.514369614182277000E-3 " " absolute error = 6.6439909129911710000000000000000E-16 " " relative error = 7.80326813851708000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7649999999999215 " " y[1] (analytic) = 8.52288824240135000E-3 " " y[1] (numeric) = 8.522888242400682000E-3 " " absolute error = 6.6786853825107070000000000000000E-16 " " relative error = 7.836176179436757000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.763999999999921 " " y[1] (analytic) = 8.531415393508712000E-3 " " y[1] (numeric) = 8.531415393508041000E-3 " " absolute error = 6.7133798520302430000000000000000E-16 " " relative error = 7.86901064170225000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.762999999999920 " " y[1] (analytic) = 8.539951076032177000E-3 " " y[1] (numeric) = 8.539951076031504000E-3 " " absolute error = 6.7307270867900120000000000000000E-16 " " relative error = 7.881458601888424000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7619999999999205 " " y[1] (analytic) = 8.548495298507433000E-3 " " y[1] (numeric) = 8.548495298506755000E-3 " " absolute error = 6.7654215563095480000000000000000E-16 " " relative error = 7.914166552201053000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.76099999999992 " " y[1] (analytic) = 8.557048069478699000E-3 " " y[1] (numeric) = 8.557048069478016000E-3 " " absolute error = 6.8174632605888520000000000000000E-16 " " relative error = 7.967073697885838000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.75999999999992 " " y[1] (analytic) = 8.565609397498746000E-3 " " y[1] (numeric) = 8.56560939749806100E-3 " " absolute error = 6.8521577301083880000000000000000E-16 " " relative error = 7.999614986073605000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7589999999999195 " " y[1] (analytic) = 8.574179291128904000E-3 " " y[1] (numeric) = 8.574179291128217000E-3 " " absolute error = 6.8695049648681560000000000000000E-16 " " relative error = 8.011851317333131000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.757999999999920 " " y[1] (analytic) = 8.582757758939068000E-3 " " y[1] (numeric) = 8.582757758938377000E-3 " " absolute error = 6.9041994343876920000000000000000E-16 " " relative error = 8.044266922478229000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.756999999999919 " " y[1] (analytic) = 8.591344809507708000E-3 " " y[1] (numeric) = 8.591344809507012000E-3 " " absolute error = 6.9562411386669960000000000000000E-16 " " relative error = 8.096801249286135000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7559999999999185 " " y[1] (analytic) = 8.59994045142187000E-3 " " y[1] (numeric) = 8.599940451421173000E-3 " " absolute error = 6.9735883734267650000000000000000E-16 " " relative error = 8.108879837968863000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.754999999999918 " " y[1] (analytic) = 8.608544693277204000E-3 " " y[1] (numeric) = 8.608544693276501000E-3 " " absolute error = 7.0256300777060690000000000000000E-16 " " relative error = 8.161228556079515000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.753999999999918 " " y[1] (analytic) = 8.617157543677947000E-3 " " y[1] (numeric) = 8.61715754367724100E-3 " " absolute error = 7.0603245472256050000000000000000E-16 " " relative error = 8.193333487798970000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7529999999999175 " " y[1] (analytic) = 8.62577901123695000E-3 " " y[1] (numeric) = 8.625779011236241000E-3 " " absolute error = 7.0950190167451410000000000000000E-16 " " relative error = 8.225366088677135000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.751999999999917 " " y[1] (analytic) = 8.634409104575685000E-3 " " y[1] (numeric) = 8.634409104574973000E-3 " " absolute error = 7.1297134862646770000000000000000E-16 " " relative error = 8.257326471230537000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.750999999999917 " " y[1] (analytic) = 8.643047832324245000E-3 " " y[1] (numeric) = 8.643047832323528000E-3 " " absolute error = 7.1644079557842130000000000000000E-16 " " relative error = 8.289214747823045000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7499999999999165 " " y[1] (analytic) = 8.651695203121356000E-3 " " y[1] (numeric) = 8.651695203120636000E-3 " " absolute error = 7.1991024253037490000000000000000E-16 " " relative error = 8.32103103066606000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.748999999999916 " " y[1] (analytic) = 8.660351225614392000E-3 " " y[1] (numeric) = 8.660351225613668000E-3 " " absolute error = 7.2337968948232860000000000000000E-16 " " relative error = 8.3527754318187000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.747999999999916 " " y[1] (analytic) = 8.669015908459374000E-3 " " y[1] (numeric) = 8.669015908458647000E-3 " " absolute error = 7.2684913643428220000000000000000E-16 " " relative error = 8.384448063188007000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7469999999999155 " " y[1] (analytic) = 8.67768926032098900E-3 " " y[1] (numeric) = 8.677689260320257000E-3 " " absolute error = 7.3205330686221260000000000000000E-16 " " relative error = 8.436039651817792000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.745999999999915 " " y[1] (analytic) = 8.686371289872586000E-3 " " y[1] (numeric) = 8.68637128987185000E-3 " " absolute error = 7.3552275381416620000000000000000E-16 " " relative error = 8.467549098110854000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.744999999999915 " " y[1] (analytic) = 8.695062005796197000E-3 " " y[1] (numeric) = 8.695062005795458000E-3 " " absolute error = 7.3899220076611980000000000000000E-16 " " relative error = 8.498987129401744000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7439999999999145 " " y[1] (analytic) = 8.703761416782538000E-3 " " y[1] (numeric) = 8.703761416781796000E-3 " " absolute error = 7.4246164771807340000000000000000E-16 " " relative error = 8.53035385697112000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.742999999999914 " " y[1] (analytic) = 8.712469531531021000E-3 " " y[1] (numeric) = 8.712469531530275000E-3 " " absolute error = 7.45931094670027000000000000000000E-16 " " relative error = 8.561649391948535000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.741999999999914 " " y[1] (analytic) = 8.721186358749763000E-3 " " y[1] (numeric) = 8.721186358749012000E-3 " " absolute error = 7.5113526509795750000000000000000E-16 " " relative error = 8.612764756991587000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7409999999999135 " " y[1] (analytic) = 8.72991190715559000E-3 " " y[1] (numeric) = 8.729911907154836000E-3 " " absolute error = 7.5460471204991110000000000000000E-16 " " relative error = 8.643898358600722000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.739999999999913 " " y[1] (analytic) = 8.73864618547405000E-3 " " y[1] (numeric) = 8.738646185473294000E-3 " " absolute error = 7.5633943552588790000000000000000E-16 " " relative error = 8.655109950361932000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.738999999999913 " " y[1] (analytic) = 8.747389202439426000E-3 " " y[1] (numeric) = 8.747389202438666000E-3 " " absolute error = 7.5980888247784150000000000000000E-16 " " relative error = 8.686121823251559000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7379999999999125 " " y[1] (analytic) = 8.756140966794732000E-3 " " y[1] (numeric) = 8.756140966793968000E-3 " " absolute error = 7.6327832942979510000000000000000E-16 " " relative error = 8.71706305693706100000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.736999999999912 " " y[1] (analytic) = 8.764901487291735000E-3 " " y[1] (numeric) = 8.764901487290968000E-3 " " absolute error = 7.6674777638174870000000000000000E-16 " " relative error = 8.747933761645346000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.735999999999912 " " y[1] (analytic) = 8.773670772690956000E-3 " " y[1] (numeric) = 8.773670772690185000E-3 " " absolute error = 7.70217223333702300000000000000000E-16 " " relative error = 8.778734047453556000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7349999999999115 " " y[1] (analytic) = 8.78244883176168000E-3 " " y[1] (numeric) = 8.782448831760906000E-3 " " absolute error = 7.736866702856560000000000000000E-16 " " relative error = 8.809464024289242000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.733999999999911 " " y[1] (analytic) = 8.791235673281969000E-3 " " y[1] (numeric) = 8.791235673281191000E-3 " " absolute error = 7.7715611723760960000000000000000E-16 " " relative error = 8.84012380193056000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.732999999999910 " " y[1] (analytic) = 8.800031306038661000E-3 " " y[1] (numeric) = 8.80003130603788100E-3 " " absolute error = 7.8062556418956320000000000000000E-16 " " relative error = 8.87071349000646000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7319999999999105 " " y[1] (analytic) = 8.808835738827394000E-3 " " y[1] (numeric) = 8.80883573882661000E-3 " " absolute error = 7.8409501114151680000000000000000E-16 " " relative error = 8.90123319799687000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.73099999999991 " " y[1] (analytic) = 8.8176489804526000E-3 " " y[1] (numeric) = 8.817648980451812000E-3 " " absolute error = 7.8756445809347040000000000000000E-16 " " relative error = 8.931683035232887000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.72999999999991 " " y[1] (analytic) = 8.826471039727523000E-3 " " y[1] (numeric) = 8.82647103972673000E-3 " " absolute error = 7.9276862852140080000000000000000E-16 " " relative error = 8.981716758069984000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7289999999999095 " " y[1] (analytic) = 8.835301925474218000E-3 " " y[1] (numeric) = 8.835301925473422000E-3 " " absolute error = 7.9623807547335450000000000000000E-16 " " relative error = 9.012007537372504000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.727999999999910 " " y[1] (analytic) = 8.844141646523578000E-3 " " y[1] (numeric) = 8.844141646522776000E-3 " " absolute error = 8.0144224590128490000000000000000E-16 " " relative error = 9.061843171816598000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.726999999999909 " " y[1] (analytic) = 8.852990211715319000E-3 " " y[1] (numeric) = 8.852990211714514000E-3 " " absolute error = 8.0491169285323850000000000000000E-16 " " relative error = 9.09197540722551100000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7259999999999085 " " y[1] (analytic) = 8.861847629898011000E-3 " " y[1] (numeric) = 8.861847629897202000E-3 " " absolute error = 8.1011586328116890000000000000000E-16 " " relative error = 9.141613545103261000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.724999999999908 " " y[1] (analytic) = 8.87071390992907000E-3 " " y[1] (numeric) = 8.870713909928256000E-3 " " absolute error = 8.1358531023312250000000000000000E-16 " " relative error = 9.171587749239316000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.723999999999908 " " y[1] (analytic) = 8.87958906067478000E-3 " " y[1] (numeric) = 8.879589060673962000E-3 " " absolute error = 8.1705475718507610000000000000000E-16 " " relative error = 9.201492902454051000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7229999999999075 " " y[1] (analytic) = 8.888473091010288000E-3 " " y[1] (numeric) = 8.888473091009468000E-3 " " absolute error = 8.2052420413702980000000000000000E-16 " " relative error = 9.231329112836035000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.721999999999907 " " y[1] (analytic) = 8.89736600981962900E-3 " " y[1] (numeric) = 8.897366009818806000E-3 " " absolute error = 8.2399365108898340000000000000000E-16 " " relative error = 9.261096488326747000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.720999999999907 " " y[1] (analytic) = 8.906267825995724000E-3 " " y[1] (numeric) = 8.906267825994895000E-3 " " absolute error = 8.2919782151691380000000000000000E-16 " " relative error = 9.310272694659383000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7199999999999065 " " y[1] (analytic) = 8.915178548440384000E-3 " " y[1] (numeric) = 8.915178548439552000E-3 " " absolute error = 8.3266726846886740000000000000000E-16 " " relative error = 9.339883255782171000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.718999999999906 " " y[1] (analytic) = 8.924098186064335000E-3 " " y[1] (numeric) = 8.9240981860634990E-3 " " absolute error = 8.361367154208210000000000000000E-16 " " relative error = 9.369425324415555000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.717999999999906 " " y[1] (analytic) = 8.933026747787218000E-3 " " y[1] (numeric) = 8.933026747786378000E-3 " " absolute error = 8.3960616237277460000000000000000E-16 " " relative error = 9.398899007895076000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7169999999999055 " " y[1] (analytic) = 8.941964242537592000E-3 " " y[1] (numeric) = 8.941964242536747000E-3 " " absolute error = 8.4481033280070500000000000000000E-16 " " relative error = 9.447704216729912000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.715999999999905 " " y[1] (analytic) = 8.950910679252954000E-3 " " y[1] (numeric) = 8.950910679252105000E-3 " " absolute error = 8.4827977975265870000000000000000E-16 " " relative error = 9.477022061217312000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.714999999999905 " " y[1] (analytic) = 8.959866066879741000E-3 " " y[1] (numeric) = 8.959866066878888000E-3 " " absolute error = 8.5348395018058910000000000000000E-16 " " relative error = 9.525632903548673000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7139999999999045 " " y[1] (analytic) = 8.968830414373342000E-3 " " y[1] (numeric) = 8.968830414372485000E-3 " " absolute error = 8.5695339713254270000000000000000E-16 " " relative error = 9.554795414117757000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.712999999999904 " " y[1] (analytic) = 8.977803730698104000E-3 " " y[1] (numeric) = 8.977803730697244000E-3 " " absolute error = 8.6042284408449630000000000000000E-16 " " relative error = 9.58389011270567000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.711999999999904 " " y[1] (analytic) = 8.986786024827345000E-3 " " y[1] (numeric) = 8.986786024826481000E-3 " " absolute error = 8.6389229103644990000000000000000E-16 " " relative error = 9.612917105735218000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7109999999999035 " " y[1] (analytic) = 8.995777305743361000E-3 " " y[1] (numeric) = 8.995777305742492000E-3 " " absolute error = 8.6909646146438040000000000000000E-16 " " relative error = 9.661160252483184000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.709999999999903 " " y[1] (analytic) = 9.00477758243743000E-3 " " y[1] (numeric) = 9.00477758243656000E-3 " " absolute error = 8.7083118494035720000000000000000E-16 " " relative error = 9.670768400085668000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.708999999999903 " " y[1] (analytic) = 9.013786863909834000E-3 " " y[1] (numeric) = 9.01378686390895900E-3 " " absolute error = 8.7430063189231080000000000000000E-16 " " relative error = 9.699592913527944000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7079999999999025 " " y[1] (analytic) = 9.022805159169853000E-3 " " y[1] (numeric) = 9.022805159168973000E-3 " " absolute error = 8.7950480232024120000000000000000E-16 " " relative error = 9.747576134085116000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.706999999999902 " " y[1] (analytic) = 9.031832477235782000E-3 " " y[1] (numeric) = 9.0318324772348990E-3 " " absolute error = 8.8297424927219480000000000000000E-16 " " relative error = 9.776246974217924000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.705999999999902 " " y[1] (analytic) = 9.040868827134941000E-3 " " y[1] (numeric) = 9.040868827134054000E-3 " " absolute error = 8.8644369622414840000000000000000E-16 " " relative error = 9.804850763497508000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7049999999999015 " " y[1] (analytic) = 9.04991421790368100E-3 " " y[1] (numeric) = 9.04991421790279000E-3 " " absolute error = 8.899131431761020000000000000000E-16 " " relative error = 9.833387607316363000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.703999999999901 " " y[1] (analytic) = 9.058968658587392000E-3 " " y[1] (numeric) = 9.058968658586498000E-3 " " absolute error = 8.9338259012805570000000000000000E-16 " " relative error = 9.861857610923285000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.702999999999900 " " y[1] (analytic) = 9.068032158240518000E-3 " " y[1] (numeric) = 9.06803215823962000E-3 " " absolute error = 8.985867605559861000000000000000E-16 " " relative error = 9.909390977836364000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7019999999999005 " " y[1] (analytic) = 9.077104725926557000E-3 " " y[1] (numeric) = 9.077104725925655000E-3 " " absolute error = 9.0205620750793970000000000000000E-16 " " relative error = 9.937708495655383000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.7009999999999 " " y[1] (analytic) = 9.086186370718079000E-3 " " y[1] (numeric) = 9.086186370717173000E-3 " " absolute error = 9.0552565445989330000000000000000E-16 " " relative error = 9.965959507259479000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6999999999999 " " y[1] (analytic) = 9.095277101696728000E-3 " " y[1] (numeric) = 9.095277101695819000E-3 " " absolute error = 9.089951014118469000000000000000E-16 " " relative error = 9.994144117305381000000000000E-12 "%" Correct digits = 14 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6989999999998995 " " y[1] (analytic) = 9.104376927953237000E-3 " " y[1] (numeric) = 9.104376927952323000E-3 " " absolute error = 9.1419927183977730000000000000000E-16 " " relative error = 1.004131616116314700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.697999999999900 " " y[1] (analytic) = 9.113485858587433000E-3 " " y[1] (numeric) = 9.113485858586515000E-3 " " absolute error = 9.176687187917310000000000000000E-16 " " relative error = 1.006934923728479100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.696999999999899 " " y[1] (analytic) = 9.122603902708246000E-3 " " y[1] (numeric) = 9.122603902707326000E-3 " " absolute error = 9.2113816574368460000000000000000E-16 " " relative error = 1.009731624399722400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6959999999998985 " " y[1] (analytic) = 9.131731069433723000E-3 " " y[1] (numeric) = 9.131731069432799000E-3 " " absolute error = 9.2460761269563820000000000000000E-16 " " relative error = 1.01252172853681600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.694999999999898 " " y[1] (analytic) = 9.14086736789103000E-3 " " y[1] (numeric) = 9.140867367890102000E-3 " " absolute error = 9.2807705964759180000000000000000E-16 " " relative error = 1.015305246532328300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.693999999999898 " " y[1] (analytic) = 9.150012807216468000E-3 " " y[1] (numeric) = 9.150012807215535000E-3 " " absolute error = 9.3328123007552220000000000000000E-16 " " relative error = 1.019978058762342200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6929999999998975 " " y[1] (analytic) = 9.159167396555475000E-3 " " y[1] (numeric) = 9.159167396554537000E-3 " " absolute error = 9.3848540050345260000000000000000E-16 " " relative error = 1.024640515748617800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.691999999999897 " " y[1] (analytic) = 9.16833114506264000E-3 " " y[1] (numeric) = 9.168331145061699000E-3 " " absolute error = 9.4195484745540630000000000000000E-16 " " relative error = 1.02740055147623100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.690999999999897 " " y[1] (analytic) = 9.177504061901716000E-3 " " y[1] (numeric) = 9.17750406190077100E-3 " " absolute error = 9.4542429440735990000000000000000E-16 " " relative error = 1.030154046275032500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6899999999998965 " " y[1] (analytic) = 9.186686156245618000E-3 " " y[1] (numeric) = 9.18668615624467000E-3 " " absolute error = 9.4889374135931350000000000000000E-16 " " relative error = 1.032901010463063300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.688999999999896 " " y[1] (analytic) = 9.195877437276443000E-3 " " y[1] (numeric) = 9.19587743727549000E-3 " " absolute error = 9.523631883112671000000000000000E-16 " " relative error = 1.03564145434427410000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.687999999999896 " " y[1] (analytic) = 9.205077914185471000E-3 " " y[1] (numeric) = 9.205077914184514000E-3 " " absolute error = 9.5756735873919750000000000000000E-16 " " relative error = 1.040259917043765400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6869999999998955 " " y[1] (analytic) = 9.21428759617318000E-3 " " y[1] (numeric) = 9.214287596172219000E-3 " " absolute error = 9.6103680569115110000000000000000E-16 " " relative error = 1.042985467580025300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.685999999999895 " " y[1] (analytic) = 9.223506492449253000E-3 " " y[1] (numeric) = 9.223506492448288000E-3 " " absolute error = 9.6450625264310470000000000000000E-16 " " relative error = 1.045704530519591300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.684999999999895 " " y[1] (analytic) = 9.232734612232587000E-3 " " y[1] (numeric) = 9.232734612231619000E-3 " " absolute error = 9.6797569959505840000000000000000E-16 " " relative error = 1.048417116108344600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6839999999998945 " " y[1] (analytic) = 9.241971964751301000E-3 " " y[1] (numeric) = 9.24197196475033000E-3 " " absolute error = 9.714451465470120000000000000000E-16 " " relative error = 1.051123234578166500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.682999999999894 " " y[1] (analytic) = 9.251218559242753000E-3 " " y[1] (numeric) = 9.251218559241776000E-3 " " absolute error = 9.7664931697494240000000000000000E-16 " " relative error = 1.055698025855401200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.681999999999894 " " y[1] (analytic) = 9.260474404953534000E-3 " " y[1] (numeric) = 9.260474404952553000E-3 " " absolute error = 9.801187639268960000000000000000E-16 " " relative error = 1.058389366534633800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6809999999998935 " " y[1] (analytic) = 9.269739511139491000E-3 " " y[1] (numeric) = 9.269739511138507000E-3 " " absolute error = 9.8358821087884960000000000000000E-16 " " relative error = 1.061074272580008200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 96038388.34994496 " " Order of pole = 274877906943986. " " " " "TOP MAIN SOLVE Loop" x[1] = -4.679999999999893 " " y[1] (analytic) = 9.279013887065732000E-3 " " y[1] (numeric) = 9.279013887064744000E-3 " " absolute error = 9.88792381306780000000000000000E-16 " " relative error = 1.06562226691468200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.678999999999893 " " y[1] (analytic) = 9.288297542006633000E-3 " " y[1] (numeric) = 9.288297542005641000E-3 " " absolute error = 9.9226182825873370000000000000000E-16 " " relative error = 1.068292465622679200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6779999999998925 " " y[1] (analytic) = 9.29759048524585000E-3 " " y[1] (numeric) = 9.297590485244854000E-3 " " absolute error = 9.9573127521068730000000000000000E-16 " " relative error = 1.070956262045303100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.676999999999892 " " y[1] (analytic) = 9.306892726076328000E-3 " " y[1] (numeric) = 9.306892726075328000E-3 " " absolute error = 1.0009354456386177000000000000000E-15 " " relative error = 1.075477578928321600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.675999999999892 " " y[1] (analytic) = 9.316204273800307000E-3 " " y[1] (numeric) = 9.316204273799302000E-3 " " absolute error = 1.0044048925905713000000000000000E-15 " " relative error = 1.078126738177296500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 14.7683380243005 " " Order of pole = 274877906943986. " " " " "TOP MAIN SOLVE Loop" x[1] = -4.6749999999998915 " " y[1] (analytic) = 9.325525137729336000E-3 " " y[1] (numeric) = 9.325525137728328000E-3 " " absolute error = 1.007874339542524900000000000000E-15 " " relative error = 1.080769527353321000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.673999999999891 " " y[1] (analytic) = 9.334855327184280000E-3 " " y[1] (numeric) = 9.334855327183268000E-3 " " absolute error = 1.0130785099704553000000000000000E-15 " " relative error = 1.085264285800169200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.672999999999890 " " y[1] (analytic) = 9.34419485149532900E-3 " " y[1] (numeric) = 9.344194851494313000E-3 " " absolute error = 1.016547956922409000000000000000E-15 " " relative error = 1.087892507677890900000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6719999999998905 " " y[1] (analytic) = 9.35354372000201000E-3 " " y[1] (numeric) = 9.353543720000989000E-3 " " absolute error = 1.0217521273503394000000000000000E-15 " " relative error = 1.092369007871724400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 96038388.34994496 " " Order of pole = 274877906943986. " " " " "TOP MAIN SOLVE Loop" x[1] = -4.67099999999989 " " y[1] (analytic) = 9.362901942053189000E-3 " " y[1] (numeric) = 9.362901942052163000E-3 " " absolute error = 1.025221574302293000000000000000E-15 " " relative error = 1.094982710112066400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.66999999999989 " " y[1] (analytic) = 9.37226952700709000E-3 " " y[1] (numeric) = 9.372269527006061000E-3 " " absolute error = 1.0286910212542466000000000000000E-15 " " relative error = 1.097590096283483100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6689999999998895 " " y[1] (analytic) = 9.3816464842313000E-3 " " y[1] (numeric) = 9.381646484230266000E-3 " " absolute error = 1.033895191682177000000000000000E-15 " " relative error = 1.102040237201381700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.667999999999890 " " y[1] (analytic) = 9.391032823102774000E-3 " " y[1] (numeric) = 9.391032823101737000E-3 " " absolute error = 1.0373646386341306000000000000000E-15 " " relative error = 1.104633173128861400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.666999999999889 " " y[1] (analytic) = 9.400428553007856000E-3 " " y[1] (numeric) = 9.400428553006813000E-3 " " absolute error = 1.042568809062061000000000000000E-15 " " relative error = 1.109065191212447700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6659999999998885 " " y[1] (analytic) = 9.409833683342272000E-3 " " y[1] (numeric) = 9.409833683341227000E-3 " " absolute error = 1.0460382560140147000000000000000E-15 " " relative error = 1.111643724230493600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.664999999999888 " " y[1] (analytic) = 9.419248223511157000E-3 " " y[1] (numeric) = 9.419248223510108000E-3 " " absolute error = 1.0495077029659683000000000000000E-15 " " relative error = 1.114215994803404300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.663999999999888 " " y[1] (analytic) = 9.428672182929051000E-3 " " y[1] (numeric) = 9.428672182927996000E-3 " " absolute error = 1.0547118733938987000000000000000E-15 " " relative error = 1.1186218514453099000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6629999999998875 " " y[1] (analytic) = 9.438105571019912000E-3 " " y[1] (numeric) = 9.438105571018854000E-3 " " absolute error = 1.0581813203458523000000000000000E-15 " " relative error = 1.121179788023394400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.661999999999887 " " y[1] (analytic) = 9.447548397217133000E-3 " " y[1] (numeric) = 9.447548397216069000E-3 " " absolute error = 1.0633854907737827000000000000000E-15 " " relative error = 1.125567656353063200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.660999999999887 " " y[1] (analytic) = 9.457000670963537000E-3 " " y[1] (numeric) = 9.45700067096247000E-3 " " absolute error = 1.0668549377257364000000000000000E-15 " " relative error = 1.128111305946474800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6599999999998865 " " y[1] (analytic) = 9.466462401711399000E-3 " " y[1] (numeric) = 9.466462401710328000E-3 " " absolute error = 1.07032438467769000000000000000E-15 " " relative error = 1.130648746340756500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.658999999999886 " " y[1] (analytic) = 9.475933598922452000E-3 " " y[1] (numeric) = 9.475933598921379000E-3 " " absolute error = 1.0737938316296436000000000000000E-15 " " relative error = 1.133179987406991900000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.657999999999886 " " y[1] (analytic) = 9.485414272067896000E-3 " " y[1] (numeric) = 9.485414272066817000E-3 " " absolute error = 1.078998002057574000000000000000E-15 " " relative error = 1.13753387159372210000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6569999999998855 " " y[1] (analytic) = 9.4949044306283990E-3 " " y[1] (numeric) = 9.494904430627317000E-3 " " absolute error = 1.0824674490095276000000000000000E-15 " " relative error = 1.140050915644536800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.655999999999885 " " y[1] (analytic) = 9.504404084094127000E-3 " " y[1] (numeric) = 9.504404084093039000E-3 " " absolute error = 1.087671619437458000000000000000E-15 " " relative error = 1.144386970307486700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.654999999999885 " " y[1] (analytic) = 9.51391324196473000E-3 " " y[1] (numeric) = 9.513913241963637000E-3 " " absolute error = 1.0928757898653885000000000000000E-15 " " relative error = 1.148713218284190800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6539999999998845 " " y[1] (analytic) = 9.523431913749367000E-3 " " y[1] (numeric) = 9.52343191374827000E-3 " " absolute error = 1.096345236817342100000000000000E-15 " " relative error = 1.15120814297470190000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.652999999999884 " " y[1] (analytic) = 9.532960108966713000E-3 " " y[1] (numeric) = 9.532960108965611000E-3 " " absolute error = 1.1015494072452725000000000000000E-15 " " relative error = 1.155516643995136300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.651999999999884 " " y[1] (analytic) = 9.54249783714496000E-3 " " y[1] (numeric) = 9.542497837143855000E-3 " " absolute error = 1.1050188541972261000000000000000E-15 " " relative error = 1.157997489814301300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6509999999998834 " " y[1] (analytic) = 9.55204510782184000E-3 " " y[1] (numeric) = 9.552045107820731000E-3 " " absolute error = 1.1084883011491797000000000000000E-15 " " relative error = 1.160472222060045400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.649999999999883 " " y[1] (analytic) = 9.561601930544625000E-3 " " y[1] (numeric) = 9.561601930543512000E-3 " " absolute error = 1.1136924715771102000000000000000E-15 " " relative error = 1.164755110772191200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.648999999999883 " " y[1] (analytic) = 9.571168314870137000E-3 " " y[1] (numeric) = 9.57116831486902000E-3 " " absolute error = 1.1171619185290638000000000000000E-15 " " relative error = 1.167215831732264000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6479999999998824 " " y[1] (analytic) = 9.580744270364763000E-3 " " y[1] (numeric) = 9.58074427036364000E-3 " " absolute error = 1.1223660889569942000000000000000E-15 " " relative error = 1.17148110552194400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.646999999999882 " " y[1] (analytic) = 9.590329806604455000E-3 " " y[1] (numeric) = 9.59032980660332900E-3 " " absolute error = 1.1258355359089478000000000000000E-15 " " relative error = 1.17392786130632600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.645999999999882 " " y[1] (analytic) = 9.599924933174754000E-3 " " y[1] (numeric) = 9.599924933173625000E-3 " " absolute error = 1.1293049828609014000000000000000E-15 " " relative error = 1.17636855571477210000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.6449999999998814 " " y[1] (analytic) = 9.609529659670786000E-3 " " y[1] (numeric) = 9.609529659669652000E-3 " " absolute error = 1.132774429812855000000000000000E-15 " " relative error = 1.178803198419664400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.643999999999881 " " y[1] (analytic) = 9.619143995697278000E-3 " " y[1] (numeric) = 9.61914399569614000E-3 " " absolute error = 1.1379786002407855000000000000000E-15 " " relative error = 1.18303520640694490000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.642999999999880 " " y[1] (analytic) = 9.628767950868568000E-3 " " y[1] (numeric) = 9.628767950867426000E-3 " " absolute error = 1.141448047192739000000000000000E-15 " " relative error = 1.1854559721628500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.64199999999988 " " y[1] (analytic) = 9.638401534808612000E-3 " " y[1] (numeric) = 9.638401534807465000E-3 " " absolute error = 1.1466522176206695000000000000000E-15 " " relative error = 1.189670521070938500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.64099999999988 " " y[1] (analytic) = 9.648044757150993000E-3 " " y[1] (numeric) = 9.648044757149843000E-3 " " absolute error = 1.1501216645726231000000000000000E-15 " " relative error = 1.19207745561106500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.63999999999988 " " y[1] (analytic) = 9.657697627538936000E-3 " " y[1] (numeric) = 9.65769762753778000E-3 " " absolute error = 1.1553258350005535000000000000000E-15 " " relative error = 1.196274598312273400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.638999999999880 " " y[1] (analytic) = 9.66736015562531000E-3 " " y[1] (numeric) = 9.66736015562415100E-3 " " absolute error = 1.1587952819525071000000000000000E-15 " " relative error = 1.19866774724247700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.637999999999879 " " y[1] (analytic) = 9.677032351072645000E-3 " " y[1] (numeric) = 9.677032351071482000E-3 " " absolute error = 1.1639994523804376000000000000000E-15 " " relative error = 1.202847536467535600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.636999999999879 " " y[1] (analytic) = 9.686714223553139000E-3 " " y[1] (numeric) = 9.686714223551971000E-3 " " absolute error = 1.1674688993323912000000000000000E-15 " " relative error = 1.205226945266645200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 166343368.0991351 " " Order of pole = 274877906943988.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.635999999999878 " " y[1] (analytic) = 9.696405782748663000E-3 " " y[1] (numeric) = 9.696405782747491000E-3 " " absolute error = 1.1709383462843448000000000000000E-15 " " relative error = 1.20760039598138200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.634999999999878 " " y[1] (analytic) = 9.706107038350777000E-3 " " y[1] (numeric) = 9.706107038349602000E-3 " " absolute error = 1.1761425167122752000000000000000E-15 " " relative error = 1.211755147625201300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.633999999999878 " " y[1] (analytic) = 9.71581800006074100E-3 " " y[1] (numeric) = 9.71581800005956000E-3 " " absolute error = 1.1813466871402056000000000000000E-15 " " relative error = 1.215900387525600300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.632999999999877 " " y[1] (analytic) = 9.725538677589513000E-3 " " y[1] (numeric) = 9.725538677588327000E-3 " " absolute error = 1.186550857568136000000000000000E-15 " " relative error = 1.220036130545957800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.631999999999877 " " y[1] (analytic) = 9.735269080657774000E-3 " " y[1] (numeric) = 9.735269080656581000E-3 " " absolute error = 1.1917550279960665000000000000000E-15 " " relative error = 1.224162391529443300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.630999999999877 " " y[1] (analytic) = 9.745009218995925000E-3 " " y[1] (numeric) = 9.74500921899472900E-3 " " absolute error = 1.19522447494802010000000000000E-15 " " relative error = 1.226499070537739200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.629999999999876 " " y[1] (analytic) = 9.754759102344107000E-3 " " y[1] (numeric) = 9.754759102342908000E-3 " " absolute error = 1.1986939218999737000000000000000E-15 " " relative error = 1.228829855584975700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.628999999999876 " " y[1] (analytic) = 9.764518740452206000E-3 " " y[1] (numeric) = 9.764518740451003000E-3 " " absolute error = 1.2038980923279041000000000000000E-15 " " relative error = 1.23293131420847700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.627999999999876 " " y[1] (analytic) = 9.774288143079858000E-3 " " y[1] (numeric) = 9.77428814307865000E-3 " " absolute error = 1.2073675392798577000000000000000E-15 " " relative error = 1.235248563993550100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.626999999999875 " " y[1] (analytic) = 9.784067319996469000E-3 " " y[1] (numeric) = 9.784067319995257000E-3 " " absolute error = 1.2125717097077882000000000000000E-15 " " relative error = 1.239332958420635400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.625999999999875 " " y[1] (analytic) = 9.793856280981215000E-3 " " y[1] (numeric) = 9.793856280979998000E-3 " " absolute error = 1.2160411566597418000000000000000E-15 " " relative error = 1.241636717725972800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.624999999999875 " " y[1] (analytic) = 9.803655035823056000E-3 " " y[1] (numeric) = 9.803655035821837000E-3 " " absolute error = 1.2195106036116954000000000000000E-15 " " relative error = 1.243934633721343000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.623999999999874 " " y[1] (analytic) = 9.813463594320752000E-3 " " y[1] (numeric) = 9.813463594319527000E-3 " " absolute error = 1.2247147740396258000000000000000E-15 " " relative error = 1.247994413255267700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.622999999999874 " " y[1] (analytic) = 9.823281966282859000E-3 " " y[1] (numeric) = 9.82328196628163100E-3 " " absolute error = 1.2281842209915794000000000000000E-15 " " relative error = 1.25027890394184200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.621999999999874 " " y[1] (analytic) = 9.83311016152775000E-3 " " y[1] (numeric) = 9.833110161526518000E-3 " " absolute error = 1.231653667943533000000000000000E-15 " " relative error = 1.252557581183626000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.620999999999873 " " y[1] (analytic) = 9.842948189883625000E-3 " " y[1] (numeric) = 9.842948189882388000E-3 " " absolute error = 1.2368578383714635000000000000000E-15 " " relative error = 1.25659285664297200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.619999999999873 " " y[1] (analytic) = 9.852796061188508000E-3 " " y[1] (numeric) = 9.852796061187268000E-3 " " absolute error = 1.240327285323417100000000000000E-15 " " relative error = 1.2588581734775100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.618999999999873 " " y[1] (analytic) = 9.862653785290273000E-3 " " y[1] (numeric) = 9.862653785289030000E-3 " " absolute error = 1.2437967322753707000000000000000E-15 " " relative error = 1.261117706605944500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.617999999999872 " " y[1] (analytic) = 9.872521372046645000E-3 " " y[1] (numeric) = 9.872521372045396000E-3 " " absolute error = 1.2490009027033011000000000000000E-15 " " relative error = 1.265128588366250500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.616999999999872 " " y[1] (analytic) = 9.882398831325214000E-3 " " y[1] (numeric) = 9.88239883132396000E-3 " " absolute error = 1.2542050731312315000000000000000E-15 " " relative error = 1.269130192515256500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.615999999999872 " " y[1] (analytic) = 9.892286173003436000E-3 " " y[1] (numeric) = 9.892286173002178000E-3 " " absolute error = 1.2576745200831851000000000000000E-15 " " relative error = 1.271368921286814800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.614999999999871 " " y[1] (analytic) = 9.902183406968657000E-3 " " y[1] (numeric) = 9.902183406967394000E-3 " " absolute error = 1.2628786905111156000000000000000E-15 " " relative error = 1.275353766546441800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.613999999999871 " " y[1] (analytic) = 9.912090543118108000E-3 " " y[1] (numeric) = 9.912090543116842000E-3 " " absolute error = 1.2663481374630692000000000000000E-15 " " relative error = 1.277579267415273600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.612999999999870 " " y[1] (analytic) = 9.922007591358929000E-3 " " y[1] (numeric) = 9.922007591357658000E-3 " " absolute error = 1.2715523078909996000000000000000E-15 " " relative error = 1.281547404779647400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.61199999999987 " " y[1] (analytic) = 9.93193456160817000E-3 " " y[1] (numeric) = 9.931934561606893000E-3 " " absolute error = 1.27675647831893000000000000000E-15 " " relative error = 1.285506333533674400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.61099999999987 " " y[1] (analytic) = 9.941871463792797000E-3 " " y[1] (numeric) = 9.941871463791517000E-3 " " absolute error = 1.2802259252708836000000000000000E-15 " " relative error = 1.287711201993835500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.60999999999987 " " y[1] (analytic) = 9.951818307849719000E-3 " " y[1] (numeric) = 9.951818307848433000E-3 " " absolute error = 1.285430095698814000000000000000E-15 " " relative error = 1.29165350083301100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.608999999999870 " " y[1] (analytic) = 9.961775103725777000E-3 " " y[1] (numeric) = 9.961775103724486000E-3 " " absolute error = 1.2906342661267445000000000000000E-15 " " relative error = 1.295586632591251600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.607999999999869 " " y[1] (analytic) = 9.971741861377769000E-3 " " y[1] (numeric) = 9.971741861376474000E-3 " " absolute error = 1.294103713078698000000000000000E-15 " " relative error = 1.297770972282163700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.606999999999869 " " y[1] (analytic) = 9.981718590772453000E-3 " " y[1] (numeric) = 9.981718590771155000E-3 " " absolute error = 1.2975731600306517000000000000000E-15 " " relative error = 1.299949651185504700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.605999999999868 " " y[1] (analytic) = 9.99170530188655900E-3 " " y[1] (numeric) = 9.991705301885256000E-3 " " absolute error = 1.3027773304585820000000000000000E-15 " " relative error = 1.303858842006280500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.604999999999868 " " y[1] (analytic) = 1.000170200470680300E-2 " " y[1] (numeric) = 1.000170200470549300E-2 " " absolute error = 1.3097162243624894000000000000000E-15 " " relative error = 1.309493347978310800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.603999999999868 " " y[1] (analytic) = 1.00117087092298800E-2 " " y[1] (numeric) = 1.001170870922856700E-2 " " absolute error = 1.313185671314443000000000000000E-15 " " relative error = 1.311649898587047300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.602999999999867 " " y[1] (analytic) = 1.002172542546250500E-2 " " y[1] (numeric) = 1.002172542546118600E-2 " " absolute error = 1.3183898417423734000000000000000E-15 " " relative error = 1.315531792951241700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.601999999999867 " " y[1] (analytic) = 1.003175216342138700E-2 " " y[1] (numeric) = 1.003175216342006600E-2 " " absolute error = 1.321859288694327000000000000000E-15 " " relative error = 1.317675384280525600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.600999999999867 " " y[1] (analytic) = 1.004178893313327200E-2 " " y[1] (numeric) = 1.004178893313194400E-2 " " absolute error = 1.3270634591222574000000000000000E-15 " " relative error = 1.321540880772309500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 83171684.04956704 " " Order of pole = 137438953471987.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.599999999999866 " " y[1] (analytic) = 1.005183574463492500E-2 " " y[1] (numeric) = 1.005183574463359300E-2 " " absolute error = 1.3322676295501878000000000000000E-15 " " relative error = 1.325397333776841300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.598999999999866 " " y[1] (analytic) = 1.006189260797316000E-2 " " y[1] (numeric) = 1.006189260797182300E-2 " " absolute error = 1.3357370765021415000000000000000E-15 " " relative error = 1.32752070464724310000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.597999999999866 " " y[1] (analytic) = 1.007195953320484100E-2 " " y[1] (numeric) = 1.0071959533203500E-2 " " absolute error = 1.3409412469300720000000000000000E-15 " " relative error = 1.331360836497912000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.596999999999865 " " y[1] (analytic) = 1.008203653039689600E-2 " " y[1] (numeric) = 1.00820365303955500E-2 " " absolute error = 1.3461454173580023000000000000000E-15 " " relative error = 1.335191965729774200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.595999999999865 " " y[1] (analytic) = 1.009212360962632200E-2 " " y[1] (numeric) = 1.00921236096249700E-2 " " absolute error = 1.3513495877859327000000000000000E-15 " " relative error = 1.339014106502772700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.594999999999865 " " y[1] (analytic) = 1.010222078098019800E-2 " " y[1] (numeric) = 1.010222078097884000E-2 " " absolute error = 1.3565537582138631000000000000000E-15 " " relative error = 1.342827272957540200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 78415015.72553855 " " Order of pole = 91625968981321.81 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.593999999999864 " " y[1] (analytic) = 1.011232805455569600E-2 " " y[1] (numeric) = 1.011232805455433600E-2 " " absolute error = 1.3600232051658168000000000000000E-15 " " relative error = 1.344916025101770800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.592999999999864 " " y[1] (analytic) = 1.012244544046009100E-2 " " y[1] (numeric) = 1.012244544045872600E-2 " " absolute error = 1.3652273755937472000000000000000E-15 " " relative error = 1.348712999861517700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.591999999999864 " " y[1] (analytic) = 1.01325729488107710E-2 " " y[1] (numeric) = 1.0132572948809400E-2 " " absolute error = 1.3704315460216776000000000000000E-15 " " relative error = 1.352501040895561500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.590999999999863 " " y[1] (analytic) = 1.014271058973524500E-2 " " y[1] (numeric) = 1.014271058973386900E-2 " " absolute error = 1.375635716449608000000000000000E-15 " " relative error = 1.356280162269242500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.589999999999863 " " y[1] (analytic) = 1.015285837337115300E-2 " " y[1] (numeric) = 1.015285837336977200E-2 " " absolute error = 1.3808398868775384000000000000000E-15 " " relative error = 1.360050378028709600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.588999999999863 " " y[1] (analytic) = 1.016301630986628000E-2 " " y[1] (numeric) = 1.016301630986489500E-2 " " absolute error = 1.384309333829492000000000000000E-15 " " relative error = 1.362104803950379700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.587999999999862 " " y[1] (analytic) = 1.017318440937856300E-2 " " y[1] (numeric) = 1.017318440937717400E-2 " " absolute error = 1.3895135042574225000000000000000E-15 " " relative error = 1.365858956588306000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.586999999999862 " " y[1] (analytic) = 1.018336268207610500E-2 " " y[1] (numeric) = 1.01833626820747100E-2 " " absolute error = 1.394717674685353000000000000000E-15 " " relative error = 1.36960424393036400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 166343368.0991351 " " Order of pole = 274877906943988.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.585999999999862 " " y[1] (analytic) = 1.019355113813717700E-2 " " y[1] (numeric) = 1.019355113813577700E-2 " " absolute error = 1.3999218451132833000000000000000E-15 " " relative error = 1.373340679947883700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.584999999999861 " " y[1] (analytic) = 1.020374978775023700E-2 " " y[1] (numeric) = 1.020374978774883400E-2 " " absolute error = 1.403391292065237000000000000000E-15 " " relative error = 1.375368194298561300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.583999999999861 " " y[1] (analytic) = 1.021395864111393500E-2 " " y[1] (numeric) = 1.021395864111252600E-2 " " absolute error = 1.4085954624931674000000000000000E-15 " " relative error = 1.379088668739259500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.582999999999860 " " y[1] (analytic) = 1.022417770843712400E-2 " " y[1] (numeric) = 1.022417770843571200E-2 " " absolute error = 1.412064909445121000000000000000E-15 " " relative error = 1.381103644432810000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.58199999999986 " " y[1] (analytic) = 1.023440699993887500E-2 " " y[1] (numeric) = 1.023440699993745700E-2 " " absolute error = 1.4172690798730514000000000000000E-15 " " relative error = 1.384808206163303800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.58099999999986 " " y[1] (analytic) = 1.024464652584847900E-2 " " y[1] (numeric) = 1.024464652584705600E-2 " " absolute error = 1.4224732503009818000000000000000E-15 " " relative error = 1.388503982750317600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.57999999999986 " " y[1] (analytic) = 1.02548962964054610E-2 " " y[1] (numeric) = 1.025489629640403400E-2 " " absolute error = 1.4259426972529354000000000000000E-15 " " relative error = 1.390499382965731000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.578999999999860 " " y[1] (analytic) = 1.026515632185959500E-2 " " y[1] (numeric) = 1.026515632185816300E-2 " " absolute error = 1.4328815911568427000000000000000E-15 " " relative error = 1.395869235917556200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.577999999999859 " " y[1] (analytic) = 1.027542661247090600E-2 " " y[1] (numeric) = 1.027542661246946800E-2 " " absolute error = 1.438085761584773000000000000000E-15 " " relative error = 1.399538740162302700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.576999999999859 " " y[1] (analytic) = 1.028570717850968600E-2 " " y[1] (numeric) = 1.028570717850824200E-2 " " absolute error = 1.4432899320127035000000000000000E-15 " " relative error = 1.403199514592660400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.575999999999858 " " y[1] (analytic) = 1.029599803025650100E-2 " " y[1] (numeric) = 1.029599803025505200E-2 " " absolute error = 1.448494102440634000000000000000E-15 " " relative error = 1.406851572993694500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.574999999999858 " " y[1] (analytic) = 1.030629917800220400E-2 " " y[1] (numeric) = 1.030629917800075100E-2 " " absolute error = 1.4536982728685643000000000000000E-15 " " relative error = 1.410494929131634600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 166343368.0991351 " " Order of pole = 274877906943988.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.573999999999858 " " y[1] (analytic) = 1.031661063204794600E-2 " " y[1] (numeric) = 1.031661063204648700E-2 " " absolute error = 1.4589024432964948000000000000000E-15 " " relative error = 1.41412959675389900000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 166343368.0991351 " " Order of pole = 274877906943988.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.572999999999857 " " y[1] (analytic) = 1.032693240270517900E-2 " " y[1] (numeric) = 1.032693240270371500E-2 " " absolute error = 1.4641066137244252000000000000000E-15 " " relative error = 1.417755589589118300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.571999999999857 " " y[1] (analytic) = 1.033726450029567600E-2 " " y[1] (numeric) = 1.033726450029420600E-2 " " absolute error = 1.4693107841523556000000000000000E-15 " " relative error = 1.421372921347160100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.570999999999857 " " y[1] (analytic) = 1.034760693515153200E-2 " " y[1] (numeric) = 1.034760693515005800E-2 " " absolute error = 1.4727802311043092000000000000000E-15 " " relative error = 1.42330515677124700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.569999999999856 " " y[1] (analytic) = 1.035795971761518800E-2 " " y[1] (numeric) = 1.035795971761370700E-2 " " absolute error = 1.4797191250082165000000000000000E-15 " " relative error = 1.428581656377503600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.568999999999856 " " y[1] (analytic) = 1.036832285803942200E-2 " " y[1] (numeric) = 1.036832285803793900E-2 " " absolute error = 1.48318857196017000000000000000E-15 " " relative error = 1.430499987575262200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.567999999999856 " " y[1] (analytic) = 1.03786963667873800E-2 " " y[1] (numeric) = 1.037869636678589200E-2 " " absolute error = 1.4883927423881005000000000000000E-15 " " relative error = 1.434084484011952400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.566999999999855 " " y[1] (analytic) = 1.03890802542325690E-2 " " y[1] (numeric) = 1.038908025423107600E-2 " " absolute error = 1.493596912816031000000000000000E-15 " " relative error = 1.437660385968749500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.565999999999855 " " y[1] (analytic) = 1.03994745307588800E-2 " " y[1] (numeric) = 1.03994745307573800E-2 " " absolute error = 1.5005358067199380000000000000000E-15 " " relative error = 1.44289579466900210000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.564999999999855 " " y[1] (analytic) = 1.040987920676058600E-2 " " y[1] (numeric) = 1.04098792067590800E-2 " " absolute error = 1.5057399771478686000000000000000E-15 " " relative error = 1.446452881191917800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.563999999999854 " " y[1] (analytic) = 1.042029429264236700E-2 " " y[1] (numeric) = 1.042029429264085500E-2 " " absolute error = 1.510944147575799000000000000000E-15 " " relative error = 1.450001415643948400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.562999999999854 " " y[1] (analytic) = 1.043071979881930900E-2 " " y[1] (numeric) = 1.043071979881779300E-2 " " absolute error = 1.5161483180037294000000000000000E-15 " " relative error = 1.453541411567155500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.561999999999854 " " y[1] (analytic) = 1.04411557357169200E-2 " " y[1] (numeric) = 1.044115573571539900E-2 " " absolute error = 1.5213524884316598000000000000000E-15 " " relative error = 1.457072882485072300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.560999999999853 " " y[1] (analytic) = 1.045160211377113600E-2 " " y[1] (numeric) = 1.045160211376960900E-2 " " absolute error = 1.5265566588595902000000000000000E-15 " " relative error = 1.460595841902729800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.559999999999853 " " y[1] (analytic) = 1.046205894342833700E-2 " " y[1] (numeric) = 1.046205894342680500E-2 " " absolute error = 1.5317608292875207000000000000000E-15 " " relative error = 1.464110303306678200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.558999999999853 " " y[1] (analytic) = 1.047252623514535200E-2 " " y[1] (numeric) = 1.047252623514381700E-2 " " absolute error = 1.5352302762394743000000000000000E-15 " " relative error = 1.465959828381529200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.557999999999852 " " y[1] (analytic) = 1.048300399938947700E-2 " " y[1] (numeric) = 1.048300399938793700E-2 " " absolute error = 1.5404344466674047000000000000000E-15 " " relative error = 1.46945898976774100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.556999999999852 " " y[1] (analytic) = 1.049349224663847400E-2 " " y[1] (numeric) = 1.049349224663692800E-2 " " absolute error = 1.5456386170953350000000000000000E-15 " " relative error = 1.47294969183445200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.555999999999852 " " y[1] (analytic) = 1.050399098738059200E-2 " " y[1] (numeric) = 1.050399098737904200E-2 " " absolute error = 1.5508427875232655000000000000000E-15 " " relative error = 1.47643194799618100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.554999999999851 " " y[1] (analytic) = 1.051450023211457200E-2 " " y[1] (numeric) = 1.051450023211301700E-2 " " absolute error = 1.556046957951196000000000000000E-15 " " relative error = 1.479905771649081300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.553999999999851 " " y[1] (analytic) = 1.05250199913496600E-2 " " y[1] (numeric) = 1.0525019991348099E-2 " " absolute error = 1.5612511283791264000000000000000E-15 " " relative error = 1.483371176170964800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.552999999999850 " " y[1] (analytic) = 1.05355502756056200E-2 " " y[1] (numeric) = 1.053555027560405100E-2 " " absolute error = 1.5681900222830336000000000000000E-15 " " relative error = 1.488474717750695500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.55199999999985 " " y[1] (analytic) = 1.05460910954127300E-2 " " y[1] (numeric) = 1.054609109541115700E-2 " " absolute error = 1.573394192710964000000000000000E-15 " " relative error = 1.491921678350900000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.55099999999985 " " y[1] (analytic) = 1.055664246131181500E-2 " " y[1] (numeric) = 1.055664246131023700E-2 " " absolute error = 1.5785983631388945000000000000000E-15 " " relative error = 1.49536026148860500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.54999999999985 " " y[1] (analytic) = 1.056720438385424200E-2 " " y[1] (numeric) = 1.056720438385265700E-2 " " absolute error = 1.5838025335668250000000000000000E-15 " " relative error = 1.49879048046684500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.548999999999850 " " y[1] (analytic) = 1.057777687360193200E-2 " " y[1] (numeric) = 1.057777687360034300E-2 " " absolute error = 1.5890067039947553000000000000000E-15 " " relative error = 1.502212348570431400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.547999999999849 " " y[1] (analytic) = 1.058835994112737700E-2 " " y[1] (numeric) = 1.058835994112578600E-2 " " absolute error = 1.592476150946709000000000000000E-15 " " relative error = 1.503987548403225600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.546999999999849 " " y[1] (analytic) = 1.059895359701364800E-2 " " y[1] (numeric) = 1.059895359701204800E-2 " " absolute error = 1.5994150448506161000000000000000E-15 " " relative error = 1.50903108520190700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.545999999999848 " " y[1] (analytic) = 1.060955785185439700E-2 " " y[1] (numeric) = 1.060955785185279400E-2 " " absolute error = 1.6028844918025698000000000000000E-15 " " relative error = 1.510792922932607300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.544999999999848 " " y[1] (analytic) = 1.062017271625388400E-2 " " y[1] (numeric) = 1.062017271625227400E-2 " " absolute error = 1.609823385706477000000000000000E-15 " " relative error = 1.51581657729792500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.543999999999848 " " y[1] (analytic) = 1.06307982008269700E-2 " " y[1] (numeric) = 1.063079820082535500E-2 " " absolute error = 1.6150275561344074000000000000000E-15 " " relative error = 1.51919688966419700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.542999999999847 " " y[1] (analytic) = 1.064143431619914300E-2 " " y[1] (numeric) = 1.064143431619752300E-2 " " absolute error = 1.6202317265623378000000000000000E-15 " " relative error = 1.522568930483277600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.541999999999847 " " y[1] (analytic) = 1.06520810730065200E-2 " " y[1] (numeric) = 1.065208107300489500E-2 " " absolute error = 1.6254358969902682000000000000000E-15 " " relative error = 1.525932712913058400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.540999999999847 " " y[1] (analytic) = 1.066273848189585900E-2 " " y[1] (numeric) = 1.066273848189422700E-2 " " absolute error = 1.6306400674181987000000000000000E-15 " " relative error = 1.52928825009339200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.539999999999846 " " y[1] (analytic) = 1.067340655352456400E-2 " " y[1] (numeric) = 1.06734065535229310E-2 " " absolute error = 1.6341095143701523000000000000000E-15 " " relative error = 1.531010278841611300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.538999999999846 " " y[1] (analytic) = 1.068408529856071500E-2 " " y[1] (numeric) = 1.068408529855907600E-2 " " absolute error = 1.6393136847980827000000000000000E-15 " " relative error = 1.534350989334500600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.537999999999846 " " y[1] (analytic) = 1.069477472768305500E-2 " " y[1] (numeric) = 1.06947747276814110E-2 " " absolute error = 1.6445178552260130000000000000000E-15 " " relative error = 1.537683492265840300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.536999999999845 " " y[1] (analytic) = 1.070547485158101500E-2 " " y[1] (numeric) = 1.070547485157936400E-2 " " absolute error = 1.6514567491299204000000000000000E-15 " " relative error = 1.54262820848720100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.535999999999845 " " y[1] (analytic) = 1.071618568095471800E-2 " " y[1] (numeric) = 1.071618568095306100E-2 " " absolute error = 1.6566609195578508000000000000000E-15 " " relative error = 1.545942715888305500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.534999999999845 " " y[1] (analytic) = 1.072690722651499400E-2 " " y[1] (numeric) = 1.072690722651333100E-2 " " absolute error = 1.6618650899857812000000000000000E-15 " " relative error = 1.549249056501531300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.533999999999844 " " y[1] (analytic) = 1.07376394989833900E-2 " " y[1] (numeric) = 1.073763949898172300E-2 " " absolute error = 1.6670692604137116000000000000000E-15 " " relative error = 1.552547243341094700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.532999999999844 " " y[1] (analytic) = 1.07483825090921800E-2 " " y[1] (numeric) = 1.074838250909050800E-2 " " absolute error = 1.672273430841642000000000000000E-15 " " relative error = 1.55583728940335600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.531999999999844 " " y[1] (analytic) = 1.075913626758437500E-2 " " y[1] (numeric) = 1.075913626758269700E-2 " " absolute error = 1.6774776012695725000000000000000E-15 " " relative error = 1.55911920766684100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.530999999999843 " " y[1] (analytic) = 1.076990078521373500E-2 " " y[1] (numeric) = 1.076990078521205300E-2 " " absolute error = 1.6826817716975030000000000000000E-15 " " relative error = 1.562393011092264300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.529999999999843 " " y[1] (analytic) = 1.078067607274477800E-2 " " y[1] (numeric) = 1.078067607274309000E-2 " " absolute error = 1.6896206656014100000000000000000E-15 " " relative error = 1.567267817157620700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.528999999999843 " " y[1] (analytic) = 1.079146214095279100E-2 " " y[1] (numeric) = 1.079146214095109700E-2 " " absolute error = 1.6948248360293405000000000000000E-15 " " relative error = 1.57052382141768120000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.527999999999842 " " y[1] (analytic) = 1.080225900062384400E-2 " " y[1] (numeric) = 1.080225900062214400E-2 " " absolute error = 1.700029006457271000000000000000E-15 " " relative error = 1.573771751222676500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.526999999999842 " " y[1] (analytic) = 1.081306666255479900E-2 " " y[1] (numeric) = 1.081306666255309300E-2 " " absolute error = 1.7052331768852014000000000000000E-15 " " relative error = 1.577011619460696700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.525999999999842 " " y[1] (analytic) = 1.082388513755331800E-2 " " y[1] (numeric) = 1.082388513755160600E-2 " " absolute error = 1.7121720707891086000000000000000E-15 " " relative error = 1.581846119974750800000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.524999999999841 " " y[1] (analytic) = 1.083471443643787400E-2 " " y[1] (numeric) = 1.083471443643615900E-2 " " absolute error = 1.7156415177410622000000000000000E-15 " " relative error = 1.583467222699699600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.523999999999841 " " y[1] (analytic) = 1.084555457003777300E-2 " " y[1] (numeric) = 1.08455545700360500E-2 " " absolute error = 1.7225804116449694000000000000000E-15 " " relative error = 1.588282462202364000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.522999999999840 " " y[1] (analytic) = 1.085640554919314200E-2 " " y[1] (numeric) = 1.085640554919141500E-2 " " absolute error = 1.726049858596923000000000000000E-15 " " relative error = 1.589890733885862300000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.52199999999984 " " y[1] (analytic) = 1.086726738475496700E-2 " " y[1] (numeric) = 1.086726738475323500E-2 " " absolute error = 1.7329887525008303000000000000000E-15 " " relative error = 1.594686770044819000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.52099999999984 " " y[1] (analytic) = 1.087814008758508400E-2 " " y[1] (numeric) = 1.087814008758334500E-2 " " absolute error = 1.7381929229287607000000000000000E-15 " " relative error = 1.597876943056204500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.51999999999984 " " y[1] (analytic) = 1.088902366855619300E-2 " " y[1] (numeric) = 1.088902366855444800E-2 " " absolute error = 1.7433970933566910000000000000000E-15 " " relative error = 1.601059145817664600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.518999999999840 " " y[1] (analytic) = 1.089991813855187600E-2 " " y[1] (numeric) = 1.08999181385501300E-2 " " absolute error = 1.7468665403086447000000000000000E-15 " " relative error = 1.60264188969471200000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.517999999999839 " " y[1] (analytic) = 1.09108235084666090E-2 " " y[1] (numeric) = 1.091082350846485500E-2 " " absolute error = 1.753805434212552000000000000000E-15 " " relative error = 1.60739969155548100000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.516999999999839 " " y[1] (analytic) = 1.09217397892057590E-2 " " y[1] (numeric) = 1.092173978920400E-2 " " absolute error = 1.7590096046404824000000000000000E-15 " " relative error = 1.610558059970406400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 166343368.0991351 " " Order of pole = 274877906943988.5 " " " " "TOP MAIN SOLVE Loop" x[1] = -4.515999999999838 " " y[1] (analytic) = 1.093266699168560800E-2 " " y[1] (numeric) = 1.093266699168384500E-2 " " absolute error = 1.762479051592436000000000000000E-15 " " relative error = 1.61212177498209490000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.514999999999838 " " y[1] (analytic) = 1.09436051268333600E-2 " " y[1] (numeric) = 1.09436051268315900E-2 " " absolute error = 1.7694179454963432000000000000000E-15 " " relative error = 1.61685105135764500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.513999999999838 " " y[1] (analytic) = 1.09545542055871500E-2 " " y[1] (numeric) = 1.095455420558537500E-2 " " absolute error = 1.7746221159242737000000000000000E-15 " " relative error = 1.619985699663765000000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 96038388.34994496 " " Order of pole = 549755813887988. " " " " "TOP MAIN SOLVE Loop" x[1] = -4.512999999999837 " " y[1] (analytic) = 1.09655142388960600E-2 " " y[1] (numeric) = 1.096551423889427800E-2 " " absolute error = 1.781561009828181000000000000000E-15 " " relative error = 1.624694447533303600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.511999999999837 " " y[1] (analytic) = 1.09764852377201210E-2 " " y[1] (numeric) = 1.097648523771833600E-2 " " absolute error = 1.7850304567801345000000000000000E-15 " " relative error = 1.626231364704951400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "Complex estimate of poles used for equation 1" Radius of convergence = 96038388.34994496 " " Order of pole = 274877906943986. " " " " "TOP MAIN SOLVE Loop" x[1] = -4.510999999999837 " " y[1] (analytic) = 1.098746721303033600E-2 " " y[1] (numeric) = 1.098746721302854600E-2 " " absolute error = 1.790234627208065000000000000000E-15 " " relative error = 1.629342406669461500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.509999999999836 " " y[1] (analytic) = 1.099846017580867800E-2 " " y[1] (numeric) = 1.099846017580688300E-2 " " absolute error = 1.7954387976359953000000000000000E-15 " " relative error = 1.632445605053966500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.508999999999836 " " y[1] (analytic) = 1.100946413704811400E-2 " " y[1] (numeric) = 1.100946413704631300E-2 " " absolute error = 1.8023776915399026000000000000000E-15 " " relative error = 1.63711663810656700000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.507999999999836 " " y[1] (analytic) = 1.102047910775260400E-2 " " y[1] (numeric) = 1.102047910775079500E-2 " " absolute error = 1.807581861967833000000000000000E-15 " " relative error = 1.640202612149819500000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.506999999999835 " " y[1] (analytic) = 1.10315050989371200E-2 " " y[1] (numeric) = 1.103150509893530700E-2 " " absolute error = 1.8127860323957634000000000000000E-15 " " relative error = 1.643280781849454400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.505999999999835 " " y[1] (analytic) = 1.104254212162765500E-2 " " y[1] (numeric) = 1.104254212162583500E-2 " " absolute error = 1.8197249262996706000000000000000E-15 " " relative error = 1.647922105486563400000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.504999999999835 " " y[1] (analytic) = 1.10535901868612300E-2 " " y[1] (numeric) = 1.105359018685940500E-2 " " absolute error = 1.824929096727601000000000000000E-15 " " relative error = 1.650983133875172600000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.503999999999834 " " y[1] (analytic) = 1.106464930568591400E-2 " " y[1] (numeric) = 1.106464930568408400E-2 " " absolute error = 1.8301332671555315000000000000000E-15 " " relative error = 1.65403639699186900000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" " " "TOP MAIN SOLVE Loop" x[1] = -4.502999999999834 " " y[1] (analytic) = 1.107571948916082600E-2 " " y[1] (numeric) = 1.107571948915898900E-2 " " absolute error = 1.8370721610594387000000000000000E-15 " " relative error = 1.65864814728946180000000000E-11 "%" Correct digits = 13 h = 1.000E-3 " " "NO POLE for equation 1" "Finished!" "Maximum Time Reached before Solution Completed!" "diff ( y , x , 1 ) = y;" Iterations = 498 "Total Elapsed Time "= 0 Years 0 Days 0 Hours 3 Minutes 0 Seconds "Elapsed Time(since restart) "= 0 Years 0 Days 0 Hours 3 Minutes 0 Seconds "Expected Time Remaining "= 0 Years 0 Days 0 Hours 57 Minutes 22 Seconds "Optimized Time Remaining "= 0 Years 0 Days 0 Hours 57 Minutes 11 Seconds "Expected Total Time "= 0 Years 0 Days 1 Hours 0 Minutes 12 Seconds "Time to Timeout " Unknown Percent Done = 4.990000000001666 "%" (%o58) true (%o58) diffeq.max