(%i1) batch(diffeq.max)
read and interpret file: /home/dennis/mastersource/mine/omnisode/diffeq.max
(%i2) load(stringproc)
(%o2) /usr/local/share/maxima/5.26.0/share/contrib/stringproc/stringproc.mac
(%i3) display_alot(iter) := if iter >= 0
then (ind_var : array_x , omniout_float(ALWAYS,
1
"x[1] ", 33, ind_var, 20, " "),
analytic_val_y : exact_soln_y2(ind_var),
omniout_float(ALWAYS, "y2[1] (analytic) ", 33, analytic_val_y,
20, " "), term_no : 1, numeric_val : array_y2 ,
term_no
abserr : abs(numeric_val - analytic_val_y),
omniout_float(ALWAYS, "y2[1] (numeric) ", 33, numeric_val,
abserr 100.0
20, " "), if abs(analytic_val_y) # 0.0 then relerr : -------------------
abs(analytic_val_y)
else relerr : - 1.0, 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_float(ALWAYS, "h ", 4, glob_h,
20, " "), analytic_val_y : exact_soln_y1(ind_var),
omniout_float(ALWAYS, "y1[1] (analytic) ", 33, analytic_val_y,
20, " "), term_no : 1, numeric_val : array_y1 ,
term_no
abserr : abs(numeric_val - analytic_val_y),
omniout_float(ALWAYS, "y1[1] (numeric) ", 33, numeric_val,
abserr 100.0
20, " "), if abs(analytic_val_y) # 0.0 then relerr : -------------------
abs(analytic_val_y)
else relerr : - 1.0, if glob_iter = 1 then array_1st_rel_error : relerr
2
else array_last_rel_error : relerr, omniout_float(ALWAYS,
2
"absolute error ", 4, abserr, 20, " "),
omniout_float(ALWAYS, "relative error ", 4, relerr, 20,
"%"), omniout_float(ALWAYS, "h ", 4, glob_h,
20, " "))
(%o3) display_alot(iter) := if iter >= 0
then (ind_var : array_x , omniout_float(ALWAYS,
1
"x[1] ", 33, ind_var, 20, " "),
analytic_val_y : exact_soln_y2(ind_var),
omniout_float(ALWAYS, "y2[1] (analytic) ", 33, analytic_val_y,
20, " "), term_no : 1, numeric_val : array_y2 ,
term_no
abserr : abs(numeric_val - analytic_val_y),
omniout_float(ALWAYS, "y2[1] (numeric) ", 33, numeric_val,
abserr 100.0
20, " "), if abs(analytic_val_y) # 0.0 then relerr : -------------------
abs(analytic_val_y)
else relerr : - 1.0, 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_float(ALWAYS, "h ", 4, glob_h,
20, " "), analytic_val_y : exact_soln_y1(ind_var),
omniout_float(ALWAYS, "y1[1] (analytic) ", 33, analytic_val_y,
20, " "), term_no : 1, numeric_val : array_y1 ,
term_no
abserr : abs(numeric_val - analytic_val_y),
omniout_float(ALWAYS, "y1[1] (numeric) ", 33, numeric_val,
abserr 100.0
20, " "), if abs(analytic_val_y) # 0.0 then relerr : -------------------
abs(analytic_val_y)
else relerr : - 1.0, if glob_iter = 1 then array_1st_rel_error : relerr
2
else array_last_rel_error : relerr, omniout_float(ALWAYS,
2
"absolute error ", 4, abserr, 20, " "),
omniout_float(ALWAYS, "relative error ", 4, relerr, 20,
"%"), omniout_float(ALWAYS, "h ", 4, glob_h,
20, " "))
(%i4) adjust_for_pole(h_param) := block(hnew : h_param,
glob_normmax : glob_small_float, if !array_y2_higher ! > glob_small_float
! 1, 1!
then (tmp : !array_y2_higher !, if tmp < glob_normmax
! 1, 1!
then glob_normmax : tmp), if !array_y1_higher ! > glob_small_float
! 1, 1!
then (tmp : !array_y1_higher !, if tmp < glob_normmax
! 1, 1!
then glob_normmax : tmp), if glob_look_poles
and (!array_pole ! > glob_small_float) and (array_pole # glob_large_float)
! 1! 1
array_pole
1
then (sz2 : -----------, if sz2 < hnew
10.0
then (omniout_float(INFO, "glob_h adjusted to ", 20, h_param, 12,
"due to singularity."), omniout_str(INFO, "Reached Optimal"), newline(),
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)
1
(%o4) adjust_for_pole(h_param) := block(hnew : h_param,
glob_normmax : glob_small_float, if !array_y2_higher ! > glob_small_float
! 1, 1!
then (tmp : !array_y2_higher !, if tmp < glob_normmax
! 1, 1!
then glob_normmax : tmp), if !array_y1_higher ! > glob_small_float
! 1, 1!
then (tmp : !array_y1_higher !, if tmp < glob_normmax
! 1, 1!
then glob_normmax : tmp), if glob_look_poles
and (!array_pole ! > glob_small_float) and (array_pole # glob_large_float)
! 1! 1
array_pole
1
then (sz2 : -----------, if sz2 < hnew
10.0
then (omniout_float(INFO, "glob_h adjusted to ", 20, h_param, 12,
"due to singularity."), omniout_str(INFO, "Reached Optimal"), newline(),
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)
1
(%i5) prog_report(x_start, x_end) := (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)), 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, "Time to Timeout "),
omniout_timestr(convfloat(left_sec)), omniout_float(INFO,
"Percent Done ", 33, percent_done, 4, "%"))
(%o5) prog_report(x_start, x_end) := (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)), 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, "Time to Timeout "),
omniout_timestr(convfloat(left_sec)), omniout_float(INFO,
"Percent Done ", 33, percent_done, 4, "%"))
(%i6) check_for_pole() := (n : glob_max_terms, m : - 1 - 1 + n,
while (m >= 10) and ((!array_y2_higher ! < glob_small_float)
! 1, m!
or (!array_y2_higher ! < glob_small_float)
! 1, m - 1!
or (!array_y2_higher ! < glob_small_float)) do m :
! 1, m - 2!
array_y2_higher
1, m
m - 1, if m > 10 then (rm0 : -----------------------,
array_y2_higher
1, m - 1
array_y2_higher
1, m - 1
rm1 : -----------------------, hdrc : convfloat(m - 1) rm0
array_y2_higher
1, m - 2
- convfloat(m - 2) rm1, if abs(hdrc) > glob_small_float
glob_h convfloat(m - 1) rm0
then (rcs : ------, ord_no : 2.0 - convfloat(m) + --------------------,
hdrc hdrc
array_real_pole : rcs, array_real_pole : ord_no)
1, 1 1, 2
else (array_real_pole : glob_large_float,
1, 1
array_real_pole : glob_large_float))
1, 2
else (array_real_pole : glob_large_float,
1, 1
array_real_pole : glob_large_float), n : glob_max_terms, m : - 1 - 1 + n,
1, 2
while (m >= 10) and ((!array_y1_higher ! < glob_small_float)
! 1, m!
or (!array_y1_higher ! < glob_small_float)
! 1, m - 1!
or (!array_y1_higher ! < glob_small_float)) do m :
! 1, m - 2!
array_y1_higher
1, m
m - 1, if m > 10 then (rm0 : -----------------------,
array_y1_higher
1, m - 1
array_y1_higher
1, m - 1
rm1 : -----------------------, hdrc : convfloat(m - 1) rm0
array_y1_higher
1, m - 2
- convfloat(m - 2) rm1, if abs(hdrc) > glob_small_float
glob_h convfloat(m - 1) rm0
then (rcs : ------, ord_no : 2.0 - convfloat(m) + --------------------,
hdrc hdrc
array_real_pole : rcs, array_real_pole : ord_no)
2, 1 2, 2
else (array_real_pole : glob_large_float,
2, 1
array_real_pole : glob_large_float))
2, 2
else (array_real_pole : glob_large_float,
2, 1
array_real_pole : glob_large_float), n : - 1 - 1 + glob_max_terms,
2, 2
cnt : 0, while (cnt < 5) and (n >= 10) do (if !array_y2_higher ! >
! 1, n!
glob_small_float then cnt : 1 + cnt else cnt : 0, n : n - 1), m : cnt + n,
if m <= 10 then (array_complex_pole : glob_large_float,
1, 1
array_complex_pole : glob_large_float)
1, 2
elseif (!array_y2_higher ! >= glob_large_float)
! 1, m!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 1!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 2!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 3!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 4!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 5!
then (array_complex_pole : glob_large_float,
1, 1
array_complex_pole : glob_large_float)
1, 2
array_y2_higher array_y2_higher
1, m 1, m - 1
else (rm0 : -----------------------, rm1 : -----------------------,
array_y2_higher array_y2_higher
1, m - 1 1, m - 2
array_y2_higher array_y2_higher
1, m - 2 1, m - 3
rm2 : -----------------------, rm3 : -----------------------,
array_y2_higher array_y2_higher
1, m - 3 1, m - 4
array_y2_higher
1, m - 4
rm4 : -----------------------, nr1 : convfloat(m - 3) rm2
array_y2_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 (abs(nr1 dr2 - nr2 dr1) <= glob_small_float)
rm4 rm3 rm2
or (abs(dr1) <= glob_small_float) then (array_complex_pole :
1, 1
glob_large_float, array_complex_pole : glob_large_float)
1, 2
else (if abs(nr1 dr2 - nr2 dr1) > glob_small_float
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 abs(rcs) > glob_small_float then (if rcs > 0.0 then rad_c : sqrt(rcs) glob_h
else rad_c : glob_large_float) else (rad_c : glob_large_float,
ord_no : glob_large_float)) else (rad_c : glob_large_float,
ord_no : glob_large_float)), array_complex_pole : rad_c,
1, 1
array_complex_pole : ord_no), n : - 1 - 1 + glob_max_terms, cnt : 0,
1, 2
while (cnt < 5) and (n >= 10) do (if !array_y1_higher ! > glob_small_float
! 1, n!
then cnt : 1 + cnt else cnt : 0, n : n - 1), m : cnt + n,
if m <= 10 then (array_complex_pole : glob_large_float,
2, 1
array_complex_pole : glob_large_float)
2, 2
elseif (!array_y1_higher ! >= glob_large_float)
! 1, m!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 1!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 2!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 3!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 4!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 5!
then (array_complex_pole : glob_large_float,
2, 1
array_complex_pole : glob_large_float)
2, 2
array_y1_higher array_y1_higher
1, m 1, m - 1
else (rm0 : -----------------------, rm1 : -----------------------,
array_y1_higher array_y1_higher
1, m - 1 1, m - 2
array_y1_higher array_y1_higher
1, m - 2 1, m - 3
rm2 : -----------------------, rm3 : -----------------------,
array_y1_higher array_y1_higher
1, m - 3 1, m - 4
array_y1_higher
1, m - 4
rm4 : -----------------------, nr1 : convfloat(m - 3) rm2
array_y1_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 (abs(nr1 dr2 - nr2 dr1) <= glob_small_float)
rm4 rm3 rm2
or (abs(dr1) <= glob_small_float) then (array_complex_pole :
2, 1
glob_large_float, array_complex_pole : glob_large_float)
2, 2
else (if abs(nr1 dr2 - nr2 dr1) > glob_small_float
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 abs(rcs) > glob_small_float then (if rcs > 0.0 then rad_c : sqrt(rcs) glob_h
else rad_c : glob_large_float) else (rad_c : glob_large_float,
ord_no : glob_large_float)) else (rad_c : glob_large_float,
ord_no : glob_large_float)), array_complex_pole : rad_c,
2, 1
array_complex_pole : ord_no), found : false,
2, 2
if (not found) and ((array_real_pole = glob_large_float)
1, 1
or (array_real_pole = glob_large_float))
1, 2
and ((array_complex_pole # glob_large_float) and (array_complex_pole # glob_large_float))
1, 1 1, 2
and ((array_complex_pole > 0.0) and (array_complex_pole > 0.0))
1, 1 1, 2
then (array_poles : array_complex_pole ,
1, 1 1, 1
array_poles : array_complex_pole , found : true, array_type_pole : 2,
1, 2 1, 2 1
if glob_display_flag then omniout_str(ALWAYS,
"Complex estimate of poles used")), if (not found)
and ((array_real_pole # glob_large_float) and (array_real_pole # glob_large_float)
1, 1 1, 2
and (array_real_pole > 0.0) and (array_real_pole > 0.0)
1, 1 1, 2
and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float) or (array_complex_pole <= 0.0) or (array_complex_pole <= 0.0)))
1, 1 1, 2 1, 1 1, 2
then (array_poles : array_real_pole ,
1, 1 1, 1
array_poles : array_real_pole , found : true, array_type_pole : 1,
1, 2 1, 2 1
if glob_display_flag then omniout_str(ALWAYS, "Real estimate of pole used")),
if (not found) and (((array_real_pole = glob_large_float)
1, 1
or (array_real_pole = glob_large_float))
1, 2
and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float)))
1, 1 1, 2
then (array_poles : glob_large_float, array_poles : glob_large_float,
1, 1 1, 2
found : true, array_type_pole : 3, if glob_display_flag
1
then omniout_str(ALWAYS, "NO POLE")),
if (not found) and ((array_real_pole < array_complex_pole )
1, 1 1, 1
and (array_real_pole > 0.0) and (array_real_pole >
1, 1 1, 2
0.0))
then (array_poles : array_real_pole ,
1, 1 1, 1
array_poles : array_real_pole , found : true, array_type_pole : 1,
1, 2 1, 2 1
if glob_display_flag then omniout_str(ALWAYS, "Real estimate of pole used")),
if (not found) and ((array_complex_pole # glob_large_float)
1, 1
and (array_complex_pole # glob_large_float)
1, 2
and (array_complex_pole > 0.0) and (array_complex_pole >
1, 1 1, 2
0.0))
then (array_poles : array_complex_pole ,
1, 1 1, 1
array_poles : array_complex_pole , array_type_pole : 2, found : true,
1, 2 1, 2 1
if glob_display_flag then omniout_str(ALWAYS,
"Complex estimate of poles used")), if not found
then (array_poles : glob_large_float, array_poles : glob_large_float,
1, 1 1, 2
array_type_pole : 3, if glob_display_flag
1
then omniout_str(ALWAYS, "NO POLE")), found : false,
if (not found) and ((array_real_pole = glob_large_float)
2, 1
or (array_real_pole = glob_large_float))
2, 2
and ((array_complex_pole # glob_large_float) and (array_complex_pole # glob_large_float))
2, 1 2, 2
and ((array_complex_pole > 0.0) and (array_complex_pole > 0.0))
2, 1 2, 2
then (array_poles : array_complex_pole ,
2, 1 2, 1
array_poles : array_complex_pole , found : true, array_type_pole : 2,
2, 2 2, 2 2
if glob_display_flag then omniout_str(ALWAYS,
"Complex estimate of poles used")), if (not found)
and ((array_real_pole # glob_large_float) and (array_real_pole # glob_large_float)
2, 1 2, 2
and (array_real_pole > 0.0) and (array_real_pole > 0.0)
2, 1 2, 2
and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float) or (array_complex_pole <= 0.0) or (array_complex_pole <= 0.0)))
2, 1 2, 2 2, 1 2, 2
then (array_poles : array_real_pole ,
2, 1 2, 1
array_poles : array_real_pole , found : true, array_type_pole : 1,
2, 2 2, 2 2
if glob_display_flag then omniout_str(ALWAYS, "Real estimate of pole used")),
if (not found) and (((array_real_pole = glob_large_float)
2, 1
or (array_real_pole = glob_large_float))
2, 2
and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float)))
2, 1 2, 2
then (array_poles : glob_large_float, array_poles : glob_large_float,
2, 1 2, 2
found : true, array_type_pole : 3, if glob_display_flag
2
then omniout_str(ALWAYS, "NO POLE")),
if (not found) and ((array_real_pole < array_complex_pole )
2, 1 2, 1
and (array_real_pole > 0.0) and (array_real_pole >
2, 1 2, 2
0.0))
then (array_poles : array_real_pole ,
2, 1 2, 1
array_poles : array_real_pole , found : true, array_type_pole : 1,
2, 2 2, 2 2
if glob_display_flag then omniout_str(ALWAYS, "Real estimate of pole used")),
if (not found) and ((array_complex_pole # glob_large_float)
2, 1
and (array_complex_pole # glob_large_float)
2, 2
and (array_complex_pole > 0.0) and (array_complex_pole >
2, 1 2, 2
0.0))
then (array_poles : array_complex_pole ,
2, 1 2, 1
array_poles : array_complex_pole , array_type_pole : 2, found : true,
2, 2 2, 2 2
if glob_display_flag then omniout_str(ALWAYS,
"Complex estimate of poles used")), if not found
then (array_poles : glob_large_float, array_poles : glob_large_float,
2, 1 2, 2
array_type_pole : 3, if glob_display_flag
2
then omniout_str(ALWAYS, "NO POLE")), array_pole : glob_large_float,
1
array_pole : glob_large_float, if array_pole > array_poles
2 1 1, 1
then (array_pole : array_poles , array_pole : array_poles ),
1 1, 1 2 1, 2
if array_pole > array_poles then (array_pole : array_poles ,
1 2, 1 1 2, 1
array_pole : array_poles ), display_pole())
2 2, 2
(%o6) check_for_pole() := (n : glob_max_terms, m : - 1 - 1 + n,
while (m >= 10) and ((!array_y2_higher ! < glob_small_float)
! 1, m!
or (!array_y2_higher ! < glob_small_float)
! 1, m - 1!
or (!array_y2_higher ! < glob_small_float)) do m :
! 1, m - 2!
array_y2_higher
1, m
m - 1, if m > 10 then (rm0 : -----------------------,
array_y2_higher
1, m - 1
array_y2_higher
1, m - 1
rm1 : -----------------------, hdrc : convfloat(m - 1) rm0
array_y2_higher
1, m - 2
- convfloat(m - 2) rm1, if abs(hdrc) > glob_small_float
glob_h convfloat(m - 1) rm0
then (rcs : ------, ord_no : 2.0 - convfloat(m) + --------------------,
hdrc hdrc
array_real_pole : rcs, array_real_pole : ord_no)
1, 1 1, 2
else (array_real_pole : glob_large_float,
1, 1
array_real_pole : glob_large_float))
1, 2
else (array_real_pole : glob_large_float,
1, 1
array_real_pole : glob_large_float), n : glob_max_terms, m : - 1 - 1 + n,
1, 2
while (m >= 10) and ((!array_y1_higher ! < glob_small_float)
! 1, m!
or (!array_y1_higher ! < glob_small_float)
! 1, m - 1!
or (!array_y1_higher ! < glob_small_float)) do m :
! 1, m - 2!
array_y1_higher
1, m
m - 1, if m > 10 then (rm0 : -----------------------,
array_y1_higher
1, m - 1
array_y1_higher
1, m - 1
rm1 : -----------------------, hdrc : convfloat(m - 1) rm0
array_y1_higher
1, m - 2
- convfloat(m - 2) rm1, if abs(hdrc) > glob_small_float
glob_h convfloat(m - 1) rm0
then (rcs : ------, ord_no : 2.0 - convfloat(m) + --------------------,
hdrc hdrc
array_real_pole : rcs, array_real_pole : ord_no)
2, 1 2, 2
else (array_real_pole : glob_large_float,
2, 1
array_real_pole : glob_large_float))
2, 2
else (array_real_pole : glob_large_float,
2, 1
array_real_pole : glob_large_float), n : - 1 - 1 + glob_max_terms,
2, 2
cnt : 0, while (cnt < 5) and (n >= 10) do (if !array_y2_higher ! >
! 1, n!
glob_small_float then cnt : 1 + cnt else cnt : 0, n : n - 1), m : cnt + n,
if m <= 10 then (array_complex_pole : glob_large_float,
1, 1
array_complex_pole : glob_large_float)
1, 2
elseif (!array_y2_higher ! >= glob_large_float)
! 1, m!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 1!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 2!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 3!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 4!
or (!array_y2_higher ! >= glob_large_float)
! 1, m - 5!
then (array_complex_pole : glob_large_float,
1, 1
array_complex_pole : glob_large_float)
1, 2
array_y2_higher array_y2_higher
1, m 1, m - 1
else (rm0 : -----------------------, rm1 : -----------------------,
array_y2_higher array_y2_higher
1, m - 1 1, m - 2
array_y2_higher array_y2_higher
1, m - 2 1, m - 3
rm2 : -----------------------, rm3 : -----------------------,
array_y2_higher array_y2_higher
1, m - 3 1, m - 4
array_y2_higher
1, m - 4
rm4 : -----------------------, nr1 : convfloat(m - 3) rm2
array_y2_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 (abs(nr1 dr2 - nr2 dr1) <= glob_small_float)
rm4 rm3 rm2
or (abs(dr1) <= glob_small_float) then (array_complex_pole :
1, 1
glob_large_float, array_complex_pole : glob_large_float)
1, 2
else (if abs(nr1 dr2 - nr2 dr1) > glob_small_float
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 abs(rcs) > glob_small_float then (if rcs > 0.0 then rad_c : sqrt(rcs) glob_h
else rad_c : glob_large_float) else (rad_c : glob_large_float,
ord_no : glob_large_float)) else (rad_c : glob_large_float,
ord_no : glob_large_float)), array_complex_pole : rad_c,
1, 1
array_complex_pole : ord_no), n : - 1 - 1 + glob_max_terms, cnt : 0,
1, 2
while (cnt < 5) and (n >= 10) do (if !array_y1_higher ! > glob_small_float
! 1, n!
then cnt : 1 + cnt else cnt : 0, n : n - 1), m : cnt + n,
if m <= 10 then (array_complex_pole : glob_large_float,
2, 1
array_complex_pole : glob_large_float)
2, 2
elseif (!array_y1_higher ! >= glob_large_float)
! 1, m!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 1!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 2!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 3!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 4!
or (!array_y1_higher ! >= glob_large_float)
! 1, m - 5!
then (array_complex_pole : glob_large_float,
2, 1
array_complex_pole : glob_large_float)
2, 2
array_y1_higher array_y1_higher
1, m 1, m - 1
else (rm0 : -----------------------, rm1 : -----------------------,
array_y1_higher array_y1_higher
1, m - 1 1, m - 2
array_y1_higher array_y1_higher
1, m - 2 1, m - 3
rm2 : -----------------------, rm3 : -----------------------,
array_y1_higher array_y1_higher
1, m - 3 1, m - 4
array_y1_higher
1, m - 4
rm4 : -----------------------, nr1 : convfloat(m - 3) rm2
array_y1_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 (abs(nr1 dr2 - nr2 dr1) <= glob_small_float)
rm4 rm3 rm2
or (abs(dr1) <= glob_small_float) then (array_complex_pole :
2, 1
glob_large_float, array_complex_pole : glob_large_float)
2, 2
else (if abs(nr1 dr2 - nr2 dr1) > glob_small_float
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 abs(rcs) > glob_small_float then (if rcs > 0.0 then rad_c : sqrt(rcs) glob_h
else rad_c : glob_large_float) else (rad_c : glob_large_float,
ord_no : glob_large_float)) else (rad_c : glob_large_float,
ord_no : glob_large_float)), array_complex_pole : rad_c,
2, 1
array_complex_pole : ord_no), found : false,
2, 2
if (not found) and ((array_real_pole = glob_large_float)
1, 1
or (array_real_pole = glob_large_float))
1, 2
and ((array_complex_pole # glob_large_float) and (array_complex_pole # glob_large_float))
1, 1 1, 2
and ((array_complex_pole > 0.0) and (array_complex_pole > 0.0))
1, 1 1, 2
then (array_poles : array_complex_pole ,
1, 1 1, 1
array_poles : array_complex_pole , found : true, array_type_pole : 2,
1, 2 1, 2 1
if glob_display_flag then omniout_str(ALWAYS,
"Complex estimate of poles used")), if (not found)
and ((array_real_pole # glob_large_float) and (array_real_pole # glob_large_float)
1, 1 1, 2
and (array_real_pole > 0.0) and (array_real_pole > 0.0)
1, 1 1, 2
and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float) or (array_complex_pole <= 0.0) or (array_complex_pole <= 0.0)))
1, 1 1, 2 1, 1 1, 2
then (array_poles : array_real_pole ,
1, 1 1, 1
array_poles : array_real_pole , found : true, array_type_pole : 1,
1, 2 1, 2 1
if glob_display_flag then omniout_str(ALWAYS, "Real estimate of pole used")),
if (not found) and (((array_real_pole = glob_large_float)
1, 1
or (array_real_pole = glob_large_float))
1, 2
and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float)))
1, 1 1, 2
then (array_poles : glob_large_float, array_poles : glob_large_float,
1, 1 1, 2
found : true, array_type_pole : 3, if glob_display_flag
1
then omniout_str(ALWAYS, "NO POLE")),
if (not found) and ((array_real_pole < array_complex_pole )
1, 1 1, 1
and (array_real_pole > 0.0) and (array_real_pole >
1, 1 1, 2
0.0))
then (array_poles : array_real_pole ,
1, 1 1, 1
array_poles : array_real_pole , found : true, array_type_pole : 1,
1, 2 1, 2 1
if glob_display_flag then omniout_str(ALWAYS, "Real estimate of pole used")),
if (not found) and ((array_complex_pole # glob_large_float)
1, 1
and (array_complex_pole # glob_large_float)
1, 2
and (array_complex_pole > 0.0) and (array_complex_pole >
1, 1 1, 2
0.0))
then (array_poles : array_complex_pole ,
1, 1 1, 1
array_poles : array_complex_pole , array_type_pole : 2, found : true,
1, 2 1, 2 1
if glob_display_flag then omniout_str(ALWAYS,
"Complex estimate of poles used")), if not found
then (array_poles : glob_large_float, array_poles : glob_large_float,
1, 1 1, 2
array_type_pole : 3, if glob_display_flag
1
then omniout_str(ALWAYS, "NO POLE")), found : false,
if (not found) and ((array_real_pole = glob_large_float)
2, 1
or (array_real_pole = glob_large_float))
2, 2
and ((array_complex_pole # glob_large_float) and (array_complex_pole # glob_large_float))
2, 1 2, 2
and ((array_complex_pole > 0.0) and (array_complex_pole > 0.0))
2, 1 2, 2
then (array_poles : array_complex_pole ,
2, 1 2, 1
array_poles : array_complex_pole , found : true, array_type_pole : 2,
2, 2 2, 2 2
if glob_display_flag then omniout_str(ALWAYS,
"Complex estimate of poles used")), if (not found)
and ((array_real_pole # glob_large_float) and (array_real_pole # glob_large_float)
2, 1 2, 2
and (array_real_pole > 0.0) and (array_real_pole > 0.0)
2, 1 2, 2
and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float) or (array_complex_pole <= 0.0) or (array_complex_pole <= 0.0)))
2, 1 2, 2 2, 1 2, 2
then (array_poles : array_real_pole ,
2, 1 2, 1
array_poles : array_real_pole , found : true, array_type_pole : 1,
2, 2 2, 2 2
if glob_display_flag then omniout_str(ALWAYS, "Real estimate of pole used")),
if (not found) and (((array_real_pole = glob_large_float)
2, 1
or (array_real_pole = glob_large_float))
2, 2
and ((array_complex_pole = glob_large_float) or (array_complex_pole = glob_large_float)))
2, 1 2, 2
then (array_poles : glob_large_float, array_poles : glob_large_float,
2, 1 2, 2
found : true, array_type_pole : 3, if glob_display_flag
2
then omniout_str(ALWAYS, "NO POLE")),
if (not found) and ((array_real_pole < array_complex_pole )
2, 1 2, 1
and (array_real_pole > 0.0) and (array_real_pole >
2, 1 2, 2
0.0))
then (array_poles : array_real_pole ,
2, 1 2, 1
array_poles : array_real_pole , found : true, array_type_pole : 1,
2, 2 2, 2 2
if glob_display_flag then omniout_str(ALWAYS, "Real estimate of pole used")),
if (not found) and ((array_complex_pole # glob_large_float)
2, 1
and (array_complex_pole # glob_large_float)
2, 2
and (array_complex_pole > 0.0) and (array_complex_pole >
2, 1 2, 2
0.0))
then (array_poles : array_complex_pole ,
2, 1 2, 1
array_poles : array_complex_pole , array_type_pole : 2, found : true,
2, 2 2, 2 2
if glob_display_flag then omniout_str(ALWAYS,
"Complex estimate of poles used")), if not found
then (array_poles : glob_large_float, array_poles : glob_large_float,
2, 1 2, 2
array_type_pole : 3, if glob_display_flag
2
then omniout_str(ALWAYS, "NO POLE")), array_pole : glob_large_float,
1
array_pole : glob_large_float, if array_pole > array_poles
2 1 1, 1
then (array_pole : array_poles , array_pole : array_poles ),
1 1, 1 2 1, 2
if array_pole > array_poles then (array_pole : array_poles ,
1 2, 1 1 2, 1
array_pole : array_poles ), display_pole())
2 2, 2
(%i7) get_norms() := if not glob_initial_pass
then (set_z(array_norms, 1 + glob_max_terms), iii : 1,
while iii <= glob_max_terms do (if !array_y2 ! > array_norms
! iii! iii
then array_norms : !array_y2 !, iii : 1 + iii), iii : 1,
iii ! iii!
while iii <= glob_max_terms do (if !array_y1 ! > array_norms
! iii! iii
then array_norms : !array_y1 !, iii : 1 + iii))
iii ! iii!
(%o7) get_norms() := if not glob_initial_pass
then (set_z(array_norms, 1 + glob_max_terms), iii : 1,
while iii <= glob_max_terms do (if !array_y2 ! > array_norms
! iii! iii
then array_norms : !array_y2 !, iii : 1 + iii), iii : 1,
iii ! iii!
while iii <= glob_max_terms do (if !array_y1 ! > array_norms
! iii! iii
then array_norms : !array_y1 !, iii : 1 + iii))
iii ! iii!
(%i8) atomall() := (array_tmp1 : array_y1 + array_const_0D0 ,
1 1 1
array_tmp2 : array_tmp1 - array_const_2D0 ,
1 1 1
if not array_y2_set_initial then (if 1 <= glob_max_terms
1, 2
1
then (temporary : array_tmp2 glob_h factorial_3(0, 1),
1
array_y2 : temporary, array_y2_higher : temporary,
2 1, 2
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 2,
glob_h 2, 1
array_tmp4 : array_y2_higher , if not array_y1_set_initial
1 6, 1 2, 2
then (if 1 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(0, 1), array_y1 : temporary,
1 2
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 2 glob_h
array_y1_higher : temporary)), kkk : 2,
2, 1
array_tmp1 : array_y1 + array_const_0D0 ,
2 2 2
array_tmp2 : array_tmp1 - array_const_2D0 ,
2 2 2
if not array_y2_set_initial then (if 2 <= glob_max_terms
1, 3
1
then (temporary : array_tmp2 glob_h factorial_3(1, 2),
2
array_y2 : temporary, array_y2_higher : temporary,
3 1, 3
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 3,
glob_h 2, 2
array_tmp4 : array_y2_higher , if not array_y1_set_initial
2 6, 2 2, 3
then (if 2 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(1, 2), array_y1 : temporary,
2 3
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 3 glob_h
array_y1_higher : temporary)), kkk : 3,
2, 2
array_tmp1 : array_y1 + array_const_0D0 ,
3 3 3
array_tmp2 : array_tmp1 - array_const_2D0 ,
3 3 3
if not array_y2_set_initial then (if 3 <= glob_max_terms
1, 4
1
then (temporary : array_tmp2 glob_h factorial_3(2, 3),
3
array_y2 : temporary, array_y2_higher : temporary,
4 1, 4
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 4,
glob_h 2, 3
array_tmp4 : array_y2_higher , if not array_y1_set_initial
3 6, 3 2, 4
then (if 3 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(2, 3), array_y1 : temporary,
3 4
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 4 glob_h
array_y1_higher : temporary)), kkk : 4,
2, 3
array_tmp1 : array_y1 + array_const_0D0 ,
4 4 4
array_tmp2 : array_tmp1 - array_const_2D0 ,
4 4 4
if not array_y2_set_initial then (if 4 <= glob_max_terms
1, 5
1
then (temporary : array_tmp2 glob_h factorial_3(3, 4),
4
array_y2 : temporary, array_y2_higher : temporary,
5 1, 5
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 5,
glob_h 2, 4
array_tmp4 : array_y2_higher , if not array_y1_set_initial
4 6, 4 2, 5
then (if 4 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(3, 4), array_y1 : temporary,
4 5
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 5 glob_h
array_y1_higher : temporary)), kkk : 5,
2, 4
array_tmp1 : array_y1 + array_const_0D0 ,
5 5 5
array_tmp2 : array_tmp1 - array_const_2D0 ,
5 5 5
if not array_y2_set_initial then (if 5 <= glob_max_terms
1, 6
1
then (temporary : array_tmp2 glob_h factorial_3(4, 5),
5
array_y2 : temporary, array_y2_higher : temporary,
6 1, 6
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 6,
glob_h 2, 5
array_tmp4 : array_y2_higher , if not array_y1_set_initial
5 6, 5 2, 6
then (if 5 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(4, 5), array_y1 : temporary,
5 6
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 6 glob_h
array_y1_higher : temporary)), kkk : 6,
2, 5
while kkk <= glob_max_terms do (array_tmp1 :
kkk
array_y1 + array_const_0D0 , array_tmp2 :
kkk kkk kkk
array_tmp1 - array_const_2D0 , order_d : 1,
kkk kkk
if 1 + order_d + kkk <= glob_max_terms
then (if not array_y2_set_initial
1, order_d + kkk
order_d
array_tmp2 glob_h
kkk
then (temporary : -----------------------------------------,
factorial_3(kkk - 1, - 1 + order_d + kkk)
array_y2 : temporary, array_y2_higher :
order_d + kkk 1, order_d + kkk
temporary, term : - 1 + order_d + kkk, adj2 : 2,
while (adj2 <= 1 + order_d) and (term >= 1) do (temporary :
temporary convfp(adj2)
----------------------, array_y2_higher : temporary,
glob_h adj2, term
adj2 : 1 + adj2, term : term - 1))), array_tmp4 : array_y2_higher ,
kkk 6, kkk
order_d : 1, if 1 + order_d + kkk <= glob_max_terms
then (if not array_y1_set_initial
2, order_d + kkk
order_d
array_tmp4 glob_h
kkk
then (temporary : -----------------------------------------,
factorial_3(kkk - 1, - 1 + order_d + kkk)
array_y1 : temporary, array_y1_higher :
order_d + kkk 1, order_d + kkk
temporary, term : - 1 + order_d + kkk, adj2 : 2,
while (adj2 <= 1 + order_d) and (term >= 1) do (temporary :
temporary convfp(adj2)
----------------------, array_y1_higher : temporary,
glob_h adj2, term
adj2 : 1 + adj2, term : term - 1))), kkk : 1 + kkk))
(%o8) atomall() := (array_tmp1 : array_y1 + array_const_0D0 ,
1 1 1
array_tmp2 : array_tmp1 - array_const_2D0 ,
1 1 1
if not array_y2_set_initial then (if 1 <= glob_max_terms
1, 2
1
then (temporary : array_tmp2 glob_h factorial_3(0, 1),
1
array_y2 : temporary, array_y2_higher : temporary,
2 1, 2
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 2,
glob_h 2, 1
array_tmp4 : array_y2_higher , if not array_y1_set_initial
1 6, 1 2, 2
then (if 1 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(0, 1), array_y1 : temporary,
1 2
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 2 glob_h
array_y1_higher : temporary)), kkk : 2,
2, 1
array_tmp1 : array_y1 + array_const_0D0 ,
2 2 2
array_tmp2 : array_tmp1 - array_const_2D0 ,
2 2 2
if not array_y2_set_initial then (if 2 <= glob_max_terms
1, 3
1
then (temporary : array_tmp2 glob_h factorial_3(1, 2),
2
array_y2 : temporary, array_y2_higher : temporary,
3 1, 3
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 3,
glob_h 2, 2
array_tmp4 : array_y2_higher , if not array_y1_set_initial
2 6, 2 2, 3
then (if 2 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(1, 2), array_y1 : temporary,
2 3
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 3 glob_h
array_y1_higher : temporary)), kkk : 3,
2, 2
array_tmp1 : array_y1 + array_const_0D0 ,
3 3 3
array_tmp2 : array_tmp1 - array_const_2D0 ,
3 3 3
if not array_y2_set_initial then (if 3 <= glob_max_terms
1, 4
1
then (temporary : array_tmp2 glob_h factorial_3(2, 3),
3
array_y2 : temporary, array_y2_higher : temporary,
4 1, 4
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 4,
glob_h 2, 3
array_tmp4 : array_y2_higher , if not array_y1_set_initial
3 6, 3 2, 4
then (if 3 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(2, 3), array_y1 : temporary,
3 4
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 4 glob_h
array_y1_higher : temporary)), kkk : 4,
2, 3
array_tmp1 : array_y1 + array_const_0D0 ,
4 4 4
array_tmp2 : array_tmp1 - array_const_2D0 ,
4 4 4
if not array_y2_set_initial then (if 4 <= glob_max_terms
1, 5
1
then (temporary : array_tmp2 glob_h factorial_3(3, 4),
4
array_y2 : temporary, array_y2_higher : temporary,
5 1, 5
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 5,
glob_h 2, 4
array_tmp4 : array_y2_higher , if not array_y1_set_initial
4 6, 4 2, 5
then (if 4 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(3, 4), array_y1 : temporary,
4 5
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 5 glob_h
array_y1_higher : temporary)), kkk : 5,
2, 4
array_tmp1 : array_y1 + array_const_0D0 ,
5 5 5
array_tmp2 : array_tmp1 - array_const_2D0 ,
5 5 5
if not array_y2_set_initial then (if 5 <= glob_max_terms
1, 6
1
then (temporary : array_tmp2 glob_h factorial_3(4, 5),
5
array_y2 : temporary, array_y2_higher : temporary,
6 1, 6
temporary 2.0
temporary : -------------, array_y2_higher : temporary)), kkk : 6,
glob_h 2, 5
array_tmp4 : array_y2_higher , if not array_y1_set_initial
5 6, 5 2, 6
then (if 5 <= glob_max_terms then (temporary :
1
array_tmp4 glob_h factorial_3(4, 5), array_y1 : temporary,
5 6
temporary 2.0
array_y1_higher : temporary, temporary : -------------,
1, 6 glob_h
array_y1_higher : temporary)), kkk : 6,
2, 5
while kkk <= glob_max_terms do (array_tmp1 :
kkk
array_y1 + array_const_0D0 , array_tmp2 :
kkk kkk kkk
array_tmp1 - array_const_2D0 , order_d : 1,
kkk kkk
if 1 + order_d + kkk <= glob_max_terms
then (if not array_y2_set_initial
1, order_d + kkk
order_d
array_tmp2 glob_h
kkk
then (temporary : -----------------------------------------,
factorial_3(kkk - 1, - 1 + order_d + kkk)
array_y2 : temporary, array_y2_higher :
order_d + kkk 1, order_d + kkk
temporary, term : - 1 + order_d + kkk, adj2 : 2,
while (adj2 <= 1 + order_d) and (term >= 1) do (temporary :
temporary convfp(adj2)
----------------------, array_y2_higher : temporary,
glob_h adj2, term
adj2 : 1 + adj2, term : term - 1))), array_tmp4 : array_y2_higher ,
kkk 6, kkk
order_d : 1, if 1 + order_d + kkk <= glob_max_terms
then (if not array_y1_set_initial
2, order_d + kkk
order_d
array_tmp4 glob_h
kkk
then (temporary : -----------------------------------------,
factorial_3(kkk - 1, - 1 + order_d + kkk)
array_y1 : temporary, array_y1_higher :
order_d + kkk 1, order_d + kkk
temporary, term : - 1 + order_d + kkk, adj2 : 2,
while (adj2 <= 1 + order_d) and (term >= 1) do (temporary :
temporary convfp(adj2)
----------------------, array_y1_higher : temporary,
glob_h adj2, term
adj2 : 1 + adj2, term : term - 1))), kkk : 1 + kkk))
log(x)
(%i9) log10(x) := ---------
log(10.0)
log(x)
(%o9) log10(x) := ---------
log(10.0)
(%i10) omniout_str(iolevel, str) := if glob_iolevel >= iolevel
then printf(true, "~a~%", string(str))
(%o10) omniout_str(iolevel, str) := if glob_iolevel >= iolevel
then printf(true, "~a~%", string(str))
(%i11) omniout_str_noeol(iolevel, str) :=
if glob_iolevel >= iolevel then printf(true, "~a", string(str))
(%o11) omniout_str_noeol(iolevel, str) :=
if glob_iolevel >= iolevel then printf(true, "~a", string(str))
(%i12) omniout_labstr(iolevel, label, str) :=
if glob_iolevel >= iolevel then printf(true, "~a = ~a~%", string(label),
string(str))
(%o12) omniout_labstr(iolevel, label, str) :=
if glob_iolevel >= iolevel then printf(true, "~a = ~a~%", string(label),
string(str))
(%i13) 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))
(%o13) 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))
(%i14) omniout_int(iolevel, prelabel, prelen, value, vallen, postlabel) :=
if glob_iolevel >= iolevel then (printf(true, "~a = ~d ~a~%", prelabel, value,
postlabel), newline())
(%o14) omniout_int(iolevel, prelabel, prelen, value, vallen, postlabel) :=
if glob_iolevel >= iolevel then (printf(true, "~a = ~d ~a~%", prelabel, value,
postlabel), newline())
(%i15) omniout_float_arr(iolevel, prelabel, elemnt, prelen, value, vallen,
postlabel) := if glob_iolevel >= iolevel
then (sprint(prelabel, "[", elemnt, "]=", value, postlabel), newline())
(%o15) omniout_float_arr(iolevel, prelabel, elemnt, prelen, value, vallen,
postlabel) := if glob_iolevel >= iolevel
then (sprint(prelabel, "[", elemnt, "]=", value, postlabel), newline())
(%i16) dump_series(iolevel, dump_label, series_name, array_series, numb) :=
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
(%o16) dump_series(iolevel, dump_label, series_name, array_series, numb) :=
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
(%i17) dump_series_2(iolevel, dump_label, series_name, array_series2, numb,
subnum) := 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
(%o17) dump_series_2(iolevel, dump_label, series_name, array_series2, numb,
subnum) := 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
(%i18) 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))
(%o18) 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))
(%i19) logitem_time(fd, secs_in) := (secs : secs_in, printf(fd, "| "),
if secs >= 0.0 then (sec_in_millinium :
sec_in_min min_in_hour hours_in_day days_in_year years_in_century
secs
centuries_in_millinium, milliniums : ----------------,
sec_in_millinium
millinium_int : floor(milliniums), centuries :
(milliniums - millinium_int) centuries_in_millinium,
cent_int : floor(centuries), years : (centuries - cent_int) years_in_century,
years_int : floor(years), days : (years - years_int) days_in_year,
days_int : floor(days), hours : (days - days_int) hours_in_day,
hours_int : floor(hours), minutes : (hours - hours_int) min_in_hour,
minutes_int : floor(minutes), seconds : (minutes - minutes_int) sec_in_min,
sec_int : floor(seconds), if millinium_int > 0 then printf(fd, "~d Millinia ~d\
Centuries ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds", millinium_int,
cent_int, years_int, days_int, hours_int, minutes_int, sec_int)
elseif cent_int > 0 then printf(fd,
"~d Centuries ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds", cent_int,
years_int, days_int, hours_int, minutes_int, sec_int) elseif 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, " | "))
(%o19) logitem_time(fd, secs_in) := (secs : secs_in, printf(fd, ""),
if secs >= 0.0 then (sec_in_millinium :
sec_in_min min_in_hour hours_in_day days_in_year years_in_century
secs
centuries_in_millinium, milliniums : ----------------,
sec_in_millinium
millinium_int : floor(milliniums), centuries :
(milliniums - millinium_int) centuries_in_millinium,
cent_int : floor(centuries), years : (centuries - cent_int) years_in_century,
years_int : floor(years), days : (years - years_int) days_in_year,
days_int : floor(days), hours : (days - days_int) hours_in_day,
hours_int : floor(hours), minutes : (hours - hours_int) min_in_hour,
minutes_int : floor(minutes), seconds : (minutes - minutes_int) sec_in_min,
sec_int : floor(seconds), if millinium_int > 0 then printf(fd, "~d Millinia ~d\
Centuries ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds", millinium_int,
cent_int, years_int, days_int, hours_int, minutes_int, sec_int)
elseif cent_int > 0 then printf(fd,
"~d Centuries ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds", cent_int,
years_int, days_int, hours_int, minutes_int, sec_int) elseif 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, " | "))
(%i20) omniout_timestr(secs_in) := (secs : convfloat(secs_in),
if secs >= convfloat(0.0) then (sec_in_millinium :
convfloat(sec_in_min) convfloat(min_in_hour) convfloat(hours_in_day)
convfloat(days_in_year) convfloat(years_in_century)
secs
convfloat(centuries_in_millinium), milliniums : ---------------------------,
convfloat(sec_in_millinium)
millinium_int : floor(milliniums), centuries :
(milliniums - millinium_int) convfloat(centuries_in_millinium),
cent_int : floor(centuries), years : (centuries - cent_int)
convfloat(years_in_century), years_int : floor(years),
days : (years - years_int) convfloat(days_in_year), days_int : floor(days),
hours : (days - days_int) convfloat(hours_in_day), hours_int : floor(hours),
minutes : (hours - hours_int) convfloat(min_in_hour),
minutes_int : floor(minutes), seconds :
(minutes - minutes_int) convfloat(sec_in_min), sec_int : floor(seconds),
if millinium_int > 0 then printf(true,
"= ~d Millinia ~d Centuries ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds~%",
millinium_int, cent_int, years_int, days_int, hours_int, minutes_int, sec_int)
elseif cent_int > 0 then printf(true,
"= ~d Centuries ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds~%", cent_int,
years_int, days_int, hours_int, minutes_int, sec_int) elseif 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~%"))
(%o20) omniout_timestr(secs_in) := (secs : convfloat(secs_in),
if secs >= convfloat(0.0) then (sec_in_millinium :
convfloat(sec_in_min) convfloat(min_in_hour) convfloat(hours_in_day)
convfloat(days_in_year) convfloat(years_in_century)
secs
convfloat(centuries_in_millinium), milliniums : ---------------------------,
convfloat(sec_in_millinium)
millinium_int : floor(milliniums), centuries :
(milliniums - millinium_int) convfloat(centuries_in_millinium),
cent_int : floor(centuries), years : (centuries - cent_int)
convfloat(years_in_century), years_int : floor(years),
days : (years - years_int) convfloat(days_in_year), days_int : floor(days),
hours : (days - days_int) convfloat(hours_in_day), hours_int : floor(hours),
minutes : (hours - hours_int) convfloat(min_in_hour),
minutes_int : floor(minutes), seconds :
(minutes - minutes_int) convfloat(sec_in_min), sec_int : floor(seconds),
if millinium_int > 0 then printf(true,
"= ~d Millinia ~d Centuries ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds~%",
millinium_int, cent_int, years_int, days_int, hours_int, minutes_int, sec_int)
elseif cent_int > 0 then printf(true,
"= ~d Centuries ~d Years ~d Days ~d Hours ~d Minutes ~d Seconds~%", cent_int,
years_int, days_int, hours_int, minutes_int, sec_int) elseif 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~%"))
(%i21) mode_declare(ats, bfloat)
modedeclare: bfloat
is not a built-in type; assuming it is a Maxima extension type.
(%o21) [ats]
(%i22) ats(mmm_ats, array_a, array_b, jjj_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 : array_a array_b + ret_ats, iii_ats : 1 + iii_ats)),
iii_ats lll_ats
ret_ats)
(%o22) ats(mmm_ats, array_a, array_b, jjj_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 : array_a array_b + ret_ats, iii_ats : 1 + iii_ats)),
iii_ats lll_ats
ret_ats)
(%i23) mode_declare(att, bfloat)
modedeclare: bfloat
is not a built-in type; assuming it is a Maxima extension type.
(%o23) [att]
(%i24) att(mmm_att, array_aa, array_bb, jjj_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 : array_aa array_bb convfp(al_att) + ret_att,
iii_att lll_att
ret_att
iii_att : 1 + iii_att), ret_att : ---------------), ret_att)
convfp(mmm_att)
(%o24) att(mmm_att, array_aa, array_bb, jjj_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 : array_aa array_bb convfp(al_att) + ret_att,
iii_att lll_att
ret_att
iii_att : 1 + iii_att), ret_att : ---------------), ret_att)
convfp(mmm_att)
(%i25) display_pole() := if (array_pole # glob_large_float)
1
and (array_pole > 0.0) and (array_pole # glob_large_float)
1 2
and (array_pole > 0.0) and glob_display_flag
2
then (omniout_float(ALWAYS, "Radius of convergence ", 4,
array_pole , 4, " "), omniout_float(ALWAYS,
1
"Order of pole ", 4, array_pole , 4, " "))
2
(%o25) display_pole() := if (array_pole # glob_large_float)
1
and (array_pole > 0.0) and (array_pole # glob_large_float)
1 2
and (array_pole > 0.0) and glob_display_flag
2
then (omniout_float(ALWAYS, "Radius of convergence ", 4,
array_pole , 4, " "), omniout_float(ALWAYS,
1
"Order of pole ", 4, array_pole , 4, " "))
2
(%i26) logditto(file) := (printf(file, ""), printf(file, "ditto"),
printf(file, " | "))
(%o26) logditto(file) := (printf(file, ""), printf(file, "ditto"),
printf(file, " | "))
(%i27) logitem_integer(file, n) := (printf(file, ""),
printf(file, "~d", n), printf(file, " | "))
(%o27) logitem_integer(file, n) := (printf(file, ""),
printf(file, "~d", n), printf(file, " | "))
(%i28) logitem_str(file, str) := (printf(file, ""), printf(file, str),
printf(file, " | "))
(%o28) logitem_str(file, str) := (printf(file, ""), printf(file, str),
printf(file, " | "))
(%i29) log_revs(file, revs) := printf(file, revs)
(%o29) log_revs(file, revs) := printf(file, revs)
(%i30) logitem_float(file, x) := (printf(file, ""), printf(file, "~g", x),
printf(file, " | "))
(%o30) logitem_float(file, x) := (printf(file, ""), printf(file, "~g", x),
printf(file, " | "))
(%i31) logitem_pole(file, pole) := (printf(file, ""),
if pole = 0 then printf(file, "NA") elseif pole = 1 then printf(file, "Real")
elseif pole = 2 then printf(file, "Complex") else printf(file, "No Pole"),
printf(file, " | "))
(%o31) logitem_pole(file, pole) := (printf(file, ""),
if pole = 0 then printf(file, "NA") elseif pole = 1 then printf(file, "Real")
elseif pole = 2 then printf(file, "Complex") else printf(file, "No Pole"),
printf(file, " | "))
(%i32) logstart(file) := printf(file, "")
(%o32) logstart(file) := printf(file, "
")
(%i33) logend(file) := printf(file, "
~%")
(%o33) logend(file) := printf(file, "~%")
(%i34) chk_data() := (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())
(%o34) chk_data() := (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())
(%i35) mode_declare(comp_expect_sec, bfloat)
modedeclare: bfloat
is not a built-in type; assuming it is a Maxima extension type.
(%o35) [comp_expect_sec]
(%i36) comp_expect_sec(t_end2, t_start2, t2, clock_sec) :=
(ms2 : clock_sec, sub1 : t_end2 - t_start2, sub2 : t2 - t_start2,
if sub1 = 0.0 then sec_left : 0.0 else (if abs(sub2) > 0.0
sub1
then (rrr : ----, sec_left : rrr ms2 - ms2) else sec_left : 0.0), sec_left)
sub2
(%o36) comp_expect_sec(t_end2, t_start2, t2, clock_sec) :=
(ms2 : clock_sec, sub1 : t_end2 - t_start2, sub2 : t2 - t_start2,
if sub1 = 0.0 then sec_left : 0.0 else (if abs(sub2) > 0.0
sub1
then (rrr : ----, sec_left : rrr ms2 - ms2) else sec_left : 0.0), sec_left)
sub2
(%i37) mode_declare(comp_percent, bfloat)
modedeclare: bfloat
is not a built-in type; assuming it is a Maxima extension type.
(%o37) [comp_percent]
(%i38) comp_percent(t_end2, t_start2, t2) :=
(sub1 : t_end2 - t_start2, sub2 : t2 - t_start2,
100.0 sub2
if abs(sub2) > glob_small_float then rrr : ---------- else rrr : 0.0, rrr)
sub1
(%o38) comp_percent(t_end2, t_start2, t2) :=
(sub1 : t_end2 - t_start2, sub2 : t2 - t_start2,
100.0 sub2
if abs(sub2) > glob_small_float then rrr : ---------- else rrr : 0.0, rrr)
sub1
(%i39) mode_declare(factorial_1, bfloat)
modedeclare: bfloat
is not a built-in type; assuming it is a Maxima extension type.
(%o39) [factorial_1]
(%i40) factorial_1(nnn) := nnn!
(%o40) factorial_1(nnn) := nnn!
(%i41) mode_declare(factorial_3, bfloat)
modedeclare: bfloat
is not a built-in type; assuming it is a Maxima extension type.
(%o41) [factorial_3]
mmm2!
(%i42) factorial_3(mmm2, nnn2) := -----
nnn2!
mmm2!
(%o42) factorial_3(mmm2, nnn2) := -----
nnn2!
(%i43) convfp(mmm) := mmm
(%o43) convfp(mmm) := mmm
(%i44) convfloat(mmm) := mmm
(%o44) convfloat(mmm) := mmm
(%i45) elapsed_time_seconds() := (t : elapsed_real_time(), t)
(%o45) elapsed_time_seconds() := (t : elapsed_real_time(), t)
(%i46) arcsin(x) := asin(x)
(%o46) arcsin(x) := asin(x)
(%i47) arccos(x) := acos(x)
(%o47) arccos(x) := acos(x)
(%i48) arctan(x) := atan(x)
(%o48) arctan(x) := atan(x)
(%i49) exact_soln_y1(x) := sin(x) + 2.0
(%o49) exact_soln_y1(x) := sin(x) + 2.0
(%i50) exact_soln_y2(x) := 2.0 - cos(x)
(%o50) exact_soln_y2(x) := 2.0 - cos(x)
(%i51) exact_soln_y2p(x) := sin(x)
(%o51) exact_soln_y2p(x) := sin(x)
(%i52) exact_soln_y2pp(x) := cos(x)
(%o52) exact_soln_y2pp(x) := cos(x)
(%i53) exact_soln_y2ppp(x) := - sin(x)
(%o53) exact_soln_y2ppp(x) := - sin(x)
(%i54) exact_soln_y2pppp(x) := - cos(x)
(%o54) exact_soln_y2pppp(x) := - cos(x)
(%i55) mainprog() := (define_variable(DEBUGL, 3, fixnum),
define_variable(ALWAYS, 1, fixnum), define_variable(DEBUGMASSIVE, 4, fixnum),
define_variable(INFO, 2, fixnum), define_variable(glob_max_terms, 30, fixnum),
define_variable(glob_iolevel, 5, fixnum), define_variable(glob_h, 0.1, float),
define_variable(glob_disp_incr, 0.1, float),
define_variable(glob_not_yet_start_msg, true, boolean),
define_variable(glob_clock_start_sec, 0.0, float),
define_variable(glob_clock_sec, 0.0, float),
define_variable(glob_max_minutes, 0.0, float),
define_variable(glob_iter, 0, fixnum),
define_variable(glob_max_iter, 1000, fixnum),
define_variable(glob_log10_abserr, 1.0E-11, float),
define_variable(glob_max_opt_iter, 10, fixnum),
define_variable(glob_log10normmin, 0.1, float),
define_variable(MAX_UNCHANGED, 10, fixnum),
define_variable(glob_warned2, false, boolean),
define_variable(glob_optimal_clock_start_sec, 0.0, float),
define_variable(glob_max_rel_trunc_err, 1.0E-11, float),
define_variable(glob_hmin_init, 0.001, float),
define_variable(days_in_year, 365.0, float),
define_variable(djd_debug2, true, boolean),
define_variable(glob_subiter_method, 3, fixnum),
define_variable(glob_percent_done, 0.0, float),
define_variable(glob_warned, false, boolean),
define_variable(glob_hmin, 1.0E-11, float),
define_variable(glob_almost_1, 0.999, float),
define_variable(hours_in_day, 24.0, float),
define_variable(glob_html_log, true, boolean),
define_variable(glob_unchanged_h_cnt, 0, fixnum),
define_variable(glob_optimal_expect_sec, 0.1, float),
define_variable(glob_look_poles, false, boolean),
define_variable(glob_current_iter, 0, fixnum),
define_variable(glob_max_sec, 10000.0, float),
define_variable(glob_smallish_float, 1.0E-101, float),
define_variable(glob_no_eqs, 0, fixnum),
define_variable(glob_abserr, 1.0E-11, float),
define_variable(glob_hmax, 1.0, float),
define_variable(glob_optimal_done, false, boolean),
define_variable(glob_initial_pass, true, boolean),
define_variable(centuries_in_millinium, 10.0, float),
define_variable(glob_max_hours, 0.0, float),
define_variable(glob_reached_optimal_h, false, boolean),
define_variable(glob_display_flag, true, boolean),
define_variable(glob_dump, false, boolean),
define_variable(glob_log10abserr, 0.0, float),
define_variable(glob_normmax, 0.0, float),
define_variable(glob_curr_iter_when_opt, 0, fixnum),
define_variable(glob_start, 0, fixnum),
define_variable(glob_log10relerr, 0.0, float),
define_variable(glob_orig_start_sec, 0.0, float),
define_variable(glob_optimal_start, 0.0, float),
define_variable(glob_relerr, 1.0E-11, float),
define_variable(glob_log10_relerr, 1.0E-11, float),
define_variable(glob_last_good_h, 0.1, float),
define_variable(min_in_hour, 60.0, float),
define_variable(djd_debug, true, boolean),
define_variable(glob_small_float, 1.0E-51, float),
define_variable(glob_max_trunc_err, 1.0E-11, float),
define_variable(glob_dump_analytic, false, boolean),
define_variable(glob_large_float, 9.0E+100, float),
define_variable(glob_not_yet_finished, true, boolean),
define_variable(years_in_century, 100.0, float),
define_variable(sec_in_min, 60.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 : 2,
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/mtest9_revpostode.ode#################"),
omniout_str(ALWAYS, "diff(y2,x,1) = y1 - 2.0;"),
omniout_str(ALWAYS, "diff(y1,x,1) = diff(y2,x,5);"), omniout_str(ALWAYS, "!"),
omniout_str(ALWAYS, "/* BEGIN FIRST INPUT BLOCK */"),
omniout_str(ALWAYS, "Digits : 32,"), omniout_str(ALWAYS, "max_terms : 30,"),
omniout_str(ALWAYS, "!"), omniout_str(ALWAYS, "/* END FIRST INPUT BLOCK */"),
omniout_str(ALWAYS, "/* BEGIN SECOND INPUT BLOCK */"),
omniout_str(ALWAYS, "x_start : 0.5,"), omniout_str(ALWAYS, "x_end : 10.0,"),
omniout_str(ALWAYS, "array_y1_init[0 + 1] : exact_soln_y1(x_start),"),
omniout_str(ALWAYS, "array_y2_init[0 + 1] : exact_soln_y2(x_start),"),
omniout_str(ALWAYS, "array_y2_init[1 + 1] : exact_soln_y2p(x_start),"),
omniout_str(ALWAYS, "array_y2_init[2 + 1] : exact_soln_y2pp(x_start),"),
omniout_str(ALWAYS, "array_y2_init[3 + 1] : exact_soln_y2ppp(x_start),"),
omniout_str(ALWAYS, "array_y2_init[4 + 1] : exact_soln_y2pppp(x_start),"),
omniout_str(ALWAYS, "glob_h : 0.00001 ,"),
omniout_str(ALWAYS, "glob_look_poles : true,"),
omniout_str(ALWAYS, "glob_max_iter : 10,"),
omniout_str(ALWAYS, "glob_subiter_method : 3,"),
omniout_str(ALWAYS, "/* END SECOND INPUT BLOCK */"),
omniout_str(ALWAYS, "/* BEGIN OVERRIDE BLOCK */"),
omniout_str(ALWAYS, "glob_h : 0.001 ,"),
omniout_str(ALWAYS, "glob_look_poles : true,"),
omniout_str(ALWAYS, "glob_max_iter : 1000,"),
omniout_str(ALWAYS, "glob_max_minutes : 15,"),
omniout_str(ALWAYS, "/* END OVERRIDE BLOCK */"), omniout_str(ALWAYS, "!"),
omniout_str(ALWAYS, "/* BEGIN USER DEF BLOCK */"),
omniout_str(ALWAYS, "exact_soln_y1 (x) := ("),
omniout_str(ALWAYS, "2.0 + sin(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2 (x) := ("),
omniout_str(ALWAYS, "2.0 - cos(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2p (x) := ("),
omniout_str(ALWAYS, "sin(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2pp (x) := ("),
omniout_str(ALWAYS, "cos(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2ppp (x) := ("),
omniout_str(ALWAYS, "-sin(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2pppp (x) := ("),
omniout_str(ALWAYS, "-cos(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, ""), omniout_str(ALWAYS, "/* END USER DEF BLOCK */"),
omniout_str(ALWAYS, "#######END OF ECHO OF PROBLEM#################"),
glob_unchanged_h_cnt : 0, glob_warned : false, glob_warned2 : false,
glob_small_float : 1.0E-200, glob_smallish_float : 1.0E-64,
glob_large_float : 1.0E+100, glob_almost_1 : 0.99, glob_log10_abserr : - 8.0,
glob_log10_relerr : - 8.0, glob_hmax : 0.01, Digits : 32, max_terms : 30,
glob_max_terms : max_terms, glob_html_log : true,
array(array_m1, 1 + max_terms), array(array_y1_init, 1 + max_terms),
array(array_pole, 1 + max_terms), array(array_type_pole, 1 + max_terms),
array(array_1st_rel_error, 1 + max_terms), array(array_y2, 1 + max_terms),
array(array_y1, 1 + max_terms), array(array_x, 1 + max_terms),
array(array_last_rel_error, 1 + max_terms),
array(array_y2_init, 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_tmp4, 1 + max_terms),
array(array_norms, 1 + max_terms), array(array_real_pole, 1 + 2, 1 + 3),
array(array_y2_higher_work, 1 + 6, 1 + max_terms),
array(array_poles, 1 + 2, 1 + 3), array(array_y2_higher_work2, 1 + 6,
1 + max_terms), array(array_y1_higher_work, 1 + 2, 1 + max_terms),
array(array_y1_higher, 1 + 2, 1 + max_terms),
array(array_y1_higher_work2, 1 + 2, 1 + max_terms),
array(array_complex_pole, 1 + 2, 1 + 3),
array(array_y2_higher, 1 + 6, 1 + max_terms),
array(array_y1_set_initial, 1 + 3, 1 + max_terms),
array(array_y2_set_initial, 1 + 3, 1 + max_terms), term : 1,
while term <= max_terms do (array_m1 : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_y1_init : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_pole : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_type_pole : 0.0,
term
term : 1 + term), term : 1, while term <=
max_terms do (array_1st_rel_error : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_y2 : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_y1 : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_x : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_last_rel_error : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_y2_init : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp0 : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp1 : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp2 : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp3 : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp4 : 0.0,
term
term : 1 + term), term : 1, while term <=
max_terms do (array_norms : 0.0, term : 1 + term), ord : 1,
term
while ord <= 2 do (term : 1, while term <=
3 do (array_real_pole : 0.0, term : 1 + term), ord : 1 + ord),
ord, term
ord : 1, while ord <= 6 do (term : 1,
while term <= max_terms do (array_y2_higher_work : 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 <= 6 do (term : 1, while term <=
max_terms do (array_y2_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_y1_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_y1_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_y1_higher_work2 : 0.0,
ord, term
term : 1 + term), ord : 1 + ord), ord : 1,
while ord <= 2 do (term : 1, while term <=
3 do (array_complex_pole : 0.0, term : 1 + term), ord : 1 + ord),
ord, term
ord : 1, while ord <= 6 do (term : 1,
while term <= max_terms do (array_y2_higher : 0.0, term : 1 + term),
ord, term
ord : 1 + ord), ord : 1, while ord <= 3 do (term : 1,
while term <= max_terms do (array_y1_set_initial : 0.0,
ord, term
term : 1 + term), ord : 1 + ord), ord : 1,
while ord <= 3 do (term : 1, while term <=
max_terms do (array_y2_set_initial : 0.0, term : 1 + term),
ord, term
ord : 1 + ord), array(array_y1, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_y1 : 0.0, term : 1 + term),
term
array(array_y2, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_y2 : 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_tmp4, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp4 : 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_tmp2, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp2 : 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_tmp0, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp0 : 0.0, term : 1 + term),
term
array(array_const_2D0, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_const_2D0 : 0.0, term : 1 + term),
term
array_const_2D0 : 2.0, 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_5, 1 + 1 + max_terms), term : 1,
1
while term <= 1 + max_terms do (array_const_5 : 0.0, term : 1 + term),
term
array_const_5 : 5, array(array_const_1, 1 + 1 + max_terms), term : 1,
1
while term <= 1 + max_terms do (array_const_1 : 0.0, term : 1 + term),
term
array_const_1 : 1, 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, x_start : 0.5, x_end : 10.0,
1
array_y1_init : exact_soln_y1(x_start),
1 + 0
array_y2_init : exact_soln_y2(x_start),
1 + 0
array_y2_init : exact_soln_y2p(x_start),
1 + 1
array_y2_init : exact_soln_y2pp(x_start),
1 + 2
array_y2_init : exact_soln_y2ppp(x_start),
1 + 3
array_y2_init : exact_soln_y2pppp(x_start), glob_h : 1.0E-5,
1 + 4
glob_look_poles : true, glob_max_iter : 10, glob_subiter_method : 3,
glob_h : 0.001, glob_look_poles : true, glob_max_iter : 1000,
glob_max_minutes : 15, 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),
glob_log10_abserr glob_log10_relerr
glob_abserr : 10.0 , glob_relerr : 10.0 ,
chk_data(), array_y2_set_initial : true, array_y2_set_initial : true,
1, 1 1, 2
array_y2_set_initial : true, array_y2_set_initial : true,
1, 3 1, 4
array_y2_set_initial : true, array_y2_set_initial : false,
1, 5 1, 6
array_y2_set_initial : false, array_y2_set_initial : false,
1, 7 1, 8
array_y2_set_initial : false, array_y2_set_initial : false,
1, 9 1, 10
array_y2_set_initial : false, array_y2_set_initial : false,
1, 11 1, 12
array_y2_set_initial : false, array_y2_set_initial : false,
1, 13 1, 14
array_y2_set_initial : false, array_y2_set_initial : false,
1, 15 1, 16
array_y2_set_initial : false, array_y2_set_initial : false,
1, 17 1, 18
array_y2_set_initial : false, array_y2_set_initial : false,
1, 19 1, 20
array_y2_set_initial : false, array_y2_set_initial : false,
1, 21 1, 22
array_y2_set_initial : false, array_y2_set_initial : false,
1, 23 1, 24
array_y2_set_initial : false, array_y2_set_initial : false,
1, 25 1, 26
array_y2_set_initial : false, array_y2_set_initial : false,
1, 27 1, 28
array_y2_set_initial : false, array_y2_set_initial : false,
1, 29 1, 30
array_y1_set_initial : true, array_y1_set_initial : false,
2, 1 2, 2
array_y1_set_initial : false, array_y1_set_initial : false,
2, 3 2, 4
array_y1_set_initial : false, array_y1_set_initial : false,
2, 5 2, 6
array_y1_set_initial : false, array_y1_set_initial : false,
2, 7 2, 8
array_y1_set_initial : false, array_y1_set_initial : false,
2, 9 2, 10
array_y1_set_initial : false, array_y1_set_initial : false,
2, 11 2, 12
array_y1_set_initial : false, array_y1_set_initial : false,
2, 13 2, 14
array_y1_set_initial : false, array_y1_set_initial : false,
2, 15 2, 16
array_y1_set_initial : false, array_y1_set_initial : false,
2, 17 2, 18
array_y1_set_initial : false, array_y1_set_initial : false,
2, 19 2, 20
array_y1_set_initial : false, array_y1_set_initial : false,
2, 21 2, 22
array_y1_set_initial : false, array_y1_set_initial : false,
2, 23 2, 24
array_y1_set_initial : false, array_y1_set_initial : false,
2, 25 2, 26
array_y1_set_initial : false, array_y1_set_initial : false,
2, 27 2, 28
array_y1_set_initial : false, array_y1_set_initial : false,
2, 29 2, 30
if glob_html_log then html_log_file : openw("html/entry.html"),
omniout_str(ALWAYS, "START of Soultion"), array_x : x_start,
1
array_x : glob_h, order_diff : 5, term_no : 1,
2
while term_no <= order_diff do (array_y2 :
term_no
term_no - 1
array_y2_init glob_h
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,
term_no - 1
array_y2_init glob_h
it
array_y2_higher : ---------------------------------,
r_order, term_no factorial_1(term_no - 1)
term_no : 1 + term_no), r_order : 1 + r_order), order_diff : 1, term_no : 1,
while term_no <= order_diff do (array_y1 :
term_no
term_no - 1
array_y1_init glob_h
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,
term_no - 1
array_y1_init glob_h
it
array_y1_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(), start_array_y2(),
if !array_y2_higher ! > glob_small_float
! 1, 1!
then (tmp : !array_y2_higher !, log10norm : log10(tmp),
! 1, 1!
if log10norm < glob_log10normmin then glob_log10normmin : log10norm),
display_alot(current_iter), start_array_y1(),
if !array_y1_higher ! > glob_small_float
! 1, 1!
then (tmp : !array_y1_higher !, log10norm : log10(tmp),
! 1, 1!
if log10norm < glob_log10normmin then glob_log10normmin : log10norm),
display_alot(current_iter), 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 (array_x <= x_end) and (convfloat(glob_clock_sec) - convfloat(glob_orig_start_sec) <
1
convfloat(glob_max_sec)) do (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,
if glob_subiter_method = 1 then atomall() elseif glob_subiter_method = 2
then (subiter : 1, while subiter <= 2 do (atomall(), subiter : 1 + subiter))
else (subiter : 1, while subiter <= glob_max_terms + 2 do (atomall(),
subiter : 1 + subiter)), if glob_look_poles then check_for_pole(),
array_x : glob_h + array_x , array_x : glob_h, order_diff : 5, ord : 6,
1 1 2
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
6, iii
array_y2_higher
6, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 6, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 5,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
5, iii
array_y2_higher
5, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 5, calc_term : 2, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 5,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
5, iii
array_y2_higher
5, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 5, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 4,
ord, calc_term convfp(calc_term - 1)!
calc_term : 3, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
4, iii
array_y2_higher
4, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 4, calc_term : 3, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 4,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
4, iii
array_y2_higher
4, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 4, calc_term : 2, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 4,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
4, iii
array_y2_higher
4, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 4, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 3,
ord, calc_term convfp(calc_term - 1)!
calc_term : 4, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
3, iii
array_y2_higher
3, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 3, calc_term : 4, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 3,
ord, calc_term convfp(calc_term - 1)!
calc_term : 3, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
3, iii
array_y2_higher
3, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 3, calc_term : 3, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 3,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
3, iii
array_y2_higher
3, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 3, calc_term : 2, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 3,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
3, iii
array_y2_higher
3, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 3, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 5, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 2, calc_term : 5, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 4, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 2, calc_term : 4, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 3, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 2, calc_term : 3, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 2, calc_term : 2, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 6, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 1, calc_term : 6, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 5, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 1, calc_term : 5, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 4, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 1, calc_term : 4, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 3, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 1, calc_term : 3, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------,
ord, calc_term convfp(calc_term - 1)!
term_no : glob_max_terms, while term_no >=
1 do (array_y2 : array_y2_higher_work2 , ord : 1,
term_no 1, term_no
while ord <= order_diff do (array_y2_higher :
ord, term_no
array_y2_higher_work2 , ord : 1 + ord), term_no : term_no - 1),
ord, term_no
order_diff : 1, ord : 2, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (array_y1_higher_work :
2, iii
array_y1_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y1_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y1_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y1_higher_work :
1, iii
array_y1_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y1_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y1_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y1_higher_work :
1, iii
array_y1_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y1_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y1_higher_work2 : ----------------------------,
ord, calc_term convfp(calc_term - 1)!
term_no : glob_max_terms, while term_no >=
1 do (array_y1 : array_y1_higher_work2 , ord : 1,
term_no 1, term_no
while ord <= order_diff do (array_y1_higher :
ord, term_no
array_y1_higher_work2 , ord : 1 + ord), term_no : term_no - 1),
ord, term_no
display_alot(current_iter)), 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(y2,x,1) = y1 - 2.0;"),
omniout_str(INFO, "diff(y1,x,1) = diff(y2,x,5);"),
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,
"2012-06-15T23:44:46-05:00"), logitem_str(html_log_file, "Maxima"),
logitem_str(html_log_file, "mtest9_rev"),
logitem_str(html_log_file, "diff(y2,x,1) = y1 - 2.0;"),
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_integer(html_log_file,
glob_max_terms), logitem_float(html_log_file, array_1st_rel_error ),
1
logitem_float(html_log_file, array_last_rel_error ),
1
logitem_integer(html_log_file, glob_iter),
logitem_pole(html_log_file, array_type_pole ),
1
if (array_type_pole = 1) or (array_type_pole = 2)
1 1
then (logitem_float(html_log_file, array_pole ),
1
logitem_float(html_log_file, array_pole ), 0)
2
else (logitem_str(html_log_file, "NA"), logitem_str(html_log_file, "NA"), 0),
logitem_time(html_log_file, convfloat(glob_clock_sec)),
if glob_percent_done < 100.0 then (logitem_time(html_log_file,
convfloat(glob_optimal_expect_sec)), 0)
else (logitem_str(html_log_file, "Done"), 0),
log_revs(html_log_file, " 090 | "), logitem_str(html_log_file, "mtest9_rev diffeq.max"),
logitem_str(html_log_file,
"mtest9_rev maxima results"),
logitem_str(html_log_file,
"Test of revised logic - mostly affecting systems of eqs"),
logend(html_log_file), logditto(html_log_file), logditto(html_log_file),
logditto(html_log_file), logitem_str(html_log_file,
"diff(y1,x,1) = diff(y2,x,5);"), logditto(html_log_file),
logditto(html_log_file), logditto(html_log_file), logditto(html_log_file),
logditto(html_log_file), logditto(html_log_file),
logitem_float(html_log_file, array_1st_rel_error ),
2
logitem_float(html_log_file, array_last_rel_error ), logditto(html_log_file),
2
logitem_pole(html_log_file, array_type_pole ),
2
if (array_type_pole = 1) or (array_type_pole = 2)
2 2
then (logitem_float(html_log_file, array_pole ),
1
logitem_float(html_log_file, array_pole ), 0)
2
else (logitem_str(html_log_file, "NA"), logitem_str(html_log_file, "NA"), 0),
logditto(html_log_file), if glob_percent_done < 100.0
then (logditto(html_log_file), 0) else (logditto(html_log_file), 0),
logditto(html_log_file), logditto(html_log_file), logditto(html_log_file),
logditto(html_log_file), logend(html_log_file)),
if glob_html_log then close(html_log_file))
(%o55) mainprog() := (define_variable(DEBUGL, 3, fixnum),
define_variable(ALWAYS, 1, fixnum), define_variable(DEBUGMASSIVE, 4, fixnum),
define_variable(INFO, 2, fixnum), define_variable(glob_max_terms, 30, fixnum),
define_variable(glob_iolevel, 5, fixnum), define_variable(glob_h, 0.1, float),
define_variable(glob_disp_incr, 0.1, float),
define_variable(glob_not_yet_start_msg, true, boolean),
define_variable(glob_clock_start_sec, 0.0, float),
define_variable(glob_clock_sec, 0.0, float),
define_variable(glob_max_minutes, 0.0, float),
define_variable(glob_iter, 0, fixnum),
define_variable(glob_max_iter, 1000, fixnum),
define_variable(glob_log10_abserr, 1.0E-11, float),
define_variable(glob_max_opt_iter, 10, fixnum),
define_variable(glob_log10normmin, 0.1, float),
define_variable(MAX_UNCHANGED, 10, fixnum),
define_variable(glob_warned2, false, boolean),
define_variable(glob_optimal_clock_start_sec, 0.0, float),
define_variable(glob_max_rel_trunc_err, 1.0E-11, float),
define_variable(glob_hmin_init, 0.001, float),
define_variable(days_in_year, 365.0, float),
define_variable(djd_debug2, true, boolean),
define_variable(glob_subiter_method, 3, fixnum),
define_variable(glob_percent_done, 0.0, float),
define_variable(glob_warned, false, boolean),
define_variable(glob_hmin, 1.0E-11, float),
define_variable(glob_almost_1, 0.999, float),
define_variable(hours_in_day, 24.0, float),
define_variable(glob_html_log, true, boolean),
define_variable(glob_unchanged_h_cnt, 0, fixnum),
define_variable(glob_optimal_expect_sec, 0.1, float),
define_variable(glob_look_poles, false, boolean),
define_variable(glob_current_iter, 0, fixnum),
define_variable(glob_max_sec, 10000.0, float),
define_variable(glob_smallish_float, 1.0E-101, float),
define_variable(glob_no_eqs, 0, fixnum),
define_variable(glob_abserr, 1.0E-11, float),
define_variable(glob_hmax, 1.0, float),
define_variable(glob_optimal_done, false, boolean),
define_variable(glob_initial_pass, true, boolean),
define_variable(centuries_in_millinium, 10.0, float),
define_variable(glob_max_hours, 0.0, float),
define_variable(glob_reached_optimal_h, false, boolean),
define_variable(glob_display_flag, true, boolean),
define_variable(glob_dump, false, boolean),
define_variable(glob_log10abserr, 0.0, float),
define_variable(glob_normmax, 0.0, float),
define_variable(glob_curr_iter_when_opt, 0, fixnum),
define_variable(glob_start, 0, fixnum),
define_variable(glob_log10relerr, 0.0, float),
define_variable(glob_orig_start_sec, 0.0, float),
define_variable(glob_optimal_start, 0.0, float),
define_variable(glob_relerr, 1.0E-11, float),
define_variable(glob_log10_relerr, 1.0E-11, float),
define_variable(glob_last_good_h, 0.1, float),
define_variable(min_in_hour, 60.0, float),
define_variable(djd_debug, true, boolean),
define_variable(glob_small_float, 1.0E-51, float),
define_variable(glob_max_trunc_err, 1.0E-11, float),
define_variable(glob_dump_analytic, false, boolean),
define_variable(glob_large_float, 9.0E+100, float),
define_variable(glob_not_yet_finished, true, boolean),
define_variable(years_in_century, 100.0, float),
define_variable(sec_in_min, 60.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 : 2,
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/mtest9_revpostode.ode#################"),
omniout_str(ALWAYS, "diff(y2,x,1) = y1 - 2.0;"),
omniout_str(ALWAYS, "diff(y1,x,1) = diff(y2,x,5);"), omniout_str(ALWAYS, "!"),
omniout_str(ALWAYS, "/* BEGIN FIRST INPUT BLOCK */"),
omniout_str(ALWAYS, "Digits : 32,"), omniout_str(ALWAYS, "max_terms : 30,"),
omniout_str(ALWAYS, "!"), omniout_str(ALWAYS, "/* END FIRST INPUT BLOCK */"),
omniout_str(ALWAYS, "/* BEGIN SECOND INPUT BLOCK */"),
omniout_str(ALWAYS, "x_start : 0.5,"), omniout_str(ALWAYS, "x_end : 10.0,"),
omniout_str(ALWAYS, "array_y1_init[0 + 1] : exact_soln_y1(x_start),"),
omniout_str(ALWAYS, "array_y2_init[0 + 1] : exact_soln_y2(x_start),"),
omniout_str(ALWAYS, "array_y2_init[1 + 1] : exact_soln_y2p(x_start),"),
omniout_str(ALWAYS, "array_y2_init[2 + 1] : exact_soln_y2pp(x_start),"),
omniout_str(ALWAYS, "array_y2_init[3 + 1] : exact_soln_y2ppp(x_start),"),
omniout_str(ALWAYS, "array_y2_init[4 + 1] : exact_soln_y2pppp(x_start),"),
omniout_str(ALWAYS, "glob_h : 0.00001 ,"),
omniout_str(ALWAYS, "glob_look_poles : true,"),
omniout_str(ALWAYS, "glob_max_iter : 10,"),
omniout_str(ALWAYS, "glob_subiter_method : 3,"),
omniout_str(ALWAYS, "/* END SECOND INPUT BLOCK */"),
omniout_str(ALWAYS, "/* BEGIN OVERRIDE BLOCK */"),
omniout_str(ALWAYS, "glob_h : 0.001 ,"),
omniout_str(ALWAYS, "glob_look_poles : true,"),
omniout_str(ALWAYS, "glob_max_iter : 1000,"),
omniout_str(ALWAYS, "glob_max_minutes : 15,"),
omniout_str(ALWAYS, "/* END OVERRIDE BLOCK */"), omniout_str(ALWAYS, "!"),
omniout_str(ALWAYS, "/* BEGIN USER DEF BLOCK */"),
omniout_str(ALWAYS, "exact_soln_y1 (x) := ("),
omniout_str(ALWAYS, "2.0 + sin(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2 (x) := ("),
omniout_str(ALWAYS, "2.0 - cos(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2p (x) := ("),
omniout_str(ALWAYS, "sin(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2pp (x) := ("),
omniout_str(ALWAYS, "cos(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2ppp (x) := ("),
omniout_str(ALWAYS, "-sin(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, "exact_soln_y2pppp (x) := ("),
omniout_str(ALWAYS, "-cos(x) "), omniout_str(ALWAYS, ");"),
omniout_str(ALWAYS, ""), omniout_str(ALWAYS, "/* END USER DEF BLOCK */"),
omniout_str(ALWAYS, "#######END OF ECHO OF PROBLEM#################"),
glob_unchanged_h_cnt : 0, glob_warned : false, glob_warned2 : false,
glob_small_float : 1.0E-200, glob_smallish_float : 1.0E-64,
glob_large_float : 1.0E+100, glob_almost_1 : 0.99, glob_log10_abserr : - 8.0,
glob_log10_relerr : - 8.0, glob_hmax : 0.01, Digits : 32, max_terms : 30,
glob_max_terms : max_terms, glob_html_log : true,
array(array_m1, 1 + max_terms), array(array_y1_init, 1 + max_terms),
array(array_pole, 1 + max_terms), array(array_type_pole, 1 + max_terms),
array(array_1st_rel_error, 1 + max_terms), array(array_y2, 1 + max_terms),
array(array_y1, 1 + max_terms), array(array_x, 1 + max_terms),
array(array_last_rel_error, 1 + max_terms),
array(array_y2_init, 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_tmp4, 1 + max_terms),
array(array_norms, 1 + max_terms), array(array_real_pole, 1 + 2, 1 + 3),
array(array_y2_higher_work, 1 + 6, 1 + max_terms),
array(array_poles, 1 + 2, 1 + 3), array(array_y2_higher_work2, 1 + 6,
1 + max_terms), array(array_y1_higher_work, 1 + 2, 1 + max_terms),
array(array_y1_higher, 1 + 2, 1 + max_terms),
array(array_y1_higher_work2, 1 + 2, 1 + max_terms),
array(array_complex_pole, 1 + 2, 1 + 3),
array(array_y2_higher, 1 + 6, 1 + max_terms),
array(array_y1_set_initial, 1 + 3, 1 + max_terms),
array(array_y2_set_initial, 1 + 3, 1 + max_terms), term : 1,
while term <= max_terms do (array_m1 : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_y1_init : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_pole : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_type_pole : 0.0,
term
term : 1 + term), term : 1, while term <=
max_terms do (array_1st_rel_error : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_y2 : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_y1 : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_x : 0.0, term : 1 + term), term : 1,
term
while term <= max_terms do (array_last_rel_error : 0.0, term : 1 + term),
term
term : 1, while term <= max_terms do (array_y2_init : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp0 : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp1 : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp2 : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp3 : 0.0,
term
term : 1 + term), term : 1, while term <= max_terms do (array_tmp4 : 0.0,
term
term : 1 + term), term : 1, while term <=
max_terms do (array_norms : 0.0, term : 1 + term), ord : 1,
term
while ord <= 2 do (term : 1, while term <=
3 do (array_real_pole : 0.0, term : 1 + term), ord : 1 + ord),
ord, term
ord : 1, while ord <= 6 do (term : 1,
while term <= max_terms do (array_y2_higher_work : 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 <= 6 do (term : 1, while term <=
max_terms do (array_y2_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_y1_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_y1_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_y1_higher_work2 : 0.0,
ord, term
term : 1 + term), ord : 1 + ord), ord : 1,
while ord <= 2 do (term : 1, while term <=
3 do (array_complex_pole : 0.0, term : 1 + term), ord : 1 + ord),
ord, term
ord : 1, while ord <= 6 do (term : 1,
while term <= max_terms do (array_y2_higher : 0.0, term : 1 + term),
ord, term
ord : 1 + ord), ord : 1, while ord <= 3 do (term : 1,
while term <= max_terms do (array_y1_set_initial : 0.0,
ord, term
term : 1 + term), ord : 1 + ord), ord : 1,
while ord <= 3 do (term : 1, while term <=
max_terms do (array_y2_set_initial : 0.0, term : 1 + term),
ord, term
ord : 1 + ord), array(array_y1, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_y1 : 0.0, term : 1 + term),
term
array(array_y2, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_y2 : 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_tmp4, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp4 : 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_tmp2, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp2 : 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_tmp0, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_tmp0 : 0.0, term : 1 + term),
term
array(array_const_2D0, 1 + 1 + max_terms), term : 1,
while term <= 1 + max_terms do (array_const_2D0 : 0.0, term : 1 + term),
term
array_const_2D0 : 2.0, 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_5, 1 + 1 + max_terms), term : 1,
1
while term <= 1 + max_terms do (array_const_5 : 0.0, term : 1 + term),
term
array_const_5 : 5, array(array_const_1, 1 + 1 + max_terms), term : 1,
1
while term <= 1 + max_terms do (array_const_1 : 0.0, term : 1 + term),
term
array_const_1 : 1, 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, x_start : 0.5, x_end : 10.0,
1
array_y1_init : exact_soln_y1(x_start),
1 + 0
array_y2_init : exact_soln_y2(x_start),
1 + 0
array_y2_init : exact_soln_y2p(x_start),
1 + 1
array_y2_init : exact_soln_y2pp(x_start),
1 + 2
array_y2_init : exact_soln_y2ppp(x_start),
1 + 3
array_y2_init : exact_soln_y2pppp(x_start), glob_h : 1.0E-5,
1 + 4
glob_look_poles : true, glob_max_iter : 10, glob_subiter_method : 3,
glob_h : 0.001, glob_look_poles : true, glob_max_iter : 1000,
glob_max_minutes : 15, 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),
glob_log10_abserr glob_log10_relerr
glob_abserr : 10.0 , glob_relerr : 10.0 ,
chk_data(), array_y2_set_initial : true, array_y2_set_initial : true,
1, 1 1, 2
array_y2_set_initial : true, array_y2_set_initial : true,
1, 3 1, 4
array_y2_set_initial : true, array_y2_set_initial : false,
1, 5 1, 6
array_y2_set_initial : false, array_y2_set_initial : false,
1, 7 1, 8
array_y2_set_initial : false, array_y2_set_initial : false,
1, 9 1, 10
array_y2_set_initial : false, array_y2_set_initial : false,
1, 11 1, 12
array_y2_set_initial : false, array_y2_set_initial : false,
1, 13 1, 14
array_y2_set_initial : false, array_y2_set_initial : false,
1, 15 1, 16
array_y2_set_initial : false, array_y2_set_initial : false,
1, 17 1, 18
array_y2_set_initial : false, array_y2_set_initial : false,
1, 19 1, 20
array_y2_set_initial : false, array_y2_set_initial : false,
1, 21 1, 22
array_y2_set_initial : false, array_y2_set_initial : false,
1, 23 1, 24
array_y2_set_initial : false, array_y2_set_initial : false,
1, 25 1, 26
array_y2_set_initial : false, array_y2_set_initial : false,
1, 27 1, 28
array_y2_set_initial : false, array_y2_set_initial : false,
1, 29 1, 30
array_y1_set_initial : true, array_y1_set_initial : false,
2, 1 2, 2
array_y1_set_initial : false, array_y1_set_initial : false,
2, 3 2, 4
array_y1_set_initial : false, array_y1_set_initial : false,
2, 5 2, 6
array_y1_set_initial : false, array_y1_set_initial : false,
2, 7 2, 8
array_y1_set_initial : false, array_y1_set_initial : false,
2, 9 2, 10
array_y1_set_initial : false, array_y1_set_initial : false,
2, 11 2, 12
array_y1_set_initial : false, array_y1_set_initial : false,
2, 13 2, 14
array_y1_set_initial : false, array_y1_set_initial : false,
2, 15 2, 16
array_y1_set_initial : false, array_y1_set_initial : false,
2, 17 2, 18
array_y1_set_initial : false, array_y1_set_initial : false,
2, 19 2, 20
array_y1_set_initial : false, array_y1_set_initial : false,
2, 21 2, 22
array_y1_set_initial : false, array_y1_set_initial : false,
2, 23 2, 24
array_y1_set_initial : false, array_y1_set_initial : false,
2, 25 2, 26
array_y1_set_initial : false, array_y1_set_initial : false,
2, 27 2, 28
array_y1_set_initial : false, array_y1_set_initial : false,
2, 29 2, 30
if glob_html_log then html_log_file : openw("html/entry.html"),
omniout_str(ALWAYS, "START of Soultion"), array_x : x_start,
1
array_x : glob_h, order_diff : 5, term_no : 1,
2
while term_no <= order_diff do (array_y2 :
term_no
term_no - 1
array_y2_init glob_h
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,
term_no - 1
array_y2_init glob_h
it
array_y2_higher : ---------------------------------,
r_order, term_no factorial_1(term_no - 1)
term_no : 1 + term_no), r_order : 1 + r_order), order_diff : 1, term_no : 1,
while term_no <= order_diff do (array_y1 :
term_no
term_no - 1
array_y1_init glob_h
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,
term_no - 1
array_y1_init glob_h
it
array_y1_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(), start_array_y2(),
if !array_y2_higher ! > glob_small_float
! 1, 1!
then (tmp : !array_y2_higher !, log10norm : log10(tmp),
! 1, 1!
if log10norm < glob_log10normmin then glob_log10normmin : log10norm),
display_alot(current_iter), start_array_y1(),
if !array_y1_higher ! > glob_small_float
! 1, 1!
then (tmp : !array_y1_higher !, log10norm : log10(tmp),
! 1, 1!
if log10norm < glob_log10normmin then glob_log10normmin : log10norm),
display_alot(current_iter), 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 (array_x <= x_end) and (convfloat(glob_clock_sec) - convfloat(glob_orig_start_sec) <
1
convfloat(glob_max_sec)) do (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,
if glob_subiter_method = 1 then atomall() elseif glob_subiter_method = 2
then (subiter : 1, while subiter <= 2 do (atomall(), subiter : 1 + subiter))
else (subiter : 1, while subiter <= glob_max_terms + 2 do (atomall(),
subiter : 1 + subiter)), if glob_look_poles then check_for_pole(),
array_x : glob_h + array_x , array_x : glob_h, order_diff : 5, ord : 6,
1 1 2
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
6, iii
array_y2_higher
6, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 6, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 5,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
5, iii
array_y2_higher
5, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 5, calc_term : 2, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 5,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
5, iii
array_y2_higher
5, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 5, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 4,
ord, calc_term convfp(calc_term - 1)!
calc_term : 3, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
4, iii
array_y2_higher
4, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 4, calc_term : 3, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 4,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
4, iii
array_y2_higher
4, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 4, calc_term : 2, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 4,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
4, iii
array_y2_higher
4, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 4, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 3,
ord, calc_term convfp(calc_term - 1)!
calc_term : 4, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
3, iii
array_y2_higher
3, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 3, calc_term : 4, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 3,
ord, calc_term convfp(calc_term - 1)!
calc_term : 3, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
3, iii
array_y2_higher
3, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 3, calc_term : 3, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 3,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
3, iii
array_y2_higher
3, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 3, calc_term : 2, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 3,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
3, iii
array_y2_higher
3, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 3, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 5, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 2, calc_term : 5, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 4, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 2, calc_term : 4, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 3, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 2, calc_term : 3, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 2, calc_term : 2, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 2,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
2, iii
array_y2_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 6, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 1, calc_term : 6, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 5, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 1, calc_term : 5, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 4, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 1, calc_term : 4, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 3, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, iii : iii - 1), temp_sum : 0.0,
factorial_3(iii - calc_term, iii - 1)
ord : 1, calc_term : 3, iii : glob_max_terms,
while iii >= calc_term do (temp_sum :
array_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y2_higher_work :
1, iii
array_y2_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y2_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y2_higher_work2 : ----------------------------,
ord, calc_term convfp(calc_term - 1)!
term_no : glob_max_terms, while term_no >=
1 do (array_y2 : array_y2_higher_work2 , ord : 1,
term_no 1, term_no
while ord <= order_diff do (array_y2_higher :
ord, term_no
array_y2_higher_work2 , ord : 1 + ord), term_no : term_no - 1),
ord, term_no
order_diff : 1, ord : 2, calc_term : 1, iii : glob_max_terms,
while iii >= calc_term do (array_y1_higher_work :
2, iii
array_y1_higher
2, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y1_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y1_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 2, iii : glob_max_terms, while iii >=
calc_term do (array_y1_higher_work :
1, iii
array_y1_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y1_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y1_higher_work2 : ----------------------------, ord : 1,
ord, calc_term convfp(calc_term - 1)!
calc_term : 1, iii : glob_max_terms, while iii >=
calc_term do (array_y1_higher_work :
1, iii
array_y1_higher
1, iii
---------------------
calc_term - 1
glob_h
-------------------------------------, 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_y1_higher_work + temp_sum, iii : iii - 1),
ord, iii
calc_term - 1
temp_sum glob_h
array_y1_higher_work2 : ----------------------------,
ord, calc_term convfp(calc_term - 1)!
term_no : glob_max_terms, while term_no >=
1 do (array_y1 : array_y1_higher_work2 , ord : 1,
term_no 1, term_no
while ord <= order_diff do (array_y1_higher :
ord, term_no
array_y1_higher_work2 , ord : 1 + ord), term_no : term_no - 1),
ord, term_no
display_alot(current_iter)), 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(y2,x,1) = y1 - 2.0;"),
omniout_str(INFO, "diff(y1,x,1) = diff(y2,x,5);"),
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,
"2012-06-15T23:44:46-05:00"), logitem_str(html_log_file, "Maxima"),
logitem_str(html_log_file, "mtest9_rev"),
logitem_str(html_log_file, "diff(y2,x,1) = y1 - 2.0;"),
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_integer(html_log_file,
glob_max_terms), logitem_float(html_log_file, array_1st_rel_error ),
1
logitem_float(html_log_file, array_last_rel_error ),
1
logitem_integer(html_log_file, glob_iter),
logitem_pole(html_log_file, array_type_pole ),
1
if (array_type_pole = 1) or (array_type_pole = 2)
1 1
then (logitem_float(html_log_file, array_pole ),
1
logitem_float(html_log_file, array_pole ), 0)
2
else (logitem_str(html_log_file, "NA"), logitem_str(html_log_file, "NA"), 0),
logitem_time(html_log_file, convfloat(glob_clock_sec)),
if glob_percent_done < 100.0 then (logitem_time(html_log_file,
convfloat(glob_optimal_expect_sec)), 0)
else (logitem_str(html_log_file, "Done"), 0),
log_revs(html_log_file, " 090 | "), logitem_str(html_log_file, "mtest9_rev diffeq.max"),
logitem_str(html_log_file,
"mtest9_rev maxima results"),
logitem_str(html_log_file,
"Test of revised logic - mostly affecting systems of eqs"),
logend(html_log_file), logditto(html_log_file), logditto(html_log_file),
logditto(html_log_file), logitem_str(html_log_file,
"diff(y1,x,1) = diff(y2,x,5);"), logditto(html_log_file),
logditto(html_log_file), logditto(html_log_file), logditto(html_log_file),
logditto(html_log_file), logditto(html_log_file),
logitem_float(html_log_file, array_1st_rel_error ),
2
logitem_float(html_log_file, array_last_rel_error ), logditto(html_log_file),
2
logitem_pole(html_log_file, array_type_pole ),
2
if (array_type_pole = 1) or (array_type_pole = 2)
2 2
then (logitem_float(html_log_file, array_pole ),
1
logitem_float(html_log_file, array_pole ), 0)
2
else (logitem_str(html_log_file, "NA"), logitem_str(html_log_file, "NA"), 0),
logditto(html_log_file), if glob_percent_done < 100.0
then (logditto(html_log_file), 0) else (logditto(html_log_file), 0),
logditto(html_log_file), logditto(html_log_file), logditto(html_log_file),
logditto(html_log_file), logend(html_log_file)),
if glob_html_log then close(html_log_file))
(%i56) mainprog()
"##############ECHO OF PROBLEM#################"
"##############temp/mtest9_revpostode.ode#################"
"diff(y2,x,1) = y1 - 2.0;"
"diff(y1,x,1) = diff(y2,x,5);"
"!"
"/* BEGIN FIRST INPUT BLOCK */"
"Digits : 32,"
"max_terms : 30,"
"!"
"/* END FIRST INPUT BLOCK */"
"/* BEGIN SECOND INPUT BLOCK */"
"x_start : 0.5,"
"x_end : 10.0,"
"array_y1_init[0 + 1] : exact_soln_y1(x_start),"
"array_y2_init[0 + 1] : exact_soln_y2(x_start),"
"array_y2_init[1 + 1] : exact_soln_y2p(x_start),"
"array_y2_init[2 + 1] : exact_soln_y2pp(x_start),"
"array_y2_init[3 + 1] : exact_soln_y2ppp(x_start),"
"array_y2_init[4 + 1] : exact_soln_y2pppp(x_start),"
"glob_h : 0.00001 ,"
"glob_look_poles : true,"
"glob_max_iter : 10,"
"glob_subiter_method : 3,"
"/* END SECOND INPUT BLOCK */"
"/* BEGIN OVERRIDE BLOCK */"
"glob_h : 0.001 ,"
"glob_look_poles : true,"
"glob_max_iter : 1000,"
"glob_max_minutes : 15,"
"/* END OVERRIDE BLOCK */"
"!"
"/* BEGIN USER DEF BLOCK */"
"exact_soln_y1 (x) := ("
"2.0 + sin(x) "
");"
"exact_soln_y2 (x) := ("
"2.0 - cos(x) "
");"
"exact_soln_y2p (x) := ("
"sin(x) "
");"
"exact_soln_y2pp (x) := ("
"cos(x) "
");"
"exact_soln_y2ppp (x) := ("
"-sin(x) "
");"
"exact_soln_y2pppp (x) := ("
"-cos(x) "
");"
""
"/* END USER DEF BLOCK */"
"#######END OF ECHO OF PROBLEM#################"
"START of Soultion"
x[1] = 0.5 " "
y2[1] (analytic) = 1.1224174381096272 " "
y2[1] (numeric) = 1.1224174381096272 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.479425538604203 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
h = 1.000E-3 " "
x[1] = 0.5 " "
y2[1] (analytic) = 1.1224174381096272 " "
y2[1] (numeric) = 1.1224174381096272 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.479425538604203 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.501 " "
y2[1] (analytic) = 1.1228973023595716 " "
y2[1] (numeric) = 1.1228973023595716 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.48030288130708 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.7734270287720410000E-4 " "
relative error = 3.537240187435731000E-2 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.502 " "
y2[1] (analytic) = 1.1233780437121403 " "
y2[1] (numeric) = 1.1233780437121403 " "
absolute error = 0.0 " "
relative error = 0.0 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4811797437071164 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.7542051029133532000E-3 " "
relative error = 7.07004443093028700E-2 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.503 " "
y2[1] (analytic) = 1.1238596616865926 " "
y2[1] (numeric) = 1.1238596616865917 " "
absolute error = 8.8817841970012520000000000000000E-16 " "
relative error = 7.90292996518108700000000000000E-14 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.482056124927449 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.630586323245865000E-3 " "
relative error = 0.1059841595371965 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.504 " "
y2[1] (analytic) = 1.12434215580131 " "
y2[1] (numeric) = 1.124342155801306 " "
absolute error = 3.9968028886505635000000000000000E-15 " "
relative error = 3.5547923450420420000000000000E-13 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4829320240916966 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.506485487493549000E-3 " "
relative error = 0.14122357976257074 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.505 " "
y2[1] (analytic) = 1.1248255255737987 " "
y2[1] (numeric) = 1.1248255255737862 " "
absolute error = 1.243449787580175300000000000000E-14 " "
relative error = 1.1054601440928927000000000000E-12 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.48380744032396 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.381901719757053000E-3 " "
relative error = 0.1764187371620695 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.506 " "
y2[1] (analytic) = 1.1253097705206887 " "
y2[1] (numeric) = 1.1253097705206578 " "
absolute error = 3.08642000845793500000000000000E-14 " "
relative error = 2.742729237150253000000000000E-12 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.484682372748824 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.256834144621081000E-3 " "
relative error = 0.21156966388445872 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.507 " "
y2[1] (analytic) = 1.1257948901577355 " "
y2[1] (numeric) = 1.1257948901576684 " "
absolute error = 6.70574706873594600000000000000E-14 " "
relative error = 5.956455414179754000000000000E-12 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4855568204913556 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.131281887152618000E-3 " "
relative error = 0.24667639205047662 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.508 " "
y2[1] (analytic) = 1.1262808839998193 " "
y2[1] (numeric) = 1.1262808839996883 " "
absolute error = 1.31006316905768470000000000000E-13 " "
relative error = 1.163176244637296900000000000E-11 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4864307826771066 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.005244072903594000E-3 " "
relative error = 0.2817389537528626 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.509 " "
y2[1] (analytic) = 1.126767751560946 " "
y2[1] (numeric) = 1.12676775156071 " "
absolute error = 2.3603341503530828000000000000E-13 " "
relative error = 2.09478319474731080000000000E-11 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.487304258432116 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.878719827913105000E-3 " "
relative error = 0.31675738105636875 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.51 " "
y2[1] (analytic) = 1.1272554923542488 " "
y2[1] (numeric) = 1.1272554923538483 " "
absolute error = 4.0056846728475650000000000000E-13 " "
relative error = 3.55348428108500800000000000E-11 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4881772468829073 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.751708278704307000E-3 " "
relative error = 0.35173170599755743 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.511 " "
y2[1] (analytic) = 1.1277441058919861 " "
y2[1] (numeric) = 1.1277441058913409 " "
absolute error = 6.452616219121410000000000000E-13 " "
relative error = 5.72170245484699900000000000E-11 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4890497471564927 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.624208552289737000E-3 " "
relative error = 0.386661960584938 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.512 " "
y2[1] (analytic) = 1.1282335916855453 " "
y2[1] (numeric) = 1.1282335916845476 " "
absolute error = 9.9764640992816570000000000000E-13 " "
relative error = 8.84255190840146500000000000E-11 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4899217583803717 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.049621977616865800E-2 " "
relative error = 0.4215481767987831 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.513 " "
y2[1] (analytic) = 1.1287239492454397 " "
y2[1] (numeric) = 1.1287239492439507 " "
absolute error = 1.48903112062726000000000000E-12 " "
relative error = 1.31921637848004200000000000E-10 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4907932796825327 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.136774107832971800E-2 " "
relative error = 0.45639038659115894 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.514 " "
y2[1] (analytic) = 1.1292151780813124 " "
y2[1] (numeric) = 1.1292151780791548 " "
absolute error = 2.1576074260565292000000000000E-12 " "
relative error = 1.9107141561120290000000000E-10 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4916643101914553 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.223877158725228400E-2 " "
relative error = 0.49118862188590234 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.515 " "
y2[1] (analytic) = 1.1297072777019346 " "
y2[1] (numeric) = 1.129707277698887 " "
absolute error = 3.0475622025960547000000000000E-12 " "
relative error = 2.69765651930245650000000000E-10 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4925348490361086 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.310931043190555200E-2 " "
relative error = 0.5259429145785092 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.516 " "
y2[1] (analytic) = 1.1302002476152064 " "
y2[1] (numeric) = 1.130200247610997 " "
absolute error = 4.2095216201687435000000000000E-12 " "
relative error = 3.7245803379101170000000000E-10 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4934048953459538 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.39793567417507700E-2 " "
relative error = 0.5606532965361476 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.517 " "
y2[1] (analytic) = 1.1306940873281581 " "
y2[1] (numeric) = 1.1306940873224565 " "
absolute error = 5.701661365264954000000000000E-12 " "
relative error = 5.042620660322049000000000E-10 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.494274448250945 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.484890964674212600E-2 " "
relative error = 0.5953197995976183 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.518 " "
y2[1] (analytic) = 1.13118879634695 " "
y2[1] (numeric) = 1.1311887963393599 " "
absolute error = 7.590150730152345000000000000E-12 " "
relative error = 6.7098885302470320000000000E-10 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.495143506881529 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.571796827732585600E-2 " "
relative error = 0.6299424555732439 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.519 " "
y2[1] (analytic) = 1.1316843741768734 " "
y2[1] (numeric) = 1.131684374166924 " "
absolute error = 9.949374657480803000000000000E-12 " "
relative error = 8.7916515280309000000000000E-10 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4960120703686473 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.658653176444424600E-2 " "
relative error = 0.6645212962449539 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.52 " "
y2[1] (analytic) = 1.13218082032235 " "
y2[1] (numeric) = 1.1321808203094879 " "
absolute error = 1.286215578488736400000000000E-11 " "
relative error = 1.1360513757179971000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.496880137843737 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.745459923953385200E-2 " "
relative error = 0.699056353366139 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.521 " "
y2[1] (analytic) = 1.1326781342869343 " "
y2[1] (numeric) = 1.1326781342705132 " "
absolute error = 1.642108671262576500000000000E-11 " "
relative error = 1.4497575450208094000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4977477084387294 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.83221698345263920E-2 " "
relative error = 0.733547658661613 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.522 " "
y2[1] (analytic) = 1.1331763155733117 " "
y2[1] (numeric) = 1.133176315552584 " "
absolute error = 2.072764182514674800000000000E-11 " "
relative error = 1.8291629943447893000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.4986147812860557 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 1.918924268185273600E-2 " "
relative error = 0.7679952438276976 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.523 " "
y2[1] (analytic) = 1.1336753636833015 " "
y2[1] (numeric) = 1.1336753636574068 " "
absolute error = 2.589461978175222600000000000E-11 " "
relative error = 2.2841300615037471000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.499481355518642 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.005581691443891800E-2 " "
relative error = 0.80239914053199 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.524 " "
y2[1] (analytic) = 1.1341752781178553 " "
y2[1] (numeric) = 1.1341752780858105 " "
absolute error = 3.204481124896574300000000000E-11 " "
relative error = 2.8253843887466460000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.500347430269914 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.092189166571101200E-2 " "
relative error = 0.8367593804134844 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.525 " "
y2[1] (analytic) = 1.1346760583770588 " "
y2[1] (numeric) = 1.1346760583377462 " "
absolute error = 3.93125532127669430000000000E-11 " "
relative error = 3.4646499256357070000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.501213004673798 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.17874660695951400E-2 " "
relative error = 0.8710759950824982 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.526 " "
y2[1] (analytic) = 1.1351777039601316 " "
y2[1] (numeric) = 1.1351777039122877 " "
absolute error = 4.784395102319649600000000000E-11 " "
relative error = 4.214666202154091000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5020780778647187 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.26525392605156920E-2 " "
relative error = 0.9053490161205296 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.527 " "
y2[1] (analytic) = 1.1356802143654288 " "
y2[1] (numeric) = 1.135680214307631 " "
absolute error = 5.7797766572775800000000000E-11 " "
relative error = 5.089264199699984000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5029426489776037 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.35171103734006510E-2 " "
relative error = 0.9395784750803966 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.528 " "
y2[1] (analytic) = 1.1361835890904395 " "
y2[1] (numeric) = 1.1361835890210947 " "
absolute error = 6.9344752162692200000000000E-11 " "
relative error = 6.1033052077618420000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5038067171478815 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.438117854367849400E-2 " "
relative error = 0.973764403486041 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.529 " "
y2[1] (analytic) = 1.136687827631789 " "
y2[1] (numeric) = 1.1366878275491197 " "
absolute error = 8.2669426859638410000000000E-11 " "
relative error = 7.272834708881724000000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.504670281511484 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.524474290728085000E-2 " "
relative error = 1.0079068328325635 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.53 " "
y2[1] (analytic) = 1.137192929485239 " "
y2[1] (numeric) = 1.1371929293872693 " "
absolute error = 9.79696324066026100000000000E-11 " "
relative error = 8.61504058514938900000000E-9 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.505533341204847 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.610780260064382600E-2 " "
relative error = 1.0420057945862038 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.531 " "
y2[1] (analytic) = 1.1376988941456876 " "
y2[1] (numeric) = 1.1376988940302295 " "
absolute error = 1.154580875351030000000000E-10 " "
relative error = 1.01483870758090110000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.506395895364911 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.697035676070802500E-2 " "
relative error = 1.0760613201842704 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.532 " "
y2[1] (analytic) = 1.13820572110717 " "
y2[1] (numeric) = 1.1382057209718082 " "
absolute error = 1.35361943875977890000000000E-10 " "
relative error = 1.189257278941691500000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.507257943129122 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.783240452491897400E-2 " "
relative error = 1.1100734410350863 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.533 " "
y2[1] (analytic) = 1.1387134098628597 " "
y2[1] (numeric) = 1.138713409704936 " "
absolute error = 1.5792367413780540000000000E-10 " "
relative error = 1.386860581160846000000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.508119483635432 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.869394503122890700E-2 " "
relative error = 1.14404218851799 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.534 " "
y2[1] (analytic) = 1.139221959905068 " "
y2[1] (numeric) = 1.1392219597216664 " "
absolute error = 1.83401516196113330000000000E-10 " "
relative error = 1.609883961606536400000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5089805160223007 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 2.95549774180976500E-2 " "
relative error = 1.1779675939832988 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.535 " "
y2[1] (analytic) = 1.1397313707252443 " "
y2[1] (numeric) = 1.1397313705131744 " "
absolute error = 2.12069917182589050000000000E-10 " "
relative error = 1.860700886452241500000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5098410394286956 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.041550082449262500E-2 " "
relative error = 1.2118496887522396 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.536 " "
y2[1] (analytic) = 1.1402416418139782 " "
y2[1] (numeric) = 1.140241641569758 " "
absolute error = 2.4422019961889418000000000E-10 " "
relative error = 2.14182845690823200000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.510701052994094 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.12755143898910700E-2 " "
relative error = 1.245688504116967 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.537 " "
y2[1] (analytic) = 1.1407527726609987 " "
y2[1] (numeric) = 1.1407527723808375 " "
absolute error = 2.80161227550479450000000000E-10 " "
relative error = 2.455932909082096700000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5115605558584817 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.2135017254278697E-2 " "
relative error = 1.2794840713404403 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.538 " "
y2[1] (analytic) = 1.141264762755175 " "
y2[1] (numeric) = 1.1412647624349554 " "
absolute error = 3.2021962859118960000000000E-10 " "
relative error = 2.805831206232407600000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5124195471623563 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.299400855815326500E-2 " "
relative error = 1.3132364216564958 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.539 " "
y2[1] (analytic) = 1.141777611584517 " "
y2[1] (numeric) = 1.141777611219777 " "
absolute error = 3.6474001596786820000000000E-10 " "
relative error = 3.19449262507166700000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5132780260467262 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.38524874425232270E-2 " "
relative error = 1.3469455862697242 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.54 " "
y2[1] (analytic) = 1.1422913186361758 " "
y2[1] (numeric) = 1.14229131822209 " "
absolute error = 4.1408587669877760000000000E-10 " "
relative error = 3.62504616767262260000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.514135991653113 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.47104530489099600E-2 " "
relative error = 1.3806115963554897 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.541 " "
y2[1] (analytic) = 1.1428058833964445 " "
y2[1] (numeric) = 1.142805882927804 " "
absolute error = 4.6864045977201840000000000E-10 " "
relative error = 4.10078795166164630000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.514993443123551 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.556790451934821500E-2 " "
relative error = 1.4142344830598794 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.542 " "
y2[1] (analytic) = 1.1433213053507585 " "
y2[1] (numeric) = 1.1433213048219517 " "
absolute error = 5.2880677614552950000000000E-10 " "
relative error = 4.625180810247364600000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5158503796005887 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.642484099638565500E-2 " "
relative error = 1.4478142774996179 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.543 " "
y2[1] (analytic) = 1.1438375839836956 " "
y2[1] (numeric) = 1.1438375833886876 " "
absolute error = 5.950080428362980000000000E-10 " "
relative error = 5.201857773933570000000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.51670680022729 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.72812616230868700E-2 " "
relative error = 1.481351010762156 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.544 " "
y2[1] (analytic) = 1.1443547187789775 " "
y2[1] (numeric) = 1.144354718111289 " "
absolute error = 6.676885710987790000000000E-10 " "
relative error = 5.83462942164646700000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.517562704147234 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.81371655430311500E-2 " "
relative error = 1.5148447139055163 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.545 " "
y2[1] (analytic) = 1.1448727092194693 " "
y2[1] (numeric) = 1.1448727084721555 " "
absolute error = 7.4731376642489520000000000E-10 " "
relative error = 6.52748345215063500000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5184180905045173 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.899255190031425400E-2 " "
relative error = 1.548295417958296 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.546 " "
y2[1] (analytic) = 1.1453915547871805 " "
y2[1] (numeric) = 1.1453915539528092 " "
absolute error = 8.3437123876706210000000000E-10 " "
relative error = 7.28459394763123300000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5192729584437528 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 3.98474198395497600E-2 " "
relative error = 1.5817031539196518 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.547 " "
y2[1] (analytic) = 1.1459112549632657 " "
y2[1] (numeric) = 1.1459112540338945 " "
absolute error = 9.2937124662739730000000000E-10 " "
relative error = 8.11032479698604600000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.520127307110073 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.07017685058699300E-2 " "
relative error = 1.6150679527592682 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.548 " "
y2[1] (analytic) = 1.1464318092280248 " "
y2[1] (numeric) = 1.1464318081951783 " "
absolute error = 1.0328464750131161000000000E-9 " "
relative error = 9.00922729724854800000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.52098113564913 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.15555970449270600E-2 " "
relative error = 1.6483898454173425 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.549 " "
y2[1] (analytic) = 1.1469532170609038 " "
y2[1] (numeric) = 1.14695321591555 " "
absolute error = 1.1453538117933704000000000E-9 " "
relative error = 9.98605518303848600000000E-8 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5218344432070943 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.24089046028912600E-2 " "
relative error = 1.6816688628044336 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.55 " "
y2[1] (analytic) = 1.1474754779404943 " "
y2[1] (numeric) = 1.147475476673021 " "
absolute error = 1.2674732374762243000000000E-9 " "
relative error = 1.1045754457002460000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.522687228930659 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.326169032645621500E-2 " "
relative error = 1.71490503580162 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.551 " "
y2[1] (analytic) = 1.1479985913445359 " "
y2[1] (numeric) = 1.1479985899447258 " "
absolute error = 1.3998100456547036000000000E-9 " "
relative error = 1.21934822586780890000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5235394919670386 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.411395336283563400E-2 " "
relative error = 1.7480983952602962 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.552 " "
y2[1] (analytic) = 1.1485225567499153 " "
y2[1] (numeric) = 1.1485225552069207 " "
absolute error = 1.5429946209621903000000000E-9 " "
relative error = 1.3434604413243310000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.52439123146397 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.496569285976681500E-2 " "
relative error = 1.7812489720022466 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.553 " "
y2[1] (analytic) = 1.1490473736326667 " "
y2[1] (numeric) = 1.1490473719349847 " "
absolute error = 1.6976819949832134000000000E-9 " "
relative error = 1.47746910522588870000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.525242446569713 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.58169079655101900E-2 " "
relative error = 1.814356796819562 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.554 " "
y2[1] (analytic) = 1.1495730414679737 " "
y2[1] (numeric) = 1.1495730396034194 " "
absolute error = 1.8645542887441025000000000E-9 " "
relative error = 1.62195373541738320000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5260931364330537 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.66675978288506600E-2 " "
relative error = 1.8474219004746282 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.555 " "
y2[1] (analytic) = 1.1500995597301684 " "
y2[1] (numeric) = 1.1500995576858484 " "
absolute error = 2.0443200465791733000000000E-9 " "
relative error = 1.77751571964674370000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5269433002033015 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.751776159909848500E-2 " "
relative error = 1.8804443137000941 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.556 " "
y2[1] (analytic) = 1.1506269278927328 " "
y2[1] (numeric) = 1.1506269256550177 " "
absolute error = 2.2377151243091475000000000E-9 " "
relative error = 1.94477903312007180000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.527792937030293 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.83673984260901700E-2 " "
relative error = 1.9134240671988447 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.557 " "
y2[1] (analytic) = 1.151155145428298 " "
y2[1] (numeric) = 1.1511551429827962 " "
absolute error = 2.4455018010627327000000000E-9 " "
relative error = 2.1243894107365180000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5286420460643915 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 4.92165074601884630E-2 " "
relative error = 1.9463611916439347 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.558 " "
y2[1] (analytic) = 1.1516842118086474 " "
y2[1] (numeric) = 1.1516842091401749 " "
absolute error = 2.6684725540349064000000000E-9 " "
relative error = 2.31701757015861020000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.529490626456488 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.00650878522850300E-2 " "
relative error = 1.9792557176786296 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.559 " "
y2[1] (analytic) = 1.152214126504714 " "
y2[1] (numeric) = 1.1522141235972672 " "
absolute error = 2.9074469498624467000000000E-9 " "
relative error = 2.52335645170598530000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.530338677358002 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.0913138753799100E-2 " "
relative error = 2.012107675916291 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.56 " "
y2[1] (analytic) = 1.152744888986584 " "
y2[1] (numeric) = 1.1527448858233091 " "
absolute error = 3.163274753248402000000000E-9 " "
relative error = 2.7441238590347090000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.531186197920883 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.17606593166801700E-2 " "
relative error = 2.0449170969404142 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.561 " "
y2[1] (analytic) = 1.153276498723494 " "
y2[1] (numeric) = 1.153276495286659 " "
absolute error = 3.43683503878367000000000E-9 " "
relative error = 2.98006162666779040000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.532033187297611 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.26076486934079500E-2 " "
relative error = 2.07768401130457 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.562 " "
y2[1] (analytic) = 1.1538089551838349 " "
y2[1] (numeric) = 1.1538089514547973 " "
absolute error = 3.729037523214629000000000E-9 " "
relative error = 3.23193671401214470000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5328796446411954 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.34541060369924100E-2 " "
relative error = 2.1104084495323367 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5630000000000001 " "
y2[1] (analytic) = 1.1543422578351499 " "
y2[1] (numeric) = 1.1543422537943273 " "
absolute error = 4.040822565443136000000000E-9 " "
relative error = 3.50054114194977450000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5337255691051794 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.430003050097643000E-2 " "
relative error = 2.143090442117346 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5640000000000001 " "
y2[1] (analytic) = 1.1548764061441366 " "
y2[1] (numeric) = 1.1548764017709745 " "
absolute error = 4.373162054704949000000000E-9 " "
relative error = 3.78669269840390840000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5345709598436392 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.51454212394362200E-2 " "
relative error = 2.1757300195232334 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5650000000000001 " "
y2[1] (analytic) = 1.1554113995766468 " "
y2[1] (numeric) = 1.155411394849587 " "
absolute error = 4.727059854658932600000000E-9 " "
relative error = 4.0912352573213057000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5354158160111835 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.59902774069804800E-2 " "
relative error = 2.2083272121835464 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5660000000000001 " "
y2[1] (analytic) = 1.1559472375976871 " "
y2[1] (numeric) = 1.155947232494135 " "
absolute error = 5.103552247476273000000000E-9 " "
relative error = 4.4150390964924820000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.536260136762956 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.683459815875302000E-2 " "
relative error = 2.240882050501782 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5670000000000001 " "
y2[1] (analytic) = 1.1564839196714192 " "
y2[1] (numeric) = 1.1564839141677112 " "
absolute error = 5.503707933840474000000000E-9 " "
relative error = 4.7590008302097190000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.537103921254637 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.767838265043412000E-2 " "
relative error = 2.2733945648513787 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5680000000000001 " "
y2[1] (analytic) = 1.1570214452611616 " "
y2[1] (numeric) = 1.1570214393325313 " "
absolute error = 5.928630253393408000000000E-9 " "
relative error = 5.124045260937410000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5379471686424413 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.85216300382382900E-2 " "
relative error = 2.3058647855755705 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5690000000000001 " "
y2[1] (analytic) = 1.1575598138293886 " "
y2[1] (numeric) = 1.1575598074499325 " "
absolute error = 6.379456074512291000000000E-9 " "
relative error = 5.5111243482166630000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.538789878083122 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 5.93643394789191700E-2 " "
relative error = 2.338292742987513 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5700000000000001 " "
y2[1] (analytic) = 1.1580990248377314 " "
y2[1] (numeric) = 1.158099017980375 " "
absolute error = 6.857356460443498000000000E-9 " "
relative error = 5.9212177140070780000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5396320487339694 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.02065101297664100E-2 " "
relative error = 2.370678467370103 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5710000000000001 " "
y2[1] (analytic) = 1.158639077746979 " "
y2[1] (numeric) = 1.1586390703834413 " "
absolute error = 7.363537779525586000000000E-9 " "
relative error = 6.3553335296132830000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5404736797528127 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.10481411486096800E-2 " "
relative error = 2.4030219889760733 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5720000000000001 " "
y2[1] (analytic) = 1.159179972017079 " "
y2[1] (numeric) = 1.1591799641178362 " "
absolute error = 7.899242815412322000000000E-9 " "
relative error = 6.8145093998362630000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5413147702980217 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.18892316938186600E-2 " "
relative error = 2.435323338027932 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5730000000000001 " "
y2[1] (analytic) = 1.1597217071071368 " "
y2[1] (numeric) = 1.1597216986413872 " "
absolute error = 8.465749656849653000000000E-9 " "
relative error = 7.299811329708580000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.542155319528505 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.27297809243021500E-2 " "
relative error = 2.4675825447178683 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5740000000000001 " "
y2[1] (analytic) = 1.1602642824754175 " "
y2[1] (numeric) = 1.1602642734110438 " "
absolute error = 9.064373696077155000000000E-9 " "
relative error = 7.8123353730568720000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5429953266037146 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.35697879995116300E-2 " "
relative error = 2.4997996392078297 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5750000000000001 " "
y2[1] (analytic) = 1.160807697579346 " "
y2[1] (numeric) = 1.1608076878828784 " "
absolute error = 9.696467628828032000000000E-9 " "
relative error = 8.3532075545745050000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5438347906836425 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.44092520794394800E-2 " "
relative error = 2.531974651629394 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5760000000000001 " "
y2[1] (analytic) = 1.1613519518755067 " "
y2[1] (numeric) = 1.1613519415120852 " "
absolute error = 1.036342145432911400000000E-8 " "
relative error = 8.9235837917978890000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.544673710928825 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.5248172324622100E-2 " "
relative error = 2.5641076120838306 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5770000000000001 " "
y2[1] (analytic) = 1.1618970448196455 " "
y2[1] (numeric) = 1.1618970337529815 " "
absolute error = 1.106666402961309400000000E-8 " "
relative error = 9.5246511547250790000000E-7 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5455120865003424 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.60865478961394400E-2 " "
relative error = 2.596198550642024 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5780000000000001 " "
y2[1] (analytic) = 1.1624429758666701 " "
y2[1] (numeric) = 1.1624429640590066 " "
absolute error = 1.180766351360773600000000E-8 " "
relative error = 1.0157628166495156000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5463499165598185 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.69243779556154500E-2 " "
relative error = 2.628247497344432 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5790000000000001 " "
y2[1] (analytic) = 1.1629897444706487 " "
y2[1] (numeric) = 1.1629897318827223 " "
absolute error = 1.258792647895745600000000E-8 " "
relative error = 1.0823763957339994000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5471872002694234 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.77616616652203500E-2 " "
relative error = 2.660254482201112 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5800000000000001 " "
y2[1] (analytic) = 1.163537350084813 " "
y2[1] (numeric) = 1.1635373366758128 " "
absolute error = 1.340900013246937300000000E-8 " "
relative error = 1.1524340092298678000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5480239367918736 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.85983981876705500E-2 " "
relative error = 2.6922195351916653 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5810000000000001 " "
y2[1] (analytic) = 1.1640857921615577 " "
y2[1] (numeric) = 1.1640857778890847 " "
absolute error = 1.42724729812471200000000E-8 " "
relative error = 1.2260671058225849000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5488601252904326 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 6.9434586686229590E-2 " "
relative error = 2.72414268626521 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5820000000000001 " "
y2[1] (analytic) = 1.1646350701524406 " "
y2[1] (numeric) = 1.1646350549724673 " "
absolute error = 1.51799732783786100000000E-8 " "
relative error = 1.3034102842525327000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5496957649289125 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.02702263247094700E-2 " "
relative error = 2.756023965340377 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5830000000000001 " "
y2[1] (analytic) = 1.1651851835081837 " "
y2[1] (numeric) = 1.165185167375012 " "
absolute error = 1.613317168747130400000000E-8 " "
relative error = 1.3846015136321027000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.550530854871673 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.11053162674701900E-2 " "
relative error = 2.7878634023052333 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5840000000000001 " "
y2[1] (analytic) = 1.1657361316786736 " "
y2[1] (numeric) = 1.1657361145448926 " "
absolute error = 1.71337810606075900000000E-8 " "
relative error = 1.4697821054868346000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5513653942836245 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.19398556794215200E-2 " "
relative error = 2.8196610270172955 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5850000000000001 " "
y2[1] (analytic) = 1.1662879141129625 " "
y2[1] (numeric) = 1.1662878959294052 " "
absolute error = 1.818355732652321400000000E-8 " "
relative error = 1.5590967810339512000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.552199382330228 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.2773843726024800E-2 " "
relative error = 2.8514168693035375 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5860000000000001 " "
y2[1] (analytic) = 1.1668405302592677 " "
y2[1] (numeric) = 1.1668405109749689 " "
absolute error = 1.928429882447346700000000E-8 " "
relative error = 1.6526936050283209000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5530328181774946 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.3607279573291610E-2 " "
relative error = 2.883130958960286 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5870000000000001 " "
y2[1] (analytic) = 1.1673939795649733 " "
y2[1] (numeric) = 1.1673939591271247 " "
absolute error = 2.043784852467922500000000E-8 " "
relative error = 1.7507241670284562000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5538657009919894 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.44401623877863900E-2 " "
relative error = 2.914803325753263 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5880000000000001 " "
y2[1] (analytic) = 1.1679482614766297 " "
y2[1] (numeric) = 1.1679482398305363 " "
absolute error = 2.164609336219314200000000E-8 " "
relative error = 1.8533435149623942000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5546980299408295 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.5272491336626500E-2 " "
relative error = 2.9464339994175326 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5890000000000001 " "
y2[1] (analytic) = 1.1685033754399554 " "
y2[1] (numeric) = 1.1685033525289894 " "
absolute error = 2.291096601325648400000000E-8 " "
relative error = 1.960710297873999300000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5555298041916856 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.61042655874826200E-2 " "
relative error = 2.9780230096574596 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5900000000000001 " "
y2[1] (analytic) = 1.1690593208998366 " "
y2[1] (numeric) = 1.1690592966653928 " "
absolute error = 2.42344437850761100000000E-8 " "
relative error = 2.072986661311815900000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.556361022912784 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.69354843085809900E-2 " "
relative error = 3.0095703861467387 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5910000000000001 " "
y2[1] (analytic) = 1.1696160973003273 " "
y2[1] (numeric) = 1.169616071681777 " "
absolute error = 2.561855039218130500000000E-8 " "
relative error = 2.190338389777062000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5571916852729055 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.77661466687025200E-2 " "
relative error = 3.041076158528306 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5920000000000001 " "
y2[1] (analytic) = 1.1701737040846518 " "
y2[1] (numeric) = 1.1701736770192952 " "
absolute error = 2.7065356622557600000000E-8 " "
relative error = 2.3129349538519164000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5580217904413884 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.85962518371854400E-2 " "
relative error = 3.072540356414384 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5930000000000001 " "
y2[1] (analytic) = 1.170732140695203 " "
y2[1] (numeric) = 1.1707321121182233 " "
absolute error = 2.85769796715129600000000E-8 " "
relative error = 2.4409494433580176000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5588513375881274 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 7.94257989839244300E-2 " "
relative error = 3.1039630093863937 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5940000000000001 " "
y2[1] (analytic) = 1.1712914065735442 " "
y2[1] (numeric) = 1.1712913764179593 " "
absolute error = 3.015558491803460600000000E-8 " "
relative error = 2.5745587091986544000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5596803258835754 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.02547872793724100E-2 " "
relative error = 3.135344146994968 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5950000000000001 " "
y2[1] (analytic) = 1.17185150116041 " "
y2[1] (numeric) = 1.1718514693570237 " "
absolute error = 3.18033863688782500000000E-8 " "
relative error = 2.7139433910683547000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5605087544987444 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.10832158945413700E-2 " "
relative error = 3.166683798759929 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5960000000000001 " "
y2[1] (analytic) = 1.1724124238957057 " "
y2[1] (numeric) = 1.1724123903730592 " "
absolute error = 3.352264643652347300000000E-8 " "
relative error = 2.8592878882274236000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5613366226052054 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.19110840010024400E-2 " "
relative error = 3.1979819941702328 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5970000000000001 " "
y2[1] (analytic) = 1.1729741742185082 " "
y2[1] (numeric) = 1.1729741389028314 " "
absolute error = 3.53156768273521500000000E-8 " "
relative error = 3.01078042497236960000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5621639293750906 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.27383907708876300E-2 " "
relative error = 3.229238762683988 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5980000000000001 " "
y2[1] (analytic) = 1.1735367515670676 " "
y2[1] (numeric) = 1.173536714382228 " "
absolute error = 3.71848396518714700000000E-8 " "
relative error = 3.1686131348010327000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.562990673981093 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.35651353768898100E-2 " "
relative error = 3.2604541337283957 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.5990000000000001 " "
y2[1] (analytic) = 1.1741001553788069 " "
y2[1] (numeric) = 1.174100116246259 " "
absolute error = 3.91325478688031600000000E-8 " "
relative error = 3.332982087561141000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5638168555964684 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.43913169922654300E-2 " "
relative error = 3.2916281366997997 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6000000000000001 " "
y2[1] (analytic) = 1.1746643850903218 " "
y2[1] (numeric) = 1.1746643439290572 " "
absolute error = 4.116126461894964500000000E-8 " "
relative error = 3.504087221967208000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5646424733950353 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.52169347908322500E-2 " "
relative error = 3.3227608009635494 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6010000000000001 " "
y2[1] (analytic) = 1.1752294401373828 " "
y2[1] (numeric) = 1.1752293968638774 " "
absolute error = 4.327350544564012600000000E-8 " "
relative error = 3.6821325238909525000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.565467526551176 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.60419879469729300E-2 " "
relative error = 3.353852155854079 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6020000000000001 " "
y2[1] (analytic) = 1.175795319954935 " "
y2[1] (numeric) = 1.1757952744830973 " "
absolute error = 4.547183762859674500000000E-8 " "
relative error = 3.867325958597926400000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.566292014239837 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.6866475635634100E-2 " "
relative error = 3.384902230674823 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6030000000000001 " "
y2[1] (analytic) = 1.1763620239770984 " "
y2[1] (numeric) = 1.1763619762182165 " "
absolute error = 4.77588819602914300000000E-8 " "
relative error = 4.059879610770333000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.567115935636531 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.76903970323281700E-2 " "
relative error = 3.4159110546982303 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6040000000000001 " "
y2[1] (analytic) = 1.1769295516371694 " "
y2[1] (numeric) = 1.1769295014998573 " "
absolute error = 5.01373120798120900000000E-8 " "
relative error = 4.260009616554238400000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.567939289917337 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.85137513131342100E-2 " "
relative error = 3.4468786571657426 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6050000000000001 " "
y2[1] (analytic) = 1.17749790236762 " "
y2[1] (numeric) = 1.1774978497577644 " "
absolute error = 5.26098555830856200000000E-8 " "
relative error = 4.467936246621065400000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5687620762589 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 8.93365376546970700E-2 " "
relative error = 3.477805067287712 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6060000000000001 " "
y2[1] (analytic) = 1.1780670756001 " "
y2[1] (numeric) = 1.1780670204208048 " "
absolute error = 5.517929513310094000000000E-8 " "
relative error = 4.6838839889479933000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5695842938384343 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.01587552342313400E-2 " "
relative error = 3.508690314243498 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6070000000000001 " "
y2[1] (analytic) = 1.1786370707654354 " "
y2[1] (numeric) = 1.1786370129169679 " "
absolute error = 5.784846757173057000000000E-8 " "
relative error = 4.908081461765187000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.570405941833722 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.09804032295191700E-2 " "
relative error = 3.5395344271813323 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6080000000000001 " "
y2[1] (analytic) = 1.1792078872936318 " "
y2[1] (numeric) = 1.1792078266733659 " "
absolute error = 6.06202659181320800000000E-8 " "
relative error = 5.1407615715037340000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.571227019423116 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.18014808189129300E-2 " "
relative error = 3.5703374352183666 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6090000000000001 " "
y2[1] (analytic) = 1.1797795246138727 " "
y2[1] (numeric) = 1.1797794611162329 " "
absolute error = 6.34976398128372900000000E-8 " "
relative error = 5.3821615384975660000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5720475257855377 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.26219871813347400E-2 " "
relative error = 3.6010993674406055 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6100000000000001 " "
y2[1] (analytic) = 1.1803519821545205 " "
y2[1] (numeric) = 1.1803519156709257 " "
absolute error = 6.64835948516184800000000E-8 " "
relative error = 5.6325228285095620000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5728674601004813 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.34419214962782800E-2 " "
relative error = 3.631820252902922 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6110000000000001 " "
y2[1] (analytic) = 1.1809252593431179 " "
y2[1] (numeric) = 1.1809251897619235 " "
absolute error = 6.95811943618451800000000E-8 " "
relative error = 5.892091291243043000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5736868215480126 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.42612829438096400E-2 " "
relative error = 3.662500120629039 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6120000000000001 " "
y2[1] (analytic) = 1.1814993556063875 " "
y2[1] (numeric) = 1.181499282812828 " "
absolute error = 7.27935596245288300000000E-8 " "
relative error = 6.161117166853517000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5745056093087704 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.50800707045673700E-2 " "
relative error = 3.69313899961148 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6130000000000001 " "
y2[1] (analytic) = 1.1820742703702336 " "
y2[1] (numeric) = 1.182074194246363 " "
absolute error = 7.61238705404565500000000E-8 " "
relative error = 6.439855129966923000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5753238225639663 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.5898283959763300E-2 " "
relative error = 3.723736918811551 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6140000000000001 " "
y2[1] (analytic) = 1.182650003059741 " "
y2[1] (numeric) = 1.1826499234843753 " "
absolute error = 7.95753658522357900000000E-8 " "
relative error = 6.728564295975914000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.576141460495388 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.67159218911848300E-2 " "
relative error = 3.754293907159373 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6150000000000001 " "
y2[1] (analytic) = 1.1832265530991772 " "
y2[1] (numeric) = 1.1832264699478332 " "
absolute error = 8.31513440324727100000000E-8 " "
relative error = 7.0275082835723870000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.576958522285397 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.75329836811940100E-2 " "
relative error = 3.784809993553799 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6160000000000001 " "
y2[1] (analytic) = 1.1838039199119923 " "
y2[1] (numeric) = 1.1838038330568283 " "
absolute error = 8.685516394990600000000E-8 " "
relative error = 7.336955258296753000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.577775007116932 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.83494685127288500E-2 " "
relative error = 3.8152852068624146 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6170000000000001 " "
y2[1] (analytic) = 1.1843821029208192 " "
y2[1] (numeric) = 1.1843820122305742 " "
absolute error = 9.06902450914515200000000E-8 " "
relative error = 7.657177938420312000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5785909141735077 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.91653755693047100E-2 " "
relative error = 3.8457195759215375 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6180000000000001 " "
y2[1] (analytic) = 1.1849611015474757 " "
y2[1] (numeric) = 1.184961006887407 " "
absolute error = 9.46600686724252700000000E-8 " "
relative error = 7.988453675720316000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5794062426392177 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 9.99807040350146900E-2 " "
relative error = 3.8761131295361846 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6190000000000001 " "
y2[1] (analytic) = 1.1855409152129623 " "
y2[1] (numeric) = 1.1855408164447852 " "
absolute error = 9.87681771924542300000000E-8 " "
relative error = 8.331064404868068000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.580220991698733 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.10079545309453009 " "
relative error = 3.90646589648004 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6200000000000001 " "
y2[1] (analytic) = 1.186121543337466 " "
y2[1] (numeric) = 1.1861214403192897 " "
absolute error = 1.03018176433877780000000E-7 " "
relative error = 8.68529679884314000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.581035160537305 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.10160962193310219 " "
relative error = 3.936777905495471 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6210000000000001 " "
y2[1] (analytic) = 1.1867029853403586 " "
y2[1] (numeric) = 1.186702877926624 " "
absolute error = 1.07413734573569290000000E-7 " "
relative error = 9.05144218060275000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5818487483407653 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.10242320973656227 " "
relative error = 3.9670491852934813 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6220000000000001 " "
y2[1] (analytic) = 1.1872852406401981 " "
y2[1] (numeric) = 1.1872851286816137 " "
absolute error = 1.11958584403382130000000E-7 " "
relative error = 9.429796696791476000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5826617542955255 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.10323621569132246 " "
relative error = 3.997279764553693 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6230000000000001 " "
y2[1] (analytic) = 1.1878683086547293 " "
y2[1] (numeric) = 1.187868191998207 " "
absolute error = 1.16656522219926730000000E-7 " "
relative error = 9.820661210504151000000E-6 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.58347417758858 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1040486389843771 " "
relative error = 4.027469671924350 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6240000000000001 " "
y2[1] (analytic) = 1.1884521888008839 " "
y2[1] (numeric) = 1.1884520672894745 " "
absolute error = 1.21511409378882720000000E-7 " "
relative error = 1.022434141852054100000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5842860174075053 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.10486047880330229 " "
relative error = 4.057618936022254 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6250000000000001 " "
y2[1] (analytic) = 1.1890368804947822 " "
y2[1] (numeric) = 1.1890367539676092 " "
absolute error = 1.2652717296113280000000E-7 " "
relative error = 1.064114789345157300000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5850972729404624 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.10567173433625943 " "
relative error = 4.087727585432843 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6260000000000001 " "
y2[1] (analytic) = 1.1896223831517325 " "
y2[1] (numeric) = 1.1896222514439265 " "
absolute error = 1.31707805994807360000000E-7 " "
relative error = 1.107139608838449800000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5859079433761947 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.10648240477199167 " "
relative error = 4.117795648710018 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6270000000000001 " "
y2[1] (analytic) = 1.190208696186232 " "
y2[1] (numeric) = 1.1902085591288645 " "
absolute error = 1.3705736745528440000000E-7 " "
relative error = 1.15154063228117300000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.586718027904033 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.10729248929983015 " "
relative error = 4.147823154376326 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6280000000000001 " "
y2[1] (analytic) = 1.1907958190119676 " "
y2[1] (numeric) = 1.1907956764319831 " "
absolute error = 1.4257998448563570000000E-7 " "
relative error = 1.197350395502209500000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.587527525713892 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1081019871096891 " "
relative error = 4.177810130922725 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6290000000000001 " "
y2[1] (analytic) = 1.1913837510418173 " "
y2[1] (numeric) = 1.1913836027619653 " "
absolute error = 1.48279851952537460000000E-7 " "
relative error = 1.244601933028486300000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.588336435996274 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.10891089739207116 " "
relative error = 4.207756606808743 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6300000000000001 " "
y2[1] (analytic) = 1.1919724916878482 " "
y2[1] (numeric) = 1.191972337526616 " "
absolute error = 1.54161232224225840000000E-7 " "
relative error = 1.293328774776770000000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5891447579422695 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1097192193380665 " "
relative error = 4.237662610462390 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6310000000000001 " "
y2[1] (analytic) = 1.1925620403613202 " "
y2[1] (numeric) = 1.1925618801328628 " "
absolute error = 1.60228457390942940000000E-7 " "
relative error = 1.343564963231575200000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5899524907435563 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11052695213935326 " "
relative error = 4.267528170280134 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6320000000000001 " "
y2[1] (analytic) = 1.1931523964726845 " "
y2[1] (numeric) = 1.1931522299867556 " "
absolute error = 1.66485928820847560000000E-7 " "
relative error = 1.395345048235496200000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.590759633592401 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11133409498819802 " "
relative error = 4.2973533146268705 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6330000000000001 " "
y2[1] (analytic) = 1.193743559431585 " "
y2[1] (numeric) = 1.1937433864934668 " "
absolute error = 1.7293811827023830000000E-7 " "
relative error = 1.448704094810654400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5915661856816614 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11214064707745841 " "
relative error = 4.327138071835969 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6340000000000001 " "
y2[1] (analytic) = 1.194335528646859 " "
y2[1] (numeric) = 1.1943353490572912 " "
absolute error = 1.79589567883553500000000E-7 " "
relative error = 1.503677681656362400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5923721462047857 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11294660760058273 " "
relative error = 4.356882470209215 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6350000000000001 " "
y2[1] (analytic) = 1.1949283035265372 " "
y2[1] (numeric) = 1.194928117081646 " "
absolute error = 1.86444891303594320000000E-7 " "
relative error = 1.560301908937532200000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.593177514355813 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11375197575160989 " "
relative error = 4.386586538016767 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6360000000000001 " "
y2[1] (analytic) = 1.195521883477845 " "
y2[1] (numeric) = 1.1955216899690706 " "
absolute error = 1.93508774337658450000000E-7 " "
relative error = 1.618613402330451600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.593982289329375 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11455675072517213 " "
relative error = 4.4162503034972 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6370000000000001 " "
y2[1] (analytic) = 1.196116267907202 " "
y2[1] (numeric) = 1.1961160671212272 " "
absolute error = 2.00785974735495640000000E-7 " "
relative error = 1.678649309626087400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.594786470320698 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11536093171649497 " "
relative error = 4.4458737948574685 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6380000000000001 " "
y2[1] (analytic) = 1.1967114562202241 " "
y2[1] (numeric) = 1.1967112479389004 " "
absolute error = 2.08281323743619850000000E-7 " "
relative error = 1.740447312182252800000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5955900565256 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11616451792139681 " "
relative error = 4.475457040272842 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6390000000000001 " "
y2[1] (analytic) = 1.1973074478217232 " "
y2[1] (numeric) = 1.1973072318219968 " "
absolute error = 2.15999726327353870000000E-7 " "
relative error = 1.80404562520950600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5963930471404946 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11696750853629156 " "
relative error = 4.505000067886959 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6400000000000001 " "
y2[1] (analytic) = 1.1979042421157073 " "
y2[1] (numeric) = 1.1979040181695457 " "
absolute error = 2.23946161614918540000000E-7 " "
relative error = 1.869482999904822400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.597195441362392 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1177699027581891 " "
relative error = 4.534502905811793 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6410000000000001 " "
y2[1] (analytic) = 1.1985018385053827 " "
y2[1] (numeric) = 1.198501606379699 " "
absolute error = 2.32125683785611160000000E-7 " "
relative error = 1.936798729279284600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5979972383888983 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11857169978469528 " "
relative error = 4.563965582127617 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6420000000000001 " "
y2[1] (analytic) = 1.1991002363931529 " "
y2[1] (numeric) = 1.1990999958497304 " "
absolute error = 2.4054342251389470000000E-7 " "
relative error = 2.006032650259831600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.5987984374182154 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.11937289881401236 " "
relative error = 4.593388124882965 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6430000000000001 " "
y2[1] (analytic) = 1.1996994351806198 " "
y2[1] (numeric) = 1.1996991859760369 " "
absolute error = 2.49204582969397850000000E-7 " "
relative error = 2.077225142078015800000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.599599037649145 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12017349904494212 " "
relative error = 4.622770562094712 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6440000000000001 " "
y2[1] (analytic) = 1.2002994342685849 " "
y2[1] (numeric) = 1.200299176154137 " "
absolute error = 2.58114447815316340000000E-7 " "
relative error = 2.15041714130775270000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.600399038281087 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12097349967688409 " "
relative error = 4.652112921747959 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6450000000000001 " "
y2[1] (analytic) = 1.200900233057049 " "
y2[1] (numeric) = 1.2008999657786725 " "
absolute error = 2.67278376542279260000000E-7 " "
relative error = 2.225650134665117800000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.601198438514041 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1217728999098382 " "
relative error = 4.681415231796083 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6460000000000001 " "
y2[1] (analytic) = 1.2015018309452135 " "
y2[1] (numeric) = 1.2015015542434069 " "
absolute error = 2.767018065785720000000E-7 " "
relative error = 2.302966166609105900000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6019972375486065 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12257169894440345 " "
relative error = 4.710677520160655 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6470000000000001 " "
y2[1] (analytic) = 1.2021042273314804 " "
y2[1] (numeric) = 1.2021039409412264 " "
absolute error = 2.86390253956270160000000E-7 " "
relative error = 2.382407843220220600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6027954345859845 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1233698959817815 " "
relative error = 4.739899814731518 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6480000000000001 " "
y2[1] (analytic) = 1.2027074216134537 " "
y2[1] (numeric) = 1.20270712526414 " "
absolute error = 2.9634931375532860000000E-7 " "
relative error = 2.464018334216069300000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6035930288279783 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12416749022377527 " "
relative error = 4.769082143366697 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6490000000000001 " "
y2[1] (analytic) = 1.2033114131879388 " "
y2[1] (numeric) = 1.2033111066032782 " "
absolute error = 3.06584660547670750000000E-7 " "
relative error = 2.547841374955752700000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.604390019476994 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12496448087279077 " "
relative error = 4.798224533892423 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6500000000000001 " "
y2[1] (analytic) = 1.2039162014509444 " "
y2[1] (numeric) = 1.2039158843488946 " "
absolute error = 3.1710204972945630000000E-7 " "
relative error = 2.633921275810467400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6051864057360397 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12576086713183665 " "
relative error = 4.82732701410307 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6510000000000001 " "
y2[1] (analytic) = 1.204521785797682 " "
y2[1] (numeric) = 1.2045214578903654 " "
absolute error = 3.27907316632902730000000E-7 " "
relative error = 2.72230291306644600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6059821868087303 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12655664820452728 " "
relative error = 4.856389611761228 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6520000000000001 " "
y2[1] (analytic) = 1.2051281656225676 " "
y2[1] (numeric) = 1.2051278266161884 " "
absolute error = 3.39006379190820440000000E-7 " "
relative error = 2.813031749330082000000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.606777361899285 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12735182329508188 " "
relative error = 4.885412354597632 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6530000000000001 " "
y2[1] (analytic) = 1.2057353403192215 " "
y2[1] (numeric) = 1.2057349899139846 " "
absolute error = 3.5040523682638990000000E-7 " "
relative error = 2.906153822559594500000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.607571930212528 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12814639160832497 " "
relative error = 4.914395270311124 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6540000000000001 " "
y2[1] (analytic) = 1.2063433092804687 " "
y2[1] (numeric) = 1.2063429471704972 " "
absolute error = 3.62109971563384650000000E-7 " "
relative error = 3.001715753530953500000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6083658909538916 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1289403523496886 " "
relative error = 4.9433383865687075 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6550000000000001 " "
y2[1] (analytic) = 1.2069520718983406 " "
y2[1] (numeric) = 1.2069516977715915 " "
absolute error = 3.7412674913639420000000E-7 " "
relative error = 3.09976475327602100000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.609159243329415 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.12973370472521184 " "
relative error = 4.972241731005474 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6560000000000001 " "
y2[1] (analytic) = 1.2075616275640746 " "
y2[1] (numeric) = 1.2075612411022556 " "
absolute error = 3.8646181899082420000000E-7 " "
relative error = 3.20034862129898300000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6099519865457457 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13052644794154267 " "
relative error = 5.00110533122464 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6570000000000001 " "
y2[1] (analytic) = 1.2081719756681149 " "
y2[1] (numeric) = 1.2081715765465997 " "
absolute error = 3.99121515171074750000000E-7 " "
relative error = 3.303515751144301400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.610744119810141 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13131858120593787 " "
relative error = 5.02992921479749 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6580000000000001 " "
y2[1] (analytic) = 1.2087831156001134 " "
y2[1] (numeric) = 1.2087827034878567 " "
absolute error = 4.1211225676462960000000E-7 " "
relative error = 3.40931513226863700000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.611535642330467 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13211010372626397 " "
relative error = 5.058713409263384 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6590000000000001 " "
y2[1] (analytic) = 1.2093950467489305 " "
y2[1] (numeric) = 1.209394621308382 " "
absolute error = 4.25440548568190000000E-7 " "
relative error = 3.51779635373776400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6123265533152016 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13290101471099858 " "
relative error = 5.08745794212975 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6600000000000001 " "
y2[1] (analytic) = 1.210007768502635 " "
y2[1] (numeric) = 1.210007329389653 " "
absolute error = 4.39112981975853240000000E-7 " "
relative error = 3.62900960974199700000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.613116851973434 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1336913133692308 " "
relative error = 5.116162840872068 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6610000000000001 " "
y2[1] (analytic) = 1.210621280248505 " "
y2[1] (numeric) = 1.2106208271122696 " "
absolute error = 4.5313623542320160000000E-7 " "
relative error = 3.74300570142122370000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6139065375148656 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13448099891066256 " "
relative error = 5.144828132933875 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6620000000000001 " "
y2[1] (analytic) = 1.2112355813730291 " "
y2[1] (numeric) = 1.2112351138559545 " "
absolute error = 4.6751707460934710000000E-7 " "
relative error = 3.85983603684578300000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.614695609149811 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1352700705456078 " "
relative error = 5.173453845726690 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6630000000000001 " "
y2[1] (analytic) = 1.2118506712619062 " "
y2[1] (numeric) = 1.2118501889995525 " "
absolute error = 4.8226235360715464000000E-7 " "
relative error = 3.979552638321126600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.615484066089198 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13605852748499503 " "
relative error = 5.202040006630074 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6640000000000001 " "
y2[1] (analytic) = 1.2124665493000464 " "
y2[1] (numeric) = 1.212466051921031 " "
absolute error = 4.973790153073310000000E-7 " "
relative error = 4.10220814417079400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6162719075445704 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1368463689403674 " "
relative error = 5.230586642991582 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6650000000000001 " "
y2[1] (analytic) = 1.2130832148715713 " "
y2[1] (numeric) = 1.2130827019974797 " "
absolute error = 5.1287409164046950000000E-7 " "
relative error = 4.22785580867811540000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6170591327280865 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13763359412388354 " "
relative error = 5.259093782126769 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6660000000000001 " "
y2[1] (analytic) = 1.213700667359816 " "
y2[1] (numeric) = 1.2137001386051105 " "
absolute error = 5.2875470557545160000000E-7 " "
relative error = 4.35654951665850830000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6178457408525215 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13842020224831852 " "
relative error = 5.287561451319164 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6670000000000001 " "
y2[1] (analytic) = 1.2143189061473278 " "
y2[1] (numeric) = 1.2143183611192583 " "
absolute error = 5.4502806956513440000000E-7 " "
relative error = 4.48834376872502200000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6186317311312672 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13920619252706423 " "
relative error = 5.315989677820263 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6680000000000001 " "
y2[1] (analytic) = 1.214937930615868 " "
y2[1] (numeric) = 1.2149373689143799 " "
absolute error = 5.6170148821088620000000E-7 " "
relative error = 4.62329370131815900000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6194171027783333 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.13999156417413028 " "
relative error = 5.344378488849510 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6690000000000002 " "
y2[1] (analytic) = 1.2155577401464122 " "
y2[1] (numeric) = 1.2155571613640546 " "
absolute error = 5.7878235759645240000000E-7 " "
relative error = 4.761455079268705500000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6202018550083483 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.14077631640414534 " "
relative error = 5.372727911594308 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6700000000000002 " "
y2[1] (analytic) = 1.2161783341191508 " "
y2[1] (numeric) = 1.2161777378409842 " "
absolute error = 5.9627816662022330000000E-7 " "
relative error = 4.902884304809569400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6209859870365597 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1415604484323567 " "
relative error = 5.401037973209970 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6710000000000002 " "
y2[1] (analytic) = 1.21679971191349 " "
y2[1] (numeric) = 1.216799097716993 " "
absolute error = 6.141964969952340000000E-7 " "
relative error = 5.04763841560558500000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.621769498078836 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.14234395947463296 " "
relative error = 5.4293087008197665 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6720000000000002 " "
y2[1] (analytic) = 1.217421872908052 " "
y2[1] (numeric) = 1.2174212403630276 " "
absolute error = 6.3254502435938780000000E-7 " "
relative error = 5.19577509190326400000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.622552387351666 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.14312684874746306 " "
relative error = 5.457540121514863 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6730000000000002 " "
y2[1] (analytic) = 1.2180448164806759 " "
y2[1] (numeric) = 1.2180441651491571 " "
absolute error = 6.5133151871954450000000E-7 " "
relative error = 5.347352658184215000000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6233346540721607 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1439091154679577 " "
relative error = 5.485732262354324 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6740000000000002 " "
y2[1] (analytic) = 1.2186685420084182 " "
y2[1] (numeric) = 1.218667871444573 " "
absolute error = 6.7056384533970000000E-7 " "
relative error = 5.50243008845196000000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6241162974580527 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.14469075885384974 " "
relative error = 5.5138851503650885 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6750000000000002 " "
y2[1] (analytic) = 1.219293048867553 " "
y2[1] (numeric) = 1.219292358617589 " "
absolute error = 6.9024996407485160000000E-7 " "
relative error = 5.66106699874929500000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6248973167277 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.14547177812349688 " "
relative error = 5.541998812542035 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6760000000000002 " "
y2[1] (analytic) = 1.2199183364335744 " "
y2[1] (numeric) = 1.2199176260356415 " "
absolute error = 7.103979329237120000000E-7 " "
relative error = 5.823323674276075000000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6256777111000824 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1462521724958794 " "
relative error = 5.570073275847857 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6770000000000002 " "
y2[1] (analytic) = 1.2205444040811941 " "
y2[1] (numeric) = 1.2205436730652892 " "
absolute error = 7.3101590492008480000000E-7 " "
relative error = 5.98926104184125600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6264574797948055 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.14703194119060248 " "
relative error = 5.5981085672131075 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6780000000000002 " "
y2[1] (analytic) = 1.2211712511843449 " "
y2[1] (numeric) = 1.2211704990722134 " "
absolute error = 7.5211213146353370000000E-7 " "
relative error = 6.15894069512447900000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6272366220321013 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.14781108342789828 " "
relative error = 5.626104713536238 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6790000000000002 " "
y2[1] (analytic) = 1.2217988771161794 " "
y2[1] (numeric) = 1.2217981034212175 " "
absolute error = 7.7369496187529310000000E-7 " "
relative error = 6.33242488895922800000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6280151370328273 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1485895984286243 " "
relative error = 5.6540617416835 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6800000000000002 " "
y2[1] (analytic) = 1.2224272812490722 " "
y2[1] (numeric) = 1.2224264854762277 " "
absolute error = 7.9577284450849110000000E-7 " "
relative error = 6.50977654634288800000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6287930240184685 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.14936748541426548 " "
relative error = 5.681979678488986 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6810000000000002 " "
y2[1] (analytic) = 1.2230564629546188 " "
y2[1] (numeric) = 1.223055644600292 " "
absolute error = 8.1835432674814970000000E-7 " "
relative error = 6.69105925634207100000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.629570282211138 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1501447436069352 " "
relative error = 5.709858550754625 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6820000000000002 " "
y2[1] (analytic) = 1.2236864216036376 " "
y2[1] (numeric) = 1.2236855801555815 " "
absolute error = 8.4144805612140770000000E-7 " "
relative error = 6.87633728107150600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.630346910833578 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.15092137222937518 " "
relative error = 5.737698385250141 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6830000000000002 " "
y2[1] (analytic) = 1.2243171565661704 " "
y2[1] (numeric) = 1.2243162915033894 " "
absolute error = 8.6506278096365460000000E-7 " "
relative error = 7.06567555901844300000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.63112290910916 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1516973705049569 " "
relative error = 5.765499208713070 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6840000000000002 " "
y2[1] (analytic) = 1.2249486672114818 " "
y2[1] (numeric) = 1.2249477780041311 " "
absolute error = 8.8920735064057510000000E-7 " "
relative error = 7.25913970472574600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.631898276261885 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.152472737657682 " "
relative error = 5.793261047848731 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6850000000000002 " "
y2[1] (analytic) = 1.2255809529080612 " "
y2[1] (numeric) = 1.225580039017345 " "
absolute error = 9.1389071621428290000000E-7 " "
relative error = 7.45679601209370200000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6326730115163866 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.15324747291218355 " "
relative error = 5.820983929330248 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6860000000000002 " "
y2[1] (analytic) = 1.2262140130236237 " "
y2[1] (numeric) = 1.2262130739016914 " "
absolute error = 9.3912193221967750000000E-7 " "
relative error = 7.65871146672000200000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.633447114097929 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1540215754937262 " "
relative error = 5.848667879798502 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6870000000000002 " "
y2[1] (analytic) = 1.226847846925108 " "
y2[1] (numeric) = 1.2268468820149532 " "
absolute error = 9.6491015488808780000000E-7 " "
relative error = 7.86495372923770500000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.634220583232411 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1547950446282078 " "
relative error = 5.8763129258621625 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6880000000000002 " "
y2[1] (analytic) = 1.2274824539786815 " "
y2[1] (numeric) = 1.2274814627140358 " "
absolute error = 9.9126464569998520000000E-7 " "
relative error = 8.0755911621136800000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6349934181463617 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.15556787954215867 " "
relative error = 5.903919094097623 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6890000000000002 " "
y2[1] (analytic) = 1.2281178335497365 " "
y2[1] (numeric) = 1.2281168153549669 " "
absolute error = 1.0181947696086269000000E-6 " "
relative error = 8.29069281296607700000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6357656180669475 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.15634007946274453 " "
relative error = 5.93148641104907 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6900000000000002 " "
y2[1] (analytic) = 1.2287539850028935 " "
y2[1] (numeric) = 1.2287529392928964 " "
absolute error = 1.0457099970384576000000E-6 " "
relative error = 8.51032842864794600000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.636537182221968 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.15711164361776486 " "
relative error = 5.959014903228388 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6910000000000002 " "
y2[1] (analytic) = 1.2293909077020013 " "
y2[1] (numeric) = 1.2293898338820972 " "
absolute error = 1.0738199041071539000000E-6 " "
relative error = 8.73456845483229200000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.63730810983986 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.15788257123565685 " "
relative error = 5.986504597115263 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6920000000000002 " "
y2[1] (analytic) = 1.2300286010101371 " "
y2[1] (numeric) = 1.2300274984759643 " "
absolute error = 1.102534172847669000000E-6 " "
relative error = 8.9634840355926200000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6380784001496944 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1586528615454914 " "
relative error = 6.013955519157006 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6930000000000002 " "
y2[1] (analytic) = 1.2306670642896078 " "
y2[1] (numeric) = 1.2306659324270148 " "
absolute error = 1.1318625929845894000000E-6 " "
relative error = 9.1971470256088110000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6388480523811824 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.15942251377697936 " "
relative error = 6.041367695768741 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6940000000000002 " "
y2[1] (analytic) = 1.2313062969019501 " "
y2[1] (numeric) = 1.2313051350868887 " "
absolute error = 1.1618150614900458000000E-6 " "
relative error = 9.43562998429595500000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.639617065764671 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16019152716046792 " "
relative error = 6.0687411533332405 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6950000000000002 " "
y2[1] (analytic) = 1.2319462982079314 " "
y2[1] (numeric) = 1.2319451058063482 " "
absolute error = 1.192401583249846900000E-6 " "
relative error = 9.67900617895756700000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6403854395311472 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16095990092694423 " "
relative error = 6.096075918201014 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6960000000000002 " "
y2[1] (analytic) = 1.2325870675675508 " "
y2[1] (numeric) = 1.232585843935278 " "
absolute error = 1.2236322728398363000000E-6 " "
relative error = 9.92734959693041200000E-5 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.641153172912237 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16172763430803405 " "
relative error = 6.123372016690231 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6970000000000002 " "
y2[1] (analytic) = 1.2332286043400384 " "
y2[1] (numeric) = 1.233227348822685 " "
absolute error = 1.2555173534156694000000E-6 " "
relative error = 1.01807349342789430000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.641920265140208 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16249472653600483 " "
relative error = 6.150629475086796 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6980000000000002 " "
y2[1] (analytic) = 1.2338709078838577 " "
y2[1] (numeric) = 1.233869619816699 " "
absolute error = 1.2880671587112147000000E-6 " "
relative error = 1.04392376097132080000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6426867154479665 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1632611768437635 " "
relative error = 6.177848319644231 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.6990000000000002 " "
y2[1] (analytic) = 1.2345139775567053 " "
y2[1] (numeric) = 1.2345126562645716 " "
absolute error = 1.321292133704688000000E-6 " "
relative error = 1.07029337676656370000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6434525230690635 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16402698446486053 " "
relative error = 6.205028576583787 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7000000000000002 " "
y2[1] (analytic) = 1.2351578127155118 " "
y2[1] (numeric) = 1.2351564575126774 " "
absolute error = 1.3552028343966072000000E-6 " "
relative error = 1.09719002741615220000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.644217687237691 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.164792148633488 " "
relative error = 6.232170272094345 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7010000000000002 " "
y2[1] (analytic) = 1.2358024127164415 " "
y2[1] (numeric) = 1.235801022906513 " "
absolute error = 1.3898099284759270000000E-6 " "
relative error = 1.12462147198835650000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6449822071886855 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16555666858448248 " "
relative error = 6.259273432332475 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7020000000000002 " "
y2[1] (analytic) = 1.2364477769148952 " "
y2[1] (numeric) = 1.2364463517906976 " "
absolute error = 1.4251241975404838000000E-6 " "
relative error = 1.15259554357917320000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.645746082157526 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16632054355332304 " "
relative error = 6.286338083422339 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7030000000000002 " "
y2[1] (analytic) = 1.237093904665508 " "
y2[1] (numeric) = 1.2370924435089727 " "
absolute error = 1.4611565353206402000000E-6 " "
relative error = 1.18112014763803670000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.646509311380338 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16708377277613495 " "
relative error = 6.313364251455787 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7040000000000002 " "
y2[1] (analytic) = 1.2377407953221526 " "
y2[1] (numeric) = 1.2377392974042023 " "
absolute error = 1.497917950343819000000E-6 " "
relative error = 1.21020326388607780000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6472718940938926 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16784635548968962 " "
relative error = 6.340351962492317 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7050000000000002 " "
y2[1] (analytic) = 1.2383884482379384 " "
y2[1] (numeric) = 1.2383869128183729 " "
absolute error = 1.5354195654904146000000E-6 " "
relative error = 1.2398529457175671000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.648033829535607 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16860829093140417 " "
relative error = 6.367301242559030 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7060000000000002 " "
y2[1] (analytic) = 1.2390368627652126 " "
y2[1] (numeric) = 1.239035289092593 " "
absolute error = 1.5736726195481054000000E-6 " "
relative error = 1.27007732121550600000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.648795116943546 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.16936957833934319 " "
relative error = 6.394212117650660 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7070000000000002 " "
y2[1] (analytic) = 1.2396860382555603 " "
y2[1] (numeric) = 1.2396844255670945 " "
absolute error = 1.612688465879586000000E-6 " "
relative error = 1.3008845918349620000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6495557555564226 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17013021695221964 " "
relative error = 6.421084613729568 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7080000000000002 " "
y2[1] (analytic) = 1.2403359740598068 " "
y2[1] (numeric) = 1.2403343215812304 " "
absolute error = 1.6524785764193695000000E-6 " "
relative error = 1.33228303538641850000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6503157446135974 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17089020600939442 " "
relative error = 6.447918756725695 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7090000000000002 " "
y2[1] (analytic) = 1.2409866695280156 " "
y2[1] (numeric) = 1.240984976473477 " "
absolute error = 1.693054538565164000000E-6 " "
relative error = 1.3642810032835270000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6510750833550816 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17164954475087857 " "
relative error = 6.474714572536610 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7100000000000002 " "
y2[1] (analytic) = 1.241638124009492 " "
y2[1] (numeric) = 1.241636389581433 " "
absolute error = 1.7344280589526306000000E-6 " "
relative error = 1.39688692334270750000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6518337710215367 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17240823241733372 " "
relative error = 6.501472087027492 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7110000000000002 " "
y2[1] (analytic) = 1.242290336852781 " "
y2[1] (numeric) = 1.2422885602418192 " "
absolute error = 1.776610961679026000000E-6 " "
relative error = 1.43010929810489660000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.652591806854275 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1731662682500721 " "
relative error = 6.528191326031088 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7120000000000002 " "
y2[1] (analytic) = 1.24294330740567 " "
y2[1] (numeric) = 1.2429414877904787 " "
absolute error = 1.8196151911897830000000E-6 " "
relative error = 1.46395670691350340000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6533491900952613 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17392365149105826 " "
relative error = 6.55487231534776 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7130000000000002 " "
y2[1] (analytic) = 1.2435970350151884 " "
y2[1] (numeric) = 1.2435951715623776 " "
absolute error = 1.8634528107241977000000E-6 " "
relative error = 1.4984378044142240000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6541059199871118 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17468038138290876 " "
relative error = 6.581515080745420 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7140000000000002 " "
y2[1] (analytic) = 1.2442515190276089 " "
y2[1] (numeric) = 1.244249610891604 " "
absolute error = 1.9081360049799656000000E-6 " "
relative error = 1.53356132244964970000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.654861995773097 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17543645716889378 " "
relative error = 6.608119647959578 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7150000000000002 " "
y2[1] (analytic) = 1.2449067587884473 " "
y2[1] (numeric) = 1.2449048051113683 " "
absolute error = 1.953677079002957800000E-6 " "
relative error = 1.5693360689151462000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6556174166971402 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17619187809293724 " "
relative error = 6.634686042693288 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7160000000000002 " "
y2[1] (analytic) = 1.245562753642464 " "
y2[1] (numeric) = 1.2455607535540034 " "
absolute error = 2.000088460629712000000E-6 " "
relative error = 1.6057709294700320000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.656372182003822 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17694664339961896 " "
relative error = 6.661214290617217 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7170000000000002 " "
y2[1] (analytic) = 1.2462195029336642 " "
y2[1] (numeric) = 1.246217455550965 " "
absolute error = 2.0473826991551647000000E-6 " "
relative error = 1.64287486621379430000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6571262909383764 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17770075233417337 " "
relative error = 6.687704417369546 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7180000000000002 " "
y2[1] (analytic) = 1.2468770060052987 " "
y2[1] (numeric) = 1.246874910432831 " "
absolute error = 2.095572467775142000000E-6 " "
relative error = 1.6806569193932480000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6578797427466947 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1784542041424917 " "
relative error = 6.714156448556032 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7190000000000002 " "
y2[1] (analytic) = 1.2475352621998643 " "
y2[1] (numeric) = 1.2475331175293014 " "
absolute error = 2.1446705629202256000000E-6 " "
relative error = 1.71912620661189290000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.658632536675325 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17920699807112195 " "
relative error = 6.74057040974997 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7200000000000002 " "
y2[1] (analytic) = 1.2481942708591052 " "
y2[1] (numeric) = 1.248192076169199 " "
absolute error = 2.1946899062541547000000E-6 " "
relative error = 1.75829192417587130000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6593846719714733 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.17995913336727032 " "
relative error = 6.766946326492202 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7210000000000002 " "
y2[1] (analytic) = 1.2488540313240124 " "
y2[1] (numeric) = 1.2488517856804688 " "
absolute error = 2.2456435435636024000000E-6 " "
relative error = 1.79816334594589230000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.660136147883005 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.180710609278802 " "
relative error = 6.793284224291132 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7220000000000002 " "
y2[1] (analytic) = 1.2495145429348258 " "
y2[1] (numeric) = 1.2495122453901786 " "
absolute error = 2.2975446472006666000000E-6 " "
relative error = 1.83874982503545450000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6608869636584433 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.18146142505424034 " "
relative error = 6.81958412862265 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7230000000000002 " "
y2[1] (analytic) = 1.2501758050310336 " "
y2[1] (numeric) = 1.250173454624518 " "
absolute error = 2.350406515638781000000E-6 " "
relative error = 1.88006079319415070000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6616371185469734 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.18221157994277037 " "
relative error = 6.845846064930232 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7240000000000002 " "
y2[1] (analytic) = 1.250837816951374 " "
y2[1] (numeric) = 1.2508354127087995 " "
absolute error = 2.4042425745829377000000E-6 " "
relative error = 1.9221057614349390000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.66238661179844 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.18296107319423704 " "
relative error = 6.8720700586248435 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7250000000000002 " "
y2[1] (analytic) = 1.251500578033835 " "
y2[1] (numeric) = 1.2514981189674577 " "
absolute error = 2.4590663774137766000000E-6 " "
relative error = 1.964894320126550000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.66313544266335 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.183709904059147 " "
relative error = 6.898256135084977 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7260000000000002 " "
y2[1] (analytic) = 1.2521640876156557 " "
y2[1] (numeric) = 1.2521615727240498 " "
absolute error = 2.5148916058537196000000E-6 " "
relative error = 2.00843613926232500000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6638836103928725 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.18445807178866946 " "
relative error = 6.924404319656645 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7270000000000002 " "
y2[1] (analytic) = 1.2528283450333264 " "
y2[1] (numeric) = 1.2528257733012556 " "
absolute error = 2.5717320708551483000000E-6 " "
relative error = 2.05274096890483260000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6646311142388397 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1852055756346367 " "
relative error = 6.950514637653372 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7280000000000002 " "
y2[1] (analytic) = 1.2534933496225897 " "
y2[1] (numeric) = 1.253490720020877 " "
absolute error = 2.629601712822449000000E-6 " "
relative error = 2.09781863909703830000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6653779534537483 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.18595241484954528 " "
relative error = 6.976587114356203 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7290000000000002 " "
y2[1] (analytic) = 1.2541591007184412 " "
y2[1] (numeric) = 1.2541564122038382 " "
absolute error = 2.688514602944281000000E-6 " "
relative error = 2.14367906065839140000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.666124127290759 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1866985886865562 " "
relative error = 7.002621775013682 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7300000000000002 " "
y2[1] (analytic) = 1.2548255976551297 " "
y2[1] (numeric) = 1.2548228491701865 " "
absolute error = 2.7484849431935743000000E-6 " "
relative error = 2.19033222491605150000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.666869635003698 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.18744409639949478 " "
relative error = 7.028618644841815 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7310000000000002 " "
y2[1] (analytic) = 1.2554928397661587 " "
y2[1] (numeric) = 1.2554900302390908 " "
absolute error = 2.809527067881845000000E-6 " "
relative error = 2.2377882046743750000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6676144758470572 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.18818893724285424 " "
relative error = 7.05457774902417 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7320000000000002 " "
y2[1] (analytic) = 1.2561608263842858 " "
y2[1] (numeric) = 1.2561579547288428 " "
absolute error = 2.8716554429930596000000E-6 " "
relative error = 2.28605715341306200000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6683586490759965 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1889331104717935 " "
relative error = 7.080499112711763 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7330000000000002 " "
y2[1] (analytic) = 1.2568295568415244 " "
y2[1] (numeric) = 1.256826621956857 " "
absolute error = 2.9348846675159024000000E-6 " "
relative error = 2.3351493060772810000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6691021539463424 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.18967661534213942 " "
relative error = 7.106382761023111 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7340000000000002 " "
y2[1] (analytic) = 1.2574990304691442 " "
y2[1] (numeric) = 1.2574960312396692 " "
absolute error = 2.9992294749980886000000E-6 " "
relative error = 2.38507498004125240000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.66984498971459 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19041945111038716 " "
relative error = 7.132228719044220 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7350000000000002 " "
y2[1] (analytic) = 1.258169246597672 " "
y2[1] (numeric) = 1.258166181892939 " "
absolute error = 3.06470473288023000000E-6 " "
relative error = 2.4358445743033160000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6705871556379037 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19116161703370071 " "
relative error = 7.158037011828559 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7360000000000002 " "
y2[1] (analytic) = 1.2588402045568912 " "
y2[1] (numeric) = 1.2588370732314476 " "
absolute error = 3.131325443606059000000E-6 " "
relative error = 2.48746857009407190000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.671328650974118 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19190311236991509 " "
relative error = 7.183807664397127 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7370000000000002 " "
y2[1] (analytic) = 1.259511903675844 " "
y2[1] (numeric) = 1.2595087045690985 " "
absolute error = 3.199106745510605000000E-6 " "
relative error = 2.53995753130567270000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.672069474981737 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19264393637753408 " "
relative error = 7.209540701738331 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7380000000000002 " "
y2[1] (analytic) = 1.2601843432828315 " "
y2[1] (numeric) = 1.260181075218918 " "
absolute error = 3.26806391348633000000E-6 " "
relative error = 2.59332210474293830000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.672809626919937 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19338408831573384 " "
relative error = 7.235236148808088 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7390000000000002 " "
y2[1] (analytic) = 1.260857522705414 " "
y2[1] (numeric) = 1.2608541844930548 " "
absolute error = 3.3382123592051727000000E-6 " "
relative error = 2.6475730200208436000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.673549106048566 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19412356744436288 " "
relative error = 7.26089403052979 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7400000000000002 " "
y2[1] (analytic) = 1.2615314412704124 " "
y2[1] (numeric) = 1.26152803170278 " "
absolute error = 3.409567632450816000000E-6 " "
relative error = 2.70272109034178750000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.674287911628145 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19486237302394205 " "
relative error = 7.2865143717942855 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7410000000000002 " "
y2[1] (analytic) = 1.2622060983039076 " "
y2[1] (numeric) = 1.2622026161584867 " "
absolute error = 3.482145420896643000000E-6 " "
relative error = 2.7587772120383380000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.675026042919869 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1956005043156659 " "
relative error = 7.312097197459889 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7420000000000002 " "
y2[1] (analytic) = 1.2628814931312433 " "
y2[1] (numeric) = 1.262877937169691 " "
absolute error = 3.555961552326181000000E-6 " "
relative error = 2.81575236605089150000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.675763499185606 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19633796058140307 " "
relative error = 7.33764253235237 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7430000000000002 " "
y2[1] (analytic) = 1.2635576250770244 " "
y2[1] (numeric) = 1.263553994045031 " "
absolute error = 3.6310319933008370000000E-6 " "
relative error = 2.8736576165883180000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6765002796879003 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19707474108369727 " "
relative error = 7.363150401264955 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7440000000000002 " "
y2[1] (analytic) = 1.264234493465119 " "
y2[1] (numeric) = 1.264230786092268 " "
absolute error = 3.707372851158297000000E-6 " "
relative error = 2.93250411242681800000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.677236383689971 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19781084508576807 " "
relative error = 7.388620828958334 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7450000000000002 " "
y2[1] (analytic) = 1.2649120976186587 " "
y2[1] (numeric) = 1.2649083126182843 " "
absolute error = 3.785000374456615000000E-6 " "
relative error = 2.99230308697522150000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.677971810455715 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.19854627185151186 " "
relative error = 7.41405384016066 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7460000000000002 " "
y2[1] (analytic) = 1.26559043686004 " "
y2[1] (numeric) = 1.2655865729290858 " "
absolute error = 3.863930954084438000000E-6 " "
relative error = 3.0530658588657980000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.678706559249705 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.1992810206455018 " "
relative error = 7.439449459567518 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7470000000000002 " "
y2[1] (analytic) = 1.2662695105109227 " "
y2[1] (numeric) = 1.2662655663298004 " "
absolute error = 3.944181122372825000000E-6 " "
relative error = 3.114803830964390000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6794406293371917 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20001509073298873 " "
relative error = 7.464807711841933 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7480000000000002 " "
y2[1] (analytic) = 1.2669493178922342 " "
y2[1] (numeric) = 1.2669452921246784 " "
absolute error = 4.025767555759785000000E-6 " "
relative error = 3.1775284921872570000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.680174019984106 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20074848137990298 " "
relative error = 7.490128621614407 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7490000000000002 " "
y2[1] (analytic) = 1.2676298583241663 " "
y2[1] (numeric) = 1.2676257496170928 " "
absolute error = 4.108707073458006700000E-6 " "
relative error = 3.2412514161585030000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.680906730457057 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20148119185285385 " "
relative error = 7.5154122134828665 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7500000000000002 " "
y2[1] (analytic) = 1.2683111311261792 " "
y2[1] (numeric) = 1.2683069381095387 " "
absolute error = 4.193016640563485000000E-6 " "
relative error = 3.30598426337262700000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6816387600233345 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20221322141913145 " "
relative error = 7.540658512012702 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7510000000000002 " "
y2[1] (analytic) = 1.2689931356170001 " "
y2[1] (numeric) = 1.2689888569036334 " "
absolute error = 4.278713366723252400000E-6 " "
relative error = 3.37173877984997040000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6823701079509084 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20294456934670535 " "
relative error = 7.565867541736696 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7520000000000002 " "
y2[1] (analytic) = 1.2696758711146243 " "
y2[1] (numeric) = 1.2696715053001173 " "
absolute error = 4.365814507023557700000E-6 " "
relative error = 3.4385267975447087000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.683100773508431 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20367523490422812 " "
relative error = 7.591039327155116 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7530000000000002 " "
y2[1] (analytic) = 1.2703593369363166 " "
y2[1] (numeric) = 1.2703548825988527 " "
absolute error = 4.454337463988267000000E-6 " "
relative error = 3.50636023562486240000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.683830755965238 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2044052173610349 " "
relative error = 7.616173892735674 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7540000000000002 " "
y2[1] (analytic) = 1.2710435323986113 " "
y2[1] (numeric) = 1.2710389880988244 " "
absolute error = 4.544299786912731000000E-6 " "
relative error = 3.57525109965123930000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.684560054591345 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20513451598714205 " "
relative error = 7.641271262913449 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7550000000000002 " "
y2[1] (analytic) = 1.2717284568173128 " "
y2[1] (numeric) = 1.2717238210981399 " "
absolute error = 4.635719172974006600000E-6 " "
relative error = 3.6452114821552190000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.685288668657455 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20586313005325207 " "
relative error = 7.66633146209104 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7560000000000002 " "
y2[1] (analytic) = 1.2724141095074968 " "
y2[1] (numeric) = 1.2724093808940287 " "
absolute error = 4.728613468119036000000E-6 " "
relative error = 3.7162535630395543000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6860165974349535 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20659105883075046 " "
relative error = 7.691354514638416 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7570000000000002 " "
y2[1] (analytic) = 1.2731004897835105 " "
y2[1] (numeric) = 1.273095666782843 " "
absolute error = 4.823000667508736700000E-6 " "
relative error = 3.7883896096284460000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6867438401959114 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2073183015917084 " "
relative error = 7.716340444892998 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7580000000000002 " "
y2[1] (analytic) = 1.2737875969589738 " "
y2[1] (numeric) = 1.2737826780600574 " "
absolute error = 4.918898916406178000000E-6 " "
relative error = 3.86163197706548700000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6874703962130866 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20804485760888358 " "
relative error = 7.741289277159648 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7590000000000002 " "
y2[1] (analytic) = 1.2744754303467798 " "
y2[1] (numeric) = 1.2744704140202687 " "
absolute error = 5.0163265110647610000000E-6 " "
relative error = 3.9359931087097050000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.688196264759923 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2087707261557199 " "
relative error = 7.766201035710641 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7600000000000002 " "
y2[1] (analytic) = 1.2751639892590951 " "
y2[1] (numeric) = 1.2751588739571964 " "
absolute error = 5.1153018987282200000000E-6 " "
relative error = 4.0114855358331980000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6889214451105516 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.20949590650634864 " "
relative error = 7.791075744785675 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7610000000000002 " "
y2[1] (analytic) = 1.2758532730073604 " "
y2[1] (numeric) = 1.2758480571636823 " "
absolute error = 5.215843678074705000000E-6 " "
relative error = 4.08812187766720960000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6896459365397924 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21022039793558944 " "
relative error = 7.815913428591880 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7620000000000002 " "
y2[1] (analytic) = 1.2765432809022927 " "
y2[1] (numeric) = 1.2765379629316904 " "
absolute error = 5.317970602325417000000E-6 " "
relative error = 4.16591484353475500000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6903697383231546 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21094419971895162 " "
relative error = 7.840714111303835 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7630000000000002 " "
y2[1] (analytic) = 1.2772340122538837 " "
y2[1] (numeric) = 1.2772285905523075 " "
absolute error = 5.421701576135973000000E-6 " "
relative error = 4.24487723010798460000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.691092849736836 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21166731113263282 " "
relative error = 7.865477817063500 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7640000000000002 " "
y2[1] (analytic) = 1.2779254663714021 " "
y2[1] (numeric) = 1.2779199393157425 " "
absolute error = 5.527055659593216000000E-6 " "
relative error = 4.3250219242339550000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6918152700577247 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2123897314535217 " "
relative error = 7.890204569980283 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7650000000000002 " "
y2[1] (analytic) = 1.278617642563394 " "
y2[1] (numeric) = 1.278612008511327 " "
absolute error = 5.634052066882944000000E-6 " "
relative error = 4.40636190158279260000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6925369985634013 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21311145995919833 " "
relative error = 7.914894394131022 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7660000000000002 " "
y2[1] (analytic) = 1.2793105401376832 " "
y2[1] (numeric) = 1.279304797427515 " "
absolute error = 5.742710168288312000000E-6 " "
relative error = 4.48891022790312070000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6932580345321373 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2138324959279343 " "
relative error = 7.9395473135599675 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7670000000000002 " "
y2[1] (analytic) = 1.2800041584013722 " "
y2[1] (numeric) = 1.2799983053518824 " "
absolute error = 5.853049489745743000000E-6 " "
relative error = 4.572680058364620000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.693978377242896 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.214552838638693 " "
relative error = 7.964163352278769 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7680000000000002 " "
y2[1] (analytic) = 1.2806984966608428 " "
y2[1] (numeric) = 1.2806925315711282 " "
absolute error = 5.9650897146212860000000E-6 " "
relative error = 4.657684638635890000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.694698025975336 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21527248737113291 " "
relative error = 7.988742534266557 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7690000000000002 " "
y2[1] (analytic) = 1.281393554221757 " "
y2[1] (numeric) = 1.2813874753710734 " "
absolute error = 6.078850683488568000000E-6 " "
relative error = 4.7439373043986510000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6954169800098073 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21599144140560433 " "
relative error = 8.01328488346981 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7700000000000002 " "
y2[1] (analytic) = 1.2820893303890568 " "
y2[1] (numeric) = 1.2820831360366618 " "
absolute error = 6.194352395016978000000E-6 " "
relative error = 4.83145148172886560000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.696135238627357 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21670970002315393 " "
relative error = 8.037790423802484 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7710000000000002 " "
y2[1] (analytic) = 1.2827858244669665 " "
y2[1] (numeric) = 1.282779512851959 " "
absolute error = 6.3116150075259720000000E-6 " "
relative error = 4.9202406879953050000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.696852801109726 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2174272625055229 " "
relative error = 8.062259179145926 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7720000000000002 " "
y2[1] (analytic) = 1.2834830357589921 " "
y2[1] (numeric) = 1.2834766051001536 " "
absolute error = 6.430658838540992000000E-6 " "
relative error = 5.010318531197570000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6975696667393514 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21814412813514839 " "
relative error = 8.086691173348896 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7730000000000002 " "
y2[1] (analytic) = 1.284180963567922 " "
y2[1] (numeric) = 1.2841744120635563 " "
absolute error = 6.551504365681637000000E-6 " "
relative error = 5.1016987103431080000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6982858347993686 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21886029619516556 " "
relative error = 8.111086430227617 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7740000000000002 " "
y2[1] (analytic) = 1.2848796071958288 " "
y2[1] (numeric) = 1.2848729330236004 " "
absolute error = 6.6741722284380240000000E-6 " "
relative error = 5.1943950165136470000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6990013045736094 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.21957576596940642 " "
relative error = 8.135444973565702 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7750000000000002 " "
y2[1] (analytic) = 1.2855789659440688 " "
y2[1] (numeric) = 1.2855721672608413 " "
absolute error = 6.798683227504654000000E-6 " "
relative error = 5.2884213320276440000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.6997160753466036 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.22029053674240062 " "
relative error = 8.159766827114165 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7760000000000002 " "
y2[1] (analytic) = 1.2862790391132832 " "
y2[1] (numeric) = 1.2862721140549573 " "
absolute error = 6.925058325890632000000E-6 " "
relative error = 5.3837916309858620000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7004301464035807 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2210046077993777 " "
relative error = 8.184052014591472 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7770000000000002 " "
y2[1] (analytic) = 1.286979826003399 " "
y2[1] (numeric) = 1.2869727726847489 " "
absolute error = 7.0533186502519380000000E-6 " "
relative error = 5.4805199799870910000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.70114351703047 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.22171797842626706 " "
relative error = 8.208300559683515 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7780000000000002 " "
y2[1] (analytic) = 1.28768132591363 " "
y2[1] (numeric) = 1.2876741424281388 " "
absolute error = 7.183485491113473000000E-6 " "
relative error = 5.578620537978740000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7018561865139006 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.22243064790969758 " "
relative error = 8.232512486043573 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7790000000000002 " "
y2[1] (analytic) = 1.288383538142475 " "
y2[1] (numeric) = 1.2883762225621724 " "
absolute error = 7.315580302647007000000E-6 " "
relative error = 5.6781075557626510000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.702568154141203 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2231426155370002 " "
relative error = 8.256687817292377 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7800000000000002 " "
y2[1] (analytic) = 1.289086461987723 " "
y2[1] (numeric) = 1.2890790123630174 " "
absolute error = 7.449624705557767000000E-6 " "
relative error = 5.7789953779133840000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7032794192004106 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2238538805962076 " "
relative error = 8.28082657701808 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7810000000000002 " "
y2[1] (analytic) = 1.2897900967464495 " "
y2[1] (numeric) = 1.2897825111059638 " "
absolute error = 7.585640485752165000000E-6 " "
relative error = 5.8812984414186990000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.703989980980257 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.224564442376054 " "
relative error = 8.30492878877622 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7820000000000003 " "
y2[1] (analytic) = 1.29049444171502 " "
y2[1] (numeric) = 1.2904867180654243 " "
absolute error = 7.723649595670068000000E-6 " "
relative error = 5.9850312763886220000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.704699838770181 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.22527430016597805 " "
relative error = 8.328994476089798 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7830000000000003 " "
y2[1] (analytic) = 1.2911994961890898 " "
y2[1] (numeric) = 1.2911916325149337 " "
absolute error = 7.863674156061151000000E-6 " "
relative error = 6.0902085071055170000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.705408991860325 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2259834532561218 " "
relative error = 8.35302366244922 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7840000000000003 " "
y2[1] (analytic) = 1.2919052594636042 " "
y2[1] (numeric) = 1.2918972537271498 " "
absolute error = 8.00573645443059000000E-6 " "
relative error = 6.1968448504920180000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.706117439541536 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.22669190093733294 " "
relative error = 8.377016371312346 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7850000000000003 " "
y2[1] (analytic) = 1.2926117308328005 " "
y2[1] (numeric) = 1.292603580973852 " "
absolute error = 8.149858948369726000000E-6 " "
relative error = 6.304955118362540000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.706825181105366 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.22739964250116307 " "
relative error = 8.400972626104416 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7860000000000003 " "
y2[1] (analytic) = 1.2933189095902067 " "
y2[1] (numeric) = 1.2933106135259427 " "
absolute error = 8.296064264001757000000E-6 " "
relative error = 6.414554215889721000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.707532215844074 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.22810667723987121 " "
relative error = 8.424892450218136 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7870000000000003 " "
y2[1] (analytic) = 1.2940267950286444 " "
y2[1] (numeric) = 1.2940183506534464 " "
absolute error = 8.444375197980136000000E-6 " "
relative error = 6.5256571428207650000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7082385430506255 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2288130044464225 " "
relative error = 8.44877586701362 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7880000000000003 " "
y2[1] (analytic) = 1.2947353864402285 " "
y2[1] (numeric) = 1.2947267916255103 " "
absolute error = 8.594814718154709000000E-6 " "
relative error = 6.6382789936602140000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7089441620186925 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.22951862341448948 " "
relative error = 8.472622899818402 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7890000000000003 " "
y2[1] (analytic) = 1.2954446831163673 " "
y2[1] (numeric) = 1.295435935710404 " "
absolute error = 8.747405963349664000000E-6 " "
relative error = 6.7524349571659030000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.709649072042657 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23022353343845392 " "
relative error = 8.496433571927486 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7900000000000003 " "
y2[1] (analytic) = 1.296154684347764 " "
y2[1] (numeric) = 1.2961457821755191 " "
absolute error = 8.90217224491785000000E-6 " "
relative error = 6.8681403172164580000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.710353272417608 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23092773381340503 " "
relative error = 8.520207906603252 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7910000000000003 " "
y2[1] (analytic) = 1.296865389424418 " "
y2[1] (numeric) = 1.2968563302873701 " "
absolute error = 9.059137047850996000000E-6 " "
relative error = 6.9854104533329200000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.711056762439346 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.231631223835143 " "
relative error = 8.543945927075558 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7920000000000003 " "
y2[1] (analytic) = 1.2975767976356238 " "
y2[1] (numeric) = 1.2975675793115937 " "
absolute error = 9.218324030113578000000E-6 " "
relative error = 7.1042608398290740000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7117595414043807 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23233400280017769 " "
relative error = 8.567647656541675 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7930000000000003 " "
y2[1] (analytic) = 1.2982889082699736 " "
y2[1] (numeric) = 1.298279528512949 " "
absolute error = 9.379757024641222000000E-6 " "
relative error = 7.2247070470163350000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.712461608609934 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2330360700057308 " "
relative error = 8.591313118166335 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7940000000000003 " "
y2[1] (analytic) = 1.2990017206153566 " "
y2[1] (numeric) = 1.2989921771553175 " "
absolute error = 9.543460039118656000000E-6 " "
relative error = 7.3467647406947050000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7131629633539376 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23373742474973458 " "
relative error = 8.614942335081665 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7950000000000003 " "
y2[1] (analytic) = 1.2997152339589606 " "
y2[1] (numeric) = 1.2997055245017033 " "
absolute error = 9.709457257311982000000E-6 " "
relative error = 7.4704496828407300000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.713863604935037 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23443806633083408 " "
relative error = 8.638535330387244 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7960000000000003 " "
y2[1] (analytic) = 1.300429447587272 " "
y2[1] (numeric) = 1.3004195698142327 " "
absolute error = 9.877773039290716000000E-6 " "
relative error = 7.5957777314388430000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7145635326525914 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23513799404838842 " "
relative error = 8.662092127150125 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7970000000000003 " "
y2[1] (analytic) = 1.3011443607860778 " "
y2[1] (numeric) = 1.3011343123541546 " "
absolute error = 1.004843192320414900000E-5 " "
relative error = 7.7227648415072510000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7152627458066725 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23583720720246948 " "
relative error = 8.68561274840476 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7980000000000003 " "
y2[1] (analytic) = 1.3018599728404645 " "
y2[1] (numeric) = 1.3018497513818401 " "
absolute error = 1.022145862439316500000E-5 " "
relative error = 7.8514270640731540000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.715961243698067 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23653570509386412 " "
relative error = 8.709097217153065 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.7990000000000003 " "
y2[1] (analytic) = 1.3025762830348202 " "
y2[1] (numeric) = 1.302565886156783 " "
absolute error = 1.039687803716660100000E-5 " "
relative error = 7.9817805471963090000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.716659025628278 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2372334870240751 " "
relative error = 8.732545556364418 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8000000000000003 " "
y2[1] (analytic) = 1.3032932906528347 " "
y2[1] (numeric) = 1.3032827159375993 " "
absolute error = 1.05747152354673800000E-5 " "
relative error = 8.1138415361367990000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.717356090899523 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23793055229532012 " "
relative error = 8.755957788975616 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8010000000000003 " "
y2[1] (analytic) = 1.3040109949775007 " "
y2[1] (numeric) = 1.3040002399820274 " "
absolute error = 1.075499547331659800000E-5 " "
relative error = 8.2476263733513720000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7180524388147367 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.23862690021053368 " "
relative error = 8.779333937890907 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8020000000000003 " "
y2[1] (analytic) = 1.3047293952911134 " "
y2[1] (numeric) = 1.3047184575469284 " "
absolute error = 1.09377441850355700000E-5 " "
relative error = 8.3831514983190230000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.718748068677572 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2393225300733688 " "
relative error = 8.802674025982034 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8030000000000003 " "
y2[1] (analytic) = 1.305448490875273 " "
y2[1] (numeric) = 1.3054373678882856 " "
absolute error = 1.112298698746627700000E-5 " "
relative error = 8.5204334488973750000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.719442979792398 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2400174411881948 " "
relative error = 8.82597807608813 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8040000000000003 " "
y2[1] (analytic) = 1.306168281010884 " "
y2[1] (numeric) = 1.3061569702612046 " "
absolute error = 1.131074967930523200000E-5 " "
relative error = 8.6594888604640550000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.720137171464304 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2407116328601009 " "
relative error = 8.84924611101583 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8050000000000003 " "
y2[1] (analytic) = 1.306888764978156 " "
y2[1] (numeric) = 1.3068772639199135 " "
absolute error = 1.150105824243574700000E-5 " "
relative error = 8.800334466589420000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7208306429990987 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2414051043948957 " "
relative error = 8.87247815353922 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8060000000000003 " "
y2[1] (analytic) = 1.3076099420566054 " "
y2[1] (numeric) = 1.307598248117763 " "
absolute error = 1.16939388423720200000E-5 " "
relative error = 8.9429870990272720000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7215233937033103 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2420978550991073 " "
relative error = 8.895674226399828 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8070000000000003 " "
y2[1] (analytic) = 1.3083318115250548 " "
y2[1] (numeric) = 1.3083199221072261 " "
absolute error = 1.18894178287032300000E-5 " "
relative error = 9.0874636877049950000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.722215422884189 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24278988427998582 " "
relative error = 8.918834352306689 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8080000000000003 " "
y2[1] (analytic) = 1.309054372661635 " "
y2[1] (numeric) = 1.3090422851398982 " "
absolute error = 1.208752173686988800000E-5 " "
relative error = 9.2337812617308880000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7229067298497043 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24348119124550127 " "
relative error = 8.941958553936244 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8090000000000003 " "
y2[1] (analytic) = 1.3097776247437853 " "
y2[1] (numeric) = 1.309765336466497 " "
absolute error = 1.228827728838588500000E-5 " "
relative error = 9.3819569492108870000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7235973139085505 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24417177530434753 " "
relative error = 8.965046853932462 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8100000000000003 " "
y2[1] (analytic) = 1.3105015670482532 " "
y2[1] (numeric) = 1.3104890753368628 " "
absolute error = 1.2491711390394400000E-5 " "
relative error = 9.5320079765570020000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7242871743701427 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24486163576593967 " "
relative error = 8.988099274906723 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8110000000000003 " "
y2[1] (analytic) = 1.3112261988510965 " "
y2[1] (numeric) = 1.3112135009999584 " "
absolute error = 1.269785113811039400000E-5 " "
relative error = 9.6839516699989060000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.724976310544621 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24555077194041797 " "
relative error = 9.011115839437942 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8120000000000003 " "
y2[1] (analytic) = 1.3119515194276836 " "
y2[1] (numeric) = 1.3119386127038688 " "
absolute error = 1.290672381482061000000E-5 " "
relative error = 9.8378054552282120000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.725664721742849 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24623918313864612 " "
relative error = 9.034096570072473 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8130000000000003 " "
y2[1] (analytic) = 1.3126775280526939 " "
y2[1] (numeric) = 1.3126644096958013 " "
absolute error = 1.311835689254969900000E-5 " "
relative error = 9.993586857550819000E-4 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.726352407276416 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24692686867221303 " "
relative error = 9.057041489324162 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8140000000000003 " "
y2[1] (analytic) = 1.3134042240001191 " "
y2[1] (numeric) = 1.3133908912220862 " "
absolute error = 1.333277803294841000000E-5 " "
relative error = 1.0151313502207225000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7270393664576362 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24761382785343322 " "
relative error = 9.079950619674335 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8150000000000003 " "
y2[1] (analytic) = 1.3141316065432629 " "
y2[1] (numeric) = 1.3141180565281754 " "
absolute error = 1.355001508751563200000E-5 " "
relative error = 1.0311003114184324000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7277255985995508 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24830005999534777 " "
relative error = 9.102823983571815 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8160000000000003 " "
y2[1] (analytic) = 1.314859674954743 " "
y2[1] (numeric) = 1.3148459048586438 " "
absolute error = 1.377009609915269600000E-5 " "
relative error = 1.0472673519040468000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.728411103015927 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24898556441172381 " "
relative error = 9.125661603432874 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8170000000000003 " "
y2[1] (analytic) = 1.3155884285064912 " "
y2[1] (numeric) = 1.3155744354571888 " "
absolute error = 1.39930493023854300000E-5 " "
relative error = 1.0636342642714562000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.729095879021261 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.24967034041705816 " "
relative error = 9.148463501641347 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8180000000000003 " "
y2[1] (analytic) = 1.3163178664697535 " "
y2[1] (numeric) = 1.3163036475666297 " "
absolute error = 1.421890312380824600000E-5 " "
relative error = 1.080202851150389000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.729779925930777 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2503543873265741 " "
relative error = 9.171229700548494 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8190000000000003 " "
y2[1] (analytic) = 1.3170479881150925 " "
y2[1] (numeric) = 1.3170335404289086 " "
absolute error = 1.444768618386049800000E-5 " "
relative error = 1.0969749253053004000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7304632430604276 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.25103770445622464 " "
relative error = 9.193960222473098 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8200000000000003 " "
y2[1] (analytic) = 1.3177787927123865 " "
y2[1] (numeric) = 1.31776411328509 " "
absolute error = 1.46794272966044300000E-5 " "
relative error = 1.113952309582228000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7311458297268962 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.25172029112269323 " "
relative error = 9.216655089701463 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8210000000000003 " "
y2[1] (analytic) = 1.3185102795308312 " "
y2[1] (numeric) = 1.3184953653753604 " "
absolute error = 1.49141554708354100000E-5 " "
relative error = 1.131136836956808000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7318276852475956 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.25240214664339256 " "
relative error = 9.23931432448736 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8220000000000003 " "
y2[1] (analytic) = 1.3192424478389393 " "
y2[1] (numeric) = 1.3192272959390294 " "
absolute error = 1.515189990985987800000E-5 " "
relative error = 1.14853035048109000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.732508808940671 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.25308327033646805 " "
relative error = 9.261937949052118 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8230000000000003 " "
y2[1] (analytic) = 1.3199752969045428 " "
y2[1] (numeric) = 1.3199599042145287 " "
absolute error = 1.539269001415988200000E-5 " "
relative error = 1.166134703449154000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7331892001249987 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.25376366152079566 " "
relative error = 9.284525985584537 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8240000000000003 " "
y2[1] (analytic) = 1.3207088259947928 " "
y2[1] (numeric) = 1.320693189439412 " "
absolute error = 1.563655538072694600000E-5 " "
relative error = 1.1839517593099357000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.733868858120187 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2544433195159841 " "
relative error = 9.307078456240939 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8250000000000003 " "
y2[1] (analytic) = 1.3214430343761603 " "
y2[1] (numeric) = 1.3214271508503561 " "
absolute error = 1.588352580417229400000E-5 " "
relative error = 1.2019833917147056000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7345477822465787 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2551222436423757 " "
relative error = 9.329595383145179 "%"
h = 1.000E-3 " "
" "
"TOP MAIN SOLVE Loop"
"NO POLE"
"NO POLE"
x[1] = 0.8260000000000003 " "
y2[1] (analytic) = 1.3221779213144367 " "
y2[1] (numeric) = 1.32216178768316 " "
absolute error = 1.613363127672684500000E-5 " "
relative error = 1.2202314844803697000E-3 "%"
h = 1.000E-3 " "
y1[1] (analytic) = 2.7352259718252494 " "
y1[1] (numeric) = 2.479425538604203 " "
absolute error = 0.2558004332210464 " "
relative error = 9.352076788388628 "%"
h = 1.000E-3 " "
"Finished!"
"Maximum Time Reached before Solution Completed!"
"diff(y2,x,1) = y1 - 2.0;"
"diff(y1,x,1) = diff(y2,x,5);"
Iterations = 326
"Total Elapsed Time "= 15 Minutes 9 Seconds
"Elapsed Time(since restart) "= 15 Minutes 9 Seconds
"Expected Time Remaining "= 7 Hours 5 Minutes 22 Seconds
"Optimized Time Remaining "= 7 Hours 5 Minutes 14 Seconds
"Time to Timeout " Unknown
Percent Done = 3.442105263157898 "%"
(%o56) true
(%o56) diffeq.max