(%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) display_poles() := block([rad_given],
if glob_type_given_pole = 4 then (rad_given :
sqrt(expt(array_given_rad_poles , 2.0)
1, 2
+ expt(array_x - array_given_rad_poles , 2.0)),
1 1, 1
omniout_float(ALWAYS, "Radius of convergence (given) for eq 1 ", 4,
rad_given, 4, " "), omniout_float(ALWAYS,
"Order of pole (given) ", 4,
array_given_ord_poles , 4, " ")) elseif glob_type_given_pole = 3
1, 1
then omniout_str(ALWAYS, "NO POLE (given) for Equation 1")
else omniout_str(ALWAYS, "NO INFO (given) for Equation 1"),
if array_poles # glob_large_float then (omniout_float(ALWAYS,
1, 1
"Radius of convergence (ratio test) for eq 1 ", 4, array_poles , 4,
1, 1
" "), omniout_str(ALWAYS,
"Order of pole (ratio test) Not computed"))
else omniout_str(ALWAYS, "NO POLE (ratio test) for Equation 1"),
if (array_real_poles > 0.0) and (array_real_poles # glob_large_float)
1, 1 1, 1
then (omniout_float(ALWAYS,
"Radius of convergence (three term test) for eq 1 ", 4, array_real_poles ,
1, 1
4, " "), omniout_float(ALWAYS,
"Order of pole (three term test) ", 4, array_real_poles ,
1, 2
4, " ")) else omniout_str(ALWAYS,
"NO REAL POLE (three term test) for Equation 1"),
if (array_complex_poles > 0.0) and (array_complex_poles #
1, 1 1, 1
glob_large_float)
then (omniout_float(ALWAYS,
"Radius of convergence (six term test) for eq 1 ", 4,
array_complex_poles , 4, " "), omniout_float(ALWAYS,
1, 1
"Order of pole (six term test) ", 4,
array_complex_poles , 4, " ")) else omniout_str(ALWAYS,
1, 2
"NO COMPLEX POLE (six term test) for Equation 1"))
(%o3) display_poles() := block([rad_given],
if glob_type_given_pole = 4 then (rad_given :
sqrt(expt(array_given_rad_poles , 2.0)
1, 2
+ expt(array_x - array_given_rad_poles , 2.0)),
1 1, 1
omniout_float(ALWAYS, "Radius of convergence (given) for eq 1 ", 4,
rad_given, 4, " "), omniout_float(ALWAYS,
"Order of pole (given) ", 4,
array_given_ord_poles , 4, " ")) elseif glob_type_given_pole = 3
1, 1
then omniout_str(ALWAYS, "NO POLE (given) for Equation 1")
else omniout_str(ALWAYS, "NO INFO (given) for Equation 1"),
if array_poles # glob_large_float then (omniout_float(ALWAYS,
1, 1
"Radius of convergence (ratio test) for eq 1 ", 4, array_poles , 4,
1, 1
" "), omniout_str(ALWAYS,
"Order of pole (ratio test) Not computed"))
else omniout_str(ALWAYS, "NO POLE (ratio test) for Equation 1"),
if (array_real_poles > 0.0) and (array_real_poles # glob_large_float)
1, 1 1, 1
then (omniout_float(ALWAYS,
"Radius of convergence (three term test) for eq 1 ", 4, array_real_poles ,
1, 1
4, " "), omniout_float(ALWAYS,
"Order of pole (three term test) ", 4, array_real_poles ,
1, 2
4, " ")) else omniout_str(ALWAYS,
"NO REAL POLE (three term test) for Equation 1"),
if (array_complex_poles > 0.0) and (array_complex_poles #
1, 1 1, 1
glob_large_float)
then (omniout_float(ALWAYS,
"Radius of convergence (six term test) for eq 1 ", 4,
array_complex_poles , 4, " "), omniout_float(ALWAYS,
1, 1
"Order of pole (six term test) ", 4,
array_complex_poles , 4, " ")) else omniout_str(ALWAYS,
1, 2
"NO COMPLEX POLE (six term test) for Equation 1"))
(%i4) check_sign(x0, xf) := block([ret],
if xf > x0 then ret : 1.0 else ret : - 1.0, ret)
(%o4) check_sign(x0, xf) := block([ret],
if xf > x0 then ret : 1.0 else ret : - 1.0, ret)
(%i5) 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)
(%o5) 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)
(%i6) test_suggested_h() := block([max_estimated_step_error, hn_div_ho,
hn_div_ho_2, hn_div_ho_3, no_terms, est_tmp], max_estimated_step_error : 0.0,
no_terms : glob_max_terms, hn_div_ho : 0.5, hn_div_ho_2 : 0.25,
hn_div_ho_3 : 0.125, omniout_float(ALWAYS, "hn_div_ho", 32, hn_div_ho, 32,
""), omniout_float(ALWAYS, "hn_div_ho_2", 32, hn_div_ho_2, 32, ""),
omniout_float(ALWAYS, "hn_div_ho_3", 32, hn_div_ho_3, 32, ""),
est_tmp : omniabs(array_y 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 est_tmp >= max_estimated_step_error then max_estimated_step_error :
est_tmp, omniout_float(ALWAYS, "max_estimated_step_error", 32,
max_estimated_step_error, 32, ""), max_estimated_step_error)
(%o6) test_suggested_h() := block([max_estimated_step_error, hn_div_ho,
hn_div_ho_2, hn_div_ho_3, no_terms, est_tmp], max_estimated_step_error : 0.0,
no_terms : glob_max_terms, hn_div_ho : 0.5, hn_div_ho_2 : 0.25,
hn_div_ho_3 : 0.125, omniout_float(ALWAYS, "hn_div_ho", 32, hn_div_ho, 32,
""), omniout_float(ALWAYS, "hn_div_ho_2", 32, hn_div_ho_2, 32, ""),
omniout_float(ALWAYS, "hn_div_ho_3", 32, hn_div_ho_3, 32, ""),
est_tmp : omniabs(array_y 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 est_tmp >= max_estimated_step_error then max_estimated_step_error :
est_tmp, omniout_float(ALWAYS, "max_estimated_step_error", 32,
max_estimated_step_error, 32, ""), max_estimated_step_error)
(%i7) 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))
(%o7) 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))
(%i8) 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 : 3 - 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, " "))))
(%o8) 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 : 3 - 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, " "))))
(%i9) adjust_for_pole(h_param) := (block([hnew, sz2, tmp], hnew : h_param,
glob_normmax : glob_small_float, if omniabs(array_y_higher ) >
1, 1
glob_small_float 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
(%o9) adjust_for_pole(h_param) := (block([hnew, sz2, tmp], hnew : h_param,
glob_normmax : glob_small_float, if omniabs(array_y_higher ) >
1, 1
glob_small_float 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
(%i10) 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, "%"))
(%o10) 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, "%"))
(%i11) check_for_pole() := block([cnt, dr1, dr2, ds1, ds2, hdrc, m, n, nr1,
nr2, ord_no, rad_c, rcs, rm0, rm1, rm2, rm3, rm4, found_sing, h_new, ratio,
term, local_test, tmp_rad, tmp_ratio, prev_tmp_rad],
array_pole : glob_large_float, array_pole : glob_large_float,
1 2
tmp_rad : glob_large_float, prev_tmp_rad : glob_large_float,
tmp_ratio : glob_large_float, rad_c : glob_large_float,
array_poles : glob_large_float, array_poles : glob_large_float,
1, 1 1, 2
found_sing : 1, n : - 10 - 1 + glob_max_terms, cnt : 0,
while (cnt < 5) and (found_sing = 1) do (if (omniabs(array_y_higher ) =
1, n
0.0) or (omniabs(array_y_higher ) = 0.0) then found_sing : 0
1, 1 + n
array_y_higher glob_h
1, n tmp_rad
else (tmp_rad : omniabs(-------------------------), tmp_ratio : ------------,
array_y_higher prev_tmp_rad
1, 1 + n
if (cnt > 0) and (tmp_ratio < 2.0) and (tmp_ratio > 0.5)
then (if tmp_rad < rad_c then rad_c : tmp_rad) elseif cnt = 0
then (if tmp_rad < rad_c then rad_c : tmp_rad) elseif cnt > 0
then found_sing : 0), prev_tmp_rad : tmp_rad, cnt : 1 + cnt, n : 1 + n),
if found_sing = 1 then (if rad_c < array_pole
1
then (array_pole : rad_c, array_poles : rad_c)), n : glob_max_terms,
1 1, 1
m : - 1 - 1 + n, while (m >= 10) and ((omniabs(array_y_higher ) = 0.0)
1, m
or (omniabs(array_y_higher ) = 0.0)
1, m - 1
or (omniabs(array_y_higher ) = 0.0)) do m : m - 1,
1, m - 2
array_y_higher array_y_higher
1, m 1, m - 1
if m > 10 then (rm0 : ----------------------, rm1 : ----------------------,
array_y_higher array_y_higher
1, m - 1 1, m - 2
hdrc : convfloat(m) rm0 - convfloat(m - 1) rm1,
glob_h
if omniabs(hdrc) > 0.0 then (rcs : ------,
hdrc
rm1 convfloat((m - 2) (m - 2)) - rm0 convfloat(m - 3)
ord_no : -----------------------------------------------------,
hdrc
array_real_poles : rcs, array_real_poles : ord_no)
1, 1 1, 2
else (array_real_poles : glob_large_float,
1, 1
array_real_poles : glob_large_float))
1, 2
else (array_real_poles : glob_large_float,
1, 1
array_real_poles : 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
0.0 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)
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) = 0.0)
rm4 rm3 rm2
or (omniabs(dr1) = 0.0) then (rad_c : glob_large_float,
ord_no : glob_large_float) else (if omniabs(nr1 dr2 - nr2 dr1) # 0.0
dr1 dr2 - ds2 dr1 + ds1 dr2
then (rcs : ---------------------------,
nr1 dr2 - nr2 dr1
rcs nr1 - ds1 convfloat(m)
ord_no : ------------- - ------------,
2.0 dr1 2.0
if omniabs(rcs) # 0.0 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_poles : rad_c,
1, 1
array_complex_poles : ord_no), if array_pole glob_ratio_of_radius <
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_poles())
(%o11) check_for_pole() := block([cnt, dr1, dr2, ds1, ds2, hdrc, m, n, nr1,
nr2, ord_no, rad_c, rcs, rm0, rm1, rm2, rm3, rm4, found_sing, h_new, ratio,
term, local_test, tmp_rad, tmp_ratio, prev_tmp_rad],
array_pole : glob_large_float, array_pole : glob_large_float,
1 2
tmp_rad : glob_large_float, prev_tmp_rad : glob_large_float,
tmp_ratio : glob_large_float, rad_c : glob_large_float,
array_poles : glob_large_float, array_poles : glob_large_float,
1, 1 1, 2
found_sing : 1, n : - 10 - 1 + glob_max_terms, cnt : 0,
while (cnt < 5) and (found_sing = 1) do (if (omniabs(array_y_higher ) =
1, n
0.0) or (omniabs(array_y_higher ) = 0.0) then found_sing : 0
1, 1 + n
array_y_higher glob_h
1, n tmp_rad
else (tmp_rad : omniabs(-------------------------), tmp_ratio : ------------,
array_y_higher prev_tmp_rad
1, 1 + n
if (cnt > 0) and (tmp_ratio < 2.0) and (tmp_ratio > 0.5)
then (if tmp_rad < rad_c then rad_c : tmp_rad) elseif cnt = 0
then (if tmp_rad < rad_c then rad_c : tmp_rad) elseif cnt > 0
then found_sing : 0), prev_tmp_rad : tmp_rad, cnt : 1 + cnt, n : 1 + n),
if found_sing = 1 then (if rad_c < array_pole
1
then (array_pole : rad_c, array_poles : rad_c)), n : glob_max_terms,
1 1, 1
m : - 1 - 1 + n, while (m >= 10) and ((omniabs(array_y_higher ) = 0.0)
1, m
or (omniabs(array_y_higher ) = 0.0)
1, m - 1
or (omniabs(array_y_higher ) = 0.0)) do m : m - 1,
1, m - 2
array_y_higher array_y_higher
1, m 1, m - 1
if m > 10 then (rm0 : ----------------------, rm1 : ----------------------,
array_y_higher array_y_higher
1, m - 1 1, m - 2
hdrc : convfloat(m) rm0 - convfloat(m - 1) rm1,
glob_h
if omniabs(hdrc) > 0.0 then (rcs : ------,
hdrc
rm1 convfloat((m - 2) (m - 2)) - rm0 convfloat(m - 3)
ord_no : -----------------------------------------------------,
hdrc
array_real_poles : rcs, array_real_poles : ord_no)
1, 1 1, 2
else (array_real_poles : glob_large_float,
1, 1
array_real_poles : glob_large_float))
1, 2
else (array_real_poles : glob_large_float,
1, 1
array_real_poles : 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
0.0 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)
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) = 0.0)
rm4 rm3 rm2
or (omniabs(dr1) = 0.0) then (rad_c : glob_large_float,
ord_no : glob_large_float) else (if omniabs(nr1 dr2 - nr2 dr1) # 0.0
dr1 dr2 - ds2 dr1 + ds1 dr2
then (rcs : ---------------------------,
nr1 dr2 - nr2 dr1
rcs nr1 - ds1 convfloat(m)
ord_no : ------------- - ------------,
2.0 dr1 2.0
if omniabs(rcs) # 0.0 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_poles : rad_c,
1, 1
array_complex_poles : ord_no), if array_pole glob_ratio_of_radius <
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_poles())
(%i12) 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
(%o12) 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
(%i13) atomall() := block([kkk, order_d, adj2, adj3, temporary, term, temp,
array_const_2D0
1
temp2], array_tmp1 : exp(array_x ), array_tmp2 : ----------------,
1 1 1 array_tmp1
1
array_tmp3 : array_tmp2 + array_const_0D0 ,
1 1 1
if not array_y_set_initial then (if 1 <= glob_max_terms
1, 2
then (temporary : array_tmp3 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_x
1 2
array_tmp1 : --------------------, array_tmp2 :
2 1 2
- ats(2, array_tmp1, array_tmp2, 2)
-----------------------------------, array_tmp3 : array_tmp2 ,
array_tmp1 2 2
1
if not array_y_set_initial then (if 2 <= glob_max_terms
1, 3
then (temporary : array_tmp3 expt(glob_h, 1) factorial_3(1, 2),
2
array_y : temporary, array_y_higher : temporary,
3 1, 3
temporary 2.0
temporary : -------------, array_y_higher : temporary, 0)), kkk : 3,
glob_h 2, 2
array_tmp1 array_x
2 2
array_tmp1 : --------------------, array_tmp2 :
3 2 3
- ats(3, array_tmp1, array_tmp2, 2)
-----------------------------------, array_tmp3 : array_tmp2 ,
array_tmp1 3 3
1
if not array_y_set_initial then (if 3 <= glob_max_terms
1, 4
then (temporary : array_tmp3 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_x
3 2
array_tmp1 : --------------------, array_tmp2 :
4 3 4
- ats(4, array_tmp1, array_tmp2, 2)
-----------------------------------, array_tmp3 : array_tmp2 ,
array_tmp1 4 4
1
if not array_y_set_initial then (if 4 <= glob_max_terms
1, 5
then (temporary : array_tmp3 expt(glob_h, 1) factorial_3(3, 4),
4
array_y : temporary, array_y_higher : temporary,
5 1, 5
temporary 4.0
temporary : -------------, array_y_higher : temporary, 0)), kkk : 5,
glob_h 2, 4
array_tmp1 array_x
4 2
array_tmp1 : --------------------, array_tmp2 :
5 4 5
- ats(5, array_tmp1, array_tmp2, 2)
-----------------------------------, array_tmp3 : array_tmp2 ,
array_tmp1 5 5
1
if not array_y_set_initial then (if 5 <= glob_max_terms
1, 6
then (temporary : array_tmp3 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
array_tmp1 array_x
kkk - 1 2
while kkk <= glob_max_terms do (array_tmp1 : --------------------------,
kkk kkk - 1
- ats(kkk, array_tmp1, array_tmp2, 2)
array_tmp2 : -------------------------------------,
kkk array_tmp1
1
array_tmp3 : array_tmp2 , order_d : 1,
kkk kkk
if order_d + kkk < glob_max_terms then (if not subscript(array_y_set_initial,
1, order_d + kkk) then (temporary : array_tmp3 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))
(%o13) atomall() := block([kkk, order_d, adj2, adj3, temporary, term, temp,
array_const_2D0
1
temp2], array_tmp1 : exp(array_x ), array_tmp2 : ----------------,
1 1 1 array_tmp1
1
array_tmp3 : array_tmp2 + array_const_0D0 ,
1 1 1
if not array_y_set_initial then (if 1 <= glob_max_terms
1, 2
then (temporary : array_tmp3 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_x
1 2
array_tmp1 : --------------------, array_tmp2 :
2 1 2
- ats(2, array_tmp1, array_tmp2, 2)
-----------------------------------, array_tmp3 : array_tmp2 ,
array_tmp1 2 2
1
if not array_y_set_initial then (if 2 <= glob_max_terms
1, 3
then (temporary : array_tmp3 expt(glob_h, 1) factorial_3(1, 2),
2
array_y : temporary, array_y_higher : temporary,
3 1, 3
temporary 2.0
temporary : -------------, array_y_higher : temporary, 0)), kkk : 3,
glob_h 2, 2
array_tmp1 array_x
2 2
array_tmp1 : --------------------, array_tmp2 :
3 2 3
- ats(3, array_tmp1, array_tmp2, 2)
-----------------------------------, array_tmp3 : array_tmp2 ,
array_tmp1 3 3
1
if not array_y_set_initial then (if 3 <= glob_max_terms
1, 4
then (temporary : array_tmp3 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_x
3 2
array_tmp1 : --------------------, array_tmp2 :
4 3 4
- ats(4, array_tmp1, array_tmp2, 2)
-----------------------------------, array_tmp3 : array_tmp2 ,
array_tmp1 4 4
1
if not array_y_set_initial then (if 4 <= glob_max_terms
1, 5
then (temporary : array_tmp3 expt(glob_h, 1) factorial_3(3, 4),
4
array_y : temporary, array_y_higher : temporary,
5 1, 5
temporary 4.0
temporary : -------------, array_y_higher : temporary, 0)), kkk : 5,
glob_h 2, 4
array_tmp1 array_x
4 2
array_tmp1 : --------------------, array_tmp2 :
5 4 5
- ats(5, array_tmp1, array_tmp2, 2)
-----------------------------------, array_tmp3 : array_tmp2 ,
array_tmp1 5 5
1
if not array_y_set_initial then (if 5 <= glob_max_terms
1, 6
then (temporary : array_tmp3 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
array_tmp1 array_x
kkk - 1 2
while kkk <= glob_max_terms do (array_tmp1 : --------------------------,
kkk kkk - 1
- ats(kkk, array_tmp1, array_tmp2, 2)
array_tmp2 : -------------------------------------,
kkk array_tmp1
1
array_tmp3 : array_tmp2 , order_d : 1,
kkk kkk
if order_d + kkk < glob_max_terms then (if not subscript(array_y_set_initial,
1, order_d + kkk) then (temporary : array_tmp3 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)
(%i14) log10(x) := ---------
log(10.0)
log(x)
(%o14) log10(x) := ---------
log(10.0)
(%i15) omniout_str(iolevel, str) := if glob_iolevel >= iolevel
then printf(true, "~a~%", string(str))
(%o15) omniout_str(iolevel, str) := if glob_iolevel >= iolevel
then printf(true, "~a~%", string(str))
(%i16) omniout_str_noeol(iolevel, str) :=
if glob_iolevel >= iolevel then printf(true, "~a", string(str))
(%o16) omniout_str_noeol(iolevel, str) :=
if glob_iolevel >= iolevel then printf(true, "~a", string(str))
(%i17) omniout_labstr(iolevel, label, str) :=
if glob_iolevel >= iolevel then printf(true, "~a = ~a~%", string(label),
string(str))
(%o17) omniout_labstr(iolevel, label, str) :=
if glob_iolevel >= iolevel then printf(true, "~a = ~a~%", string(label),
string(str))
(%i18) 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))
(%o18) 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))
(%i19) omniout_int(iolevel, prelabel, prelen, value, vallen, postlabel) :=
if glob_iolevel >= iolevel then (printf(true, "~a = ~d ~a~%", prelabel, value,
postlabel), newline())
(%o19) omniout_int(iolevel, prelabel, prelen, value, vallen, postlabel) :=
if glob_iolevel >= iolevel then (printf(true, "~a = ~d ~a~%", prelabel, value,
postlabel), newline())
(%i20) omniout_float_arr(iolevel, prelabel, elemnt, prelen, value, vallen,
postlabel) := if glob_iolevel >= iolevel
then (sprint(prelabel, "[", elemnt, "]=", value, postlabel), newline())
(%o20) omniout_float_arr(iolevel, prelabel, elemnt, prelen, value, vallen,
postlabel) := if glob_iolevel >= iolevel
then (sprint(prelabel, "[", elemnt, "]=", value, postlabel), newline())
(%i21) 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
(%o21) 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
(%i22) 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
(%o22) 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
(%i23) 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))
(%o23) 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))
(%i24) 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, " | ~%"))
(%o24) 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, " | ~%"))
(%i25) 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~%"))
(%o25) 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~%"))
(%i26) 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)
(%o26) 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)
(%i27) 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)
(%o27) 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)
(%i28) display_pole_debug(typ, m, radius, order2) :=
(if typ = 1 then omniout_str(ALWAYS, "Real")
else omniout_str(ALWAYS, "Complex"), omniout_int(ALWAYS, "m", 4, m, 4, " "),
omniout_float(ALWAYS, "DBG Radius of convergence ", 4, radius, 4, " "),
omniout_float(ALWAYS, "DBG Order of pole ", 4, order2, 4, " "))
(%o28) display_pole_debug(typ, m, radius, order2) :=
(if typ = 1 then omniout_str(ALWAYS, "Real")
else omniout_str(ALWAYS, "Complex"), omniout_int(ALWAYS, "m", 4, m, 4, " "),
omniout_float(ALWAYS, "DBG Radius of convergence ", 4, radius, 4, " "),
omniout_float(ALWAYS, "DBG Order of pole ", 4, order2, 4, " "))
(%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") elseif pole = 4
then printf(file, "Yes") else printf(file, "No"), 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") elseif pole = 4
then printf(file, "Yes") else printf(file, "No"), 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)
- 2.0
(%i56) exact_soln_y(x) := block(------)
exp(x)
- 2.0
(%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, estimated_step_error, 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(glob_yes_pole, 4, fixnum),
define_variable(glob_no_pole, 3, fixnum),
define_variable(glob_not_given, 0, 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_estimated_step_error, 0.0, float),
define_variable(glob_ratio_of_radius, 0.1, 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_min_h, 1.0E-6, float),
define_variable(glob_type_given_pole, 0, fixnum),
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, 0.0, float),
define_variable(glob_smallish_float, 0.0, 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/div_c_exppostode.ode#################"),
omniout_str(ALWAYS, "diff ( y , x , 1 ) = 2.0 / exp(x);"),
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:1.0,"), omniout_str(ALWAYS,
"/* # did poorly with 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:true,"),
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.01,"),
omniout_str(ALWAYS, "glob_look_poles:true,"),
omniout_str(ALWAYS, "glob_max_iter:10000000,"),
omniout_str(ALWAYS, "glob_max_minutes:3,"),
omniout_str(ALWAYS, "glob_subiter_method:3,"),
omniout_str(ALWAYS, "/* END OVERRIDE BLOCK */"), omniout_str(ALWAYS, "!"),
omniout_str(ALWAYS, "/* BEGIN USER DEF BLOCK */"),
omniout_str(ALWAYS, "exact_soln_y (x) := (block("),
omniout_str(ALWAYS, " (- 2.0/exp(x)) "), 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 : 0.0, glob_smallish_float : 0.0,
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 + 4),
array(array_real_pole, 1 + 4), array(array_complex_pole, 1 + 4),
array(array_1st_rel_error, 1 + 2), array(array_last_rel_error, 1 + 2),
array(array_type_pole, 1 + 2), array(array_type_real_pole, 1 + 2),
array(array_type_complex_pole, 1 + 2), 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_tmp2, 1 + max_terms),
array(array_tmp3, 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 + 2, 1 + 3), array(array_given_rad_poles, 1 + 2, 1 + 3),
array(array_given_ord_poles, 1 + 2, 1 + 3),
array(array_real_poles, 1 + 2, 1 + 3),
array(array_complex_poles, 1 + 2, 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 <= 4 do (array_pole : 0.0, term : 1 + term), term : 1,
term
while term <= 4 do (array_real_pole : 0.0, term : 1 + term), term : 1,
term
while term <= 4 do (array_complex_pole : 0.0, term : 1 + term), term : 1,
term
while term <= 2 do (array_1st_rel_error : 0.0, term : 1 + term),
term
term : 1, while term <= 2 do (array_last_rel_error : 0.0,
term
term : 1 + term), term : 1, while term <= 2 do (array_type_pole : 0.0,
term
term : 1 + term), term : 1, while term <=
2 do (array_type_real_pole : 0.0, term : 1 + term), term : 1,
term
while term <= 2 do (array_type_complex_pole : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_y : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_x : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_tmp0 : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_tmp1 : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_tmp2 : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_tmp3 : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_m1 : 0.0, term : 1 + term),
term
ord : 1, while ord <= 2 do (term : 1,
while term <= max_terms do (array_y_higher : 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_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 <= 2 do (term : 1, while term <= 3 do (array_poles : 0.0,
ord, term
term : 1 + term), ord : 1 + ord), ord : 1,
while ord <= 2 do (term : 1, while term <=
3 do (array_given_rad_poles : 0.0, term : 1 + term), ord : 1 + ord),
ord, term
ord : 1, while ord <= 2 do (term : 1,
while term <= 3 do (array_given_ord_poles : 0.0, term : 1 + term),
ord, term
ord : 1 + ord), ord : 1, while ord <= 2 do (term : 1,
while term <= 3 do (array_real_poles : 0.0, term : 1 + term),
ord, term
ord : 1 + ord), ord : 1, while ord <= 2 do (term : 1,
while term <= 3 do (array_complex_poles : 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_tmp2, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp2 : 0.0, term : 1 + term),
term
array(array_tmp3, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp3 : 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_const_2D0, 1 + 1 + max_terms), term : 1,
1
while term <= 1 + max_terms do (array_const_2D0 : 0.0, term : 1 + term),
term
array_const_2D0 : 2.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), x_start : 1.0,
iiif, jjjf
x_end : 5.0, array_y_init : exact_soln_y(x_start),
1 + 0
glob_look_poles : true, glob_max_iter : 1000000, glob_display_interval : 0.1,
glob_max_minutes : 10, glob_desired_digits_correct : 10,
glob_display_interval : 0.01, glob_look_poles : true,
glob_max_iter : 10000000, glob_max_minutes : 3, glob_subiter_method : 3,
glob_last_good_h : glob_h, glob_max_terms : max_terms,
glob_max_sec : convfloat(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), found_h : false, glob_h : glob_min_h,
if glob_max_h < glob_h then glob_h : glob_max_h,
if glob_display_interval < glob_h then glob_h : glob_display_interval,
best_h : glob_h, min_value : glob_large_float, est_answer : est_size_answer(),
opt_iter : 1, est_needed_step_err : estimated_needed_step_error(x_start,
x_end, glob_h, est_answer), omniout_float(ALWAYS, "est_needed_step_err", 32,
est_needed_step_err, 16, ""), estimated_step_error : 0.0,
while (opt_iter <= 100) and (not found_h) do (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(),
estimated_step_error : test_suggested_h(),
omniout_float(ALWAYS, "estimated_step_error", 32, estimated_step_error, 32,
""), if ((estimated_step_error > est_needed_step_err) and (opt_iter = 1))
or (glob_h >= glob_max_h) then (found_h : true, glob_h : glob_max_h,
best_h : glob_h) elseif (estimated_step_error > est_needed_step_err)
glob_h
and (not found_h) then (glob_h : ------, best_h : glob_h, found_h : true)
2.0
else (glob_h : glob_h 2.0, best_h : glob_h),
omniout_float(ALWAYS, "best_h", 32, best_h, 32, ""), opt_iter : 1 + opt_iter),
if (not found_h) and (opt_iter = 1) then (omniout_str(ALWAYS,
"Beginning glob_h too large."), found_h : false),
if opt_iter > 100 then (glob_h : glob_max_h, found_h : false),
if glob_display_interval < glob_h then glob_h : glob_display_interval,
if glob_html_log then html_log_file : openw("entry.html"),
if found_h then (omniout_str(ALWAYS, "START of Soultion"), array_x : x_start,
1
array_x : glob_h, glob_next_display : x_start, order_diff : 1, term_no : 1,
2
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), 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 ) = 2.0 / exp(x);"),
omniout_int(INFO, "Iterations ", 32, glob_iter, 4, " "),
prog_report(x_start, x_end), if glob_html_log
then (logstart(html_log_file), logitem_str(html_log_file,
"2013-05-26T00:26:02-05:00"), logitem_str(html_log_file, "Maxima"),
logitem_str(html_log_file, "div_c_exp"),
logitem_str(html_log_file, "diff ( y , x , 1 ) = 2.0 / exp(x);"),
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_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, " 189 | "), logitem_str(html_log_file, "div_c_exp diffeq.max"),
logitem_str(html_log_file,
"div_c_exp 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, estimated_step_error, 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(glob_yes_pole, 4, fixnum),
define_variable(glob_no_pole, 3, fixnum),
define_variable(glob_not_given, 0, 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_estimated_step_error, 0.0, float),
define_variable(glob_ratio_of_radius, 0.1, 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_min_h, 1.0E-6, float),
define_variable(glob_type_given_pole, 0, fixnum),
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, 0.0, float),
define_variable(glob_smallish_float, 0.0, 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/div_c_exppostode.ode#################"),
omniout_str(ALWAYS, "diff ( y , x , 1 ) = 2.0 / exp(x);"),
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:1.0,"), omniout_str(ALWAYS,
"/* # did poorly with 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:true,"),
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.01,"),
omniout_str(ALWAYS, "glob_look_poles:true,"),
omniout_str(ALWAYS, "glob_max_iter:10000000,"),
omniout_str(ALWAYS, "glob_max_minutes:3,"),
omniout_str(ALWAYS, "glob_subiter_method:3,"),
omniout_str(ALWAYS, "/* END OVERRIDE BLOCK */"), omniout_str(ALWAYS, "!"),
omniout_str(ALWAYS, "/* BEGIN USER DEF BLOCK */"),
omniout_str(ALWAYS, "exact_soln_y (x) := (block("),
omniout_str(ALWAYS, " (- 2.0/exp(x)) "), 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 : 0.0, glob_smallish_float : 0.0,
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 + 4),
array(array_real_pole, 1 + 4), array(array_complex_pole, 1 + 4),
array(array_1st_rel_error, 1 + 2), array(array_last_rel_error, 1 + 2),
array(array_type_pole, 1 + 2), array(array_type_real_pole, 1 + 2),
array(array_type_complex_pole, 1 + 2), 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_tmp2, 1 + max_terms),
array(array_tmp3, 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 + 2, 1 + 3), array(array_given_rad_poles, 1 + 2, 1 + 3),
array(array_given_ord_poles, 1 + 2, 1 + 3),
array(array_real_poles, 1 + 2, 1 + 3),
array(array_complex_poles, 1 + 2, 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 <= 4 do (array_pole : 0.0, term : 1 + term), term : 1,
term
while term <= 4 do (array_real_pole : 0.0, term : 1 + term), term : 1,
term
while term <= 4 do (array_complex_pole : 0.0, term : 1 + term), term : 1,
term
while term <= 2 do (array_1st_rel_error : 0.0, term : 1 + term),
term
term : 1, while term <= 2 do (array_last_rel_error : 0.0,
term
term : 1 + term), term : 1, while term <= 2 do (array_type_pole : 0.0,
term
term : 1 + term), term : 1, while term <=
2 do (array_type_real_pole : 0.0, term : 1 + term), term : 1,
term
while term <= 2 do (array_type_complex_pole : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_y : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_x : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_tmp0 : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_tmp1 : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_tmp2 : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_tmp3 : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_m1 : 0.0, term : 1 + term),
term
ord : 1, while ord <= 2 do (term : 1,
while term <= max_terms do (array_y_higher : 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_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 <= 2 do (term : 1, while term <= 3 do (array_poles : 0.0,
ord, term
term : 1 + term), ord : 1 + ord), ord : 1,
while ord <= 2 do (term : 1, while term <=
3 do (array_given_rad_poles : 0.0, term : 1 + term), ord : 1 + ord),
ord, term
ord : 1, while ord <= 2 do (term : 1,
while term <= 3 do (array_given_ord_poles : 0.0, term : 1 + term),
ord, term
ord : 1 + ord), ord : 1, while ord <= 2 do (term : 1,
while term <= 3 do (array_real_poles : 0.0, term : 1 + term),
ord, term
ord : 1 + ord), ord : 1, while ord <= 2 do (term : 1,
while term <= 3 do (array_complex_poles : 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_tmp2, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp2 : 0.0, term : 1 + term),
term
array(array_tmp3, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp3 : 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_const_2D0, 1 + 1 + max_terms), term : 1,
1
while term <= 1 + max_terms do (array_const_2D0 : 0.0, term : 1 + term),
term
array_const_2D0 : 2.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), x_start : 1.0,
iiif, jjjf
x_end : 5.0, array_y_init : exact_soln_y(x_start),
1 + 0
glob_look_poles : true, glob_max_iter : 1000000, glob_display_interval : 0.1,
glob_max_minutes : 10, glob_desired_digits_correct : 10,
glob_display_interval : 0.01, glob_look_poles : true,
glob_max_iter : 10000000, glob_max_minutes : 3, glob_subiter_method : 3,
glob_last_good_h : glob_h, glob_max_terms : max_terms,
glob_max_sec : convfloat(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), found_h : false, glob_h : glob_min_h,
if glob_max_h < glob_h then glob_h : glob_max_h,
if glob_display_interval < glob_h then glob_h : glob_display_interval,
best_h : glob_h, min_value : glob_large_float, est_answer : est_size_answer(),
opt_iter : 1, est_needed_step_err : estimated_needed_step_error(x_start,
x_end, glob_h, est_answer), omniout_float(ALWAYS, "est_needed_step_err", 32,
est_needed_step_err, 16, ""), estimated_step_error : 0.0,
while (opt_iter <= 100) and (not found_h) do (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(),
estimated_step_error : test_suggested_h(),
omniout_float(ALWAYS, "estimated_step_error", 32, estimated_step_error, 32,
""), if ((estimated_step_error > est_needed_step_err) and (opt_iter = 1))
or (glob_h >= glob_max_h) then (found_h : true, glob_h : glob_max_h,
best_h : glob_h) elseif (estimated_step_error > est_needed_step_err)
glob_h
and (not found_h) then (glob_h : ------, best_h : glob_h, found_h : true)
2.0
else (glob_h : glob_h 2.0, best_h : glob_h),
omniout_float(ALWAYS, "best_h", 32, best_h, 32, ""), opt_iter : 1 + opt_iter),
if (not found_h) and (opt_iter = 1) then (omniout_str(ALWAYS,
"Beginning glob_h too large."), found_h : false),
if opt_iter > 100 then (glob_h : glob_max_h, found_h : false),
if glob_display_interval < glob_h then glob_h : glob_display_interval,
if glob_html_log then html_log_file : openw("entry.html"),
if found_h then (omniout_str(ALWAYS, "START of Soultion"), array_x : x_start,
1
array_x : glob_h, glob_next_display : x_start, order_diff : 1, term_no : 1,
2
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), 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 ) = 2.0 / exp(x);"),
omniout_int(INFO, "Iterations ", 32, glob_iter, 4, " "),
prog_report(x_start, x_end), if glob_html_log
then (logstart(html_log_file), logitem_str(html_log_file,
"2013-05-26T00:26:02-05:00"), logitem_str(html_log_file, "Maxima"),
logitem_str(html_log_file, "div_c_exp"),
logitem_str(html_log_file, "diff ( y , x , 1 ) = 2.0 / exp(x);"),
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_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, " 189 | "), logitem_str(html_log_file, "div_c_exp diffeq.max"),
logitem_str(html_log_file,
"div_c_exp 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/div_c_exppostode.ode#################"
"diff ( y , x , 1 ) = 2.0 / exp(x);"
"!"
"/* BEGIN FIRST INPUT BLOCK */"
"Digits:32,"
"max_terms:30,"
"!"
"/* END FIRST INPUT BLOCK */"
"/* BEGIN SECOND INPUT BLOCK */"
"x_start:1.0,"
"/* # did poorly with x_start := -5.0; */"
"x_end:5.0,"
"array_y_init[0 + 1] : exact_soln_y(x_start),"
"glob_look_poles:true,"
"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.01,"
"glob_look_poles:true,"
"glob_max_iter:10000000,"
"glob_max_minutes:3,"
"glob_subiter_method:3,"
"/* END OVERRIDE BLOCK */"
"!"
"/* BEGIN USER DEF BLOCK */"
"exact_soln_y (x) := (block("
" (- 2.0/exp(x)) "
"));"
"/* END USER DEF BLOCK */"
"#######END OF ECHO OF PROBLEM#################"
"START of Optimize"
min_size = 0.0 ""
min_size = 1. ""
glob_desired_digits_correct = 10. ""
desired_abs_gbl_error = 1.0000000000E-10 ""
range = 4. ""
estimated_steps = 4000000. ""
step_error = 2.500000000000000000E-17 ""
est_needed_step_err = 2.500000000000000000E-17 ""
opt_iter = 1
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 1.8244027295195667000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-183 ""
estimated_step_error = 1.8244027295195667000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-183 ""
best_h = 2.000000E-6 ""
opt_iter = 2
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 1.224335923892360000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-175 ""
estimated_step_error = 1.224335923892360000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-175 ""
best_h = 4.000000E-6 ""
opt_iter = 3
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 8.216378996365963000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-168 ""
estimated_step_error = 8.216378996365963000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-168 ""
best_h = 8.000000E-6 ""
opt_iter = 4
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 5.51391819795155400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-160 ""
estimated_step_error = 5.51391819795155400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-160 ""
best_h = 1.600000E-5 ""
opt_iter = 5
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 3.70032731633008900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-152 ""
estimated_step_error = 3.70032731633008900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-152 ""
best_h = 3.200000E-5 ""
opt_iter = 6
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 2.483246890483541000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-144 ""
estimated_step_error = 2.483246890483541000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-144 ""
best_h = 6.400000E-5 ""
opt_iter = 7
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 1.66647779096272040000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-136 ""
estimated_step_error = 1.66647779096272040000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-136 ""
best_h = 1.280000E-4 ""
opt_iter = 8
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 1.118352988854277600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-128 ""
estimated_step_error = 1.118352988854277600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-128 ""
best_h = 2.560000E-4 ""
opt_iter = 9
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 7.5051220731637370000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-121 ""
estimated_step_error = 7.5051220731637370000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-121 ""
best_h = 5.120000E-4 ""
opt_iter = 10
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 5.03657828775842600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-113 ""
estimated_step_error = 5.03657828775842600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-113 ""
best_h = 1.024000E-3 ""
opt_iter = 11
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 3.3799584261814636000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-105 ""
estimated_step_error = 3.3799584261814636000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-105 ""
best_h = 2.048000E-3 ""
opt_iter = 12
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 2.26820869163359600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-97 ""
estimated_step_error = 2.26820869163359600000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-97 ""
best_h = 4.096000E-3 ""
opt_iter = 13
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 1.522111359745133300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-89 ""
estimated_step_error = 1.522111359745133300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000E-89 ""
best_h = 8.192000E-3 ""
opt_iter = 14
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 1.0213941718335671000000000000000000000000000000000000000000000000000000000000000000000000000000000E-81 ""
estimated_step_error = 1.0213941718335671000000000000000000000000000000000000000000000000000000000000000000000000000000000E-81 ""
best_h = 1.638400E-2 ""
opt_iter = 15
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 6.85342069347930200000000000000000000000000000000000000000000000000000000000000000000000000E-74 ""
estimated_step_error = 6.85342069347930200000000000000000000000000000000000000000000000000000000000000000000000000E-74 ""
best_h = 3.276800E-2 ""
opt_iter = 16
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 4.597858106883947000000000000000000000000000000000000000000000000000000000000000000E-66 ""
estimated_step_error = 4.597858106883947000000000000000000000000000000000000000000000000000000000000000000E-66 ""
best_h = 6.553600E-2 ""
opt_iter = 17
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 3.08370009978878600000000000000000000000000000000000000000000000000000000000E-58 ""
estimated_step_error = 3.08370009978878600000000000000000000000000000000000000000000000000000000000E-58 ""
best_h = 0.131072 ""
opt_iter = 18
hn_div_ho = 0.5 ""
hn_div_ho_2 = 0.25 ""
hn_div_ho_3 = 0.125 ""
max_estimated_step_error = 2.066930321391556300000000000000000000000000000000000000000000000000E-50 ""
estimated_step_error = 2.066930321391556300000000000000000000000000000000000000000000000000E-50 ""
best_h = 0.1 ""
"START of Soultion"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1. " "
y[1] (analytic) = -0.7357588823428847 " "
y[1] (numeric) = -0.7357588823428847 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000011306664 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 693.4848501671715 " "
Order of pole (three term test) = -17388.35359701863 " "
Radius of convergence (six term test) for eq 1 = 1724.6794927672524 " "
Order of pole (six term test) = 143003.30348768813 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.01 " "
y[1] (analytic) = -0.7284379591430467 " "
y[1] (numeric) = -0.7284379591430467 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999999682002 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.9484143704003 " "
Order of pole (three term test) = -17475.29574063191 " "
Radius of convergence (six term test) for eq 1 = 2303.124272463463 " "
Order of pole (six term test) = 409397.8418546446 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.02 " "
y[1] (analytic) = -0.7211898803461566 " "
y[1] (numeric) = -0.7211898803461566 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000000864428 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 717.4424419660443 " "
Order of pole (three term test) = -17989.44405090526 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.03 " "
y[1] (analytic) = -0.7140139211382948 " "
y[1] (numeric) = -0.7140139211382948 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999961971294 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.8656145679056 " "
Order of pole (three term test) = -17673.888132994383 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.04 " "
y[1] (analytic) = -0.7069093639175602 " "
y[1] (numeric) = -0.7069093639175603 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.570530935497171700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999970634004 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.0180895662802 " "
Order of pole (three term test) = -17702.846733829676 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.05 " "
y[1] (analytic) = -0.6998754982223107 " "
y[1] (numeric) = -0.6998754982223108 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.58631503380977300000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999980109838 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.3420261786481 " "
Order of pole (three term test) = -17460.075443970778 " "
Radius of convergence (six term test) for eq 1 = 2418.6100575482383 " "
Order of pole (six term test) = 406245.2816451388 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.06 " "
y[1] (analytic) = -0.6929116206601148 " "
y[1] (numeric) = -0.6929116206601149 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.60225776494768900000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999999987414 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.5449543272742 " "
Order of pole (three term test) = -17640.74288795839 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.07 " "
y[1] (analytic) = -0.6860170348374133 " "
y[1] (numeric) = -0.6860170348374134 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.61836072319731900000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999995719346 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 695.4083709912201 " "
Order of pole (three term test) = -17436.672305262597 " "
Radius of convergence (six term test) for eq 1 = 1515.2964368398739 " "
Order of pole (six term test) = 159133.62631562664 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.08 " "
y[1] (analytic) = -0.6791910512898782 " "
y[1] (numeric) = -0.6791910512898783 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.634625518867907400000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999914536335 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.388036699029 " "
Order of pole (three term test) = -17461.232149423427 " "
Radius of convergence (six term test) for eq 1 = 2451.6337685787694 " "
Order of pole (six term test) = 422552.19358864095 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.09 " "
y[1] (analytic) = -0.6724329874134666 " "
y[1] (numeric) = -0.6724329874134667 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.651053778452574700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000017688993 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.668210164376 " "
Order of pole (three term test) = -17643.822973568702 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.1 " "
y[1] (analytic) = -0.665742167396159 " "
y[1] (numeric) = -0.6657421673961591 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.6676471447909700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999994858766 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 711.9629471185569 " "
Order of pole (three term test) = -17851.96145935834 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.11 " "
y[1] (analytic) = -0.6591179221503781 " "
y[1] (numeric) = -0.6591179221503781 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000016947194 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.6813432833413 " "
Order of pole (three term test) = -17769.643660408892 " "
Radius of convergence (six term test) for eq 1 = 5676.744150579120 " "
Order of pole (six term test) = 1752383.7362810685 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.12 " "
y[1] (analytic) = -0.6525595892460789 " "
y[1] (numeric) = -0.6525595892460789 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000057251857 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.4653403381626 " "
Order of pole (three term test) = -17412.958154177282 " "
Radius of convergence (six term test) for eq 1 = 2495.7420223593926 " "
Order of pole (six term test) = 334025.5377086243 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.1300000000000001 " "
y[1] (analytic) = -0.6460665128445058 " "
y[1] (numeric) = -0.6460665128445059 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.718434561384491700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000001247146 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 690.5216612665092 " "
Order of pole (three term test) = -17314.013598088535 " "
Radius of convergence (six term test) for eq 1 = 1827.0673893921064 " "
Order of pole (six term test) = 174528.1348300827 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.1400000000000001 " "
y[1] (analytic) = -0.6396380436326077 " "
y[1] (numeric) = -0.6396380436326078 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.735705115849615300000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999945729325 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 719.8377571390338 " "
Order of pole (three term test) = -18049.53096631627 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.1500000000000001 " "
y[1] (analytic) = -0.6332735387581063 " "
y[1] (numeric) = -0.6332735387581064 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.75314924227274900000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000070550477 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.3574301491784 " "
Order of pole (three term test) = -17585.887289919752 " "
Radius of convergence (six term test) for eq 1 = 1719.6862174830947 " "
Order of pole (six term test) = 863878.2771229006 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.1600000000000001 " "
y[1] (analytic) = -0.6269723617652105 " "
y[1] (numeric) = -0.6269723617652107 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.770768685081072800000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000001806306 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 716.8200196477386 " "
Order of pole (three term test) = -17973.77672583962 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.1700000000000002 " "
y[1] (analytic) = -0.62073388253097 " "
y[1] (numeric) = -0.6207338825309701 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.788565206233550300000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.9999998795929 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 714.6208920089495 " "
Order of pole (three term test) = -17918.677745447574 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.1800000000000002 " "
y[1] (analytic) = -0.6145574772022624 " "
y[1] (numeric) = -0.6145574772022625 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.80654058539712700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000001506578 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 693.9764918332015 " "
Order of pole (three term test) = -17400.702356046237 " "
Radius of convergence (six term test) for eq 1 = 1731.6916083669178 " "
Order of pole (six term test) = 154460.22466815927 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.1900000000000002 " "
y[1] (analytic) = -0.608442528133408 " "
y[1] (numeric) = -0.6084425281334082 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 1.824696620124698600000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000088665065 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 690.9709570377681 " "
Order of pole (three term test) = -17325.26603428372 " "
Radius of convergence (six term test) for eq 1 = 2622.8507773694582 " "
Order of pole (six term test) = 353472.4145455082 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2000000000000002 " "
y[1] (analytic) = -0.602388423824404 " "
y[1] (numeric) = -0.6023884238244043 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 3.68607025206973800000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999996233535 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.1438036331714 " "
Order of pole (three term test) = -17705.95658357886 " "
Radius of convergence (six term test) for eq 1 = 10437.73454373062 " "
Order of pole (six term test) = 7261876.415648978 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2100000000000002 " "
y[1] (analytic) = -0.5963945588597747 " "
y[1] (numeric) = -0.5963945588597749 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 3.723115873987019600000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999889346753 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.1052308220579 " "
Order of pole (three term test) = -17629.745960477147 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2200000000000002 " "
y[1] (analytic) = -0.5904603338480283 " "
y[1] (numeric) = -0.5904603338480285 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 3.760533810594307600000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999942188 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.609684519497 " "
Order of pole (three term test) = -17742.74213763228 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2300000000000002 " "
y[1] (analytic) = -0.5845851553617186 " "
y[1] (numeric) = -0.584585155361719 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 5.69749170557466700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000083947214 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.6121937160865 " "
Order of pole (three term test) = -17517.01994611357 " "
Radius of convergence (six term test) for eq 1 = 3405.7826663279743 " "
Order of pole (six term test) = 907585.5203759013 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2400000000000002 " "
y[1] (analytic) = -0.5787684358781011 " "
y[1] (numeric) = -0.5787684358781015 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 5.75475244917635200000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995608148 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.8214090023564 " "
Order of pole (three term test) = -17697.916300870216 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2500000000000002 " "
y[1] (analytic) = -0.5730095937203801 " "
y[1] (numeric) = -0.5730095937203804 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 5.81258867281860200000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000095665015 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 695.6072691852115 " "
Order of pole (three term test) = -17441.586545801794 " "
Radius of convergence (six term test) for eq 1 = 2163.431638461091 " "
Order of pole (six term test) = 209539.52073845582 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2600000000000002 " "
y[1] (analytic) = -0.5673080529995407 " "
y[1] (numeric) = -0.5673080529995409 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 3.91400410678131300000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004600497 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.6398081325198 " "
Order of pole (three term test) = -17567.868885993885 " "
Radius of convergence (six term test) for eq 1 = 3510.7689126473574 " "
Order of pole (six term test) = 496398.94994915486 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2700000000000002 " "
y[1] (analytic) = -0.5616632435567595 " "
y[1] (numeric) = -0.5616632435567597 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 3.95334050202258540000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999890273507 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.469103731183 " "
Order of pole (three term test) = -17764.350042495993 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2800000000000002 " "
y[1] (analytic) = -0.556074600906388 " "
y[1] (numeric) = -0.5560746009063884 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 5.98960835191278400000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004909442 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.464790169931 " "
Order of pole (three term test) = -17412.94685163008 " "
Radius of convergence (six term test) for eq 1 = 3026.381509523847 " "
Order of pole (six term test) = 511560.70643521677 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.2900000000000003 " "
y[1] (analytic) = -0.5505415661795046 " "
y[1] (numeric) = -0.5505415661795048 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 4.033203277745489600000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.0000000049442 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.6245959775034 " "
Order of pole (three term test) = -17692.89786633833 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3000000000000003 " "
y[1] (analytic) = -0.5450635860680251 " "
y[1] (numeric) = -0.5450635860680253 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 4.07373764457124600000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999992669781 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.5030402695676 " "
Order of pole (three term test) = -17664.83222795796 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3100000000000003 " "
y[1] (analytic) = -0.5396401127693735 " "
y[1] (numeric) = -0.5396401127693738 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 6.17201908283437900000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999852110935 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.6456921358584 " "
Order of pole (three term test) = -17693.48563508116 " "
Radius of convergence (six term test) for eq 1 = 3537.199388179822 " "
Order of pole (six term test) = 687726.5238481127 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3200000000000003 " "
y[1] (analytic) = -0.5342706039317006 " "
y[1] (numeric) = -0.5342706039317009 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 6.23404890586353800000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999995709825 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 709.8380240136055 " "
Order of pole (three term test) = -17798.69789358623 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3300000000000003 " "
y[1] (analytic) = -0.5289545225996478 " "
y[1] (numeric) = -0.528954522599648 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 4.19780142598556100000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999997409538 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.4021544199223 " "
Order of pole (three term test) = -17486.66828337158 " "
Radius of convergence (six term test) for eq 1 = 2855.4928771348964 " "
Order of pole (six term test) = 577885.4892841298 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3400000000000003 " "
y[1] (analytic) = -0.5236913371606519 " "
y[1] (numeric) = -0.5236913371606521 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 4.239990031702874400000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000005517199 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 681.1135810209654 " "
Order of pole (three term test) = -17077.97789942913 " "
Radius of convergence (six term test) for eq 1 = 1505.1621496659593 " "
Order of pole (six term test) = 123514.61039114039 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3500000000000003 " "
y[1] (analytic) = -0.5184805212917829 " "
y[1] (numeric) = -0.5184805212917831 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 4.282602639956695000000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000145610855 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 693.1344526762765 " "
Order of pole (three term test) = -17379.524835644213 " "
Radius of convergence (six term test) for eq 1 = 2100.527332389704 " "
Order of pole (six term test) = 195106.4042055744 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3600000000000003 " "
y[1] (analytic) = -0.5133215539071116 " "
y[1] (numeric) = -0.5133215539071119 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 4.3256435120433595000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999956017106 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.5313384351085 " "
Order of pole (three term test) = -17590.24946236124 " "
Radius of convergence (six term test) for eq 1 = 3166.27341515958 " "
Order of pole (six term test) = 420930.6499988411 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3700000000000003 " "
y[1] (analytic) = -0.5082139191056004 " "
y[1] (numeric) = -0.5082139191056008 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 6.55367542812891600000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000004911797 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 711.4585701000075 " "
Order of pole (three term test) = -17839.296726344626 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3800000000000003 " "
y[1] (analytic) = -0.5031571061195128 " "
y[1] (numeric) = -0.5031571061195131 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 6.61954096119701800000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000096890073 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.909135465232 " "
Order of pole (three term test) = -17599.65907615798 " "
Radius of convergence (six term test) for eq 1 = 406.9905369034262 " "
Order of pole (six term test) = -64141.973655444424 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.3900000000000003 " "
y[1] (analytic) = -0.49815060926333626 " "
y[1] (numeric) = -0.4981506092633365 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 4.45737896925169350000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000000591925 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.5829641598805 " "
Order of pole (three term test) = -17591.53507376681 " "
Radius of convergence (six term test) for eq 1 = 4045.0391735577277 " "
Order of pole (six term test) = 452018.8749960166 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4000000000000004 " "
y[1] (analytic) = -0.49319392788321276 " "
y[1] (numeric) = -0.4931939278832131 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 6.75326455897519600000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999979071216 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.0122757273925 " "
Order of pole (three term test) = -17451.78992293421 " "
Radius of convergence (six term test) for eq 1 = 2844.1316742267895 " "
Order of pole (six term test) = 507160.9385627394 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4100000000000004 " "
y[1] (analytic) = -0.48828656630687406 " "
y[1] (numeric) = -0.4882865663068743 " "
absolute error = 2.2204460492503130000000000000000E-16 " "
relative error = 4.547423997437657400000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999913622656 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.0228973340852 " "
Order of pole (three term test) = -17552.397556123196 " "
Radius of convergence (six term test) for eq 1 = 5286.8535425303235 " "
Order of pole (six term test) = 1483231.6942473296 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4200000000000004 " "
y[1] (analytic) = -0.48342803379407273 " "
y[1] (numeric) = -0.483428033794073 " "
absolute error = 2.77555756156289140000000000000000E-16 " "
relative error = 5.74140796051807800000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999903021667 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 714.8531456250216 " "
Order of pole (three term test) = -17924.48894405237 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4300000000000004 " "
y[1] (analytic) = -0.4786178444875089 " "
y[1] (numeric) = -0.47861784448750916 " "
absolute error = 2.77555756156289140000000000000000E-16 " "
relative error = 5.79911006981965700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999972998822 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.6737025222683 " "
Order of pole (three term test) = -17769.465132839898 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4400000000000004 " "
y[1] (analytic) = -0.47385551736424336 " "
y[1] (numeric) = -0.47385551736424364 " "
absolute error = 2.77555756156289140000000000000000E-16 " "
relative error = 5.85739209496082500000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999939817215 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.7130807279658 " "
Order of pole (three term test) = -17569.724445613952 " "
Radius of convergence (six term test) for eq 1 = 2983.2421838846913 " "
Order of pole (six term test) = 522523.0036914859 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4500000000000004 " "
y[1] (analytic) = -0.4691405761875951 " "
y[1] (numeric) = -0.4691405761875954 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 7.09951183703120200000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000090047248 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.2254644100586 " "
Order of pole (three term test) = -17482.165463936537 " "
Radius of convergence (six term test) for eq 1 = 1580.5769460788408 " "
Order of pole (six term test) = 76876.18676886188 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4600000000000004 " "
y[1] (analytic) = -0.46447254945951744 " "
y[1] (numeric) = -0.46447254945951777 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 7.17086311720939400000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999972130126 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.1346050260045 " "
Order of pole (three term test) = -17605.38884478849 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4700000000000004 " "
y[1] (analytic) = -0.45985097037344747 " "
y[1] (numeric) = -0.4598509703734478 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 7.24293148967504600000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000034086796 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.5944635448213 " "
Order of pole (three term test) = -17516.55285519254 " "
Radius of convergence (six term test) for eq 1 = 4119.678204239267 " "
Order of pole (six term test) = 891759.7589502446 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4800000000000004 " "
y[1] (analytic) = -0.45527537676762525 " "
y[1] (numeric) = -0.4552753767676256 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 7.31572416132546300000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000022944896 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.3575167384744 " "
Order of pole (three term test) = -17610.967720586596 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.4900000000000004 " "
y[1] (analytic) = -0.4507453110788772 " "
y[1] (numeric) = -0.45074531107887755 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 7.3892484114884700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999998418872 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.3341060986234 " "
Order of pole (three term test) = -17735.851781687164 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5000000000000004 " "
y[1] (analytic) = -0.4462603202968594 " "
y[1] (numeric) = -0.44626032029685975 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 7.46351159265035300000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004860592 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.5439230952061 " "
Order of pole (three term test) = -17816.333169407324 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5100000000000005 " "
y[1] (analytic) = -0.4418199559187562 " "
y[1] (numeric) = -0.4418199559187565 " "
absolute error = 2.77555756156289140000000000000000E-16 " "
relative error = 6.28210094265926100000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999985063331 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.4876105635024 " "
Order of pole (three term test) = -17739.728659750388 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5200000000000005 " "
y[1] (analytic) = -0.4374237739044293 " "
y[1] (numeric) = -0.43742377390442966 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 7.61428452812711400000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000010371938 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.5429588591879 " "
Order of pole (three term test) = -17615.592461179185 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5300000000000005 " "
y[1] (analytic) = -0.4330713346320139 " "
y[1] (numeric) = -0.43307133463201425 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 7.69080935986118800000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999984149884 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.1336947456889 " "
Order of pole (three term test) = -17605.354225060422 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5400000000000005 " "
y[1] (analytic) = -0.42876220285395567 " "
y[1] (numeric) = -0.42876220285395605 " "
absolute error = 3.8857805861880480000000000000000E-16 " "
relative error = 9.06278715876365800000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000035917473 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.194611865916 " "
Order of pole (three term test) = -17581.76567238328 " "
Radius of convergence (six term test) for eq 1 = 1467.5596105673123 " "
Order of pole (six term test) = -37561.19090911695 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5500000000000005 " "
y[1] (analytic) = -0.4244959476534859 " "
y[1] (numeric) = -0.42449594765348625 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 7.84617401482070200000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000062083878 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 715.113162717707 " "
Order of pole (three term test) = -17930.961593798656 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5600000000000005 " "
y[1] (analytic) = -0.4202721424015292 " "
y[1] (numeric) = -0.4202721424015296 " "
absolute error = 3.8857805861880480000000000000000E-16 " "
relative error = 9.24586760374795900000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999960890083 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.0842298568466 " "
Order of pole (three term test) = -17629.22550027043 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5700000000000005 " "
y[1] (analytic) = -0.4160903647140407 " "
y[1] (numeric) = -0.4160903647140411 " "
absolute error = 3.8857805861880480000000000000000E-16 " "
relative error = 9.33879011800372100000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999993483711 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.9700606538626 " "
Order of pole (three term test) = -17526.009717784178 " "
Radius of convergence (six term test) for eq 1 = 2037.4327280313653 " "
Order of pole (six term test) = 286191.94362227037 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5800000000000005 " "
y[1] (analytic) = -0.4119501964097667 " "
y[1] (numeric) = -0.4119501964097671 " "
absolute error = 3.8857805861880480000000000000000E-16 " "
relative error = 9.43264651905363700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999999545622 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.7845744475053 " "
Order of pole (three term test) = -17496.27239252104 " "
Radius of convergence (six term test) for eq 1 = 1931.080208807649 " "
Order of pole (six term test) = 261242.46110578591 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.5900000000000005 " "
y[1] (analytic) = -0.40785122346842667 " "
y[1] (numeric) = -0.40785122346842706 " "
absolute error = 3.8857805861880480000000000000000E-16 " "
relative error = 9.52744619261602300000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000078645048 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.3654681887922 " "
Order of pole (three term test) = -17535.916180251752 " "
Radius of convergence (six term test) for eq 1 = 4061.158105180424 " "
Order of pole (six term test) = 1264460.4417553258 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6000000000000005 " "
y[1] (analytic) = -0.4037930359893106 " "
y[1] (numeric) = -0.403793035989311 " "
absolute error = 3.8857805861880480000000000000000E-16 " "
relative error = 9.62319861873723400000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000091470596 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.0835009511401 " "
Order of pole (three term test) = -17478.633384805475 " "
Radius of convergence (six term test) for eq 1 = 3437.6202454690797 " "
Order of pole (six term test) = 576633.494273799 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6100000000000005 " "
y[1] (analytic) = -0.39977522815028876 " "
y[1] (numeric) = -0.3997752281502892 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.11084724259882040000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000004272554 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.8858924169411 " "
Order of pole (three term test) = -17749.679911226303 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6200000000000006 " "
y[1] (analytic) = -0.39579739816722914 " "
y[1] (numeric) = -0.3957973981672296 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.12201144299192590000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999996076102 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 691.4969655735214 " "
Order of pole (three term test) = -17338.51716008225 " "
Radius of convergence (six term test) for eq 1 = 2398.8889273000627 " "
Order of pole (six term test) = 364903.4334382871 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6300000000000006 " "
y[1] (analytic) = -0.39185914825381846 " "
y[1] (numeric) = -0.39185914825381896 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.27494882614738620000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999995058257 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.5665662110132 " "
Order of pole (three term test) = -17741.632400467246 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6400000000000006 " "
y[1] (analytic) = -0.3879600845817836 " "
y[1] (numeric) = -0.38796008458178405 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.14467757766571670000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000010184471 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.1935697311523 " "
Order of pole (three term test) = -17406.12477864459 " "
Radius of convergence (six term test) for eq 1 = 1979.0758762315668 " "
Order of pole (six term test) = 186378.6660707929 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6500000000000006 " "
y[1] (analytic) = -0.38409981724150805 " "
y[1] (numeric) = -0.3840998172415085 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.1561817785787579000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999950463092 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.4485278589161 " "
Order of pole (three term test) = -17763.797049047575 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6600000000000006 " "
y[1] (analytic) = -0.38027796020304083 " "
y[1] (numeric) = -0.38027796020304133 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.31377679846228830000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000001910738 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.8550579097214 " "
Order of pole (three term test) = -17573.255819060614 " "
Radius of convergence (six term test) for eq 1 = 1619.6530734641087 " "
Order of pole (six term test) = 7560.243769843125 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6700000000000006 " "
y[1] (analytic) = -0.3764941312774933 " "
y[1] (numeric) = -0.3764941312774938 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.32698047479813760000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999890048613 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.7602066547134 " "
Order of pole (three term test) = -17646.21634921123 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6800000000000006 " "
y[1] (analytic) = -0.3727479520788197 " "
y[1] (numeric) = -0.3727479520788202 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.34031685028728750000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999946188318 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.9271974123134 " "
Order of pole (three term test) = -17650.384856416276 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.6900000000000006 " "
y[1] (analytic) = -0.3690390479859783 " "
y[1] (numeric) = -0.3690390479859788 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.35378725857840050000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000107513046 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.263628507255 " "
Order of pole (three term test) = -17508.240450895108 " "
Radius of convergence (six term test) for eq 1 = 4232.131867731955 " "
Order of pole (six term test) = 858539.3432054295 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7000000000000006 " "
y[1] (analytic) = -0.36536704810546905 " "
y[1] (numeric) = -0.36536704810546955 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.36739304672353150000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004010254 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.7509991728298 " "
Order of pole (three term test) = -17671.028387741244 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7100000000000006 " "
y[1] (analytic) = -0.3617315852342439 " "
y[1] (numeric) = -0.3617315852342444 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.38113557531283270000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.0000000601934 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.6701600270109 " "
Order of pole (three term test) = -17694.065376507424 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7200000000000006 " "
y[1] (analytic) = -0.3581322958229862 " "
y[1] (numeric) = -0.3581322958229867 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.3950162186106152000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999919691533 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.7160732903486 " "
Order of pole (three term test) = -17770.514424889538 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7300000000000006 " "
y[1] (analytic) = -0.3545688199397554 " "
y[1] (numeric) = -0.35456881993975586 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.25247676861580100000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000113692632 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 709.0516141058953 " "
Order of pole (three term test) = -17778.955723603507 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7400000000000007 " "
y[1] (analytic) = -0.35104080123399356 " "
y[1] (numeric) = -0.351040801233994 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.26506436940942850000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000026582207 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 693.1988924886298 " "
Order of pole (three term test) = -17381.185207429742 " "
Radius of convergence (six term test) for eq 1 = 2793.0757695607 " "
Order of pole (six term test) = 429229.11766829825 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7500000000000007 " "
y[1] (analytic) = -0.34754788690089 " "
y[1] (numeric) = -0.3475478869008905 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.4375007874059990000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999998454356 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.7962836726276 " "
Order of pole (three term test) = -17697.25479604257 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7600000000000007 " "
y[1] (analytic) = -0.34408972764610085 " "
y[1] (numeric) = -0.3440897276461013 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.2906203648916020000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999971265908 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.286773615671 " "
Order of pole (three term test) = -17809.883501990404 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7700000000000007 " "
y[1] (analytic) = -0.34066597765081863 " "
y[1] (numeric) = -0.34066597765081913 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.46654022960111650000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000002962758 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 693.9599690836341 " "
Order of pole (three term test) = -17400.280619254372 " "
Radius of convergence (six term test) for eq 1 = 2090.189773033953 " "
Order of pole (six term test) = 228722.09210169478 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7800000000000007 " "
y[1] (analytic) = -0.33727629453719077 " "
y[1] (numeric) = -0.33727629453719127 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.48127920394426240000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995185652 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 713.0241873998351 " "
Order of pole (three term test) = -17878.602417163966 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.7900000000000007 " "
y[1] (analytic) = -0.33392033933408116 " "
y[1] (numeric) = -0.33392033933408166 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.49616630744220550000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000035464147 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.0270541901017 " "
Order of pole (three term test) = -17602.651975195145 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8000000000000007 " "
y[1] (analytic) = -0.33059777644317284 " "
y[1] (numeric) = -0.33059777644317334 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.51120302881770250000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000001994458 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.0102521649675 " "
Order of pole (three term test) = -17501.91819523895 " "
Radius of convergence (six term test) for eq 1 = 3867.019184056046 " "
Order of pole (six term test) = 1039821.2043937404 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8100000000000007 " "
y[1] (analytic) = -0.3273082736054079 " "
y[1] (numeric) = -0.3273082736054084 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.52639087175542120000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000047653195 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.5339348590496 " "
Order of pole (three term test) = -17615.358723155492 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8200000000000007 " "
y[1] (analytic) = -0.3240515018677613 " "
y[1] (numeric) = -0.32405150186776177 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.37042787115761070000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999968961323 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 711.1422079560716 " "
Order of pole (three term test) = -17831.37031546567 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8300000000000007 " "
y[1] (analytic) = -0.3208271355503453 " "
y[1] (numeric) = -0.32082713555034575 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.38420090023954530000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999953555434 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.5211776346539 " "
Order of pole (three term test) = -17414.389761620965 " "
Radius of convergence (six term test) for eq 1 = 2097.1797701789537 " "
Order of pole (six term test) = 272541.7820790665 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8400000000000007 " "
y[1] (analytic) = -0.31763485221384113 " "
y[1] (numeric) = -0.31763485221384163 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.57287639438563470000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999992425465 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.4144500369065 " "
Order of pole (three term test) = -17687.695928653447 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8500000000000008 " "
y[1] (analytic) = -0.314474332627255 " "
y[1] (numeric) = -0.3144743326272555 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.58868406495195430000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999945600923 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.8259053289464 " "
Order of pole (three term test) = -17647.847947491147 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8600000000000008 " "
y[1] (analytic) = -0.3113452607359944 " "
y[1] (numeric) = -0.3113452607359949 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.60465060524867670000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000000942106 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.2817391681592 " "
Order of pole (three term test) = -17483.614302259422 " "
Radius of convergence (six term test) for eq 1 = 2560.3537100289086 " "
Order of pole (six term test) = 315172.9840820075 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8700000000000008 " "
y[1] (analytic) = -0.30824732363026264 " "
y[1] (numeric) = -0.30824732363026314 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.62077761194313720000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.0000000194198 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.0712633282623 " "
Order of pole (three term test) = -17478.322166682672 " "
Radius of convergence (six term test) for eq 1 = 3692.1823053857684 " "
Order of pole (six term test) = 636392.3509498107 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8800000000000008 " "
y[1] (analytic) = -0.3051802115137675 " "
y[1] (numeric) = -0.305180211513768 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.63706669774944470000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999947104317 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 709.6389609411476 " "
Order of pole (three term test) = -17793.65822057334 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.8900000000000008 " "
y[1] (analytic) = -0.30214361767274145 " "
y[1] (numeric) = -0.30214361767274195 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.6535194915897541000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999873157257 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.6292640155979 " "
Order of pole (three term test) = -17592.722981307317 " "
Radius of convergence (six term test) for eq 1 = 1499.85719184889 " "
Order of pole (six term test) = 287639.54251900845 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9000000000000008 " "
y[1] (analytic) = -0.29913723844526985 " "
y[1] (numeric) = -0.29913723844527035 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.67013763875715980000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995613158 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.1641842263601 " "
Order of pole (three term test) = -17555.906643768674 " "
Radius of convergence (six term test) for eq 1 = 1549.104151222685 " "
Order of pole (six term test) = 23948.55180810445 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9100000000000008 " "
y[1] (analytic) = -0.2961607731909247 " "
y[1] (numeric) = -0.29616077319092515 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.4994869342935350000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000062816127 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.9230432860033 " "
Order of pole (three term test) = -17474.592657385216 " "
Radius of convergence (six term test) for eq 1 = 2454.4313893151293 " "
Order of pole (six term test) = 251590.18550233773 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9200000000000008 " "
y[1] (analytic) = -0.29321392426070003 " "
y[1] (numeric) = -0.29321392426070053 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.70387665708917600000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004775432 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.8911240231254 " "
Order of pole (three term test) = -17599.232932080045 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9300000000000008 " "
y[1] (analytic) = -0.29029639696724724 " "
y[1] (numeric) = -0.29029639696724774 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.7210009021837360000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999946033665 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.8604527172212 " "
Order of pole (three term test) = -17573.468152530168 " "
Radius of convergence (six term test) for eq 1 = 657.4123438639324 " "
Order of pole (six term test) = 98745.35263221283 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9400000000000008 " "
y[1] (analytic) = -0.2874078995554056 " "
y[1] (numeric) = -0.28740789955540613 " "
absolute error = 5.5511151231257830000000000000000E-16 " "
relative error = 1.93144138755854070000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999907841346 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 715.6777411908632 " "
Order of pole (three term test) = -17945.1757688049 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9500000000000008 " "
y[1] (analytic) = -0.2845481431730269 " "
y[1] (numeric) = -0.28454814317302746 " "
absolute error = 5.5511151231257830000000000000000E-16 " "
relative error = 1.95085269621678160000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999987604607 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 722.2623749283828 " "
Order of pole (three term test) = -18110.37100339641 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9600000000000009 " "
y[1] (analytic) = -0.2817168418420897 " "
y[1] (numeric) = -0.2817168418420903 " "
absolute error = 5.5511151231257830000000000000000E-16 " "
relative error = 1.970459091770360000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999978071138 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 713.8097217278895 " "
Order of pole (three term test) = -17898.31943230042 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9700000000000009 " "
y[1] (analytic) = -0.2789137124301016 " "
y[1] (numeric) = -0.27891371243010216 " "
absolute error = 5.5511151231257830000000000000000E-16 " "
relative error = 1.99026253487517000000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999991823767 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 709.3921892746621 " "
Order of pole (three term test) = -17787.469953084437 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9800000000000009 " "
y[1] (analytic) = -0.27613847462178537 " "
y[1] (numeric) = -0.2761384746217859 " "
absolute error = 5.5511151231257830000000000000000E-16 " "
relative error = 2.01026500589202540000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.0000001027479 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.7967231871282 " "
Order of pole (three term test) = -17521.601941458262 " "
Radius of convergence (six term test) for eq 1 = 4623.261405320280 " "
Order of pole (six term test) = 866646.8246038352 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 1.9900000000000009 " "
y[1] (analytic) = -0.2733908508910475 " "
y[1] (numeric) = -0.27339085089104803 " "
absolute error = 5.5511151231257830000000000000000E-16 " "
relative error = 2.03046850508469630000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999989464072 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.1528530797211 " "
Order of pole (three term test) = -17505.50727807251 " "
Radius of convergence (six term test) for eq 1 = 1852.1189920480472 " "
Order of pole (six term test) = 223680.52510306292 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.000000000000001 " "
y[1] (analytic) = -0.2706705664732251 " "
y[1] (numeric) = -0.2706705664732257 " "
absolute error = 5.5511151231257830000000000000000E-16 " "
relative error = 2.05087505281993850000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.9999999885823 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 690.5742046455919 " "
Order of pole (three term test) = -17315.334673981866 " "
Radius of convergence (six term test) for eq 1 = 1819.1623788718912 " "
Order of pole (six term test) = 174258.26670776206 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.0100000000000007 " "
y[1] (analytic) = -0.26797734933760975 " "
y[1] (numeric) = -0.26797734933761025 " "
absolute error = 4.9960036108132044000000000000000E-16 " "
relative error = 1.86433802079257720000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000010160816 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.0441102550562 " "
Order of pole (three term test) = -17402.38598624692 " "
Radius of convergence (six term test) for eq 1 = 4593.080272914873 " "
Order of pole (six term test) = 1185166.8221292372 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.0200000000000005 " "
y[1] (analytic) = -0.2653109301602433 " "
y[1] (numeric) = -0.26531093016024376 " "
absolute error = 4.4408920985006260000000000000000E-16 " "
relative error = 1.67384438169147530000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999993487916 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.6117396529789 " "
Order of pole (three term test) = -17818.066264052977 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.0300000000000002 " "
y[1] (analytic) = -0.26267104229698607 " "
y[1] (numeric) = -0.26267104229698646 " "
absolute error = 3.8857805861880480000000000000000E-16 " "
relative error = 1.4793334477253240000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995162328 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.179821207106 " "
Order of pole (three term test) = -17706.858800131486 " "
Radius of convergence (six term test) for eq 1 = 14419.073781763043 " "
Order of pole (six term test) = 13962447.819882175 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.04 " "
y[1] (analytic) = -0.2600574217568518 " "
y[1] (numeric) = -0.26005742175685215 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 1.2807437108984240000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000035411986 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.1505129975119 " "
Order of pole (three term test) = -17806.494115717243 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.05 " "
y[1] (analytic) = -0.25746980717560847 " "
y[1] (numeric) = -0.25746980717560874 " "
absolute error = 2.77555756156289140000000000000000E-16 " "
relative error = 1.07801283265412540000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999994698111 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.8910894057038 " "
Order of pole (three term test) = -17423.6716985048 " "
Radius of convergence (six term test) for eq 1 = 1862.5948637534116 " "
Order of pole (six term test) = 208138.84307220808 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.0599999999999996 " "
y[1] (analytic) = -0.2549079397896416 " "
y[1] (numeric) = -0.25490793978964177 " "
absolute error = 1.66533453693773480000000000000000E-16 " "
relative error = 6.53308225044705800000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999964430202 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.1457480184805 " "
Order of pole (three term test) = -17731.12216063627 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.0699999999999994 " "
y[1] (analytic) = -0.25237156341007766 " "
y[1] (numeric) = -0.25237156341007777 " "
absolute error = 1.11022302462515650000000000000000E-16 " "
relative error = 4.39916054575910800000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000003001386 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 688.7637777190452 " "
Order of pole (three term test) = -17269.923397233717 " "
Radius of convergence (six term test) for eq 1 = 2283.5200483359913 " "
Order of pole (six term test) = 300091.6891057769 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.079999999999999 " "
y[1] (analytic) = -0.24986042439716505 " "
y[1] (numeric) = -0.24986042439716513 " "
absolute error = 8.32667268468867400000000000000000E-17 " "
relative error = 3.332529633205549300000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000102516474 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.5915678450366 " "
Order of pole (three term test) = -17566.623461649793 " "
Radius of convergence (six term test) for eq 1 = 1384.6532500378091 " "
Order of pole (six term test) = -6952.628470548544 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.089999999999999 " "
y[1] (analytic) = -0.24737427163490988 " "
y[1] (numeric) = -0.2473742716349099 " "
absolute error = 2.775557561562891400000000000000000E-17 " "
relative error = 1.122007370944068700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999976623506 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.067350717347 " "
Order of pole (three term test) = -17453.150341823573 " "
Radius of convergence (six term test) for eq 1 = 2058.9586273850273 " "
Order of pole (six term test) = 206703.67846497925 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.0999999999999988 " "
y[1] (analytic) = -0.24491285650596414 " "
y[1] (numeric) = -0.2449128565059641 " "
absolute error = 5.55111512312578300000000000000000E-17 " "
relative error = 2.266567464983448900000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995121152 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.62088713079 " "
Order of pole (three term test) = -17743.056793069165 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.1099999999999985 " "
y[1] (analytic) = -0.24247593286676367 " "
y[1] (numeric) = -0.2424759328667636 " "
absolute error = 5.55111512312578300000000000000000E-17 " "
relative error = 2.289346846714071200000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000070960525 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.466238133419 " "
Order of pole (three term test) = -17563.488768013452 " "
Radius of convergence (six term test) for eq 1 = 1766.5634366813954 " "
Order of pole (six term test) = 36276.45241393503 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.1199999999999983 " "
y[1] (analytic) = -0.24006325702291384 " "
y[1] (numeric) = -0.24006325702291376 " "
absolute error = 8.32667268468867400000000000000000E-17 " "
relative error = 3.46853274755574100000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000049000775 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.3326238231188 " "
Order of pole (three term test) = -17811.0721118067 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.129999999999998 " "
y[1] (analytic) = -0.23767458770481972 " "
y[1] (numeric) = -0.23767458770481956 " "
absolute error = 1.66533453693773480000000000000000E-16 " "
relative error = 7.00678416241116700000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000013927987 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.3247471258466 " "
Order of pole (three term test) = -17559.939059698852 " "
Radius of convergence (six term test) for eq 1 = 2788.0382668461016 " "
Order of pole (six term test) = 200000.4219506272 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.139999999999998 " "
y[1] (analytic) = -0.23530968604355887 " "
y[1] (numeric) = -0.23530968604355867 " "
absolute error = 1.9428902930940240000000000000000E-16 " "
relative error = 8.25673743296045100000000000000E-14 "%"
Correct digits = 17
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999998321943 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.404498490648 " "
Order of pole (three term test) = -17587.054767456066 " "
Radius of convergence (six term test) for eq 1 = 4517.084160853307 " "
Order of pole (six term test) = 670262.2770210169 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.1499999999999977 " "
y[1] (analytic) = -0.23296831554699446 " "
y[1] (numeric) = -0.23296831554699418 " "
absolute error = 2.77555756156289140000000000000000E-16 " "
relative error = 1.19138843196168650000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999905284206 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.8317208032944 " "
Order of pole (three term test) = -17698.16058291563 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.1599999999999975 " "
y[1] (analytic) = -0.23065024207612564 " "
y[1] (numeric) = -0.2306502420761253 " "
absolute error = 3.33066907387546960000000000000000E-16 " "
relative error = 1.44403450171805530000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999970052137 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.9117227727369 " "
Order of pole (three term test) = -17725.220319193784 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.1699999999999973 " "
y[1] (analytic) = -0.2283552338216736 " "
y[1] (numeric) = -0.22835523382167322 " "
absolute error = 3.8857805861880480000000000000000E-16 " "
relative error = 1.70163850469156250000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000061406283 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.9155350863142 " "
Order of pole (three term test) = -17599.885157345554 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.179999999999997 " "
y[1] (analytic) = -0.2260830612809004 " "
y[1] (numeric) = -0.22608306128089997 " "
absolute error = 4.1633363423443370000000000000000E-16 " "
relative error = 1.84150741712203530000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999954553978 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.2825297203002 " "
Order of pole (three term test) = -17558.92039654655 " "
Radius of convergence (six term test) for eq 1 = 3354.1616504019908 " "
Order of pole (six term test) = 692206.5530719163 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.189999999999997 " "
y[1] (analytic) = -0.22383349723465845 " "
y[1] (numeric) = -0.22383349723465798 " "
absolute error = 4.7184478546569153000000000000000E-16 " "
relative error = 2.10801685759762550000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999987400939 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.37548078745 " "
Order of pole (three term test) = -17762.006741839272 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.1999999999999966 " "
y[1] (analytic) = -0.22160631672466852 " "
y[1] (numeric) = -0.221606316724668 " "
absolute error = 5.2735593669694940000000000000000E-16 " "
relative error = 2.3796972238483390000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999992290686 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.2985771312788 " "
Order of pole (three term test) = -17634.58636507125 " "
Radius of convergence (six term test) for eq 1 = 10561.354436578027 " "
Order of pole (six term test) = 5736789.573074211 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.2099999999999964 " "
y[1] (analytic) = -0.2194012970310236 " "
y[1] (numeric) = -0.219401297031023 " "
absolute error = 5.8286708792820720000000000000000E-16 " "
relative error = 2.65662553419540200000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000038923012 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.1841689651505 " "
Order of pole (three term test) = -17456.093786398782 " "
Radius of convergence (six term test) for eq 1 = 5285.921009935812 " "
Order of pole (six term test) = 1738069.8708038996 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.219999999999996 " "
y[1] (analytic) = -0.21721821764991678 " "
y[1] (numeric) = -0.21721821764991617 " "
absolute error = 6.1062266354383610000000000000000E-16 " "
relative error = 2.8111024487271870000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999971441564 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.3831884348932 " "
Order of pole (three term test) = -17762.188989171224 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.229999999999996 " "
y[1] (analytic) = -0.21505686027159077 " "
y[1] (numeric) = -0.2150568602715901 " "
absolute error = 6.6613381477509390000000000000000E-16 " "
relative error = 3.09747763421193640000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000001622418 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.2647163836119 " "
Order of pole (three term test) = -17533.370452716277 " "
Radius of convergence (six term test) for eq 1 = 3359.068837098216 " "
Order of pole (six term test) = 561630.446496163 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.2399999999999958 " "
y[1] (analytic) = -0.21291700875850653 " "
y[1] (numeric) = -0.21291700875850583 " "
absolute error = 6.9388939039072280000000000000000E-16 " "
relative error = 3.25896646039087400000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999997592239 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 712.2804084847511 " "
Order of pole (three term test) = -17859.918405437715 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.2499999999999956 " "
y[1] (analytic) = -0.2107984491237296 " "
y[1] (numeric) = -0.21079844912372886 " "
absolute error = 7.4940054162198070000000000000000E-16 " "
relative error = 3.55505718726666140000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000024186456 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.21150040677 " "
Order of pole (three term test) = -17657.470461996832 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.2599999999999953 " "
y[1] (analytic) = -0.20870096950953101 " "
y[1] (numeric) = -0.2087009695095302 " "
absolute error = 8.0491169285323850000000000000000E-16 " "
relative error = 3.8567702619919050000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999983613687 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.3925460564111 " "
Order of pole (three term test) = -17737.334779548997 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.269999999999995 " "
y[1] (analytic) = -0.2066243601662014 " "
y[1] (numeric) = -0.20662436016620056 " "
absolute error = 8.3266726846886740000000000000000E-16 " "
relative error = 4.02986011813466270000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999904674507 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 722.6591136742156 " "
Order of pole (three term test) = -18120.354676312567 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.279999999999995 " "
y[1] (analytic) = -0.20456841343107596 " "
y[1] (numeric) = -0.20456841343107507 " "
absolute error = 8.8817841970012520000000000000000E-16 " "
relative error = 4.3417182780242564000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999993217067 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.811686190492 " "
Order of pole (three term test) = -17672.564030911577 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.2899999999999947 " "
y[1] (analytic) = -0.20253292370776788 " "
y[1] (numeric) = -0.20253292370776693 " "
absolute error = 9.436895709313831000000000000000E-16 " "
relative error = 4.6594378516602090000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000005478357 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.9096109273224 " "
Order of pole (three term test) = -17524.475252292425 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.2999999999999945 " "
y[1] (analytic) = -0.20051768744560855 " "
y[1] (numeric) = -0.20051768744560758 " "
absolute error = 9.714451465470120000000000000000E-16 " "
relative error = 4.8446855682520346000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004763357 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.7069963116957 " "
Order of pole (three term test) = -17519.36373784734 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.3099999999999943 " "
y[1] (analytic) = -0.19852250311929245 " "
y[1] (numeric) = -0.19852250311929143 " "
absolute error = 1.0269562977782698000000000000000E-15 " "
relative error = 5.1729969229794080000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999902429952 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.6482649261936 " "
Order of pole (three term test) = -17668.495640931476 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.319999999999994 " "
y[1] (analytic) = -0.19654717120872423 " "
y[1] (numeric) = -0.19654717120872317 " "
absolute error = 1.0547118733938987000000000000000E-15 " "
relative error = 5.3662022552023530000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004546714 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 687.53047961509 " "
Order of pole (three term test) = -17238.967054992292 " "
Radius of convergence (six term test) for eq 1 = 1701.9818560259755 " "
Order of pole (six term test) = 153870.85055078898 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.329999999999994 " "
y[1] (analytic) = -0.19459149417906674 " "
y[1] (numeric) = -0.19459149417906563 " "
absolute error = 1.1102230246251565000000000000000E-15 " "
relative error = 5.7054036678679720000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000007884359 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.8490586117636 " "
Order of pole (three term test) = -17598.19607239864 " "
Radius of convergence (six term test) for eq 1 = 1297.2637111714494 " "
Order of pole (six term test) = -197007.27055610385 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.3399999999999936 " "
y[1] (analytic) = -0.19265527646098726 " "
y[1] (numeric) = -0.19265527646098612 " "
absolute error = 1.1379786002407855000000000000000E-15 " "
relative error = 5.9068125262129860000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000057468593 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.2305062865054 " "
Order of pole (three term test) = -17407.043629406748 " "
Radius of convergence (six term test) for eq 1 = 2142.1263768783156 " "
Order of pole (six term test) = 212663.79241209332 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.3499999999999934 " "
y[1] (analytic) = -0.1907383244311005 " "
y[1] (numeric) = -0.1907383244310993 " "
absolute error = 1.1934897514720433000000000000000E-15 " "
relative error = 6.2572100024039060000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999860058605 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 709.6979864514244 " "
Order of pole (three term test) = -17795.16128344171 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.359999999999993 " "
y[1] (analytic) = -0.18884044639260597 " "
y[1] (numeric) = -0.18884044639260475 " "
absolute error = 1.2212453270876722000000000000000E-15 " "
relative error = 6.4670749853485310000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000009888378 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 691.8712505248101 " "
Order of pole (three term test) = -17347.86824233079 " "
Radius of convergence (six term test) for eq 1 = 2427.3294368676843 " "
Order of pole (six term test) = 310790.28673418774 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.369999999999993 " "
y[1] (analytic) = -0.18696145255611826 " "
y[1] (numeric) = -0.186961452556117 " "
absolute error = 1.2490009027033011000000000000000E-15 " "
relative error = 6.680526309712970000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000087173813 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.8855769706004 " "
Order of pole (three term test) = -17523.853770470752 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.379999999999993 " "
y[1] (analytic) = -0.18510115502068789 " "
y[1] (numeric) = -0.1851011550206866 " "
absolute error = 1.27675647831893000000000000000E-15 " "
relative error = 6.8976148645654480000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999987719709 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.277477690623 " "
Order of pole (three term test) = -17634.0824159723 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.3899999999999926 " "
y[1] (analytic) = -0.18325936775501106 " "
y[1] (numeric) = -0.18325936775500976 " "
absolute error = 1.304512053934559000000000000000E-15 " "
relative error = 7.1183921996199740000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000006685546 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.2786738169946 " "
Order of pole (three term test) = -17734.42967171767 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.3999999999999924 " "
y[1] (analytic) = -0.18143590657882638 " "
y[1] (numeric) = -0.18143590657882505 " "
absolute error = 1.3322676295501878000000000000000E-15 " "
relative error = 7.3429105333754470000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000082519993 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.8205293859735 " "
Order of pole (three term test) = -17497.111653820706 " "
Radius of convergence (six term test) for eq 1 = 2785.1109711892054 " "
Order of pole (six term test) = 319008.8164914969 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.409999999999992 " "
y[1] (analytic) = -0.17963058914449667 " "
y[1] (numeric) = -0.1796305891444953 " "
absolute error = 1.3600232051658168000000000000000E-15 " "
relative error = 7.5712227613516340000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999989456201 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.9690976924079 " "
Order of pole (three term test) = -17776.897209836057 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.419999999999992 " "
y[1] (analytic) = -0.1778432349187741 " "
y[1] (numeric) = -0.17784323491877269 " "
absolute error = 1.4155343563970746000000000000000E-15 " "
relative error = 7.9594501137115960000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999996113007 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.6865244688304 " "
Order of pole (three term test) = -17769.804876260438 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.4299999999999917 " "
y[1] (analytic) = -0.1760736651647466 " "
y[1] (numeric) = -0.17607366516474512 " "
absolute error = 1.4710455076283324000000000000000E-15 " "
relative error = 8.3547162277329860000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999981352907 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.2639544703505 " "
Order of pole (three term test) = -17734.08653161534 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.4399999999999915 " "
y[1] (analytic) = -0.17432170292396407 " "
y[1] (numeric) = -0.17432170292396257 " "
absolute error = 1.4988010832439613000000000000000E-15 " "
relative error = 8.5979029467014270000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000066588473 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.8896742399345 " "
Order of pole (three term test) = -17699.5820126017 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.4499999999999913 " "
y[1] (analytic) = -0.17258717299874252 " "
y[1] (numeric) = -0.172587172998741 " "
absolute error = 1.5265566588595902000000000000000E-15 " "
relative error = 8.8451339247019990000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999989490934 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.6779338152015 " "
Order of pole (three term test) = -17568.818258610776 " "
Radius of convergence (six term test) for eq 1 = 2746.661961731854 " "
Order of pole (six term test) = 210279.83877688705 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.459999999999991 " "
y[1] (analytic) = -0.17086990193464396 " "
y[1] (numeric) = -0.1708699019346424 " "
absolute error = 1.5543122344752192000000000000000E-15 " "
relative error = 9.0964658894094060000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000021403807 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.5698863859736 " "
Order of pole (three term test) = -17465.740153612485 " "
Radius of convergence (six term test) for eq 1 = 2363.2426987311096 " "
Order of pole (six term test) = 245398.79343845212 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.469999999999991 " "
y[1] (analytic) = -0.16916971800313094 " "
y[1] (numeric) = -0.16916971800312935 " "
absolute error = 1.582067810090848000000000000000E-15 " "
relative error = 9.3519563002497150000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995839811 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.6416456327411 " "
Order of pole (three term test) = -17643.191092932713 " "
Radius of convergence (six term test) for eq 1 = 3067.041118033248 " "
Order of pole (six term test) = 658825.1747988261 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.4799999999999907 " "
y[1] (analytic) = -0.16748645118439348 " "
y[1] (numeric) = -0.16748645118439184 " "
absolute error = 1.6375789613221060000000000000000E-15 " "
relative error = 9.7773816911268860000000000000E-13 "%"
Correct digits = 16
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995593809 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.4145697614514 " "
Order of pole (three term test) = -17587.35595954117 " "
Radius of convergence (six term test) for eq 1 = 572.287077655528 " "
Order of pole (six term test) = 116790.85096195202 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.4899999999999904 " "
y[1] (analytic) = -0.16581993315034693 " "
y[1] (numeric) = -0.16581993315034527 " "
absolute error = 1.6653345369377348000000000000000E-15 " "
relative error = 1.0043029841459387000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000061170272 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 692.9751849499544 " "
Order of pole (three term test) = -17375.554894290435 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.4999999999999902 " "
y[1] (analytic) = -0.1641699972477992 " "
y[1] (numeric) = -0.16416999724779746 " "
absolute error = 1.7486012637846216000000000000000E-15 " "
relative error = 1.0651162167867202000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999992623413 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 715.8006260494468 " "
Order of pole (three term test) = -17948.24760031108 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.50999999999999 " "
y[1] (analytic) = -0.162536478481785 " "
y[1] (numeric) = -0.16253647848178324 " "
absolute error = 1.7763568394002505000000000000000E-15 " "
relative error = 1.0928973335664594000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999997826366 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.8139872966656 " "
Order of pole (three term test) = -17697.709013983815 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.51999999999999 " "
y[1] (analytic) = -0.16091921349906652 " "
y[1] (numeric) = -0.1609192134990647 " "
absolute error = 1.8041124150158794000000000000000E-15 " "
relative error = 1.1211292770992477000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000052230664 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.850700363761 " "
Order of pole (three term test) = -17472.798272013773 " "
Radius of convergence (six term test) for eq 1 = 5166.532192935285 " "
Order of pole (six term test) = 1418618.426085073 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.5299999999999896 " "
y[1] (analytic) = -0.15931804057179771 " "
y[1] (numeric) = -0.15931804057179588 " "
absolute error = 1.8318679906315083000000000000000E-15 " "
relative error = 1.1498183030979252000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000057706597 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.8064416326547 " "
Order of pole (three term test) = -17521.862764834423 " "
Radius of convergence (six term test) for eq 1 = 4174.53869866519 " "
Order of pole (six term test) = 818574.7908768656 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.5399999999999894 " "
y[1] (analytic) = -0.15773279958135156 " "
y[1] (numeric) = -0.1577327995813497 " "
absolute error = 1.8596235662471372000000000000000E-15 " "
relative error = 1.1789707474811072000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999958760423 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.1171052057522 " "
Order of pole (three term test) = -17755.50589732229 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.549999999999989 " "
y[1] (analytic) = -0.156163332002308 " "
y[1] (numeric) = -0.1561633320023061 " "
absolute error = 1.915134717478395000000000000000E-15 " "
relative error = 1.2263664542263292000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999906610903 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.6958401597205 " "
Order of pole (three term test) = -17569.295416372628 " "
Radius of convergence (six term test) for eq 1 = 2572.6337004121083 " "
Order of pole (six term test) = 398150.31443638174 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.559999999999989 " "
y[1] (analytic) = -0.1546094808866012 " "
y[1] (numeric) = -0.15460948088659926 " "
absolute error = 1.942890293094024000000000000000E-15 " "
relative error = 1.256643694780298000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000083078188 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.9435237454657 " "
Order of pole (three term test) = -17675.812393807646 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.5699999999999887 " "
y[1] (analytic) = -0.15307109084782472 " "
y[1] (numeric) = -0.15307109084782275 " "
absolute error = 1.970645868709652900000000000000E-15 " "
relative error = 1.2874056477906504000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999981809665 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.6370738075835 " "
Order of pole (three term test) = -17618.021759093135 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.5799999999999885 " "
y[1] (analytic) = -0.1515480080456927 " "
y[1] (numeric) = -0.15154800804569069 " "
absolute error = 2.0261570199409107000000000000000E-15 " "
relative error = 1.3369737062660772000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999868135372 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.4345532595225 " "
Order of pole (three term test) = -17412.198135599658 " "
Radius of convergence (six term test) for eq 1 = 1908.4600354875417 " "
Order of pole (six term test) = 189691.98587165622 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.5899999999999883 " "
y[1] (analytic) = -0.15004008017065568 " "
y[1] (numeric) = -0.15004008017065362 " "
absolute error = 2.0539125955565396000000000000000E-15 " "
relative error = 1.3689092895847685000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000066584544 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 690.4080303528784 " "
Order of pole (three term test) = -17311.132177920295 " "
Radius of convergence (six term test) for eq 1 = 1565.2774923425388 " "
Order of pole (six term test) = 111859.80879110796 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.599999999999988 " "
y[1] (analytic) = -0.14854715642866953 " "
y[1] (numeric) = -0.14854715642866745 " "
absolute error = 2.0816681711721685000000000000000E-15 " "
relative error = 1.40135174662314000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000006896945 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.39084038333 " "
Order of pole (three term test) = -17411.057172498375 " "
Radius of convergence (six term test) for eq 1 = 2866.8559129385135 " "
Order of pole (six term test) = 380981.73033519 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.609999999999988 " "
y[1] (analytic) = -0.14706908752611597 " "
y[1] (numeric) = -0.14706908752611383 " "
absolute error = 2.1371793224034263000000000000000E-15 " "
relative error = 1.4531805142422702000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999986568007 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.0096088361975 " "
Order of pole (three term test) = -17476.821995588965 " "
Radius of convergence (six term test) for eq 1 = 3547.274371357872 " "
Order of pole (six term test) = 935716.994350902 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.6199999999999877 " "
y[1] (analytic) = -0.14560572565487298 " "
y[1] (numeric) = -0.14560572565487082 " "
absolute error = 2.1649348980190553000000000000000E-15 " "
relative error = 1.486847366943912000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000058621506 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 695.9380289570964 " "
Order of pole (three term test) = -17449.89379391919 " "
Radius of convergence (six term test) for eq 1 = 3632.2635917184316 " "
Order of pole (six term test) = 669682.8667334854 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.6299999999999875 " "
y[1] (analytic) = -0.144156924477534 " "
y[1] (numeric) = -0.1441569244775318 " "
absolute error = 2.192690473634684200000000000000E-15 " "
relative error = 1.5210441548899734000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999989563605 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.277021916275 " "
Order of pole (three term test) = -17734.362591011333 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.6399999999999872 " "
y[1] (analytic) = -0.14272253911277394 " "
y[1] (numeric) = -0.14272253911277172 " "
absolute error = 2.220446049250313000000000000000E-15 " "
relative error = 1.5557781294065970000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004423702 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.4137778604362 " "
Order of pole (three term test) = -17486.911188983733 " "
Radius of convergence (six term test) for eq 1 = 2997.4832769311047 " "
Order of pole (six term test) = 399128.2116131966 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.649999999999987 " "
y[1] (analytic) = -0.141302426120861 " "
y[1] (numeric) = -0.14130242612085875 " "
absolute error = 2.248201624865942000000000000000E-15 " "
relative error = 1.5910566340474402000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000064499027 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.4232517028825 " "
Order of pole (three term test) = -17562.455635568054 " "
Radius of convergence (six term test) for eq 1 = 2853.456517162136 " "
Order of pole (six term test) = 768272.0174896576 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.659999999999987 " "
y[1] (analytic) = -0.13989644348931257 " "
y[1] (numeric) = -0.1398964434893103 " "
absolute error = 2.275957200481571000000000000000E-15 " "
relative error = 1.6268871057150522000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999998443315 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.6406577070478 " "
Order of pole (three term test) = -17592.975562539126 " "
Radius of convergence (six term test) for eq 1 = 3228.647593088766 " "
Order of pole (six term test) = 42878.017434654896 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.6699999999999866 " "
y[1] (analytic) = -0.13850445061869382 " "
y[1] (numeric) = -0.13850445061869152 " "
absolute error = 2.3037127760971998000000000000E-15 " "
relative error = 1.6632770757954762000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000047303665 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.8273903715201 " "
Order of pole (three term test) = -17597.625962991733 " "
Radius of convergence (six term test) for eq 1 = 458.5721686613167 " "
Order of pole (six term test) = -86985.04621466876 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.6799999999999864 " "
y[1] (analytic) = -0.1371263083085577 " "
y[1] (numeric) = -0.13712630830855538 " "
absolute error = 2.3314683517128287000000000000000E-15 " "
relative error = 1.7002341713062274000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004804636 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.751299743429 " "
Order of pole (three term test) = -17721.196995717128 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.689999999999986 " "
y[1] (analytic) = -0.13576187874352474 " "
y[1] (numeric) = -0.13576187874352239 " "
absolute error = 2.3592239273284576000000000000000E-15 " "
relative error = 1.7377661160578056000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999980278734 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.2109364210728 " "
Order of pole (three term test) = -17557.14536539361 " "
Radius of convergence (six term test) for eq 1 = 1694.130797490115 " "
Order of pole (six term test) = 233819.282229623 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.699999999999986 " "
y[1] (analytic) = -0.13441102547950143 " "
y[1] (numeric) = -0.134411025479499 " "
absolute error = 2.4147350785597155000000000000000E-15 " "
relative error = 1.7965305077803892000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999999044696 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.9132455243632 " "
Order of pole (three term test) = -17725.277065767023 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.7099999999999858 " "
y[1] (analytic) = -0.1330736134300356 " "
y[1] (numeric) = -0.13307361343003316 " "
absolute error = 2.4424906541753444000000000000000E-15 " "
relative error = 1.8354432492054493000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000021416916 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 693.7052739005841 " "
Order of pole (three term test) = -17393.895415379047 " "
Radius of convergence (six term test) for eq 1 = 3320.2565669207215 " "
Order of pole (six term test) = 636252.1633235187 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.7199999999999855 " "
y[1] (analytic) = -0.1317495088528078 " "
y[1] (numeric) = -0.13174950885280537 " "
absolute error = 2.4424906541753444000000000000000E-15 " "
relative error = 1.853889760533472000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999988022246 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.8824722488292 " "
Order of pole (three term test) = -17824.880628214058 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.7299999999999853 " "
y[1] (analytic) = -0.13043857933625697 " "
y[1] (numeric) = -0.13043857933625447 " "
absolute error = 2.4980018054066022000000000000000E-15 " "
relative error = 1.9150789728911533000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999997403628 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.9620120766099 " "
Order of pole (three term test) = -17776.652135447694 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.739999999999985 " "
y[1] (analytic) = -0.12914069378633888 " "
y[1] (numeric) = -0.12914069378633639 " "
absolute error = 2.4980018054066022000000000000000E-15 " "
relative error = 1.9343258365480862000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999999837089 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.409134452478 " "
Order of pole (three term test) = -17712.60452262302 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.749999999999985 " "
y[1] (analytic) = -0.12785572241341708 " "
y[1] (numeric) = -0.12785572241341453 " "
absolute error = 2.55351295663786000000000000000E-15 " "
relative error = 1.9971831596095196000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999986342776 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 720.0066231663784 " "
Order of pole (three term test) = -18053.777750995745 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.7599999999999847 " "
y[1] (analytic) = -0.12658353671928338 " "
y[1] (numeric) = -0.1265835367192808 " "
absolute error = 2.581268532253489000000000000000E-15 " "
relative error = 2.0391818708445564000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999999970204 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.3179194767777 " "
Order of pole (three term test) = -17760.513665193317 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.7699999999999845 " "
y[1] (analytic) = -0.12532400948430825 " "
y[1] (numeric) = -0.12532400948430564 " "
absolute error = 2.609024107869118000000000000000E-15 " "
relative error = 2.081823043010599000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999879683553 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.8456478951636 " "
Order of pole (three term test) = -17773.761889510788 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.7799999999999843 " "
y[1] (analytic) = -0.12407701475471858 " "
y[1] (numeric) = -0.12407701475471593 " "
absolute error = 2.6506574712925610000000000000000E-15 " "
relative error = 2.136300165290492000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000008012486 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 690.7910087644575 " "
Order of pole (three term test) = -17320.78909952222 " "
Radius of convergence (six term test) for eq 1 = 3691.1159389310924 " "
Order of pole (six term test) = 833832.4089719207 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.789999999999984 " "
y[1] (analytic) = -0.12284242783000221 " "
y[1] (numeric) = -0.12284242782999955 " "
absolute error = 2.6645352591003757000000000000000E-15 " "
relative error = 2.169067565798799000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999998385899 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.1572432963136 " "
Order of pole (three term test) = -17580.85507548948 " "
Radius of convergence (six term test) for eq 1 = 4390.177385499007 " "
Order of pole (six term test) = 813074.386949317 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.799999999999984 " "
y[1] (analytic) = -0.12162012525043789 " "
y[1] (numeric) = -0.1216201252504352 " "
absolute error = 2.6922908347160046000000000000000E-15 " "
relative error = 2.2136885890983007000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995276066 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.0905261996021 " "
Order of pole (three term test) = -17754.82135344759 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.8099999999999836 " "
y[1] (analytic) = -0.12040998478474906 " "
y[1] (numeric) = -0.12040998478474634 " "
absolute error = 2.7200464103316335000000000000000E-15 " "
relative error = 2.2589874213456013000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999994595616 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 693.2117160147527 " "
Order of pole (three term test) = -17381.511769922305 " "
Radius of convergence (six term test) for eq 1 = 2154.372005913178 " "
Order of pole (six term test) = 250538.16646957726 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.8199999999999834 " "
y[1] (analytic) = -0.11921188541788069 " "
y[1] (numeric) = -0.11921188541787793 " "
absolute error = 2.761679773755077000000000000000E-15 " "
relative error = 2.3166144584278592000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999997940925 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.5753124721127 " "
Order of pole (three term test) = -17691.717269259647 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.829999999999983 " "
y[1] (analytic) = -0.11802570733889767 " "
y[1] (numeric) = -0.11802570733889489 " "
absolute error = 2.7755575615628914000000000000000E-15 " "
relative error = 2.351655096286088800000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000087339053 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 693.4035688142288 " "
Order of pole (three term test) = -17386.296830796666 " "
Radius of convergence (six term test) for eq 1 = 2557.0528158770294 " "
Order of pole (six term test) = 319202.44937081943 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.839999999999983 " "
y[1] (analytic) = -0.11685133192900361 " "
y[1] (numeric) = -0.11685133192900082 " "
absolute error = 2.789435349370706000000000000000E-15 " "
relative error = 2.3871660710427398000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999985412384 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.0064332574311 " "
Order of pole (three term test) = -17526.884522569988 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.8499999999999828 " "
y[1] (analytic) = -0.11568864174967892 " "
y[1] (numeric) = -0.1156886417496761 " "
absolute error = 2.831068712794149000000000000000E-15 " "
relative error = 2.4471449141220522000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999871676483 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.6040166719529 " "
Order of pole (three term test) = -17617.181427966094 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.8599999999999826 " "
y[1] (analytic) = -0.11453752053093672 " "
y[1] (numeric) = -0.11453752053093386 " "
absolute error = 2.858824288409778000000000000000E-15 " "
relative error = 2.495971865950779300000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999996503701 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.6714554607306 " "
Order of pole (three term test) = -17618.848266169156 " "
Radius of convergence (six term test) for eq 1 = 7110.111982731164 " "
Order of pole (six term test) = 2828491.0990573624 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.8699999999999823 " "
y[1] (analytic) = -0.11339785315969583 " "
y[1] (numeric) = -0.11339785315969296 " "
absolute error = 2.8727020762175925000000000000000E-15 " "
relative error = 2.533294940047962000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000080711093 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.0855352172205 " "
Order of pole (three term test) = -17403.4277259948 " "
Radius of convergence (six term test) for eq 1 = 4576.324208815366 " "
Order of pole (six term test) = 1195422.4265682898 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.879999999999982 " "
y[1] (analytic) = -0.11226952566826945 " "
y[1] (numeric) = -0.11226952566826656 " "
absolute error = 2.886579864025407000000000000000E-15 " "
relative error = 2.5711161126257760000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999915921396 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 722.59215339162 " "
Order of pole (three term test) = -18118.639571487343 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.889999999999982 " "
y[1] (analytic) = -0.11115242522296816 " "
y[1] (numeric) = -0.11115242522296524 " "
absolute error = 2.914335439641036000000000000000E-15 " "
relative error = 2.621926992411523000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.9999999749014 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.8904495157709 " "
Order of pole (three term test) = -17674.48750859146 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.8999999999999817 " "
y[1] (analytic) = -0.11004644011281646 " "
y[1] (numeric) = -0.11004644011281355 " "
absolute error = 2.914335439641036000000000000000E-15 " "
relative error = 2.648277796767749000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999885854564 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 711.2508124389044 " "
Order of pole (three term test) = -17834.158433107255 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.9099999999999815 " "
y[1] (analytic) = -0.10895145973838175 " "
y[1] (numeric) = -0.1089514597383788 " "
absolute error = 2.942091015256665000000000000000E-15 " "
relative error = 2.7003686066449430000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000081369475 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.2908207125895 " "
Order of pole (three term test) = -17759.793067969338 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.9199999999999813 " "
y[1] (analytic) = -0.10786737460071404 " "
y[1] (numeric) = -0.10786737460071108 " "
absolute error = 2.9559688030644793000000000000000E-15 " "
relative error = 2.740373364983068600000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999947377383 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.1160927851339 " "
Order of pole (three term test) = -17529.677526131873 " "
Radius of convergence (six term test) for eq 1 = 1858.007763851911 " "
Order of pole (six term test) = 253825.18971309083 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.929999999999981 " "
y[1] (analytic) = -0.10679407629039621 " "
y[1] (numeric) = -0.10679407629039321 " "
absolute error = 2.9976021664879227000000000000000E-15 " "
relative error = 2.8068992875005480000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999949693738 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.2226606226311 " "
Order of pole (three term test) = -17657.750012968398 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.939999999999981 " "
y[1] (analytic) = -0.10573145747670275 " "
y[1] (numeric) = -0.10573145747669974 " "
absolute error = 3.011479954295737000000000000000E-15 " "
relative error = 2.8482345993946956000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995380132 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.0551225642264 " "
Order of pole (three term test) = -17703.751261886446 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.9499999999999806 " "
y[1] (analytic) = -0.10467941189686682 " "
y[1] (numeric) = -0.10467941189686378 " "
absolute error = 3.039235529911366000000000000000E-15 " "
relative error = 2.903374670184151000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004432459 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.8542725224313 " "
Order of pole (three term test) = -17673.619692561297 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.9599999999999804 " "
y[1] (analytic) = -0.10363783434545369 " "
y[1] (numeric) = -0.10363783434545064 " "
absolute error = 3.0531133177191805000000000000000E-15 " "
relative error = 2.9459447285846460000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000010925272 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.0751882048801 " "
Order of pole (three term test) = -17403.173773399412 " "
Radius of convergence (six term test) for eq 1 = 2488.567768421975 " "
Order of pole (six term test) = 346281.0214505383 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.96999999999998 " "
y[1] (analytic) = -0.10260662066384026 " "
y[1] (numeric) = -0.10260662066383719 " "
absolute error = 3.066991105526995000000000000000E-15 " "
relative error = 2.98907720153368030000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999933757636 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.1135241273179 " "
Order of pole (three term test) = -17504.516647573666 " "
Radius of convergence (six term test) for eq 1 = 2541.902733448135 " "
Order of pole (six term test) = 446879.10057905316 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.97999999999998 " "
y[1] (analytic) = -0.10158566772979903 " "
y[1] (numeric) = -0.10158566772979594 " "
absolute error = 3.094746681142624000000000000000E-15 " "
relative error = 3.0464402610160860000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999979239217 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.3927556201994 " "
Order of pole (three term test) = -17687.133745765317 " "
Radius of convergence (six term test) for eq 1 = 2697.621563768912 " "
Order of pole (six term test) = 427609.0440742247 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.98999999999998 " "
y[1] (analytic) = -0.10057487344718578 " "
y[1] (numeric) = -0.10057487344718266 " "
absolute error = 3.1225022567582530000000000000000E-15 " "
relative error = 3.1046544228543840000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000002039304 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.4614278828577 " "
Order of pole (three term test) = -17488.15653723689 " "
Radius of convergence (six term test) for eq 1 = 2846.003993230865 " "
Order of pole (six term test) = 593344.3183149982 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 2.9999999999999796 " "
y[1] (analytic) = -9.95741367357299200E-2 " "
y[1] (numeric) = -9.95741367357267800E-2 " "
absolute error = 3.1502578323738817000000000000000E-15 " "
relative error = 3.1637310004852726000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000008805124 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 711.0209533536294 " "
Order of pole (three term test) = -17828.310593757724 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.0099999999999794 " "
y[1] (analytic) = -9.85833575209263700E-2 " "
y[1] (numeric) = -9.85833575209231900E-2 " "
absolute error = 3.1780134079895106000000000000000E-15 " "
relative error = 3.2236814487829870000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999927984362 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.217632422134 " "
Order of pole (three term test) = -17808.166177735446 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.019999999999979 " "
y[1] (analytic) = -9.76024367240279500E-2 " "
y[1] (numeric) = -9.76024367240247800E-2 " "
absolute error = 3.1780134079895106000000000000000E-15 " "
relative error = 3.2560799859693890000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000004151765 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.4037805264701 " "
Order of pole (three term test) = -17411.432236856035 " "
Radius of convergence (six term test) for eq 1 = 2124.574214773378 " "
Order of pole (six term test) = 257720.47274017188 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.029999999999979 " "
y[1] (analytic) = -9.66312762521375900E-2 " "
y[1] (numeric) = -9.66312762521343900E-2 " "
absolute error = 3.2057689836051395000000000000000E-15 " "
relative error = 3.317527314076248000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000094157443 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.1730312581705 " "
Order of pole (three term test) = -17405.618108192073 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.0399999999999787 " "
y[1] (analytic) = -9.56697789883987800E-2 " "
y[1] (numeric) = -9.56697789883955500E-2 " "
absolute error = 3.2335245592207684000000000000000E-15 " "
relative error = 3.379880870857741000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000053607792 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.1040699345646 " "
Order of pole (three term test) = -17730.025647624647 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.0499999999999785 " "
y[1] (analytic) = -9.47178487822838900E-2 " "
y[1] (numeric) = -9.47178487822806200E-2 " "
absolute error = 3.2612801348363973000000000000000E-15 " "
relative error = 3.4431526652729366000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000005190866 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 695.9562098664178 " "
Order of pole (three term test) = -17450.34169358739 " "
Radius of convergence (six term test) for eq 1 = 2090.032272897976 " "
Order of pole (six term test) = 190383.2841870854 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.0599999999999783 " "
y[1] (analytic) = -9.37753904399790100E-2 " "
y[1] (numeric) = -9.37753904399757400E-2 " "
absolute error = 3.2751579226442120000000000000000E-15 " "
relative error = 3.4925558904929100000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000045658126 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.9359755605675 " "
Order of pole (three term test) = -17700.702707884768 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.069999999999978 " "
y[1] (analytic) = -9.28423097148645600E-2 " "
y[1] (numeric) = -9.28423097148612700E-2 " "
absolute error = 3.2890357104520260000000000000000E-15 " "
relative error = 3.5426043584581720000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999947282685 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 709.8780758663132 " "
Order of pole (three term test) = -17799.62879464432 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.079999999999978 " "
y[1] (analytic) = -9.19185132980904400E-2 " "
y[1] (numeric) = -9.19185132980871300E-2 " "
absolute error = 3.316791286067655000000000000000E-15 " "
relative error = 3.608403973322923000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000006760355 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.9507130926364 " "
Order of pole (three term test) = -17625.822558775966 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.0899999999999777 " "
y[1] (analytic) = -9.10039088092451600E-2 " "
y[1] (numeric) = -9.10039088092418200E-2 " "
absolute error = 3.344546861683284000000000000000E-15 " "
relative error = 3.675168358640336600000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999969236608 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.056626568072 " "
Order of pole (three term test) = -17603.40207613576 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.0999999999999774 " "
y[1] (analytic) = -9.00984047871176600E-2 " "
y[1] (numeric) = -9.00984047871142800E-2 " "
absolute error = 3.372302437298913000000000000000E-15 " "
relative error = 3.742910260472322400000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999958359716 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.9390770981587 " "
Order of pole (three term test) = -17751.02050576624 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.1099999999999772 " "
y[1] (analytic) = -8.92019106805510800E-2 " "
y[1] (numeric) = -8.92019106805477100E-2 " "
absolute error = 3.372302437298913000000000000000E-15 " "
relative error = 3.7805271339711166000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000008324523 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.2195926884696 " "
Order of pole (three term test) = -17532.229425957692 " "
Radius of convergence (six term test) for eq 1 = 4910.020686901117 " "
Order of pole (six term test) = 1154170.199964123 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.119999999999977 " "
y[1] (analytic) = -8.83143368393877600E-2 " "
y[1] (numeric) = -8.83143368393843700E-2 " "
absolute error = 3.400058012914542000000000000000E-15 " "
relative error = 3.849950228464075000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000001035902 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 692.8662895560192 " "
Order of pole (three term test) = -17372.80674651753 " "
Radius of convergence (six term test) for eq 1 = 1500.7670884885656 " "
Order of pole (six term test) = 93591.63341236148 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.129999999999977 " "
y[1] (analytic) = -8.7435594505503890E-2 " "
y[1] (numeric) = -8.74355945055004800E-2 " "
absolute error = 3.4139358007223564000000000000000E-15 " "
relative error = 3.9045148832463833000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000039382414 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.7609032312707 " "
Order of pole (three term test) = -17520.711212272654 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.1399999999999766 " "
y[1] (analytic) = -8.65655958039338400E-2 " "
y[1] (numeric) = -8.65655958039304000E-2 " "
absolute error = 3.4416913763379850000000000000000E-15 " "
relative error = 3.9758189663861626000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999949921783 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 711.2561994893425 " "
Order of pole (three term test) = -17834.24909588741 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.1499999999999764 " "
y[1] (analytic) = -8.57042537340823700E-2 " "
y[1] (numeric) = -8.57042537340789300E-2 " "
absolute error = 3.4416913763379850000000000000000E-15 " "
relative error = 4.0157766112947474000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999969429755 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.4617758172443 " "
Order of pole (three term test) = -17588.48382772575 " "
Radius of convergence (six term test) for eq 1 = 2861.1762907747056 " "
Order of pole (six term test) = 67143.1852198843 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.159999999999976 " "
y[1] (analytic) = -8.4851482161024790E-2 " "
y[1] (numeric) = -8.48514821610213300E-2 " "
absolute error = 3.469446951953614000000000000000E-15 " "
relative error = 4.088846610091686500000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995780708 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 713.0379085345836 " "
Order of pole (three term test) = -17878.944960882458 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.169999999999976 " "
y[1] (analytic) = -8.40071958068931100E-2 " "
y[1] (numeric) = -8.40071958068896300E-2 " "
absolute error = 3.4833247397614286000000000000000E-15 " "
relative error = 4.14645996251146000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000029471195 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.0101216305198 " "
Order of pole (three term test) = -17476.810037234864 " "
Radius of convergence (six term test) for eq 1 = 5602.536353638307 " "
Order of pole (six term test) = 1826528.82017147 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.1799999999999757 " "
y[1] (analytic) = -8.31713102423483600E-2 " "
y[1] (numeric) = -8.31713102423448500E-2 " "
absolute error = 3.5110803153770576000000000000000E-15 " "
relative error = 4.2215041522687463000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999820204778 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 714.6024862761963 " "
Order of pole (three term test) = -17918.272678933594 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.1899999999999755 " "
y[1] (analytic) = -8.23437418781374800E-2 " "
y[1] (numeric) = -8.23437418781339700E-2 " "
absolute error = 3.5110803153770576000000000000000E-15 " "
relative error = 4.2639309743455567000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000008030574 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.4954608383783 " "
Order of pole (three term test) = -17413.688874240106 " "
Radius of convergence (six term test) for eq 1 = 2160.454847307938 " "
Order of pole (six term test) = 213126.85546110853 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.1999999999999753 " "
y[1] (analytic) = -8.15244079567344500E-2 " "
y[1] (numeric) = -8.15244079567309000E-2 " "
absolute error = 3.5388358909926865000000000000000E-15 " "
relative error = 4.340829917919515000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000030598013 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.9766163427086 " "
Order of pole (three term test) = -17626.494786951916 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.209999999999975 " "
y[1] (analytic) = -8.0713226544064310E-2 " "
y[1] (numeric) = -8.07132265440607600E-2 " "
absolute error = 3.552713678800501000000000000000E-15 " "
relative error = 4.4016499289133787000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999987019 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.0067543173581 " "
Order of pole (three term test) = -17551.988531296105 " "
Radius of convergence (six term test) for eq 1 = 3055.566531886483 " "
Order of pole (six term test) = 421855.81327126327 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.219999999999975 " "
y[1] (analytic) = -7.99101165213098400E-2 " "
y[1] (numeric) = -7.99101165213062500E-2 " "
absolute error = 3.58046925441613000000000000000E-15 " "
relative error = 4.480620740255481000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000000084308 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.9776142386193 " "
Order of pole (three term test) = -17551.291976775727 " "
Radius of convergence (six term test) for eq 1 = 1636.3204876034881 " "
Order of pole (six term test) = 323142.45263638214 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.2299999999999747 " "
y[1] (analytic) = -7.91149975767994500E-2 " "
y[1] (numeric) = -7.91149975767958600E-2 " "
absolute error = 3.58046925441613000000000000000E-15 " "
relative error = 4.525651727335837000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999927277216 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.448552493845 " "
Order of pole (three term test) = -17462.768476787667 " "
Radius of convergence (six term test) for eq 1 = 1646.573325722836 " "
Order of pole (six term test) = 199119.2764232178 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.2399999999999745 " "
y[1] (analytic) = -7.83277901979761400E-2 " "
y[1] (numeric) = -7.83277901979725500E-2 " "
absolute error = 3.594347042223944300000000000000E-15 " "
relative error = 4.58885286197799000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999991450387 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.8106783274188 " "
Order of pole (three term test) = -17421.64038428101 " "
Radius of convergence (six term test) for eq 1 = 4293.830683601635 " "
Order of pole (six term test) = 1161961.5841833109 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.2499999999999742 " "
y[1] (analytic) = -7.75484156634460100E-2 " "
y[1] (numeric) = -7.75484156634424000E-2 " "
absolute error = 3.608224830031759000000000000000E-15 " "
relative error = 4.652867243208641000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000007508337 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.3984731104669 " "
Order of pole (three term test) = -17637.093036439142 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.259999999999974 " "
y[1] (analytic) = -7.67767960351061200E-2 " "
y[1] (numeric) = -7.6776796035102500E-2 " "
absolute error = 3.622102617839573000000000000000E-15 " "
relative error = 4.717704833871122000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000009443117 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.1740174078727 " "
Order of pole (three term test) = -17581.28929862368 " "
Radius of convergence (six term test) for eq 1 = 2556.5931116456654 " "
Order of pole (six term test) = 714657.9157295136 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.269999999999974 " "
y[1] (analytic) = -7.60128541503506300E-2 " "
y[1] (numeric) = -7.60128541503469800E-2 " "
absolute error = 3.649858193455202000000000000000E-15 " "
relative error = 4.801632874139836000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999973955564 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.5271809903986 " "
Order of pole (three term test) = -17740.684901572764 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.2799999999999736 " "
y[1] (analytic) = -7.5256513614354390E-2 " "
y[1] (numeric) = -7.52565136143507500E-2 " "
absolute error = 3.649858193455202000000000000000E-15 " "
relative error = 4.849890086801775000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000023478524 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.9497204611531 " "
Order of pole (three term test) = -17675.99970721781 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.2899999999999734 " "
y[1] (analytic) = -7.4507698792433600E-2 " "
y[1] (numeric) = -7.45076987924299200E-2 " "
absolute error = 3.677613769070831000000000000000E-15 " "
relative error = 4.935884249111046000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999933398406 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.4553225830659 " "
Order of pole (three term test) = -17713.792279904515 " "
Radius of convergence (six term test) for eq 1 = 8278.550113086943 " "
Order of pole (six term test) = 3683335.4964736123 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.299999999999973 " "
y[1] (analytic) = -7.37663348024819800E-2 " "
y[1] (numeric) = -7.3766334802478300E-2 " "
absolute error = 3.6914915568786455000000000000000E-15 " "
relative error = 5.004303883015263000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999900197608 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.4779220590125 " "
Order of pole (three term test) = -17814.743124264776 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.309999999999973 " "
y[1] (analytic) = -7.30323475074827800E-2 " "
y[1] (numeric) = -7.30323475074790700E-2 " "
absolute error = 3.70536934468646000000000000000E-15 " "
relative error = 5.073600221198988000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000001964205 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.5869188318308 " "
Order of pole (three term test) = -17767.239623196572 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.3199999999999728 " "
y[1] (analytic) = -7.23056635080948100E-2 " "
y[1] (numeric) = -7.23056635080910900E-2 " "
absolute error = 3.7192471324942744000000000000000E-15 " "
relative error = 5.1437839749273520000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000008819722 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.1650304043645 " "
Order of pole (three term test) = -17681.44455850497 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.3299999999999725 " "
y[1] (analytic) = -7.15862101353125700E-2 " "
y[1] (numeric) = -7.15862101353088400E-2 " "
absolute error = 3.733124920302089000000000000000E-15 " "
relative error = 5.214865982213223000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.9999999269498 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.9691200131267 " "
Order of pole (three term test) = -17827.038427531465 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.3399999999999723 " "
y[1] (analytic) = -7.08739154431992300E-2 " "
y[1] (numeric) = -7.08739154431954800E-2 " "
absolute error = 3.760880495917718000000000000000E-15 " "
relative error = 5.306438161909955000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000003242798 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.3220103067066 " "
Order of pole (three term test) = -17735.52663577541 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.349999999999972 " "
y[1] (analytic) = -7.016870820169201E-2 " "
y[1] (numeric) = -7.01687082016882300E-2 " "
absolute error = 3.774758283725532000000000000000E-15 " "
relative error = 5.379546496531498000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999992730629 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.9647893250286 " "
Order of pole (three term test) = -17726.59336101509 " "
Radius of convergence (six term test) for eq 1 = 7384.819349586635 " "
Order of pole (six term test) = 2585693.266190787 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.359999999999972 " "
y[1] (analytic) = -6.94705178894790700E-2 " "
y[1] (numeric) = -6.94705178894752800E-2 " "
absolute error = 3.788636071533346700000000000000E-15 " "
relative error = 5.4535883517677290000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995636182 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.1705136470316 " "
Order of pole (three term test) = -17480.836996960927 " "
Radius of convergence (six term test) for eq 1 = 2669.956020736747 " "
Order of pole (six term test) = 389309.83038309263 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.3699999999999717 " "
y[1] (analytic) = -6.87792746869473800E-2 " "
y[1] (numeric) = -6.87792746869435700E-2 " "
absolute error = 3.802513859341161000000000000000E-15 " "
relative error = 5.52857510732486000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000008074977 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.2230265320339 " "
Order of pole (three term test) = -17707.949575998657 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.3799999999999715 " "
y[1] (analytic) = -6.80949094692006300E-2 " "
y[1] (numeric) = -6.80949094691968200E-2 " "
absolute error = 3.816391647148975600000000000000E-15 " "
relative error = 5.604518277353951000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000069049996 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.5572462724992 " "
Order of pole (three term test) = -17641.017316619964 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.3899999999999713 " "
y[1] (analytic) = -6.74173537991467500E-2 " "
y[1] (numeric) = -6.74173537991429200E-2 " "
absolute error = 3.83026943495679000000000000000E-15 " "
relative error = 5.681429512003877000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999994336658 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.6850419417383 " "
Order of pole (three term test) = -17694.434442750884 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.399999999999971 " "
y[1] (analytic) = -6.6746539920654100E-2 " "
y[1] (numeric) = -6.67465399206502500E-2 " "
absolute error = 3.858025010572419000000000000000E-15 " "
relative error = 5.780112370107425000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999906077445 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.582280925376 " "
Order of pole (three term test) = -17566.451132541126 " "
Radius of convergence (six term test) for eq 1 = 2612.1124440015437 " "
Order of pole (six term test) = 544632.0595353129 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.409999999999971 " "
y[1] (analytic) = -6.60824007517758000E-2 " "
y[1] (numeric) = -6.60824007517719500E-2 " "
absolute error = 3.858025010572419000000000000000E-15 " "
relative error = 5.838203465192272000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000002542093 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.7440748693145 " "
Order of pole (three term test) = -17495.2286558652 " "
Radius of convergence (six term test) for eq 1 = 4264.102811335428 " "
Order of pole (six term test) = 1103847.239028282 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.4199999999999706 " "
y[1] (analytic) = -6.54248698780415500E-2 " "
y[1] (numeric) = -6.54248698780376800E-2 " "
absolute error = 3.8719027983802334000000000000000E-15 " "
relative error = 5.918090178242378000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000057249935 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.388439035759 " "
Order of pole (three term test) = -17636.787228083835 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.4299999999999704 " "
y[1] (analytic) = -6.477388154581599E-2 " "
y[1] (numeric) = -6.47738815458121200E-2 " "
absolute error = 3.8719027983802334000000000000000E-15 " "
relative error = 5.977567973352887000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999992283437 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.6669332967001 " "
Order of pole (three term test) = -17568.540638051298 " "
Radius of convergence (six term test) for eq 1 = 1611.0930576135327 " "
Order of pole (six term test) = 20857.315643311857 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.43999999999997 " "
y[1] (analytic) = -6.41293706557234500E-2 " "
y[1] (numeric) = -6.41293706557195500E-2 " "
absolute error = 3.899658373995862300000000000000E-15 " "
relative error = 6.080924129025151000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000040044437 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.353998305824 " "
Order of pole (three term test) = -17485.403573337884 " "
Radius of convergence (six term test) for eq 1 = 2600.281943209925 " "
Order of pole (six term test) = 274393.95316202304 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.44999999999997 " "
y[1] (analytic) = -6.34912727561378000E-2 " "
y[1] (numeric) = -6.34912727561338800E-2 " "
absolute error = 3.913536161803677000000000000000E-15 " "
relative error = 6.163896220564187000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000120553466 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.3790021475604 " "
Order of pole (three term test) = -17460.96398065584 " "
Radius of convergence (six term test) for eq 1 = 17922.400923419187 " "
Order of pole (six term test) = 17934813.780547224 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.4599999999999698 " "
y[1] (analytic) = -6.28595240367373200E-2 " "
y[1] (numeric) = -6.2859524036733390E-2 " "
absolute error = 3.927413949611491000000000000000E-15 " "
relative error = 6.2479218699081650000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000133849657 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 688.5690545718054 " "
Order of pole (three term test) = -17264.98584604812 " "
Radius of convergence (six term test) for eq 1 = 1976.7164123216105 " "
Order of pole (six term test) = 189446.24704550218 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.4699999999999696 " "
y[1] (analytic) = -6.223406132212363000E-2 " "
y[1] (numeric) = -6.22340613221196900E-2 " "
absolute error = 3.941291737419305700000000000000E-15 " "
relative error = 6.333013873253702000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995326908 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 692.3091807999958 " "
Order of pole (three term test) = -17358.888305948603 " "
Radius of convergence (six term test) for eq 1 = 1806.4608461172463 " "
Order of pole (six term test) = 188597.68227566098 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.4799999999999693 " "
y[1] (analytic) = -6.161482206550405000E-2 " "
y[1] (numeric) = -6.16148220655000900E-2 " "
absolute error = 3.95516952522712000000000000000E-15 " "
relative error = 6.419185177589727000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.9999999948144 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.93124061215 " "
Order of pole (three term test) = -17499.881813905344 " "
Radius of convergence (six term test) for eq 1 = 1730.3322179031672 " "
Order of pole (six term test) = 92424.16850368724 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.489999999999969 " "
y[1] (analytic) = -6.10017443424368700E-2 " "
y[1] (numeric) = -6.1001744342432900E-2 " "
absolute error = 3.969047313034934600000000000000E-15 " "
relative error = 6.5064488824359760000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000033919843 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.7051504703965 " "
Order of pole (three term test) = -17720.027944846282 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.499999999999969 " "
y[1] (analytic) = -6.03947668446388800E-2 " "
y[1] (numeric) = -6.039476684463491000E-2 " "
absolute error = 3.975986206938842000000000000000E-15 " "
relative error = 6.58332901121512000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000015030825 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 692.4451717242687 " "
Order of pole (three term test) = -17362.281884115157 " "
Radius of convergence (six term test) for eq 1 = 2649.8279712316885 " "
Order of pole (six term test) = 401562.9416302712 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.5099999999999687 " "
y[1] (analytic) = -5.97938288738545200E-2 " "
y[1] (numeric) = -5.97938288738505200E-2 " "
absolute error = 3.9968028886505635000000000000000E-15 " "
relative error = 6.68430666496122000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000058691132 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.794880875901 " "
Order of pole (three term test) = -17471.396007955256 " "
Radius of convergence (six term test) for eq 1 = 3070.659142516129 " "
Order of pole (six term test) = 468372.24338675186 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.5199999999999685 " "
y[1] (analytic) = -5.91988703357858600E-2 " "
y[1] (numeric) = -5.91988703357818700E-2 " "
absolute error = 3.989863994746656300000000000000E-15 " "
relative error = 6.73976373555015900000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000010296773 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.137993221002 " "
Order of pole (three term test) = -17730.906865924728 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.5299999999999683 " "
y[1] (analytic) = -5.860983173408336000E-2 " "
y[1] (numeric) = -5.860983173407935000E-2 " "
absolute error = 4.010680676458378000000000000000E-15 " "
relative error = 6.843016875829124000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999917684047 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.3651063625151 " "
Order of pole (three term test) = -17535.930481931955 " "
Radius of convergence (six term test) for eq 1 = 1668.034652094283 " "
Order of pole (six term test) = 208984.32414658184 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.539999999999968 " "
y[1] (analytic) = -5.80266541643959600E-2 " "
y[1] (numeric) = -5.80266541643919400E-2 " "
absolute error = 4.017619570362285000000000000000E-15 " "
relative error = 6.923748453563983000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999999880171 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.9021185621045 " "
Order of pole (three term test) = -17699.90817660186 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.549999999999968 " "
y[1] (analytic) = -5.7449279308480690E-2 " "
y[1] (numeric) = -5.744927930847668000E-2 " "
absolute error = 4.0245584642661925000000000000000E-15 " "
relative error = 7.005411578195524000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999989690376 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.6832658834314 " "
Order of pole (three term test) = -17694.4236714716 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.5599999999999676 " "
y[1] (analytic) = -5.68776494283708600E-2 " "
y[1] (numeric) = -5.68776494283668000E-2 " "
absolute error = 4.052314039881821400000000000000E-15 " "
relative error = 7.124615873912163000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000109454557 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 689.2802169213595 " "
Order of pole (three term test) = -17282.85906993415 " "
Radius of convergence (six term test) for eq 1 = 2218.659140543114 " "
Order of pole (six term test) = 263387.74445562746 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.5699999999999674 " "
y[1] (analytic) = -5.63117073606020400E-2 " "
y[1] (numeric) = -5.631170736059798000E-2 " "
absolute error = 4.052314039881821400000000000000E-15 " "
relative error = 7.196219453855497000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000004442894 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 687.3904268227762 " "
Order of pole (three term test) = -17235.42256109193 " "
Radius of convergence (six term test) for eq 1 = 1676.2729288125454 " "
Order of pole (six term test) = 136378.01880273773 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.579999999999967 " "
y[1] (analytic) = -5.57513965104958700E-2 " "
y[1] (numeric) = -5.575139651049179000E-2 " "
absolute error = 4.066191827689636000000000000000E-15 " "
relative error = 7.293434931130608000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999950149324 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.1090647659432 " "
Order of pole (three term test) = -17604.75699257078 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.589999999999967 " "
y[1] (analytic) = -5.51966608465003900E-2 " "
y[1] (numeric) = -5.51966608464963100E-2 " "
absolute error = 4.08006961549745030000000000000E-15 " "
relative error = 7.391877611661969000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000060216028 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.3252999931909 " "
Order of pole (three term test) = -17610.115160862046 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.599999999999967 " "
y[1] (analytic) = -5.464744489458694000E-2 " "
y[1] (numeric) = -5.46474448945828500E-2 " "
absolute error = 4.0870085094013575000000000000000E-15 " "
relative error = 7.478864780018641000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000013736436 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.162022586667 " "
Order of pole (three term test) = -17681.313654834597 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.6099999999999666 " "
y[1] (analytic) = -5.410369373270264000E-2 " "
y[1] (numeric) = -5.41036937326985300E-2 " "
absolute error = 4.107825191113079000000000000000E-15 " "
relative error = 7.592504148436967000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999914326335 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.6127686024946 " "
Order of pole (three term test) = -17818.124612585496 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.6199999999999664 " "
y[1] (analytic) = -5.356535298527816000E-2 " "
y[1] (numeric) = -5.35653529852740400E-2 " "
absolute error = 4.1147640850169864000000000000000E-15 " "
relative error = 7.681764154803356000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999844038683 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 711.4100003112183 " "
Order of pole (three term test) = -17838.1006982394 " "
Radius of convergence (six term test) for eq 1 = 3113.5068605374977 " "
Order of pole (six term test) = 581641.4149112907 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.629999999999966 " "
y[1] (analytic) = -5.30323688177901500E-2 " "
y[1] (numeric) = -5.30323688177860200E-2 " "
absolute error = 4.128641872824801000000000000000E-15 " "
relative error = 7.785135691392714000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999990551768 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.6617342243799 " "
Order of pole (three term test) = -17568.46673058108 " "
Radius of convergence (six term test) for eq 1 = 1280.45694494523 " "
Order of pole (six term test) = 167558.35688273163 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.639999999999966 " "
y[1] (analytic) = -5.25046879313777100E-2 " "
y[1] (numeric) = -5.25046879313735700E-2 " "
absolute error = 4.135580766728708000000000000000E-15 " "
relative error = 7.876593366546253000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.9999999854806 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 692.1691178106784 " "
Order of pole (three term test) = -17355.36932605812 " "
Radius of convergence (six term test) for eq 1 = 2204.2060046734773 " "
Order of pole (six term test) = 287461.1251515694 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.6499999999999657 " "
y[1] (analytic) = -5.198225755751247000E-2 " "
y[1] (numeric) = -5.19822575575083200E-2 " "
absolute error = 4.142519660632615300000000000000E-15 " "
relative error = 7.969103027219215000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000029312748 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 695.2008305607512 " "
Order of pole (three term test) = -17431.415423243758 " "
Radius of convergence (six term test) for eq 1 = 2741.455366934965 " "
Order of pole (six term test) = 414555.62582556624 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.6599999999999655 " "
y[1] (analytic) = -5.14650254527216700E-2 " "
y[1] (numeric) = -5.14650254527175000E-2 " "
absolute error = 4.15639744844043000000000000000E-15 " "
relative error = 8.076159317668469000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999890116058 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.9581676516234 " "
Order of pole (three term test) = -17701.32450051807 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.6699999999999653 " "
y[1] (analytic) = -5.095293989336379000E-2 " "
y[1] (numeric) = -5.09529398933596300E-2 " "
absolute error = 4.163336342344337000000000000000E-15 " "
relative error = 8.170944308723936000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000007087435 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.6641036301504 " "
Order of pole (three term test) = -17618.6505313512 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.679999999999965 " "
y[1] (analytic) = -5.04459496704561900E-2 " "
y[1] (numeric) = -5.04459496704520200E-2 " "
absolute error = 4.170275236248244000000000000000E-15 " "
relative error = 8.266818770369146000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000000065552 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.6428544404284 " "
Order of pole (three term test) = -17768.649005039428 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.689999999999965 " "
y[1] (analytic) = -4.99440040845540600E-2 " "
y[1] (numeric) = -4.994400408454987600E-2 " "
absolute error = 4.184153024056058700000000000000E-15 " "
relative error = 8.37768837470937100000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000009340162 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.522989521445 " "
Order of pole (three term test) = -17539.859945906886 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.6999999999999647 " "
y[1] (analytic) = -4.944705294068052500E-2 " "
y[1] (numeric) = -4.944705294067633400E-2 " "
absolute error = 4.191091917959966000000000000000E-15 " "
relative error = 8.475918520336968000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999977310978 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.6752549203655 " "
Order of pole (three term test) = -17694.206038181226 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.7099999999999644 " "
y[1] (analytic) = -4.89550465433070800E-2 " "
y[1] (numeric) = -4.89550465433028770E-2 " "
absolute error = 4.2049697057677804000000000000000E-15 " "
relative error = 8.589450940564298000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000058490485 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.0179186888927 " "
Order of pole (three term test) = -17752.970832748648 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.7199999999999642 " "
y[1] (analytic) = -4.846793569138397300E-2 " "
y[1] (numeric) = -4.846793569137975400E-2 " "
absolute error = 4.218847493575595000000000000000E-15 " "
relative error = 8.704409282951098000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999955249532 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.0817960899312 " "
Order of pole (three term test) = -17503.67643423921 " "
Radius of convergence (six term test) for eq 1 = 2848.323741475145 " "
Order of pole (six term test) = 342795.72868623235 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.729999999999964 " "
y[1] (analytic) = -4.79856716734200770E-2 " "
y[1] (numeric) = -4.79856716734158530E-2 " "
absolute error = 4.225786387479502000000000000000E-15 " "
relative error = 8.806350396091721000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999997421829 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.0353863168021 " "
Order of pole (three term test) = -17577.845102611453 " "
Radius of convergence (six term test) for eq 1 = 836.7118469057655 " "
Order of pole (six term test) = 125515.82305330785 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.739999999999964 " "
y[1] (analytic) = -4.75082062626117300E-2 " "
y[1] (numeric) = -4.75082062626074830E-2 " "
absolute error = 4.246603069191224000000000000000E-15 " "
relative error = 8.938672712072565000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999998944663 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 695.5723696534086 " "
Order of pole (three term test) = -17440.771388167774 " "
Radius of convergence (six term test) for eq 1 = 2127.938226148564 " "
Order of pole (six term test) = 315378.2613996799 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.7499999999999636 " "
y[1] (analytic) = -4.70354917120199300E-2 " "
y[1] (numeric) = -4.70354917120156800E-2 " "
absolute error = 4.246603069191224000000000000000E-15 " "
relative error = 9.028507866339588000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999858069778 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 713.1276057762557 " "
Order of pole (three term test) = -17881.194181548093 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.7599999999999634 " "
y[1] (analytic) = -4.65674807497957140E-2 " "
y[1] (numeric) = -4.65674807497914500E-2 " "
absolute error = 4.260480856999038000000000000000E-15 " "
relative error = 9.149047336037668000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000009762136 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.097789228731 " "
Order of pole (three term test) = -17604.43503374648 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.769999999999963 " "
y[1] (analytic) = -4.610412657445283600E-2 " "
y[1] (numeric) = -4.61041265744485700E-2 " "
absolute error = 4.2674197509029455000000000000000E-15 " "
relative error = 9.256047273797836000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999991239036 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 689.8217804721254 " "
Order of pole (three term test) = -17296.47125890347 " "
Radius of convergence (six term test) for eq 1 = 1874.2821457481764 " "
Order of pole (six term test) = 198388.39257204632 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.779999999999963 " "
y[1] (analytic) = -4.56453828501876440E-2 " "
y[1] (numeric) = -4.56453828501833600E-2 " "
absolute error = 4.28129753871076000000000000000E-15 " "
relative error = 9.379475581927692000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000024392467 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 693.5458905590971 " "
Order of pole (three term test) = -17389.874647058637 " "
Radius of convergence (six term test) for eq 1 = 1961.143497703077 " "
Order of pole (six term test) = 183887.41524376717 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.7899999999999627 " "
y[1] (analytic) = -4.519120370224541400E-2 " "
y[1] (numeric) = -4.51912037022411200E-2 " "
absolute error = 4.295175326518574400000000000000E-15 " "
relative error = 9.504449925296324000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999991243164 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.8306239114662 " "
Order of pole (three term test) = -17723.220093923406 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.7999999999999625 " "
y[1] (analytic) = -4.47415437123328650E-2 " "
y[1] (numeric) = -4.474154371232857000E-2 " "
absolute error = 4.3021142204224816000000000000000E-15 " "
relative error = 9.615480073917558000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999986004227 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 708.69777577666 " "
Order of pole (three term test) = -17770.052691565255 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.8099999999999623 " "
y[1] (analytic) = -4.4296357914076300E-2 " "
y[1] (numeric) = -4.429635791407199000E-2 " "
absolute error = 4.315992008230296000000000000000E-15 " "
relative error = 9.74344666575574000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000002477348 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.2863072483683 " "
Order of pole (three term test) = -17584.04620142082 " "
Radius of convergence (six term test) for eq 1 = 824.1322122382157 " "
Order of pole (six term test) = -50156.97337128594 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.819999999999962 " "
y[1] (analytic) = -4.3855601788524900E-2 " "
y[1] (numeric) = -4.38556017885205700E-2 " "
absolute error = 4.3298697960381105000000000000000E-15 " "
relative error = 9.873014209033267000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000080614527 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.3539300465259 " "
Order of pole (three term test) = -17661.018199984086 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.829999999999962 " "
y[1] (analytic) = -4.3419231259698800E-2 " "
y[1] (numeric) = -4.34192312596944630E-2 " "
absolute error = 4.336808689942018000000000000000E-15 " "
relative error = 9.988220804746009000000000000E-12 "%"
Correct digits = 15
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.9999999877607 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 692.0600934004992 " "
Order of pole (three term test) = -17352.63846852585 " "
Radius of convergence (six term test) for eq 1 = 2254.7996075321407 " "
Order of pole (six term test) = 309560.88016378117 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.8399999999999617 " "
y[1] (analytic) = -4.29872026901814900E-2 " "
y[1] (numeric) = -4.29872026901771400E-2 " "
absolute error = 4.350686477749832000000000000000E-15 " "
relative error = 1.01208876258039300000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999965097878 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.4434234136195 " "
Order of pole (three term test) = -17562.94522424167 " "
Radius of convergence (six term test) for eq 1 = 2848.8100314844505 " "
Order of pole (six term test) = 317913.04698450776 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.8499999999999615 " "
y[1] (analytic) = -4.25594728767559800E-2 " "
y[1] (numeric) = -4.255947287675162500E-2 " "
absolute error = 4.3576253716537394000000000000000E-15 " "
relative error = 1.023890823148252100000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000011701909 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.6699111102827 " "
Order of pole (three term test) = -17468.25855952153 " "
Radius of convergence (six term test) for eq 1 = 2675.465674235577 " "
Order of pole (six term test) = 345725.8593226461 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.8599999999999612 " "
y[1] (analytic) = -4.2135999046084500E-2 " "
y[1] (numeric) = -4.213599904608012500E-2 " "
absolute error = 4.371503159461554000000000000000E-15 " "
relative error = 1.037474667369439500000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999995593365 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.6509524971171 " "
Order of pole (three term test) = -17518.00511298372 " "
Radius of convergence (six term test) for eq 1 = 1828.6310890546474 " "
Order of pole (six term test) = 216933.33296938674 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.869999999999961 " "
y[1] (analytic) = -4.17167388504310700E-2 " "
y[1] (numeric) = -4.17167388504266930E-2 " "
absolute error = 4.378442053365461000000000000000E-15 " "
relative error = 1.049564796774668800000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000007210022 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.4473926264832 " "
Order of pole (three term test) = -17563.011399794177 " "
Radius of convergence (six term test) for eq 1 = 1525.6703550118593 " "
Order of pole (six term test) = 11704.827595680306 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.879999999999961 " "
y[1] (analytic) = -4.13016503634267500E-2 " "
y[1] (numeric) = -4.130165036342236500E-2 " "
absolute error = 4.385380947269368300000000000000E-15 " "
relative error = 1.06179315080171500000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000002175315 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.4575956915886 " "
Order of pole (three term test) = -17412.754079358012 " "
Radius of convergence (six term test) for eq 1 = 2286.209406447545 " "
Order of pole (six term test) = 258761.76356562233 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.8899999999999606 " "
y[1] (analytic) = -4.08906920758769200E-2 " "
y[1] (numeric) = -4.08906920758725370E-2 " "
absolute error = 4.385380947269368300000000000000E-15 " "
relative error = 1.072464349376097400000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999942750055 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 705.5507847549144 " "
Order of pole (three term test) = -17691.084717883412 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.8999999999999604 " "
y[1] (analytic) = -4.04838228916103770E-2 " "
y[1] (numeric) = -4.048382289160598600E-2 " "
absolute error = 4.3923198411732756000000000000000E-15 " "
relative error = 1.084956787043822700000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000011401777 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 706.7809901719588 " "
Order of pole (three term test) = -17721.95985696367 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.90999999999996 " "
y[1] (analytic) = -4.00810021233696300E-2 " "
y[1] (numeric) = -4.008100212336523000E-2 " "
absolute error = 4.40619762898109000000000000000E-15 " "
relative error = 1.099323219369311200000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000029360013 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.6147782742871 " "
Order of pole (three term test) = -17567.24976866944 " "
Radius of convergence (six term test) for eq 1 = 4376.154385301472 " "
Order of pole (six term test) = 1135605.4266518871 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.91999999999996 " "
y[1] (analytic) = -3.968218948874216400E-2 " "
y[1] (numeric) = -3.96821894887377500E-2 " "
absolute error = 4.413136522884997000000000000000E-15 " "
relative error = 1.112120218098601600000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999998393555 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 691.4881558738292 " "
Order of pole (three term test) = -17338.265461070976 " "
Radius of convergence (six term test) for eq 1 = 1710.1048813940818 " "
Order of pole (six term test) = 150100.89630641678 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.9299999999999597 " "
y[1] (analytic) = -3.92873451061321650E-2 " "
y[1] (numeric) = -3.928734510612775000E-2 " "
absolute error = 4.413136522884997000000000000000E-15 " "
relative error = 1.12329721210817400000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999968339182 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 710.9122116153552 " "
Order of pole (three term test) = -17825.622809876084 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.9399999999999595 " "
y[1] (analytic) = -3.889642949077235500E-2 " "
y[1] (numeric) = -3.88964294907679300E-2 " "
absolute error = 4.427014310692811700000000000000E-15 " "
relative error = 1.138154418966157300000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000011173535 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 713.2126717418531 " "
Order of pole (three term test) = -17883.305793494437 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.9499999999999593 " "
y[1] (analytic) = -3.850940355077542000E-2 " "
y[1] (numeric) = -3.85094035507709800E-2 " "
absolute error = 4.433953204596719000000000000000E-15 " "
relative error = 1.151394931045988100000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999991549742 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.5173213353975 " "
Order of pole (three term test) = -17740.44785501026 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.959999999999959 " "
y[1] (analytic) = -3.81262285832248300E-2 " "
y[1] (numeric) = -3.81262285832203900E-2 " "
absolute error = 4.440892098500626000000000000000E-15 " "
relative error = 1.164786621579081600000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999999186453 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 696.6426385157885 " "
Order of pole (three term test) = -17467.57914346461 " "
Radius of convergence (six term test) for eq 1 = 2826.4256962092686 " "
Order of pole (six term test) = 396473.8331843142 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.969999999999959 " "
y[1] (analytic) = -3.77468662703045350E-2 " "
y[1] (numeric) = -3.77468662703000800E-2 " "
absolute error = 4.454769886308440600000000000000E-15 " "
relative error = 1.180169462123802500000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000003299482 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.6447040134439 " "
Order of pole (three term test) = -17567.97410794164 " "
Radius of convergence (six term test) for eq 1 = 2710.6200140351684 " "
Order of pole (six term test) = 170058.0304658945 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.9799999999999587 " "
y[1] (analytic) = -3.737127867546708400E-2 " "
y[1] (numeric) = -3.737127867546262700E-2 " "
absolute error = 4.461708780212348000000000000000E-15 " "
relative error = 1.19388710751856100000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.9999999567031 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.0260221664361 " "
Order of pole (three term test) = -17577.584737927944 " "
Radius of convergence (six term test) for eq 1 = 1948.7654353738512 " "
Order of pole (six term test) = 372787.89231374057 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.9899999999999585 " "
y[1] (analytic) = -3.699942823964002500E-2 " "
y[1] (numeric) = -3.699942823963555700E-2 " "
absolute error = 4.468647674116255000000000000000E-15 " "
relative error = 1.207761278140154200000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000006786611 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.407721243135 " "
Order of pole (three term test) = -17562.027439343117 " "
Radius of convergence (six term test) for eq 1 = 3951.293517127132 " "
Order of pole (six term test) = 496789.71437723446 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 3.9999999999999583 " "
y[1] (analytic) = -3.66312777774698900E-2 " "
y[1] (numeric) = -3.66312777774654100E-2 " "
absolute error = 4.4825254619240695000000000000000E-15 " "
relative error = 1.223687988487546600000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000007079739 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.408374974912 " "
Order of pole (three term test) = -17612.198162696433 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.009999999999958 " "
y[1] (analytic) = -3.62667904736036700E-2 " "
y[1] (numeric) = -3.626679047359917500E-2 " "
absolute error = 4.496403249731884000000000000000E-15 " "
relative error = 1.239812840070459300000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000000548983 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 712.3662619611964 " "
Order of pole (three term test) = -17862.06991384038 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.019999999999958 " "
y[1] (analytic) = -3.59059298790072300E-2 " "
y[1] (numeric) = -3.59059298790027300E-2 " "
absolute error = 4.503342143635791000000000000000E-15 " "
relative error = 1.254205686584576300000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000077518585 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 697.5782966277951 " "
Order of pole (three term test) = -17491.04348990561 " "
Radius of convergence (six term test) for eq 1 = 2052.83981580614 " "
Order of pole (six term test) = 171281.04625175332 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.029999999999958 " "
y[1] (analytic) = -3.554865990732039600E-2 " "
y[1] (numeric) = -3.55486599073158940E-2 " "
absolute error = 4.503342143635791000000000000000E-15 " "
relative error = 1.266810663292664800000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999993397108 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 690.4100989055294 " "
Order of pole (three term test) = -17311.228136523772 " "
Radius of convergence (six term test) for eq 1 = 1917.7550021696022 " "
Order of pole (six term test) = 204542.29985058706 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.039999999999957 " "
y[1] (analytic) = -3.519494483124828700E-2 " "
y[1] (numeric) = -3.51949448312437700E-2 " "
absolute error = 4.517219931443605700000000000000E-15 " "
relative error = 1.283485441759503500000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000002477904 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 694.5102956043852 " "
Order of pole (three term test) = -17414.080223501503 " "
Radius of convergence (six term test) for eq 1 = 1732.4007635879634 " "
Order of pole (six term test) = 140881.77276677208 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.049999999999957 " "
y[1] (analytic) = -3.484474927898851000E-2 " "
y[1] (numeric) = -3.48447492789839900E-2 " "
absolute error = 4.524158825347513000000000000000E-15 " "
relative error = 1.298376059223245400000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999946680187 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.3218933866447 " "
Order of pole (three term test) = -17585.028683206914 " "
Radius of convergence (six term test) for eq 1 = 780.6210567431975 " "
Order of pole (six term test) = 137325.6355064474 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.059999999999957 " "
y[1] (analytic) = -3.44980382306940300E-2 " "
y[1] (numeric) = -3.4498038230689500E-2 " "
absolute error = 4.53109771925142000000000000000E-15 " "
relative error = 1.313436343525167500000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999923236143 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.7081580080655 " "
Order of pole (three term test) = -17619.76120569881 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.069999999999957 " "
y[1] (analytic) = -3.41547770149710770E-2 " "
y[1] (numeric) = -3.41547770149665300E-2 " "
absolute error = 4.5449755070592346000000000000000E-15 " "
relative error = 1.330699803739615600000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999909220318 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 701.4828338718289 " "
Order of pole (three term test) = -17589.03956803212 " "
Radius of convergence (six term test) for eq 1 = 1972.8709046868578 " "
Order of pole (six term test) = 567601.7464540112 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.0799999999999566 " "
y[1] (analytic) = -3.38149313054120270E-2 " "
y[1] (numeric) = -3.38149313054074750E-2 " "
absolute error = 4.551914400963142000000000000000E-15 " "
relative error = 1.346125579806993200000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999992172512 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 704.6465995457418 " "
Order of pole (three term test) = -17668.41196113035 " "
Radius of convergence (six term test) for eq 1 = 4214.0051606673205 " "
Order of pole (six term test) = 986220.0408572579 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.089999999999956 " "
y[1] (analytic) = -3.34784671171627250E-2 " "
y[1] (numeric) = -3.34784671171581600E-2 " "
absolute error = 4.558853294867049000000000000000E-15 " "
relative error = 1.361727010652156000000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000006325203 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.0398057620747 " "
Order of pole (three term test) = -17502.61697645717 " "
Radius of convergence (six term test) for eq 1 = 3176.61810876949 " "
Order of pole (six term test) = 429261.1546508066 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.099999999999956 " "
y[1] (analytic) = -3.31453508035239540E-2 " "
y[1] (numeric) = -3.31453508035193800E-2 " "
absolute error = 4.5727310826748635000000000000000E-15 " "
relative error = 1.379599543169927600000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000075269696 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.6620282349331 " "
Order of pole (three term test) = -17543.351358383374 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.109999999999956 " "
y[1] (analytic) = -3.28155490525867450E-2 " "
y[1] (numeric) = -3.28155490525821660E-2 " "
absolute error = 4.579669976578771000000000000000E-15 " "
relative error = 1.39557926312306200000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999911180822 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 709.5394720783221 " "
Order of pole (three term test) = -17791.156602005747 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.119999999999956 " "
y[1] (analytic) = -3.248902888390118300E-2 " "
y[1] (numeric) = -3.2489028883896600E-2 " "
absolute error = 4.586608870482678000000000000000E-15 " "
relative error = 1.411740833151037500000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000002989998 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 702.1521107639012 " "
Order of pole (three term test) = -17605.82757932417 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.1299999999999555 " "
y[1] (analytic) = -3.21657576451782900E-2 " "
y[1] (numeric) = -3.2165757645173704E-2 " "
absolute error = 4.586608870482678000000000000000E-15 " "
relative error = 1.425929064403747800000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999933628324 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.2930307109816 " "
Order of pole (three term test) = -17734.823109365712 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.139999999999955 " "
y[1] (analytic) = -3.184570300902480600E-2 " "
y[1] (numeric) = -3.18457030090202100E-2 " "
absolute error = 4.593547764386585000000000000000E-15 " "
relative error = 1.442438800325686600000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000005003528 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 699.4736362391939 " "
Order of pole (three term test) = -17538.589573179634 " "
Radius of convergence (six term test) for eq 1 = 1927.7210784749682 " "
Order of pole (six term test) = 101786.12799819601 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.149999999999955 " "
y[1] (analytic) = -3.152883296971039600E-2 " "
y[1] (numeric) = -3.152883296970579500E-2 " "
absolute error = 4.6004866582904924000000000000000E-15 " "
relative error = 1.459136360267491700000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000034152272 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 691.3451337945694 " "
Order of pole (three term test) = -17334.676968570722 " "
Radius of convergence (six term test) for eq 1 = 2082.2628685299715 " "
Order of pole (six term test) = 234398.65753645467 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.159999999999955 " "
y[1] (analytic) = -3.12151158399670800E-2 " "
y[1] (numeric) = -3.121511583996246500E-2 " "
absolute error = 4.614364446098307000000000000000E-15 " "
relative error = 1.478246779462591700000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000003379924 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 691.6763619900282 " "
Order of pole (three term test) = -17342.984728803636 " "
Radius of convergence (six term test) for eq 1 = 2354.0187108197283 " "
Order of pole (six term test) = 303213.8137331439 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.169999999999955 " "
y[1] (analytic) = -3.09045202478204300E-2 " "
y[1] (numeric) = -3.090452024781581400E-2 " "
absolute error = 4.614364446098307000000000000000E-15 " "
relative error = 1.49310340658782400000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.9999998983256 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.1297661307898 " "
Order of pole (three term test) = -17630.390199020003 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.179999999999954 " "
y[1] (analytic) = -3.059701513345242700E-2 " "
y[1] (numeric) = -3.0597015133447800E-2 " "
absolute error = 4.624772786954167700000000000000E-15 " "
relative error = 1.511511095700899500000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.99999989840277 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 709.1482975871536 " "
Order of pole (three term test) = -17781.38452687396 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.189999999999954 " "
y[1] (analytic) = -3.029256974609535500E-2 " "
y[1] (numeric) = -3.029256974609072500E-2 " "
absolute error = 4.631711680858075000000000000000E-15 " "
relative error = 1.528992660470837600000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999922854336 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 700.6591102989375 " "
Order of pole (three term test) = -17568.37591814206 " "
Radius of convergence (six term test) for eq 1 = 2795.399919435442 " "
Order of pole (six term test) = 603048.926932806 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.199999999999954 " "
y[1] (analytic) = -2.999115364095679000E-2 " "
y[1] (numeric) = -2.999115364095215600E-2 " "
absolute error = 4.638650574761982000000000000000E-15 " "
relative error = 1.546672939058704700000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000006305602 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 703.8303982008798 " "
Order of pole (three term test) = -17647.94164561496 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.209999999999954 " "
y[1] (analytic) = -2.969273667617503600E-2 " "
y[1] (numeric) = -2.96927366761703900E-2 " "
absolute error = 4.642120021713936000000000000000E-15 " "
relative error = 1.563385710229497600000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 18.999999948837814 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 707.1423665789938 " "
Order of pole (three term test) = -17731.01487223067 " "
"NO COMPLEX POLE (six term test) for Equation 1"
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.219999999999954 " "
y[1] (analytic) = -2.939728900980493000E-2 " "
y[1] (numeric) = -2.939728900980027600E-2 " "
absolute error = 4.652528362569796600000000000000E-15 " "
relative error = 1.582638576304784800000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000066277096 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 692.6687411851118 " "
Order of pole (three term test) = -17367.87835215474 " "
Radius of convergence (six term test) for eq 1 = 3421.5599133910227 " "
Order of pole (six term test) = 645095.8172008755 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.229999999999953 " "
y[1] (analytic) = -2.910478109683361500E-2 " "
y[1] (numeric) = -2.91047810968289630E-2 " "
absolute error = 4.65599780952175000000000000000E-15 " "
relative error = 1.599736412389058400000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.00000005152155 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 698.6293854277077 " "
Order of pole (three term test) = -17517.400479943273 " "
Radius of convergence (six term test) for eq 1 = 2148.112140898027 " "
Order of pole (six term test) = 151837.98244323442 " "
" "
"TOP MAIN SOLVE Loop"
x[1] = 4.239999999999953 " "
y[1] (analytic) = -2.881518368622605400E-2 " "
y[1] (numeric) = -2.881518368622139600E-2 " "
absolute error = 4.659467256473704000000000000000E-15 " "
relative error = 1.61701806492421400000000000E-11 "%"
Correct digits = 14
h = 1.00E-2 " "
"NO INFO (given) for Equation 1"
Radius of convergence (ratio test) for eq 1 = 19.000000149223347 " "
"Order of pole (ratio test) Not computed"
Radius of convergence (three term test) for eq 1 = 690.639379095027 " "
Order of pole (three term test) = -17316.956347842457 " "
Radius of convergence (six term test) for eq 1 = 14852.43983121119 " "
Order of pole (six term test) = 12395685.674141668 " "
"Finished!"
"Maximum Time Reached before Solution Completed!"
"diff ( y , x , 1 ) = 2.0 / exp(x);"
Iterations = 325
"Total Elapsed Time "= 0 Years 0 Days 0 Hours 3 Minutes 0 Seconds
"Elapsed Time(since restart) "= 0 Years 0 Days 0 Hours 2 Minutes 49 Seconds
"Expected Time Remaining "= 0 Years 0 Days 0 Hours 0 Minutes 40 Seconds
"Optimized Time Remaining "= 0 Years 0 Days 0 Hours 0 Minutes 38 Seconds
"Expected Total Time "= 0 Years 0 Days 0 Hours 3 Minutes 38 Seconds
"Time to Timeout " Unknown
Percent Done = 81.49999999999882 "%"
(%o58) true
(%o58) diffeq.max