R Under development (unstable) (2024-08-21 r87038 ucrt) -- "Unsuffered Consequences" Copyright (C) 2024 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > ####--------------- bd0() & ebd0() ------------------------------------------------ > ## > ## was 2nd part of ./stirlerr-tst.R > > require(DPQ) Loading required package: DPQ > for(pkg in c("Rmpfr", "DPQmpfr")) + if(!requireNamespace(pkg)) { + cat("no CRAN package", sQuote(pkg), " ---> no tests here.\n") + q("no") + } Loading required namespace: Rmpfr Loading required namespace: DPQmpfr > require("Rmpfr") Loading required package: Rmpfr Loading required package: gmp Attaching package: 'gmp' The following objects are masked from 'package:base': %*%, apply, crossprod, matrix, tcrossprod C code of R package 'Rmpfr': GMP using 64 bits per limb Attaching package: 'Rmpfr' The following object is masked from 'package:gmp': outer The following object is masked from 'package:DPQ': log1mexp The following objects are masked from 'package:stats': dbinom, dgamma, dnbinom, dnorm, dpois, dt, pnorm The following objects are masked from 'package:base': cbind, pmax, pmin, rbind > > source(system.file(package="DPQ", "test-tools.R", mustWork=TRUE)) > ## => showProc.time(), ... list_() , loadList() , readRDS_() , save2RDS() > ##_ options(conflicts.policy = list(depends.ok=TRUE, error=FALSE, warn=FALSE)) > require(sfsmisc) # masking 'list_' *and* gmp's factorize(), is.whole() Loading required package: sfsmisc Attaching package: 'sfsmisc' The following object is masked _by_ '.GlobalEnv': list_ The following objects are masked from 'package:gmp': factorize, is.whole > ##_ options(conflicts.policy = NULL) > > pks <- c("sfsmisc", "DPQ", "Rmpfr", "DPQmpfr") > sapply(lapply(setNames(,pks), packageVersion), format) sfsmisc DPQ Rmpfr DPQmpfr "1.1.19" "0.5.9" "0.9.5" "0.3.3" > > showProc.time() Time (user system elapsed): 0.01 0 0.02 > > ## ebd0 constants: the column sums of "bd0_scale": log(n / 1024) for all these n > ## ---- according to the *comments* in the C code -- so here I test that at least the *sums* are correct > bd0.n <- c(2048,2032,2016,2001,1986,1971,1956,1942,1928,1913,1900,1886,1872,1859, + 1846,1833,1820,1808,1796,1783,1771,1759,1748,1736,1725,1713,1702,1691, + 1680,1670,1659,1649,1638,1628,1618,1608,1598,1589,1579,1570,1560,1551, + 1542,1533,1524,1515,1507,1498,1489,1481,1473,1464,1456,1448,1440,1432, + 1425,1417,1409,1402,1394,1387,1380,1372,1365,1358,1351,1344,1337,1331, + 1324,1317,1311,1304,1298,1291,1285,1279,1273,1266,1260,1254,1248,1242, + 1237,1231,1225,1219,1214,1208,1202,1197,1192,1186,1181,1176,1170,1165, + 1160,1155,1150,1145,1140,1135,1130,1125,1120,1116,1111,1106,1101,1097, + 1092,1088,1083,1079,1074,1070,1066,1061,1057,1053,1049,1044,1040,1036, + 1032,1028,1024) > > stopifnot( + all.equal(bd0.n, + 1024 * exp(colSums(DPQ:::logf_mat))) + ) ## on lynne (64-bit, Fedora 32, 2021) they are even *identical* > identical(bd0.n, 1024 * exp(colSums(DPQ:::logf_mat))) # amazingly to me [1] TRUE > > ## Also, the numbers themselves decrease monotonely, > ## their differences are close to, but *not* monotone: > diff(bd0.n) # -16 -16 -15 -15 -15 -15 -14 -14 -15 -13 -14 ... [1] -16 -16 -15 -15 -15 -15 -14 -14 -15 -13 -14 -14 -13 -13 -13 -13 -12 -12 [19] -13 -12 -12 -11 -12 -11 -12 -11 -11 -11 -10 -11 -10 -11 -10 -10 -10 -10 [37] -9 -10 -9 -10 -9 -9 -9 -9 -9 -8 -9 -9 -8 -8 -9 -8 -8 -8 [55] -8 -7 -8 -8 -7 -8 -7 -7 -8 -7 -7 -7 -7 -7 -6 -7 -7 -6 [73] -7 -6 -7 -6 -6 -6 -7 -6 -6 -6 -6 -5 -6 -6 -6 -5 -6 -6 [91] -5 -5 -6 -5 -5 -6 -5 -5 -5 -5 -5 -5 -5 -5 -5 -5 -4 -5 [109] -5 -5 -4 -5 -4 -5 -4 -5 -4 -4 -5 -4 -4 -4 -5 -4 -4 -4 [127] -4 -4 > # ^^^^^^^^^^^^^^ (etc) > > do.pdf <- TRUE > do.pdf <- !dev.interactive(orNone = TRUE) > do.pdf [1] TRUE > if(do.pdf) pdf("diff-bd0_tab.pdf") > > plot(diff(bd0.n), type="b") > c2 <- adjustcolor(2, 1/2) > par(new=TRUE) > plot(diff(bd0.n, differences = 2), type="b", col=c2, axes=FALSE, ann=FALSE) > axis(4, at=-1:2, col=c2, col.axis=c2) > > showProc.time() Time (user system elapsed): 0.05 0 0.04 > > > ## use functionality originally in ~/R/MM/NUMERICS/dpq-functions/15628-dpois_raw_accuracy.R > ## now -- require(Rmpfr) > > > ## transition till DPQmpfr exports this *and* that version is on CRAN, to ease maintainer("DPQ"): > ## vvvvvvvvvvvvvvvvvvvvvvvvvvvvv > if(file.exists(ff <- "~/R/Pkgs/DPQmpfr/R/dpoisEr.R")) withAutoprint({ #------------- + + source(ff) + ##-- ----- *or* move to vignette ../vignettes/log1pmx-etc.Rnw <<<<<<<<<<<<<<< + + ##-------- small lambda --- is dpois_simpl0() good ? + + range(dpE40 <- dpoisEr(40.25, x=0:200)) + ## -4.401959e-16 3.645529e-16 + + ## dpois_simpl0() uses "old" direct formula on original scale: factorial(x) + stopifnot(factorial(170) < Inf, + factorial(171) == Inf) + xS <- 0:170 # the full range of "sensible" x values for dpois_simpl0 + range(dpE40Sim <- dpoisEr(40.25, x=xS, dpoisFUN = dpois_simpl0)) + ## -1.299950e-13 1.118291e-13 + p.dpoisEr(dpE40Sim) + ## --> very suprising: errors are *very* small up to x <= 49, then in in the order of 1e-13 + p.dpoisEr(dpE40Sim, ylim = c(-1,1)*4e-16) + + ## zoom in --- integer x only: + range(dpE40Sim2 <- dpoisEr(40.25, x=0:49, dpoisFUN = dpois_simpl0)) + ## -2.889661e-16 2.076597e-16 + p.dpoisEr(dpE40Sim2) # --- almost all in [-eps, +eps] + + ## zoom in and use non-integer x: + range(dpE40Sim2d <- dpoisEr(40.25, x=seq(0, 49, by=1/8), dpoisFUN = dpois_simpl0)) + ## [1] -3.861877e-14 3.080750e-14 == Oops ! blown up to + p.dpoisEr(dpE40Sim2d) + + }) > > ### MM: FIXME -- moved all this to an Rmpfr vignette: > ### > " ~/R/D/R-forge/Rmpfr/pkg/vignettes/gamma-inaccuracy.Rnw " [1] " ~/R/D/R-forge/Rmpfr/pkg/vignettes/gamma-inaccuracy.Rnw " > ##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > ## and the R code actually to the R script: > " ~/R/D/R-forge/Rmpfr/pkg/vignettes/gamma-inaccuracy_src/plot-factErr-def.R " [1] " ~/R/D/R-forge/Rmpfr/pkg/vignettes/gamma-inaccuracy_src/plot-factErr-def.R " > > ##=======> gamma(x) itself suffers from the fact that exp(y) has a *large* relative error, > ## -------- when |y| ~ 100 or so, more specifically, the > ## relative error of exp(y) = |y| * {rel.err(y)} , since > ## exp(((1+ eps)*y) = exp(y) * exp(eps*y) >= exp(y) (1 + eps*y) and indeed, > ## the inaccuracy of y (i.e. eps) is blown up by a factor |y| which is not small here! > > > ## close to over-/underflow ------- > > ### Large lambda == np == M ------- > > if(do.pdf) { dev.off(); pdf("bd0-ebd0.pdf") } > > ##-- TODO ----- *or* move to vignette ---> ../vi??????????? > > LL <- 1e20 > dput(x1 <- 1e20 - 2e11) # 9.99999998e+19 9.99999998e+19 > > (P1 <- dpois (x1, LL)) # was 3.989455e-11; now 5.520993e-98 [1] 5.520993e-98 > (P1m <- Rmpfr::dpois(mpfr(x1, 128), LL)) # 5.52099285934214335003128935..e-98 1 'mpfr' number of precision 128 bits [1] 5.520992859342143350031289352677120249641e-98 > ## However -- the ebd0() version > (P1e <- dpois_raw(x1, LL, version="ebd0_v1")) [1] 5.520993e-98 > ## was 3.989455e-11, but now good! > stopifnot(exprs = { + all.equal(P1 , 5.520992859342e-98, tol=1e-12) + all.equal(P1e, P1, tol=1e-12) + all.equal(P1m, P1, tol=1e-12) + }) > > options(digits=9) > > ## indeed: regular bd0() works "ok" --- but ebd0() does non-sense !! > (bd.1 <- bd0(x1, LL, verbose=2)) bd0(1e+20, 1e+20): T.series w/ 2 terms -> bd0=200 [1] 199.999992 > ## bd0(1e+20, 1e+20): T.series w/ 2 terms -> bd0=200 > ## [1] 200 > (bd.1M <- bd0(x1, mpfr(LL, 128), verbose=2)) bd0(1e+20, 1e+20): T.series w/ 3 terms -> bd0=200 1 'mpfr' number of precision 128 bits [1] 199.9999919413334091607468236761591740489 > ## bd0(1e+20, 1e+20): T.series w/ 3 terms -> bd0=200 > ## ---> 199.9999919413334091607468236761591740489 > asNumeric(bd.1 / bd.1M - 1)# -1.82e-17 -- suggests bd0() is really accurate here [1] -1.8200191e-17 > stopifnot(abs(bd.1 / bd.1M - 1) < 3e-16, + all.equal(199.999991941333, bd.1, tolerance=1e-14)) > > ebd0(x1, LL, verbose=TRUE)# fixed since June 6, 2021 ebd0(x=1e+20, M=1e+20): M/x = (r=0.500000001) * 2^(e=1); i=0, f=2048, fg=f*2^-(e+10)=1 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 1.99999996304e-09 1a. before adding -x * log1pmx(.) = -x * -2e-18 = 200 1. after A.(-x*l..): yl,yh = ( -8.05867e-06, 200); yl+yh= 200 ___ fg = 1 ___ skipping further steps yh yl 1 200 -8.05866662e-06 > > showProc.time() Time (user system elapsed): 0.09 0.03 0.13 > > ### Large x -- small np == M ------------------------------------ > > > mpfrPrec <- 1024 > mpfrPrec <- 256 > > yy <- bd0 (1e307, 10^(-5:1), verbose=TRUE) > yhl <- ebd0 (1e307, 10^(-5:1), verbose=TRUE) ebd0(x=1e+307, M=1e-05): M/x = (r=0.736335108038475) * 2^(e=-1036); i=61, f=1387, fg=f*2^-(e+10)=Inf --> fg = +Inf --> return( +Inf ) ebd0(x=1e+307, M=0.0001): M/x = (r=0.920418885049457) * 2^(e=-1033); i=108, f=1111, fg=f*2^-(e+10)=Inf --> fg = +Inf --> return( +Inf ) ebd0(x=1e+307, M=0.001): M/x = (r=0.575261803155939) * 2^(e=-1029); i=19, f=1783, fg=f*2^-(e+10)=Inf --> fg = +Inf --> return( +Inf ) ebd0(x=1e+307, M=0.01): M/x = (r=0.719077253944928) * 2^(e=-1026); i=56, f=1425, fg=f*2^-(e+10)=Inf --> fg = +Inf --> return( +Inf ) ebd0(x=1e+307, M=0.1): M/x = (r=0.898846567431158) * 2^(e=-1023); i=102, f=1140, fg=f*2^-(e+10)=1.00067e+308 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.107312 -4.72853e-09 -4.29763e-16 5.35114e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0006690301479688298 1a. before adding -x * log1pmx(.) = -x * -2.23701e-07 = 2.23701e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.23701e+300); yl+yh= 2.23701e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.07312e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1): M/x = (r=0.561779104644474) * 2^(e=-1019); i=16, f=1820, fg=f*2^-(e+10)=9.98475e+306 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=10): M/x = (r=0.702223880805592) * 2^(e=-1016); i=52, f=1456, fg=f*2^-(e+10)=9.98475e+305 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.351976 2.85039e-08 -9.56643e-16 -6.4096e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.51978e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) > yhlC<- ebd0C(1e307, 10^(-5:1)) ## newly returns data.frame > stopifnot(yy == Inf, yhl$yh == Inf, yhlC == yhl) > yM <- bd0(mpfr(1e307, mpfrPrec), 10^(-5:1)) > roundMpfr(range(yM), 12) ## 7.0363e+309 7.1739e+309 -- *are* larger than DBL_MAX 2 'mpfr' numbers of precision 12 bits [1] 7.0363e+309 7.1739e+309 > > > ### Now *BOTH* x and lambda are large : --------------------------------------- > ## (FIXME?? Small loss for ebd0, see below) <<< ??? > ## is bd0(, *) really accurate ??? > ## it uses it's own convergent series approximation for |x-np| < .. ???? > > x. <- 1e307 > ebd0(x., 10^(300:308)) yh yl 1 1.51180958e+308 0 2 1.28155116e+308 0 3 1.05129355e+308 0 4 8.21044037e+307 0 5 5.90875528e+307 0 6 3.61517019e+307 0 7 1.40258509e+307 0 8 0.00000000e+00 0 9 6.69741491e+307 0 > > stopifnot(is.finite(Llam <- 2^(990:1024 - 1e-12))) > > bd0ver <- function(x, np, mpfrPrec, chkVerb=TRUE, keepMpfr=FALSE) { + stopifnot(length(mpfrPrec <- as.integer(mpfrPrec)) == 1, + !is.na(mpfrPrec), mpfrPrec >= 64, + x >= 0, np >= 0) + yy <- bd0 (x, np) + yhl <- ebd0 (x, np) + yhlC <- ebd0C(x, np) + if(chkVerb) { + yhl. <- ebd0 (x, np, verbose=TRUE) + yhlC. <- ebd0C(x, np, verbose=TRUE) + stopifnot(identical(yhl., yhl), + identical(yhlC., yhlC)) + } + epsC <- .Machine$double.eps + aeq0 <- all.equal(yhl, yhlC, tol = 0) + aeq4 <- all.equal(yhl, yhlC, tol = 4*epsC) + if(!isTRUE(aeq4)) warning("the C and R versions of ebd0() differ:", aeq4) + stopifnot(is.whole(yhl [["yh"]]), + is.whole(yhlC[["yh"]])) + yM <- bd0(mpfr(x, mpfrPrec), + mpfr(np,mpfrPrec), verbose=chkVerb)# more accurate ! (?? always ??) + relE <- relErrV(target = yM, # the mpfr one + cbind(ebd0 = yhl [["yh"]] + yhl [["yl"]], + ebd0C= yhlC[["yh"]] + yhlC[["yl"]], + bd0 = yy)) + relE <- structure(asNumeric(relE), dim=dim(relE), dimnames=dimnames(relE)) + ## return: + list(x=x, np=np, bd0=yy, ebd0=yhl, ebd0C=yhlC, + bd0M=if(keepMpfr) yM, # <- expensive + aeq0=aeq0, aeq4=aeq4, relE = relE) + } > > bd0v.8 <- bd0ver(x., Llam, mpfrPrec = 256) ebd0(x=1e+307, M=1.0464e+298): M/x = (r=0.561779104644075) * 2^(e=-29); i=16, f=1820, fg=f*2^-(e+10)=9.54204e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=2.09279e+298): M/x = (r=0.561779104644075) * 2^(e=-28); i=16, f=1820, fg=f*2^-(e+10)=4.77102e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=4.18558e+298): M/x = (r=0.561779104644075) * 2^(e=-27); i=16, f=1820, fg=f*2^-(e+10)=2.38551e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=8.37116e+298): M/x = (r=0.561779104644075) * 2^(e=-26); i=16, f=1820, fg=f*2^-(e+10)=1.19276e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.67423e+299): M/x = (r=0.561779104644075) * 2^(e=-25); i=16, f=1820, fg=f*2^-(e+10)=5.96378e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=2: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=3: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=4: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 3. after ADD1(M): yl,yh = ( 0, 1.79038e+308); yl+yh= 1.79038e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.69053e+308); yl+yh= 1.69053e+308 ebd0(x=1e+307, M=3.34846e+299): M/x = (r=0.561779104644075) * 2^(e=-24); i=16, f=1820, fg=f*2^-(e+10)=2.98189e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=2: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=3: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=4: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 3. after ADD1(M): yl,yh = ( 0, 1.72107e+308); yl+yh= 1.72107e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.62122e+308); yl+yh= 1.62122e+308 ebd0(x=1e+307, M=6.69693e+299): M/x = (r=0.561779104644075) * 2^(e=-23); i=16, f=1820, fg=f*2^-(e+10)=1.49094e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=2: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=3: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=4: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 3. after ADD1(M): yl,yh = ( 0, 1.65175e+308); yl+yh= 1.65175e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5519e+308); yl+yh= 1.5519e+308 ebd0(x=1e+307, M=1.33939e+300): M/x = (r=0.561779104644075) * 2^(e=-22); i=16, f=1820, fg=f*2^-(e+10)=7.45472e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=2: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=3: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=4: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 3. after ADD1(M): yl,yh = ( 0, 1.58244e+308); yl+yh= 1.58244e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48259e+308); yl+yh= 1.48259e+308 ebd0(x=1e+307, M=2.67877e+300): M/x = (r=0.561779104644075) * 2^(e=-21); i=16, f=1820, fg=f*2^-(e+10)=3.72736e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=2: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=3: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=4: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 3. after ADD1(M): yl,yh = ( 0, 1.51312e+308); yl+yh= 1.51312e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.41327e+308); yl+yh= 1.41327e+308 ebd0(x=1e+307, M=5.35754e+300): M/x = (r=0.561779104644075) * 2^(e=-20); i=16, f=1820, fg=f*2^-(e+10)=1.86368e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=2: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=3: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=4: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 3. after ADD1(M): yl,yh = ( 0, 1.44381e+308); yl+yh= 1.44381e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34396e+308); yl+yh= 1.34396e+308 ebd0(x=1e+307, M=1.07151e+301): M/x = (r=0.561779104644075) * 2^(e=-19); i=16, f=1820, fg=f*2^-(e+10)=931840 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=2: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=3: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=4: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 3. after ADD1(M): yl,yh = ( 0, 1.37449e+308); yl+yh= 1.37449e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.27464e+308); yl+yh= 1.27464e+308 ebd0(x=1e+307, M=2.14302e+301): M/x = (r=0.561779104644075) * 2^(e=-18); i=16, f=1820, fg=f*2^-(e+10)=465920 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=2: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=3: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=4: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 3. after ADD1(M): yl,yh = ( 0, 1.30518e+308); yl+yh= 1.30518e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.20533e+308); yl+yh= 1.20533e+308 ebd0(x=1e+307, M=4.28603e+301): M/x = (r=0.561779104644075) * 2^(e=-17); i=16, f=1820, fg=f*2^-(e+10)=232960 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=2: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=3: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=4: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 3. after ADD1(M): yl,yh = ( 0, 1.23586e+308); yl+yh= 1.23586e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.13602e+308); yl+yh= 1.13602e+308 ebd0(x=1e+307, M=8.57207e+301): M/x = (r=0.561779104644075) * 2^(e=-16); i=16, f=1820, fg=f*2^-(e+10)=116480 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=2: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=3: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=4: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 3. after ADD1(M): yl,yh = ( 0, 1.16655e+308); yl+yh= 1.16655e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.0667e+308); yl+yh= 1.0667e+308 ebd0(x=1e+307, M=1.71441e+302): M/x = (r=0.561779104644075) * 2^(e=-15); i=16, f=1820, fg=f*2^-(e+10)=58240 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=2: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=3: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=4: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 3. after ADD1(M): yl,yh = ( 0, 1.09723e+308); yl+yh= 1.09723e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.97387e+307); yl+yh= 9.97387e+307 ebd0(x=1e+307, M=3.42883e+302): M/x = (r=0.561779104644075) * 2^(e=-14); i=16, f=1820, fg=f*2^-(e+10)=29120 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=2: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=3: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=4: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 3. after ADD1(M): yl,yh = ( 0, 1.02792e+308); yl+yh= 1.02792e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.28074e+307); yl+yh= 9.28074e+307 ebd0(x=1e+307, M=6.85766e+302): M/x = (r=0.561779104644075) * 2^(e=-13); i=16, f=1820, fg=f*2^-(e+10)=14560 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=2: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=3: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=4: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 3. after ADD1(M): yl,yh = ( 0, 9.5861e+307); yl+yh= 9.5861e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.58763e+307); yl+yh= 8.58763e+307 ebd0(x=1e+307, M=1.37153e+303): M/x = (r=0.561779104644075) * 2^(e=-12); i=16, f=1820, fg=f*2^-(e+10)=7280 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=2: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=3: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=4: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 3. after ADD1(M): yl,yh = ( 0, 8.89302e+307); yl+yh= 8.89302e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.89455e+307); yl+yh= 7.89455e+307 ebd0(x=1e+307, M=2.74306e+303): M/x = (r=0.561779104644075) * 2^(e=-11); i=16, f=1820, fg=f*2^-(e+10)=3640 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=2: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=3: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=4: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 3. after ADD1(M): yl,yh = ( 0, 8.20001e+307); yl+yh= 8.20001e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.20154e+307); yl+yh= 7.20154e+307 ebd0(x=1e+307, M=5.48612e+303): M/x = (r=0.561779104644075) * 2^(e=-10); i=16, f=1820, fg=f*2^-(e+10)=1820 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=2: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=3: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=4: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 3. after ADD1(M): yl,yh = ( 0, 7.50714e+307); yl+yh= 7.50714e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.50867e+307); yl+yh= 6.50867e+307 ebd0(x=1e+307, M=1.09722e+304): M/x = (r=0.561779104644075) * 2^(e=-9); i=16, f=1820, fg=f*2^-(e+10)=910 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=2: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=3: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=4: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 3. after ADD1(M): yl,yh = ( 0, 6.81454e+307); yl+yh= 6.81454e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.81607e+307); yl+yh= 5.81607e+307 ebd0(x=1e+307, M=2.19445e+304): M/x = (r=0.561779104644075) * 2^(e=-8); i=16, f=1820, fg=f*2^-(e+10)=455 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=2: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=3: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=4: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 3. after ADD1(M): yl,yh = ( 0, 6.12249e+307); yl+yh= 6.12249e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.12402e+307); yl+yh= 5.12402e+307 ebd0(x=1e+307, M=4.3889e+304): M/x = (r=0.561779104644075) * 2^(e=-7); i=16, f=1820, fg=f*2^-(e+10)=227.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=2: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=3: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=4: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 3. after ADD1(M): yl,yh = ( 0, 5.43154e+307); yl+yh= 5.43154e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.43307e+307); yl+yh= 4.43307e+307 ebd0(x=1e+307, M=8.7778e+304): M/x = (r=0.561779104644075) * 2^(e=-6); i=16, f=1820, fg=f*2^-(e+10)=113.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=2: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=3: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=4: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 3. after ADD1(M): yl,yh = ( 0, 4.74278e+307); yl+yh= 4.74278e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74431e+307); yl+yh= 3.74431e+307 ebd0(x=1e+307, M=1.75556e+305): M/x = (r=0.561779104644075) * 2^(e=-5); i=16, f=1820, fg=f*2^-(e+10)=56.875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=2: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=3: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=4: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 3. after ADD1(M): yl,yh = ( 0, 4.05841e+307); yl+yh= 4.05841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.05994e+307); yl+yh= 3.05994e+307 ebd0(x=1e+307, M=3.51112e+305): M/x = (r=0.561779104644075) * 2^(e=-4); i=16, f=1820, fg=f*2^-(e+10)=28.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=2: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=3: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=4: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 3. after ADD1(M): yl,yh = ( 0, 3.38282e+307); yl+yh= 3.38282e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.38435e+307); yl+yh= 2.38435e+307 ebd0(x=1e+307, M=7.02224e+305): M/x = (r=0.561779104644075) * 2^(e=-3); i=16, f=1820, fg=f*2^-(e+10)=14.2188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=2: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=3: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=4: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 3. after ADD1(M): yl,yh = ( 0, 2.72479e+307); yl+yh= 2.72479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.72631e+307); yl+yh= 1.72631e+307 ebd0(x=1e+307, M=1.40445e+306): M/x = (r=0.561779104644075) * 2^(e=-2); i=16, f=1820, fg=f*2^-(e+10)=7.10938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=2: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=3: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=4: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 3. after ADD1(M): yl,yh = ( 0, 2.10186e+307); yl+yh= 2.10186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10339e+307); yl+yh= 1.10339e+307 ebd0(x=1e+307, M=2.8089e+306): M/x = (r=0.561779104644075) * 2^(e=-1); i=16, f=1820, fg=f*2^-(e+10)=3.55469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=2: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=3: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=4: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 3. after ADD1(M): yl,yh = ( 0, 1.54916e+307); yl+yh= 1.54916e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.50683e+306); yl+yh= 5.50683e+306 ebd0(x=1e+307, M=5.61779e+306): M/x = (r=0.561779104644075) * 2^(e=0); i=16, f=1820, fg=f*2^-(e+10)=1.77734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=2: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=3: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=4: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 3. after ADD1(M): yl,yh = ( 0, 1.1369e+307); yl+yh= 1.1369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.38426e+306); yl+yh= 1.38426e+306 ebd0(x=1e+307, M=1.12356e+307): M/x = (r=0.561779104644075) * 2^(e=1); i=16, f=1820, fg=f*2^-(e+10)=0.888672 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=2: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=3: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=4: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 3. after ADD1(M): yl,yh = ( 0, 1.00553e+307); yl+yh= 1.00553e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.05759e+304); yl+yh= 7.05759e+304 ebd0(x=1e+307, M=2.24712e+307): M/x = (r=0.561779104644075) * 2^(e=2); i=16, f=1820, fg=f*2^-(e+10)=0.444336 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=2: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=3: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=4: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 3. after ADD1(M): yl,yh = ( 0, 1.43594e+307); yl+yh= 1.43594e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.37469e+306); yl+yh= 4.37469e+306 ebd0(x=1e+307, M=4.49423e+307): M/x = (r=0.561779104644075) * 2^(e=3); i=16, f=1820, fg=f*2^-(e+10)=0.222168 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=2: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=3: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=4: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 3. after ADD1(M): yl,yh = ( 0, 2.98991e+307); yl+yh= 2.98991e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99144e+307); yl+yh= 1.99144e+307 ebd0(x=1e+307, M=8.98847e+307): M/x = (r=0.561779104644075) * 2^(e=4); i=16, f=1820, fg=f*2^-(e+10)=0.111084 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=2: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=3: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=4: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 3. after ADD1(M): yl,yh = ( 0, 6.791e+307); yl+yh= 6.791e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.79252e+307); yl+yh= 5.79252e+307 ebd0(x=1e+307, M=1.79769e+308): M/x = (r=0.561779104644075) * 2^(e=5); i=16, f=1820, fg=f*2^-(e+10)=0.055542 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=2: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=3: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=4: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 3. after ADD1(M): yl,yh = ( 0, 1.50863e+308); yl+yh= 1.50863e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.40878e+308); yl+yh= 1.40878e+308 dpq_ebd0(x[1:1], np[1:35], ... ): ebd0(x=1e+307, M=4.18558e+298): M/x = (r=0.561779104644075) * 2^(e=-27); i=16, f=1820, fg=f*2^-(e+10)=2.38551e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=8.37116e+298): M/x = (r=0.561779104644075) * 2^(e=-26); i=16, f=1820, fg=f*2^-(e+10)=1.19276e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.67423e+299): M/x = (r=0.561779104644075) * 2^(e=-25); i=16, f=1820, fg=f*2^-(e+10)=5.96378e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=1: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=2: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=3: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 3. after ADD1(M): yl,yh = ( 0, 1.79038e+308); yl+yh= 1.79038e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.69053e+308); yl+yh= 1.69053e+308 ebd0(x=1e+307, M=3.34846e+299): M/x = (r=0.561779104644075) * 2^(e=-24); i=16, f=1820, fg=f*2^-(e+10)=2.98189e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=1: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=2: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=3: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 3. after ADD1(M): yl,yh = ( 0, 1.72107e+308); yl+yh= 1.72107e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.62122e+308); yl+yh= 1.62122e+308 ebd0(x=1e+307, M=6.69693e+299): M/x = (r=0.561779104644075) * 2^(e=-23); i=16, f=1820, fg=f*2^-(e+10)=1.49094e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=1: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=2: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=3: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 3. after ADD1(M): yl,yh = ( 0, 1.65175e+308); yl+yh= 1.65175e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5519e+308); yl+yh= 1.5519e+308 ebd0(x=1e+307, M=1.33939e+300): M/x = (r=0.561779104644075) * 2^(e=-22); i=16, f=1820, fg=f*2^-(e+10)=7.45472e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=1: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=2: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=3: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 3. after ADD1(M): yl,yh = ( 0, 1.58244e+308); yl+yh= 1.58244e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48259e+308); yl+yh= 1.48259e+308 ebd0(x=1e+307, M=2.67877e+300): M/x = (r=0.561779104644075) * 2^(e=-21); i=16, f=1820, fg=f*2^-(e+10)=3.72736e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=1: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=2: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=3: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 3. after ADD1(M): yl,yh = ( 0, 1.51312e+308); yl+yh= 1.51312e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.41327e+308); yl+yh= 1.41327e+308 ebd0(x=1e+307, M=5.35754e+300): M/x = (r=0.561779104644075) * 2^(e=-20); i=16, f=1820, fg=f*2^-(e+10)=1.86368e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=1: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=2: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=3: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 3. after ADD1(M): yl,yh = ( 0, 1.44381e+308); yl+yh= 1.44381e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34396e+308); yl+yh= 1.34396e+308 ebd0(x=1e+307, M=1.07151e+301): M/x = (r=0.561779104644075) * 2^(e=-19); i=16, f=1820, fg=f*2^-(e+10)=931840 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=1: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=2: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=3: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 3. after ADD1(M): yl,yh = ( 0, 1.37449e+308); yl+yh= 1.37449e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.27464e+308); yl+yh= 1.27464e+308 ebd0(x=1e+307, M=2.14302e+301): M/x = (r=0.561779104644075) * 2^(e=-18); i=16, f=1820, fg=f*2^-(e+10)=465920 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=1: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=2: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=3: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 3. after ADD1(M): yl,yh = ( 0, 1.30518e+308); yl+yh= 1.30518e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.20533e+308); yl+yh= 1.20533e+308 ebd0(x=1e+307, M=4.28603e+301): M/x = (r=0.561779104644075) * 2^(e=-17); i=16, f=1820, fg=f*2^-(e+10)=232960 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=1: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=2: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=3: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 3. after ADD1(M): yl,yh = ( 0, 1.23586e+308); yl+yh= 1.23586e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.13602e+308); yl+yh= 1.13602e+308 ebd0(x=1e+307, M=8.57207e+301): M/x = (r=0.561779104644075) * 2^(e=-16); i=16, f=1820, fg=f*2^-(e+10)=116480 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=1: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=2: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=3: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 3. after ADD1(M): yl,yh = ( 0, 1.16655e+308); yl+yh= 1.16655e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.0667e+308); yl+yh= 1.0667e+308 ebd0(x=1e+307, M=1.71441e+302): M/x = (r=0.561779104644075) * 2^(e=-15); i=16, f=1820, fg=f*2^-(e+10)=58240 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=1: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=2: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=3: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 3. after ADD1(M): yl,yh = ( 0, 1.09723e+308); yl+yh= 1.09723e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.97387e+307); yl+yh= 9.97387e+307 ebd0(x=1e+307, M=3.42883e+302): M/x = (r=0.561779104644075) * 2^(e=-14); i=16, f=1820, fg=f*2^-(e+10)=29120 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=1: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=2: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=3: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 3. after ADD1(M): yl,yh = ( 0, 1.02792e+308); yl+yh= 1.02792e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.28074e+307); yl+yh= 9.28074e+307 ebd0(x=1e+307, M=6.85766e+302): M/x = (r=0.561779104644075) * 2^(e=-13); i=16, f=1820, fg=f*2^-(e+10)=14560 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=1: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=2: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=3: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 3. after ADD1(M): yl,yh = ( 0, 9.5861e+307); yl+yh= 9.5861e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.58763e+307); yl+yh= 8.58763e+307 ebd0(x=1e+307, M=1.37153e+303): M/x = (r=0.561779104644075) * 2^(e=-12); i=16, f=1820, fg=f*2^-(e+10)=7280 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=1: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=2: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=3: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 3. after ADD1(M): yl,yh = ( 0, 8.89302e+307); yl+yh= 8.89302e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.89455e+307); yl+yh= 7.89455e+307 ebd0(x=1e+307, M=2.74306e+303): M/x = (r=0.561779104644075) * 2^(e=-11); i=16, f=1820, fg=f*2^-(e+10)=3640 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=1: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=2: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=3: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 3. after ADD1(M): yl,yh = ( 0, 8.20001e+307); yl+yh= 8.20001e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.20154e+307); yl+yh= 7.20154e+307 ebd0(x=1e+307, M=5.48612e+303): M/x = (r=0.561779104644075) * 2^(e=-10); i=16, f=1820, fg=f*2^-(e+10)=1820 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=1: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=2: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=3: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 3. after ADD1(M): yl,yh = ( 0, 7.50714e+307); yl+yh= 7.50714e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.50867e+307); yl+yh= 6.50867e+307 ebd0(x=1e+307, M=1.09722e+304): M/x = (r=0.561779104644075) * 2^(e=-9); i=16, f=1820, fg=f*2^-(e+10)=910 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=1: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=2: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=3: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 3. after ADD1(M): yl,yh = ( 0, 6.81454e+307); yl+yh= 6.81454e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.81607e+307); yl+yh= 5.81607e+307 ebd0(x=1e+307, M=2.19445e+304): M/x = (r=0.561779104644075) * 2^(e=-8); i=16, f=1820, fg=f*2^-(e+10)=455 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=1: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=2: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=3: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 3. after ADD1(M): yl,yh = ( 0, 6.12249e+307); yl+yh= 6.12249e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.12402e+307); yl+yh= 5.12402e+307 ebd0(x=1e+307, M=4.3889e+304): M/x = (r=0.561779104644075) * 2^(e=-7); i=16, f=1820, fg=f*2^-(e+10)=227.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=1: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=2: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=3: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 3. after ADD1(M): yl,yh = ( 0, 5.43154e+307); yl+yh= 5.43154e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.43307e+307); yl+yh= 4.43307e+307 ebd0(x=1e+307, M=8.7778e+304): M/x = (r=0.561779104644075) * 2^(e=-6); i=16, f=1820, fg=f*2^-(e+10)=113.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=1: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=2: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=3: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 3. after ADD1(M): yl,yh = ( 0, 4.74278e+307); yl+yh= 4.74278e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74431e+307); yl+yh= 3.74431e+307 ebd0(x=1e+307, M=1.75556e+305): M/x = (r=0.561779104644075) * 2^(e=-5); i=16, f=1820, fg=f*2^-(e+10)=56.875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=1: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=2: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=3: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 3. after ADD1(M): yl,yh = ( 0, 4.05841e+307); yl+yh= 4.05841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.05994e+307); yl+yh= 3.05994e+307 ebd0(x=1e+307, M=3.51112e+305): M/x = (r=0.561779104644075) * 2^(e=-4); i=16, f=1820, fg=f*2^-(e+10)=28.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=1: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=2: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=3: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 3. after ADD1(M): yl,yh = ( 0, 3.38282e+307); yl+yh= 3.38282e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.38435e+307); yl+yh= 2.38435e+307 ebd0(x=1e+307, M=7.02224e+305): M/x = (r=0.561779104644075) * 2^(e=-3); i=16, f=1820, fg=f*2^-(e+10)=14.2188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=1: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=2: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=3: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 3. after ADD1(M): yl,yh = ( 0, 2.72479e+307); yl+yh= 2.72479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.72631e+307); yl+yh= 1.72631e+307 ebd0(x=1e+307, M=1.40445e+306): M/x = (r=0.561779104644075) * 2^(e=-2); i=16, f=1820, fg=f*2^-(e+10)=7.10938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=1: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=2: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=3: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 3. after ADD1(M): yl,yh = ( 0, 2.10186e+307); yl+yh= 2.10186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10339e+307); yl+yh= 1.10339e+307 ebd0(x=1e+307, M=2.8089e+306): M/x = (r=0.561779104644075) * 2^(e=-1); i=16, f=1820, fg=f*2^-(e+10)=3.55469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=1: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=2: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=3: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 3. after ADD1(M): yl,yh = ( 0, 1.54916e+307); yl+yh= 1.54916e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.50683e+306); yl+yh= 5.50683e+306 ebd0(x=1e+307, M=5.61779e+306): M/x = (r=0.561779104644075) * 2^(e=0); i=16, f=1820, fg=f*2^-(e+10)=1.77734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=1: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=2: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=3: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 3. after ADD1(M): yl,yh = ( 0, 1.1369e+307); yl+yh= 1.1369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.38426e+306); yl+yh= 1.38426e+306 ebd0(x=1e+307, M=1.12356e+307): M/x = (r=0.561779104644075) * 2^(e=1); i=16, f=1820, fg=f*2^-(e+10)=0.888672 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=1: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=2: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=3: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 3. after ADD1(M): yl,yh = ( 0, 1.00553e+307); yl+yh= 1.00553e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.05759e+304); yl+yh= 7.05759e+304 ebd0(x=1e+307, M=2.24712e+307): M/x = (r=0.561779104644075) * 2^(e=2); i=16, f=1820, fg=f*2^-(e+10)=0.444336 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=1: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=2: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=3: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 3. after ADD1(M): yl,yh = ( 0, 1.43594e+307); yl+yh= 1.43594e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.37469e+306); yl+yh= 4.37469e+306 ebd0(x=1e+307, M=4.49423e+307): M/x = (r=0.561779104644075) * 2^(e=3); i=16, f=1820, fg=f*2^-(e+10)=0.222168 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=1: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=2: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=3: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 3. after ADD1(M): yl,yh = ( 0, 2.98991e+307); yl+yh= 2.98991e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99144e+307); yl+yh= 1.99144e+307 ebd0(x=1e+307, M=8.98847e+307): M/x = (r=0.561779104644075) * 2^(e=4); i=16, f=1820, fg=f*2^-(e+10)=0.111084 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=1: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=2: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=3: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 3. after ADD1(M): yl,yh = ( 0, 6.791e+307); yl+yh= 6.791e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.79252e+307); yl+yh= 5.79252e+307 ebd0(x=1e+307, M=1.79769e+308): M/x = (r=0.561779104644075) * 2^(e=5); i=16, f=1820, fg=f*2^-(e+10)=0.055542 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=1: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=2: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=3: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 3. after ADD1(M): yl,yh = ( 0, 1.50863e+308); yl+yh= 1.50863e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.40878e+308); yl+yh= 1.40878e+308 bd0(1e+307, 1.12356e+307): T.series w/ 32 terms -> bd0=7.05759e+304 > bd0v.10 <- bd0ver(x., Llam, mpfrPrec = 1024) ebd0(x=1e+307, M=1.0464e+298): M/x = (r=0.561779104644075) * 2^(e=-29); i=16, f=1820, fg=f*2^-(e+10)=9.54204e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=2.09279e+298): M/x = (r=0.561779104644075) * 2^(e=-28); i=16, f=1820, fg=f*2^-(e+10)=4.77102e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=4.18558e+298): M/x = (r=0.561779104644075) * 2^(e=-27); i=16, f=1820, fg=f*2^-(e+10)=2.38551e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=8.37116e+298): M/x = (r=0.561779104644075) * 2^(e=-26); i=16, f=1820, fg=f*2^-(e+10)=1.19276e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.67423e+299): M/x = (r=0.561779104644075) * 2^(e=-25); i=16, f=1820, fg=f*2^-(e+10)=5.96378e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=2: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=3: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=4: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 3. after ADD1(M): yl,yh = ( 0, 1.79038e+308); yl+yh= 1.79038e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.69053e+308); yl+yh= 1.69053e+308 ebd0(x=1e+307, M=3.34846e+299): M/x = (r=0.561779104644075) * 2^(e=-24); i=16, f=1820, fg=f*2^-(e+10)=2.98189e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=2: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=3: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=4: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 3. after ADD1(M): yl,yh = ( 0, 1.72107e+308); yl+yh= 1.72107e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.62122e+308); yl+yh= 1.62122e+308 ebd0(x=1e+307, M=6.69693e+299): M/x = (r=0.561779104644075) * 2^(e=-23); i=16, f=1820, fg=f*2^-(e+10)=1.49094e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=2: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=3: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=4: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 3. after ADD1(M): yl,yh = ( 0, 1.65175e+308); yl+yh= 1.65175e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5519e+308); yl+yh= 1.5519e+308 ebd0(x=1e+307, M=1.33939e+300): M/x = (r=0.561779104644075) * 2^(e=-22); i=16, f=1820, fg=f*2^-(e+10)=7.45472e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=2: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=3: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=4: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 3. after ADD1(M): yl,yh = ( 0, 1.58244e+308); yl+yh= 1.58244e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48259e+308); yl+yh= 1.48259e+308 ebd0(x=1e+307, M=2.67877e+300): M/x = (r=0.561779104644075) * 2^(e=-21); i=16, f=1820, fg=f*2^-(e+10)=3.72736e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=2: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=3: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=4: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 3. after ADD1(M): yl,yh = ( 0, 1.51312e+308); yl+yh= 1.51312e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.41327e+308); yl+yh= 1.41327e+308 ebd0(x=1e+307, M=5.35754e+300): M/x = (r=0.561779104644075) * 2^(e=-20); i=16, f=1820, fg=f*2^-(e+10)=1.86368e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=2: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=3: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=4: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 3. after ADD1(M): yl,yh = ( 0, 1.44381e+308); yl+yh= 1.44381e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34396e+308); yl+yh= 1.34396e+308 ebd0(x=1e+307, M=1.07151e+301): M/x = (r=0.561779104644075) * 2^(e=-19); i=16, f=1820, fg=f*2^-(e+10)=931840 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=2: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=3: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=4: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 3. after ADD1(M): yl,yh = ( 0, 1.37449e+308); yl+yh= 1.37449e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.27464e+308); yl+yh= 1.27464e+308 ebd0(x=1e+307, M=2.14302e+301): M/x = (r=0.561779104644075) * 2^(e=-18); i=16, f=1820, fg=f*2^-(e+10)=465920 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=2: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=3: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=4: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 3. after ADD1(M): yl,yh = ( 0, 1.30518e+308); yl+yh= 1.30518e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.20533e+308); yl+yh= 1.20533e+308 ebd0(x=1e+307, M=4.28603e+301): M/x = (r=0.561779104644075) * 2^(e=-17); i=16, f=1820, fg=f*2^-(e+10)=232960 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=2: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=3: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=4: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 3. after ADD1(M): yl,yh = ( 0, 1.23586e+308); yl+yh= 1.23586e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.13602e+308); yl+yh= 1.13602e+308 ebd0(x=1e+307, M=8.57207e+301): M/x = (r=0.561779104644075) * 2^(e=-16); i=16, f=1820, fg=f*2^-(e+10)=116480 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=2: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=3: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=4: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 3. after ADD1(M): yl,yh = ( 0, 1.16655e+308); yl+yh= 1.16655e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.0667e+308); yl+yh= 1.0667e+308 ebd0(x=1e+307, M=1.71441e+302): M/x = (r=0.561779104644075) * 2^(e=-15); i=16, f=1820, fg=f*2^-(e+10)=58240 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=2: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=3: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=4: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 3. after ADD1(M): yl,yh = ( 0, 1.09723e+308); yl+yh= 1.09723e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.97387e+307); yl+yh= 9.97387e+307 ebd0(x=1e+307, M=3.42883e+302): M/x = (r=0.561779104644075) * 2^(e=-14); i=16, f=1820, fg=f*2^-(e+10)=29120 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=2: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=3: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=4: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 3. after ADD1(M): yl,yh = ( 0, 1.02792e+308); yl+yh= 1.02792e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.28074e+307); yl+yh= 9.28074e+307 ebd0(x=1e+307, M=6.85766e+302): M/x = (r=0.561779104644075) * 2^(e=-13); i=16, f=1820, fg=f*2^-(e+10)=14560 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=2: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=3: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=4: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 3. after ADD1(M): yl,yh = ( 0, 9.5861e+307); yl+yh= 9.5861e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.58763e+307); yl+yh= 8.58763e+307 ebd0(x=1e+307, M=1.37153e+303): M/x = (r=0.561779104644075) * 2^(e=-12); i=16, f=1820, fg=f*2^-(e+10)=7280 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=2: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=3: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=4: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 3. after ADD1(M): yl,yh = ( 0, 8.89302e+307); yl+yh= 8.89302e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.89455e+307); yl+yh= 7.89455e+307 ebd0(x=1e+307, M=2.74306e+303): M/x = (r=0.561779104644075) * 2^(e=-11); i=16, f=1820, fg=f*2^-(e+10)=3640 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=2: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=3: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=4: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 3. after ADD1(M): yl,yh = ( 0, 8.20001e+307); yl+yh= 8.20001e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.20154e+307); yl+yh= 7.20154e+307 ebd0(x=1e+307, M=5.48612e+303): M/x = (r=0.561779104644075) * 2^(e=-10); i=16, f=1820, fg=f*2^-(e+10)=1820 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=2: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=3: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=4: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 3. after ADD1(M): yl,yh = ( 0, 7.50714e+307); yl+yh= 7.50714e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.50867e+307); yl+yh= 6.50867e+307 ebd0(x=1e+307, M=1.09722e+304): M/x = (r=0.561779104644075) * 2^(e=-9); i=16, f=1820, fg=f*2^-(e+10)=910 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=2: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=3: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=4: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 3. after ADD1(M): yl,yh = ( 0, 6.81454e+307); yl+yh= 6.81454e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.81607e+307); yl+yh= 5.81607e+307 ebd0(x=1e+307, M=2.19445e+304): M/x = (r=0.561779104644075) * 2^(e=-8); i=16, f=1820, fg=f*2^-(e+10)=455 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=2: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=3: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=4: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 3. after ADD1(M): yl,yh = ( 0, 6.12249e+307); yl+yh= 6.12249e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.12402e+307); yl+yh= 5.12402e+307 ebd0(x=1e+307, M=4.3889e+304): M/x = (r=0.561779104644075) * 2^(e=-7); i=16, f=1820, fg=f*2^-(e+10)=227.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=2: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=3: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=4: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 3. after ADD1(M): yl,yh = ( 0, 5.43154e+307); yl+yh= 5.43154e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.43307e+307); yl+yh= 4.43307e+307 ebd0(x=1e+307, M=8.7778e+304): M/x = (r=0.561779104644075) * 2^(e=-6); i=16, f=1820, fg=f*2^-(e+10)=113.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=2: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=3: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=4: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 3. after ADD1(M): yl,yh = ( 0, 4.74278e+307); yl+yh= 4.74278e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74431e+307); yl+yh= 3.74431e+307 ebd0(x=1e+307, M=1.75556e+305): M/x = (r=0.561779104644075) * 2^(e=-5); i=16, f=1820, fg=f*2^-(e+10)=56.875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=2: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=3: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=4: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 3. after ADD1(M): yl,yh = ( 0, 4.05841e+307); yl+yh= 4.05841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.05994e+307); yl+yh= 3.05994e+307 ebd0(x=1e+307, M=3.51112e+305): M/x = (r=0.561779104644075) * 2^(e=-4); i=16, f=1820, fg=f*2^-(e+10)=28.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=2: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=3: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=4: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 3. after ADD1(M): yl,yh = ( 0, 3.38282e+307); yl+yh= 3.38282e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.38435e+307); yl+yh= 2.38435e+307 ebd0(x=1e+307, M=7.02224e+305): M/x = (r=0.561779104644075) * 2^(e=-3); i=16, f=1820, fg=f*2^-(e+10)=14.2188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=2: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=3: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=4: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 3. after ADD1(M): yl,yh = ( 0, 2.72479e+307); yl+yh= 2.72479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.72631e+307); yl+yh= 1.72631e+307 ebd0(x=1e+307, M=1.40445e+306): M/x = (r=0.561779104644075) * 2^(e=-2); i=16, f=1820, fg=f*2^-(e+10)=7.10938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=2: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=3: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=4: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 3. after ADD1(M): yl,yh = ( 0, 2.10186e+307); yl+yh= 2.10186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10339e+307); yl+yh= 1.10339e+307 ebd0(x=1e+307, M=2.8089e+306): M/x = (r=0.561779104644075) * 2^(e=-1); i=16, f=1820, fg=f*2^-(e+10)=3.55469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=2: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=3: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=4: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 3. after ADD1(M): yl,yh = ( 0, 1.54916e+307); yl+yh= 1.54916e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.50683e+306); yl+yh= 5.50683e+306 ebd0(x=1e+307, M=5.61779e+306): M/x = (r=0.561779104644075) * 2^(e=0); i=16, f=1820, fg=f*2^-(e+10)=1.77734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=2: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=3: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=4: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 3. after ADD1(M): yl,yh = ( 0, 1.1369e+307); yl+yh= 1.1369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.38426e+306); yl+yh= 1.38426e+306 ebd0(x=1e+307, M=1.12356e+307): M/x = (r=0.561779104644075) * 2^(e=1); i=16, f=1820, fg=f*2^-(e+10)=0.888672 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=2: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=3: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=4: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 3. after ADD1(M): yl,yh = ( 0, 1.00553e+307); yl+yh= 1.00553e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.05759e+304); yl+yh= 7.05759e+304 ebd0(x=1e+307, M=2.24712e+307): M/x = (r=0.561779104644075) * 2^(e=2); i=16, f=1820, fg=f*2^-(e+10)=0.444336 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=2: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=3: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=4: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 3. after ADD1(M): yl,yh = ( 0, 1.43594e+307); yl+yh= 1.43594e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.37469e+306); yl+yh= 4.37469e+306 ebd0(x=1e+307, M=4.49423e+307): M/x = (r=0.561779104644075) * 2^(e=3); i=16, f=1820, fg=f*2^-(e+10)=0.222168 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=2: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=3: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=4: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 3. after ADD1(M): yl,yh = ( 0, 2.98991e+307); yl+yh= 2.98991e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99144e+307); yl+yh= 1.99144e+307 ebd0(x=1e+307, M=8.98847e+307): M/x = (r=0.561779104644075) * 2^(e=4); i=16, f=1820, fg=f*2^-(e+10)=0.111084 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=2: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=3: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=4: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 3. after ADD1(M): yl,yh = ( 0, 6.791e+307); yl+yh= 6.791e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.79252e+307); yl+yh= 5.79252e+307 ebd0(x=1e+307, M=1.79769e+308): M/x = (r=0.561779104644075) * 2^(e=5); i=16, f=1820, fg=f*2^-(e+10)=0.055542 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=2: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=3: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=4: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 3. after ADD1(M): yl,yh = ( 0, 1.50863e+308); yl+yh= 1.50863e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.40878e+308); yl+yh= 1.40878e+308 dpq_ebd0(x[1:1], np[1:35], ... ): ebd0(x=1e+307, M=4.18558e+298): M/x = (r=0.561779104644075) * 2^(e=-27); i=16, f=1820, fg=f*2^-(e+10)=2.38551e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=8.37116e+298): M/x = (r=0.561779104644075) * 2^(e=-26); i=16, f=1820, fg=f*2^-(e+10)=1.19276e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.67423e+299): M/x = (r=0.561779104644075) * 2^(e=-25); i=16, f=1820, fg=f*2^-(e+10)=5.96378e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=1: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=2: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=3: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 3. after ADD1(M): yl,yh = ( 0, 1.79038e+308); yl+yh= 1.79038e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.69053e+308); yl+yh= 1.69053e+308 ebd0(x=1e+307, M=3.34846e+299): M/x = (r=0.561779104644075) * 2^(e=-24); i=16, f=1820, fg=f*2^-(e+10)=2.98189e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=1: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=2: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=3: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 3. after ADD1(M): yl,yh = ( 0, 1.72107e+308); yl+yh= 1.72107e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.62122e+308); yl+yh= 1.62122e+308 ebd0(x=1e+307, M=6.69693e+299): M/x = (r=0.561779104644075) * 2^(e=-23); i=16, f=1820, fg=f*2^-(e+10)=1.49094e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=1: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=2: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=3: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 3. after ADD1(M): yl,yh = ( 0, 1.65175e+308); yl+yh= 1.65175e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5519e+308); yl+yh= 1.5519e+308 ebd0(x=1e+307, M=1.33939e+300): M/x = (r=0.561779104644075) * 2^(e=-22); i=16, f=1820, fg=f*2^-(e+10)=7.45472e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=1: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=2: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=3: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 3. after ADD1(M): yl,yh = ( 0, 1.58244e+308); yl+yh= 1.58244e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48259e+308); yl+yh= 1.48259e+308 ebd0(x=1e+307, M=2.67877e+300): M/x = (r=0.561779104644075) * 2^(e=-21); i=16, f=1820, fg=f*2^-(e+10)=3.72736e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=1: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=2: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=3: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 3. after ADD1(M): yl,yh = ( 0, 1.51312e+308); yl+yh= 1.51312e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.41327e+308); yl+yh= 1.41327e+308 ebd0(x=1e+307, M=5.35754e+300): M/x = (r=0.561779104644075) * 2^(e=-20); i=16, f=1820, fg=f*2^-(e+10)=1.86368e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=1: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=2: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=3: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 3. after ADD1(M): yl,yh = ( 0, 1.44381e+308); yl+yh= 1.44381e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34396e+308); yl+yh= 1.34396e+308 ebd0(x=1e+307, M=1.07151e+301): M/x = (r=0.561779104644075) * 2^(e=-19); i=16, f=1820, fg=f*2^-(e+10)=931840 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=1: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=2: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=3: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 3. after ADD1(M): yl,yh = ( 0, 1.37449e+308); yl+yh= 1.37449e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.27464e+308); yl+yh= 1.27464e+308 ebd0(x=1e+307, M=2.14302e+301): M/x = (r=0.561779104644075) * 2^(e=-18); i=16, f=1820, fg=f*2^-(e+10)=465920 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=1: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=2: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=3: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 3. after ADD1(M): yl,yh = ( 0, 1.30518e+308); yl+yh= 1.30518e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.20533e+308); yl+yh= 1.20533e+308 ebd0(x=1e+307, M=4.28603e+301): M/x = (r=0.561779104644075) * 2^(e=-17); i=16, f=1820, fg=f*2^-(e+10)=232960 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=1: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=2: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=3: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 3. after ADD1(M): yl,yh = ( 0, 1.23586e+308); yl+yh= 1.23586e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.13602e+308); yl+yh= 1.13602e+308 ebd0(x=1e+307, M=8.57207e+301): M/x = (r=0.561779104644075) * 2^(e=-16); i=16, f=1820, fg=f*2^-(e+10)=116480 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=1: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=2: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=3: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 3. after ADD1(M): yl,yh = ( 0, 1.16655e+308); yl+yh= 1.16655e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.0667e+308); yl+yh= 1.0667e+308 ebd0(x=1e+307, M=1.71441e+302): M/x = (r=0.561779104644075) * 2^(e=-15); i=16, f=1820, fg=f*2^-(e+10)=58240 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=1: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=2: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=3: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 3. after ADD1(M): yl,yh = ( 0, 1.09723e+308); yl+yh= 1.09723e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.97387e+307); yl+yh= 9.97387e+307 ebd0(x=1e+307, M=3.42883e+302): M/x = (r=0.561779104644075) * 2^(e=-14); i=16, f=1820, fg=f*2^-(e+10)=29120 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=1: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=2: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=3: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 3. after ADD1(M): yl,yh = ( 0, 1.02792e+308); yl+yh= 1.02792e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.28074e+307); yl+yh= 9.28074e+307 ebd0(x=1e+307, M=6.85766e+302): M/x = (r=0.561779104644075) * 2^(e=-13); i=16, f=1820, fg=f*2^-(e+10)=14560 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=1: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=2: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=3: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 3. after ADD1(M): yl,yh = ( 0, 9.5861e+307); yl+yh= 9.5861e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.58763e+307); yl+yh= 8.58763e+307 ebd0(x=1e+307, M=1.37153e+303): M/x = (r=0.561779104644075) * 2^(e=-12); i=16, f=1820, fg=f*2^-(e+10)=7280 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=1: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=2: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=3: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 3. after ADD1(M): yl,yh = ( 0, 8.89302e+307); yl+yh= 8.89302e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.89455e+307); yl+yh= 7.89455e+307 ebd0(x=1e+307, M=2.74306e+303): M/x = (r=0.561779104644075) * 2^(e=-11); i=16, f=1820, fg=f*2^-(e+10)=3640 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=1: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=2: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=3: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 3. after ADD1(M): yl,yh = ( 0, 8.20001e+307); yl+yh= 8.20001e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.20154e+307); yl+yh= 7.20154e+307 ebd0(x=1e+307, M=5.48612e+303): M/x = (r=0.561779104644075) * 2^(e=-10); i=16, f=1820, fg=f*2^-(e+10)=1820 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=1: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=2: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=3: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 3. after ADD1(M): yl,yh = ( 0, 7.50714e+307); yl+yh= 7.50714e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.50867e+307); yl+yh= 6.50867e+307 ebd0(x=1e+307, M=1.09722e+304): M/x = (r=0.561779104644075) * 2^(e=-9); i=16, f=1820, fg=f*2^-(e+10)=910 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=1: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=2: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=3: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 3. after ADD1(M): yl,yh = ( 0, 6.81454e+307); yl+yh= 6.81454e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.81607e+307); yl+yh= 5.81607e+307 ebd0(x=1e+307, M=2.19445e+304): M/x = (r=0.561779104644075) * 2^(e=-8); i=16, f=1820, fg=f*2^-(e+10)=455 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=1: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=2: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=3: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 3. after ADD1(M): yl,yh = ( 0, 6.12249e+307); yl+yh= 6.12249e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.12402e+307); yl+yh= 5.12402e+307 ebd0(x=1e+307, M=4.3889e+304): M/x = (r=0.561779104644075) * 2^(e=-7); i=16, f=1820, fg=f*2^-(e+10)=227.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=1: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=2: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=3: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 3. after ADD1(M): yl,yh = ( 0, 5.43154e+307); yl+yh= 5.43154e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.43307e+307); yl+yh= 4.43307e+307 ebd0(x=1e+307, M=8.7778e+304): M/x = (r=0.561779104644075) * 2^(e=-6); i=16, f=1820, fg=f*2^-(e+10)=113.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=1: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=2: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=3: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 3. after ADD1(M): yl,yh = ( 0, 4.74278e+307); yl+yh= 4.74278e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74431e+307); yl+yh= 3.74431e+307 ebd0(x=1e+307, M=1.75556e+305): M/x = (r=0.561779104644075) * 2^(e=-5); i=16, f=1820, fg=f*2^-(e+10)=56.875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=1: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=2: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=3: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 3. after ADD1(M): yl,yh = ( 0, 4.05841e+307); yl+yh= 4.05841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.05994e+307); yl+yh= 3.05994e+307 ebd0(x=1e+307, M=3.51112e+305): M/x = (r=0.561779104644075) * 2^(e=-4); i=16, f=1820, fg=f*2^-(e+10)=28.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=1: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=2: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=3: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 3. after ADD1(M): yl,yh = ( 0, 3.38282e+307); yl+yh= 3.38282e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.38435e+307); yl+yh= 2.38435e+307 ebd0(x=1e+307, M=7.02224e+305): M/x = (r=0.561779104644075) * 2^(e=-3); i=16, f=1820, fg=f*2^-(e+10)=14.2188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=1: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=2: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=3: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 3. after ADD1(M): yl,yh = ( 0, 2.72479e+307); yl+yh= 2.72479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.72631e+307); yl+yh= 1.72631e+307 ebd0(x=1e+307, M=1.40445e+306): M/x = (r=0.561779104644075) * 2^(e=-2); i=16, f=1820, fg=f*2^-(e+10)=7.10938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=1: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=2: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=3: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 3. after ADD1(M): yl,yh = ( 0, 2.10186e+307); yl+yh= 2.10186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10339e+307); yl+yh= 1.10339e+307 ebd0(x=1e+307, M=2.8089e+306): M/x = (r=0.561779104644075) * 2^(e=-1); i=16, f=1820, fg=f*2^-(e+10)=3.55469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=1: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=2: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=3: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 3. after ADD1(M): yl,yh = ( 0, 1.54916e+307); yl+yh= 1.54916e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.50683e+306); yl+yh= 5.50683e+306 ebd0(x=1e+307, M=5.61779e+306): M/x = (r=0.561779104644075) * 2^(e=0); i=16, f=1820, fg=f*2^-(e+10)=1.77734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=1: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=2: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=3: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 3. after ADD1(M): yl,yh = ( 0, 1.1369e+307); yl+yh= 1.1369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.38426e+306); yl+yh= 1.38426e+306 ebd0(x=1e+307, M=1.12356e+307): M/x = (r=0.561779104644075) * 2^(e=1); i=16, f=1820, fg=f*2^-(e+10)=0.888672 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=1: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=2: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=3: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 3. after ADD1(M): yl,yh = ( 0, 1.00553e+307); yl+yh= 1.00553e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.05759e+304); yl+yh= 7.05759e+304 ebd0(x=1e+307, M=2.24712e+307): M/x = (r=0.561779104644075) * 2^(e=2); i=16, f=1820, fg=f*2^-(e+10)=0.444336 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=1: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=2: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=3: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 3. after ADD1(M): yl,yh = ( 0, 1.43594e+307); yl+yh= 1.43594e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.37469e+306); yl+yh= 4.37469e+306 ebd0(x=1e+307, M=4.49423e+307): M/x = (r=0.561779104644075) * 2^(e=3); i=16, f=1820, fg=f*2^-(e+10)=0.222168 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=1: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=2: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=3: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 3. after ADD1(M): yl,yh = ( 0, 2.98991e+307); yl+yh= 2.98991e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99144e+307); yl+yh= 1.99144e+307 ebd0(x=1e+307, M=8.98847e+307): M/x = (r=0.561779104644075) * 2^(e=4); i=16, f=1820, fg=f*2^-(e+10)=0.111084 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=1: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=2: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=3: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 3. after ADD1(M): yl,yh = ( 0, 6.791e+307); yl+yh= 6.791e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.79252e+307); yl+yh= 5.79252e+307 ebd0(x=1e+307, M=1.79769e+308): M/x = (r=0.561779104644075) * 2^(e=5); i=16, f=1820, fg=f*2^-(e+10)=0.055542 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=1: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=2: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=3: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 3. after ADD1(M): yl,yh = ( 0, 1.50863e+308); yl+yh= 1.50863e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.40878e+308); yl+yh= 1.40878e+308 bd0(1e+307, 1.12356e+307): T.series w/ 125 terms -> bd0=7.05759e+304 > stopifnot( all.equal(bd0v.8, bd0v.10, tol=0), + bd0v.8$aeq0, # even tol=0 equality ! + bd0v.8$aeq4 ) > ## ==> 256 bit gives the *same* (asNumeric() - double-prec accuracy) as 1024 bits ! > rm(bd0v.10) > showProc.time() Time (user system elapsed): 0.39 0 0.39 > > p.relE <- function(bd0v, dFac = if(max(np) >= 8e307) 1e10 else 1, + log = "x", type="b") { + stopifnot(length(x <- bd0v$x) == 1 # for now + , is.numeric(x), is.numeric(np <- bd0v$np), length(np) > 1 + , is.numeric(dFac), dFac > 0, length(dFac) == 1 + , is.matrix(relE <- bd0v$relE) + , (k <- ncol(relE)) >= 1 + , sum(iOk <- local({ y <- bd0v$bd0; is.finite(y) & y != 0 })) > 1 + ) + ## */dFac : otherwise triggering axis() error + ## log - axis(), 'at' creation, _LARGE_ range: invalid {xy}axp or par; nint=5 + ## axp[0:1]=(1e+299,1e+308), usr[0:1]=(7.28752e+298,inf); i=9, ni=1 + pc <- 1:k + matplot(np[iOk]/dFac, relE[iOk,], type=type, log=log, pch=pc, col=1+pc, + main = "relative Errors WRT bd0()", + xlim = range(np)/dFac, # show full range + xlab = paste0("np[iOk]", if(dFac != 1) sprintf("/ dFac, dFac=%g",dFac)), + ## could use sfsmisc::pretty10exp(1e10, drop.1=TRUE) + xaxt="n"); eaxis(1, sub10=3) + mtext(sprintf("bd0(x, np), x = %g", x)) + if(k >= 2) legend("top", colnames(relE), pch=pc, lty=1:2, col=1+pc, bty="n") + rug(np[!iOk]/dFac, col=2) + axis(1, at=x/dFac, quote(x), col=2, col.axis=2, lwd=2, line=-1) + } > > p.relE(bd0v.8) > > ## ==> FIXME: a whole small (extreme) range where bd0() is *better* than ebd0() !!! > with(bd0v.8, cbind(log2.lam = log2(np), np, relE)) ## around 2^[1018, 1021] log2.lam np ebd0 ebd0C bd0 [1,] 990 1.04639512e+298 Inf Inf Inf [2,] 991 2.09279025e+298 Inf Inf Inf [3,] 992 4.18558050e+298 Inf Inf Inf [4,] 993 8.37116099e+298 Inf Inf Inf [5,] 994 1.67423220e+299 6.86757892e-17 6.86757892e-17 6.86757892e-17 [6,] 995 3.34846440e+299 -2.35238299e-17 -2.35238299e-17 -2.35238299e-17 [7,] 996 6.69692879e+299 4.64722904e-18 4.64722904e-18 1.33253210e-16 [8,] 997 1.33938576e+300 3.54540244e-17 3.54540244e-17 3.54540244e-17 [9,] 998 2.67877152e+300 6.92860492e-17 6.92860492e-17 6.92860492e-17 [10,] 999 5.35754304e+300 -4.18896305e-17 -4.18896305e-17 1.06614915e-16 [11,] 1000 1.07150861e+301 -8.56162226e-18 -8.56162226e-18 1.48018542e-16 [12,] 1001 2.14301721e+301 -1.36953500e-16 -1.36953500e-16 2.86310828e-17 [13,] 1002 4.28603443e+301 -1.05258460e-16 -1.05258460e-16 7.04293432e-17 [14,] 1003 8.57206886e+301 -6.93018205e-17 -6.93018205e-17 1.17802186e-16 [15,] 1004 1.71441377e+302 -2.80427243e-17 -2.80427243e-17 -2.80427243e-17 [16,] 1005 3.42882754e+302 2.00343436e-17 2.00343436e-17 2.00343436e-17 [17,] 1006 6.85765509e+302 -1.55120807e-16 -1.55120807e-16 7.72879792e-17 [18,] 1007 1.37153102e+303 2.12684439e-17 2.12684439e-17 2.12684439e-17 [19,] 1008 2.74306203e+303 9.97903931e-17 9.97903931e-17 9.97903931e-17 [20,] 1009 5.48612407e+303 5.66528379e-17 5.66528379e-17 5.66528379e-17 [21,] 1010 1.09722481e+304 -1.34894374e-16 -1.34894374e-16 3.66854779e-17 [22,] 1011 2.19444963e+304 -1.07502043e-16 -1.07502043e-16 -1.07502043e-16 [23,] 1012 4.38889926e+304 -8.55542215e-18 -8.55542215e-18 -8.55542215e-18 [24,] 1013 8.77779851e+304 -1.23783849e-16 -1.23783849e-16 1.42732769e-16 [25,] 1014 1.75555970e+305 -8.86259493e-17 -8.86259493e-17 7.44362002e-17 [26,] 1015 3.51111940e+305 -1.42625857e-16 -1.42625857e-16 6.66390640e-17 [27,] 1016 7.02223881e+305 -2.50440324e-16 -2.50440324e-16 3.85923155e-17 [28,] 1017 1.40444776e+306 -1.78689561e-16 -1.78689561e-16 4.74145469e-17 [29,] 1018 2.80889552e+306 5.78691591e-16 5.78691591e-16 5.78691591e-16 [30,] 1019 5.61779105e+306 1.07238048e-15 1.07238048e-15 -7.29886761e-16 [31,] 1020 1.12355821e+307 1.45877315e-14 1.45877315e-14 -1.87127858e-16 [32,] 1021 2.24711642e+307 1.31354332e-16 1.31354332e-16 1.31354332e-16 [33,] 1022 4.49423284e+307 1.93926546e-16 1.93926546e-16 -5.66261269e-17 [34,] 1023 8.98846567e+307 5.88175211e-17 5.88175211e-17 5.88175211e-17 [35,] 1024 1.79769313e+308 5.63728043e-17 5.63728043e-17 -3.68640546e-16 > > > with(bd0v.8, stopifnot(exprs = { + yhl[["yl"]] == 0 # which is not really good and should maybe change ! + ## Fixed now : both have 4 x Inf and then are equal {but do Note relE difference above!} + all.equal(ebd0[["yh"]], bd0, tol = 4 * .Machine$double.eps) + })) > showProc.time() Time (user system elapsed): 0.03 0 0.03 > > > ## bd0() and ebd0() are _Inf_ for smaller lambda's .. but they *must* be as true > DBL_MAX > ## (almost: at the 4th value, Llam = 2^993, ideally the would *not* overflow: yM = 1.7598e+308) > bd0M <- bd0ver(x., Llam, mpfrPrec = 256, keepMpfr=TRUE) ebd0(x=1e+307, M=1.0464e+298): M/x = (r=0.561779104644075) * 2^(e=-29); i=16, f=1820, fg=f*2^-(e+10)=9.54204e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=2.09279e+298): M/x = (r=0.561779104644075) * 2^(e=-28); i=16, f=1820, fg=f*2^-(e+10)=4.77102e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=4.18558e+298): M/x = (r=0.561779104644075) * 2^(e=-27); i=16, f=1820, fg=f*2^-(e+10)=2.38551e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=8.37116e+298): M/x = (r=0.561779104644075) * 2^(e=-26); i=16, f=1820, fg=f*2^-(e+10)=1.19276e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.67423e+299): M/x = (r=0.561779104644075) * 2^(e=-25); i=16, f=1820, fg=f*2^-(e+10)=5.96378e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=2: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=3: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=4: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 3. after ADD1(M): yl,yh = ( 0, 1.79038e+308); yl+yh= 1.79038e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.69053e+308); yl+yh= 1.69053e+308 ebd0(x=1e+307, M=3.34846e+299): M/x = (r=0.561779104644075) * 2^(e=-24); i=16, f=1820, fg=f*2^-(e+10)=2.98189e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=2: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=3: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=4: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 3. after ADD1(M): yl,yh = ( 0, 1.72107e+308); yl+yh= 1.72107e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.62122e+308); yl+yh= 1.62122e+308 ebd0(x=1e+307, M=6.69693e+299): M/x = (r=0.561779104644075) * 2^(e=-23); i=16, f=1820, fg=f*2^-(e+10)=1.49094e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=2: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=3: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=4: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 3. after ADD1(M): yl,yh = ( 0, 1.65175e+308); yl+yh= 1.65175e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5519e+308); yl+yh= 1.5519e+308 ebd0(x=1e+307, M=1.33939e+300): M/x = (r=0.561779104644075) * 2^(e=-22); i=16, f=1820, fg=f*2^-(e+10)=7.45472e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=2: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=3: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=4: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 3. after ADD1(M): yl,yh = ( 0, 1.58244e+308); yl+yh= 1.58244e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48259e+308); yl+yh= 1.48259e+308 ebd0(x=1e+307, M=2.67877e+300): M/x = (r=0.561779104644075) * 2^(e=-21); i=16, f=1820, fg=f*2^-(e+10)=3.72736e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=2: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=3: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=4: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 3. after ADD1(M): yl,yh = ( 0, 1.51312e+308); yl+yh= 1.51312e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.41327e+308); yl+yh= 1.41327e+308 ebd0(x=1e+307, M=5.35754e+300): M/x = (r=0.561779104644075) * 2^(e=-20); i=16, f=1820, fg=f*2^-(e+10)=1.86368e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=2: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=3: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=4: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 3. after ADD1(M): yl,yh = ( 0, 1.44381e+308); yl+yh= 1.44381e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34396e+308); yl+yh= 1.34396e+308 ebd0(x=1e+307, M=1.07151e+301): M/x = (r=0.561779104644075) * 2^(e=-19); i=16, f=1820, fg=f*2^-(e+10)=931840 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=2: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=3: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=4: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 3. after ADD1(M): yl,yh = ( 0, 1.37449e+308); yl+yh= 1.37449e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.27464e+308); yl+yh= 1.27464e+308 ebd0(x=1e+307, M=2.14302e+301): M/x = (r=0.561779104644075) * 2^(e=-18); i=16, f=1820, fg=f*2^-(e+10)=465920 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=2: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=3: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=4: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 3. after ADD1(M): yl,yh = ( 0, 1.30518e+308); yl+yh= 1.30518e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.20533e+308); yl+yh= 1.20533e+308 ebd0(x=1e+307, M=4.28603e+301): M/x = (r=0.561779104644075) * 2^(e=-17); i=16, f=1820, fg=f*2^-(e+10)=232960 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=2: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=3: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=4: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 3. after ADD1(M): yl,yh = ( 0, 1.23586e+308); yl+yh= 1.23586e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.13602e+308); yl+yh= 1.13602e+308 ebd0(x=1e+307, M=8.57207e+301): M/x = (r=0.561779104644075) * 2^(e=-16); i=16, f=1820, fg=f*2^-(e+10)=116480 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=2: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=3: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=4: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 3. after ADD1(M): yl,yh = ( 0, 1.16655e+308); yl+yh= 1.16655e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.0667e+308); yl+yh= 1.0667e+308 ebd0(x=1e+307, M=1.71441e+302): M/x = (r=0.561779104644075) * 2^(e=-15); i=16, f=1820, fg=f*2^-(e+10)=58240 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=2: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=3: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=4: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 3. after ADD1(M): yl,yh = ( 0, 1.09723e+308); yl+yh= 1.09723e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.97387e+307); yl+yh= 9.97387e+307 ebd0(x=1e+307, M=3.42883e+302): M/x = (r=0.561779104644075) * 2^(e=-14); i=16, f=1820, fg=f*2^-(e+10)=29120 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=2: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=3: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=4: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 3. after ADD1(M): yl,yh = ( 0, 1.02792e+308); yl+yh= 1.02792e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.28074e+307); yl+yh= 9.28074e+307 ebd0(x=1e+307, M=6.85766e+302): M/x = (r=0.561779104644075) * 2^(e=-13); i=16, f=1820, fg=f*2^-(e+10)=14560 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=2: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=3: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=4: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 3. after ADD1(M): yl,yh = ( 0, 9.5861e+307); yl+yh= 9.5861e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.58763e+307); yl+yh= 8.58763e+307 ebd0(x=1e+307, M=1.37153e+303): M/x = (r=0.561779104644075) * 2^(e=-12); i=16, f=1820, fg=f*2^-(e+10)=7280 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=2: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=3: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=4: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 3. after ADD1(M): yl,yh = ( 0, 8.89302e+307); yl+yh= 8.89302e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.89455e+307); yl+yh= 7.89455e+307 ebd0(x=1e+307, M=2.74306e+303): M/x = (r=0.561779104644075) * 2^(e=-11); i=16, f=1820, fg=f*2^-(e+10)=3640 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=2: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=3: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=4: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 3. after ADD1(M): yl,yh = ( 0, 8.20001e+307); yl+yh= 8.20001e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.20154e+307); yl+yh= 7.20154e+307 ebd0(x=1e+307, M=5.48612e+303): M/x = (r=0.561779104644075) * 2^(e=-10); i=16, f=1820, fg=f*2^-(e+10)=1820 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=2: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=3: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=4: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 3. after ADD1(M): yl,yh = ( 0, 7.50714e+307); yl+yh= 7.50714e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.50867e+307); yl+yh= 6.50867e+307 ebd0(x=1e+307, M=1.09722e+304): M/x = (r=0.561779104644075) * 2^(e=-9); i=16, f=1820, fg=f*2^-(e+10)=910 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=2: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=3: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=4: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 3. after ADD1(M): yl,yh = ( 0, 6.81454e+307); yl+yh= 6.81454e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.81607e+307); yl+yh= 5.81607e+307 ebd0(x=1e+307, M=2.19445e+304): M/x = (r=0.561779104644075) * 2^(e=-8); i=16, f=1820, fg=f*2^-(e+10)=455 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=2: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=3: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=4: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 3. after ADD1(M): yl,yh = ( 0, 6.12249e+307); yl+yh= 6.12249e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.12402e+307); yl+yh= 5.12402e+307 ebd0(x=1e+307, M=4.3889e+304): M/x = (r=0.561779104644075) * 2^(e=-7); i=16, f=1820, fg=f*2^-(e+10)=227.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=2: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=3: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=4: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 3. after ADD1(M): yl,yh = ( 0, 5.43154e+307); yl+yh= 5.43154e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.43307e+307); yl+yh= 4.43307e+307 ebd0(x=1e+307, M=8.7778e+304): M/x = (r=0.561779104644075) * 2^(e=-6); i=16, f=1820, fg=f*2^-(e+10)=113.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=2: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=3: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=4: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 3. after ADD1(M): yl,yh = ( 0, 4.74278e+307); yl+yh= 4.74278e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74431e+307); yl+yh= 3.74431e+307 ebd0(x=1e+307, M=1.75556e+305): M/x = (r=0.561779104644075) * 2^(e=-5); i=16, f=1820, fg=f*2^-(e+10)=56.875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=2: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=3: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=4: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 3. after ADD1(M): yl,yh = ( 0, 4.05841e+307); yl+yh= 4.05841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.05994e+307); yl+yh= 3.05994e+307 ebd0(x=1e+307, M=3.51112e+305): M/x = (r=0.561779104644075) * 2^(e=-4); i=16, f=1820, fg=f*2^-(e+10)=28.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=2: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=3: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=4: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 3. after ADD1(M): yl,yh = ( 0, 3.38282e+307); yl+yh= 3.38282e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.38435e+307); yl+yh= 2.38435e+307 ebd0(x=1e+307, M=7.02224e+305): M/x = (r=0.561779104644075) * 2^(e=-3); i=16, f=1820, fg=f*2^-(e+10)=14.2188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=2: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=3: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=4: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 3. after ADD1(M): yl,yh = ( 0, 2.72479e+307); yl+yh= 2.72479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.72631e+307); yl+yh= 1.72631e+307 ebd0(x=1e+307, M=1.40445e+306): M/x = (r=0.561779104644075) * 2^(e=-2); i=16, f=1820, fg=f*2^-(e+10)=7.10938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=2: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=3: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=4: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 3. after ADD1(M): yl,yh = ( 0, 2.10186e+307); yl+yh= 2.10186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10339e+307); yl+yh= 1.10339e+307 ebd0(x=1e+307, M=2.8089e+306): M/x = (r=0.561779104644075) * 2^(e=-1); i=16, f=1820, fg=f*2^-(e+10)=3.55469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=2: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=3: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=4: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 3. after ADD1(M): yl,yh = ( 0, 1.54916e+307); yl+yh= 1.54916e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.50683e+306); yl+yh= 5.50683e+306 ebd0(x=1e+307, M=5.61779e+306): M/x = (r=0.561779104644075) * 2^(e=0); i=16, f=1820, fg=f*2^-(e+10)=1.77734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=2: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=3: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=4: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 3. after ADD1(M): yl,yh = ( 0, 1.1369e+307); yl+yh= 1.1369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.38426e+306); yl+yh= 1.38426e+306 ebd0(x=1e+307, M=1.12356e+307): M/x = (r=0.561779104644075) * 2^(e=1); i=16, f=1820, fg=f*2^-(e+10)=0.888672 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=2: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=3: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=4: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 3. after ADD1(M): yl,yh = ( 0, 1.00553e+307); yl+yh= 1.00553e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.05759e+304); yl+yh= 7.05759e+304 ebd0(x=1e+307, M=2.24712e+307): M/x = (r=0.561779104644075) * 2^(e=2); i=16, f=1820, fg=f*2^-(e+10)=0.444336 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=2: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=3: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=4: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 3. after ADD1(M): yl,yh = ( 0, 1.43594e+307); yl+yh= 1.43594e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.37469e+306); yl+yh= 4.37469e+306 ebd0(x=1e+307, M=4.49423e+307): M/x = (r=0.561779104644075) * 2^(e=3); i=16, f=1820, fg=f*2^-(e+10)=0.222168 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=2: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=3: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=4: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 3. after ADD1(M): yl,yh = ( 0, 2.98991e+307); yl+yh= 2.98991e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99144e+307); yl+yh= 1.99144e+307 ebd0(x=1e+307, M=8.98847e+307): M/x = (r=0.561779104644075) * 2^(e=4); i=16, f=1820, fg=f*2^-(e+10)=0.111084 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=2: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=3: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=4: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 3. after ADD1(M): yl,yh = ( 0, 6.791e+307); yl+yh= 6.791e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.79252e+307); yl+yh= 5.79252e+307 ebd0(x=1e+307, M=1.79769e+308): M/x = (r=0.561779104644075) * 2^(e=5); i=16, f=1820, fg=f*2^-(e+10)=0.055542 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=2: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=3: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=4: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 3. after ADD1(M): yl,yh = ( 0, 1.50863e+308); yl+yh= 1.50863e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.40878e+308); yl+yh= 1.40878e+308 dpq_ebd0(x[1:1], np[1:35], ... ): ebd0(x=1e+307, M=4.18558e+298): M/x = (r=0.561779104644075) * 2^(e=-27); i=16, f=1820, fg=f*2^-(e+10)=2.38551e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=8.37116e+298): M/x = (r=0.561779104644075) * 2^(e=-26); i=16, f=1820, fg=f*2^-(e+10)=1.19276e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.67423e+299): M/x = (r=0.561779104644075) * 2^(e=-25); i=16, f=1820, fg=f*2^-(e+10)=5.96378e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=1: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=2: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=3: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 3. after ADD1(M): yl,yh = ( 0, 1.79038e+308); yl+yh= 1.79038e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.69053e+308); yl+yh= 1.69053e+308 ebd0(x=1e+307, M=3.34846e+299): M/x = (r=0.561779104644075) * 2^(e=-24); i=16, f=1820, fg=f*2^-(e+10)=2.98189e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=1: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=2: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=3: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 3. after ADD1(M): yl,yh = ( 0, 1.72107e+308); yl+yh= 1.72107e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.62122e+308); yl+yh= 1.62122e+308 ebd0(x=1e+307, M=6.69693e+299): M/x = (r=0.561779104644075) * 2^(e=-23); i=16, f=1820, fg=f*2^-(e+10)=1.49094e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=1: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=2: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=3: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 3. after ADD1(M): yl,yh = ( 0, 1.65175e+308); yl+yh= 1.65175e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5519e+308); yl+yh= 1.5519e+308 ebd0(x=1e+307, M=1.33939e+300): M/x = (r=0.561779104644075) * 2^(e=-22); i=16, f=1820, fg=f*2^-(e+10)=7.45472e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=1: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=2: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=3: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 3. after ADD1(M): yl,yh = ( 0, 1.58244e+308); yl+yh= 1.58244e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48259e+308); yl+yh= 1.48259e+308 ebd0(x=1e+307, M=2.67877e+300): M/x = (r=0.561779104644075) * 2^(e=-21); i=16, f=1820, fg=f*2^-(e+10)=3.72736e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=1: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=2: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=3: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 3. after ADD1(M): yl,yh = ( 0, 1.51312e+308); yl+yh= 1.51312e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.41327e+308); yl+yh= 1.41327e+308 ebd0(x=1e+307, M=5.35754e+300): M/x = (r=0.561779104644075) * 2^(e=-20); i=16, f=1820, fg=f*2^-(e+10)=1.86368e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=1: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=2: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=3: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 3. after ADD1(M): yl,yh = ( 0, 1.44381e+308); yl+yh= 1.44381e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34396e+308); yl+yh= 1.34396e+308 ebd0(x=1e+307, M=1.07151e+301): M/x = (r=0.561779104644075) * 2^(e=-19); i=16, f=1820, fg=f*2^-(e+10)=931840 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=1: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=2: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=3: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 3. after ADD1(M): yl,yh = ( 0, 1.37449e+308); yl+yh= 1.37449e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.27464e+308); yl+yh= 1.27464e+308 ebd0(x=1e+307, M=2.14302e+301): M/x = (r=0.561779104644075) * 2^(e=-18); i=16, f=1820, fg=f*2^-(e+10)=465920 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=1: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=2: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=3: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 3. after ADD1(M): yl,yh = ( 0, 1.30518e+308); yl+yh= 1.30518e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.20533e+308); yl+yh= 1.20533e+308 ebd0(x=1e+307, M=4.28603e+301): M/x = (r=0.561779104644075) * 2^(e=-17); i=16, f=1820, fg=f*2^-(e+10)=232960 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=1: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=2: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=3: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 3. after ADD1(M): yl,yh = ( 0, 1.23586e+308); yl+yh= 1.23586e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.13602e+308); yl+yh= 1.13602e+308 ebd0(x=1e+307, M=8.57207e+301): M/x = (r=0.561779104644075) * 2^(e=-16); i=16, f=1820, fg=f*2^-(e+10)=116480 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=1: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=2: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=3: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 3. after ADD1(M): yl,yh = ( 0, 1.16655e+308); yl+yh= 1.16655e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.0667e+308); yl+yh= 1.0667e+308 ebd0(x=1e+307, M=1.71441e+302): M/x = (r=0.561779104644075) * 2^(e=-15); i=16, f=1820, fg=f*2^-(e+10)=58240 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=1: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=2: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=3: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 3. after ADD1(M): yl,yh = ( 0, 1.09723e+308); yl+yh= 1.09723e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.97387e+307); yl+yh= 9.97387e+307 ebd0(x=1e+307, M=3.42883e+302): M/x = (r=0.561779104644075) * 2^(e=-14); i=16, f=1820, fg=f*2^-(e+10)=29120 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=1: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=2: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=3: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 3. after ADD1(M): yl,yh = ( 0, 1.02792e+308); yl+yh= 1.02792e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.28074e+307); yl+yh= 9.28074e+307 ebd0(x=1e+307, M=6.85766e+302): M/x = (r=0.561779104644075) * 2^(e=-13); i=16, f=1820, fg=f*2^-(e+10)=14560 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=1: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=2: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=3: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 3. after ADD1(M): yl,yh = ( 0, 9.5861e+307); yl+yh= 9.5861e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.58763e+307); yl+yh= 8.58763e+307 ebd0(x=1e+307, M=1.37153e+303): M/x = (r=0.561779104644075) * 2^(e=-12); i=16, f=1820, fg=f*2^-(e+10)=7280 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=1: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=2: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=3: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 3. after ADD1(M): yl,yh = ( 0, 8.89302e+307); yl+yh= 8.89302e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.89455e+307); yl+yh= 7.89455e+307 ebd0(x=1e+307, M=2.74306e+303): M/x = (r=0.561779104644075) * 2^(e=-11); i=16, f=1820, fg=f*2^-(e+10)=3640 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=1: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=2: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=3: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 3. after ADD1(M): yl,yh = ( 0, 8.20001e+307); yl+yh= 8.20001e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.20154e+307); yl+yh= 7.20154e+307 ebd0(x=1e+307, M=5.48612e+303): M/x = (r=0.561779104644075) * 2^(e=-10); i=16, f=1820, fg=f*2^-(e+10)=1820 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=1: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=2: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=3: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 3. after ADD1(M): yl,yh = ( 0, 7.50714e+307); yl+yh= 7.50714e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.50867e+307); yl+yh= 6.50867e+307 ebd0(x=1e+307, M=1.09722e+304): M/x = (r=0.561779104644075) * 2^(e=-9); i=16, f=1820, fg=f*2^-(e+10)=910 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=1: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=2: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=3: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 3. after ADD1(M): yl,yh = ( 0, 6.81454e+307); yl+yh= 6.81454e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.81607e+307); yl+yh= 5.81607e+307 ebd0(x=1e+307, M=2.19445e+304): M/x = (r=0.561779104644075) * 2^(e=-8); i=16, f=1820, fg=f*2^-(e+10)=455 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=1: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=2: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=3: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 3. after ADD1(M): yl,yh = ( 0, 6.12249e+307); yl+yh= 6.12249e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.12402e+307); yl+yh= 5.12402e+307 ebd0(x=1e+307, M=4.3889e+304): M/x = (r=0.561779104644075) * 2^(e=-7); i=16, f=1820, fg=f*2^-(e+10)=227.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=1: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=2: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=3: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 3. after ADD1(M): yl,yh = ( 0, 5.43154e+307); yl+yh= 5.43154e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.43307e+307); yl+yh= 4.43307e+307 ebd0(x=1e+307, M=8.7778e+304): M/x = (r=0.561779104644075) * 2^(e=-6); i=16, f=1820, fg=f*2^-(e+10)=113.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=1: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=2: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=3: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 3. after ADD1(M): yl,yh = ( 0, 4.74278e+307); yl+yh= 4.74278e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74431e+307); yl+yh= 3.74431e+307 ebd0(x=1e+307, M=1.75556e+305): M/x = (r=0.561779104644075) * 2^(e=-5); i=16, f=1820, fg=f*2^-(e+10)=56.875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=1: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=2: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=3: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 3. after ADD1(M): yl,yh = ( 0, 4.05841e+307); yl+yh= 4.05841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.05994e+307); yl+yh= 3.05994e+307 ebd0(x=1e+307, M=3.51112e+305): M/x = (r=0.561779104644075) * 2^(e=-4); i=16, f=1820, fg=f*2^-(e+10)=28.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=1: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=2: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=3: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 3. after ADD1(M): yl,yh = ( 0, 3.38282e+307); yl+yh= 3.38282e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.38435e+307); yl+yh= 2.38435e+307 ebd0(x=1e+307, M=7.02224e+305): M/x = (r=0.561779104644075) * 2^(e=-3); i=16, f=1820, fg=f*2^-(e+10)=14.2188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=1: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=2: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=3: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 3. after ADD1(M): yl,yh = ( 0, 2.72479e+307); yl+yh= 2.72479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.72631e+307); yl+yh= 1.72631e+307 ebd0(x=1e+307, M=1.40445e+306): M/x = (r=0.561779104644075) * 2^(e=-2); i=16, f=1820, fg=f*2^-(e+10)=7.10938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=1: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=2: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=3: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 3. after ADD1(M): yl,yh = ( 0, 2.10186e+307); yl+yh= 2.10186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10339e+307); yl+yh= 1.10339e+307 ebd0(x=1e+307, M=2.8089e+306): M/x = (r=0.561779104644075) * 2^(e=-1); i=16, f=1820, fg=f*2^-(e+10)=3.55469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=1: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=2: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=3: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 3. after ADD1(M): yl,yh = ( 0, 1.54916e+307); yl+yh= 1.54916e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.50683e+306); yl+yh= 5.50683e+306 ebd0(x=1e+307, M=5.61779e+306): M/x = (r=0.561779104644075) * 2^(e=0); i=16, f=1820, fg=f*2^-(e+10)=1.77734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=1: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=2: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=3: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 3. after ADD1(M): yl,yh = ( 0, 1.1369e+307); yl+yh= 1.1369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.38426e+306); yl+yh= 1.38426e+306 ebd0(x=1e+307, M=1.12356e+307): M/x = (r=0.561779104644075) * 2^(e=1); i=16, f=1820, fg=f*2^-(e+10)=0.888672 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=1: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=2: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=3: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 3. after ADD1(M): yl,yh = ( 0, 1.00553e+307); yl+yh= 1.00553e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.05759e+304); yl+yh= 7.05759e+304 ebd0(x=1e+307, M=2.24712e+307): M/x = (r=0.561779104644075) * 2^(e=2); i=16, f=1820, fg=f*2^-(e+10)=0.444336 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=1: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=2: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=3: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 3. after ADD1(M): yl,yh = ( 0, 1.43594e+307); yl+yh= 1.43594e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.37469e+306); yl+yh= 4.37469e+306 ebd0(x=1e+307, M=4.49423e+307): M/x = (r=0.561779104644075) * 2^(e=3); i=16, f=1820, fg=f*2^-(e+10)=0.222168 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=1: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=2: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=3: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 3. after ADD1(M): yl,yh = ( 0, 2.98991e+307); yl+yh= 2.98991e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99144e+307); yl+yh= 1.99144e+307 ebd0(x=1e+307, M=8.98847e+307): M/x = (r=0.561779104644075) * 2^(e=4); i=16, f=1820, fg=f*2^-(e+10)=0.111084 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=1: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=2: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 j=3: ( 0, -2.19747e+307); ( 0, -2.19747e+307); yl+yh= -2.19747e+307 3. after ADD1(M): yl,yh = ( 0, 6.791e+307); yl+yh= 6.791e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.79252e+307); yl+yh= 5.79252e+307 ebd0(x=1e+307, M=1.79769e+308): M/x = (r=0.561779104644075) * 2^(e=5); i=16, f=1820, fg=f*2^-(e+10)=0.055542 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419480256795 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=1: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=2: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 j=3: ( 0, -2.89061e+307); ( 0, -2.89061e+307); yl+yh= -2.89061e+307 3. after ADD1(M): yl,yh = ( 0, 1.50863e+308); yl+yh= 1.50863e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.40878e+308); yl+yh= 1.40878e+308 bd0(1e+307, 1.12356e+307): T.series w/ 32 terms -> bd0=7.05759e+304 > with(bd0M, data.frame(log2.L = log2(np), bd0 = bd0, ebd0, bd0M. = format(bd0M, digits=8))) log2.L bd0 yh yl bd0M. 1 990 Inf Inf 0 1.9677915e+308 2 991 Inf Inf 0 1.8984768e+308 3 992 Inf Inf 0 1.8291620e+308 4 993 Inf Inf 0 1.7598473e+308 5 994 1.69053261e+308 1.69053261e+308 0 1.6905326e+308 6 995 1.62121789e+308 1.62121789e+308 0 1.6212179e+308 7 996 1.55190318e+308 1.55190318e+308 0 1.5519032e+308 8 997 1.48258847e+308 1.48258847e+308 0 1.4825885e+308 9 998 1.41327376e+308 1.41327376e+308 0 1.4132738e+308 10 999 1.34395907e+308 1.34395907e+308 0 1.3439591e+308 11 1000 1.27464441e+308 1.27464441e+308 0 1.2746444e+308 12 1001 1.20532980e+308 1.20532980e+308 0 1.2053298e+308 13 1002 1.13601529e+308 1.13601529e+308 0 1.1360153e+308 14 1003 1.06670100e+308 1.06670100e+308 0 1.0667010e+308 15 1004 9.97387141e+307 9.97387141e+307 0 9.9738714e+307 16 1005 9.28074137e+307 9.28074137e+307 0 9.2807414e+307 17 1006 8.58762848e+307 8.58762848e+307 0 8.5876285e+307 18 1007 7.89454988e+307 7.89454988e+307 0 7.8945499e+307 19 1008 7.20153985e+307 7.20153985e+307 0 7.2015399e+307 20 1009 6.50866698e+307 6.50866698e+307 0 6.5086670e+307 21 1010 5.81606841e+307 5.81606841e+307 0 5.8160684e+307 22 1011 5.12401845e+307 5.12401845e+307 0 5.1240185e+307 23 1012 4.43306572e+307 4.43306572e+307 0 4.4330657e+307 24 1013 3.74430744e+307 3.74430744e+307 0 3.7443074e+307 25 1014 3.05993806e+307 3.05993806e+307 0 3.0599381e+307 26 1015 2.38434647e+307 2.38434647e+307 0 2.3843465e+307 27 1016 1.72631049e+307 1.72631049e+307 0 1.7263105e+307 28 1017 1.10338570e+307 1.10338570e+307 0 1.1033857e+307 29 1018 5.50683291e+306 5.50683291e+306 0 5.5068329e+306 30 1019 1.38425663e+306 1.38425663e+306 0 1.3842566e+306 31 1020 7.05758732e+304 7.05758732e+304 0 7.0575873e+304 32 1021 4.37468616e+306 4.37468616e+306 0 4.3746862e+306 33 1022 1.99143785e+307 1.99143785e+307 0 1.9914379e+307 34 1023 5.79252351e+307 5.79252351e+307 0 5.7925235e+307 35 1024 1.40878420e+308 1.40878420e+308 0 1.4087842e+308 > > matplot(log2(Llam), with(bd0M, cbind(bd0 = bd0/x., yh=ebd0[["yh"]]/x., asNumeric(bd0M/x.))), + type="o", ylab = "*bd0*(x., L) / x.", pch=1:3, + main= paste("ebd0(x., Lam) and bd0(*) for x=",format(x.)," *and* larg Lam")) > abline(h=0, lty=3, col=adjustcolor("gray20", 1/2)) > axis(1, at=log2(x.), labels="log2(x.)", line=-1, tck=-1/16, col=2, col.axis=2) > legend("top", c("bd0()", "ebd0()", "MPFR bd0()"), bty="n", lty=1:3, pch=1:3, col=1:3) > dMax <- .Machine$double.xmax > abline(h = dMax / x., col=4, lty=3) ; ux <- par("usr")[1:2] > text(c(ux %*% c(3,1))/4, dMax/x., pos=3, + sprintf("bd0(.) > DBL_MAX = %.5g", dMax), col=4) > showProc.time() Time (user system elapsed): 0.14 0 0.14 > > > L.2 <- 2^c(seq(993, 1016, by=1/4), seq(1016+1/8, 1022, by=1/16)) > bd0.2 <- bd0ver(x., L.2, mpfrPrec = 512, keepMpfr=TRUE) ebd0(x=1e+307, M=8.37116e+298): M/x = (r=0.561779104644474) * 2^(e=-26); i=16, f=1820, fg=f*2^-(e+10)=1.19276e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=9.95504e+298): M/x = (r=0.668071708303066) * 2^(e=-26); i=43, f=1533, fg=f*2^-(e+10)=1.00467e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.18386e+299): M/x = (r=0.794475628846029) * 2^(e=-26); i=75, f=1291, fg=f*2^-(e+10)=8.4607e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.40786e+299): M/x = (r=0.944796070519959) * 2^(e=-26); i=114, f=1083, fg=f*2^-(e+10)=7.09755e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( NaN, Inf); yl+yh= NaN non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.67423e+299): M/x = (r=0.561779104644474) * 2^(e=-25); i=16, f=1820, fg=f*2^-(e+10)=5.96378e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=2: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=3: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=4: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 3. after ADD1(M): yl,yh = ( 0, 1.79038e+308); yl+yh= 1.79038e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.69053e+308); yl+yh= 1.69053e+308 ebd0(x=1e+307, M=1.99101e+299): M/x = (r=0.668071708303066) * 2^(e=-25); i=43, f=1533, fg=f*2^-(e+10)=5.02333e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.77322e+308); yl+yh= 1.77322e+308 j=2: ( 0, 1.77322e+308); ( 0, 1.77322e+308); yl+yh= 1.77322e+308 j=3: ( 0, 1.77322e+308); ( 0, 1.77322e+308); yl+yh= 1.77322e+308 j=4: ( 0, 1.77322e+308); ( 0, 1.77322e+308); yl+yh= 1.77322e+308 3. after ADD1(M): yl,yh = ( 0, 1.77322e+308); yl+yh= 1.77322e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.6732e+308); yl+yh= 1.6732e+308 ebd0(x=1e+307, M=2.36772e+299): M/x = (r=0.794475628846029) * 2^(e=-25); i=75, f=1291, fg=f*2^-(e+10)=4.23035e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.75604e+308); yl+yh= 1.75604e+308 j=2: ( 0, 1.75604e+308); ( 0, 1.75604e+308); yl+yh= 1.75604e+308 j=3: ( 0, 1.75604e+308); ( 0, 1.75604e+308); yl+yh= 1.75604e+308 j=4: ( 0, 1.75604e+308); ( 0, 1.75604e+308); yl+yh= 1.75604e+308 3. after ADD1(M): yl,yh = ( 0, 1.75604e+308); yl+yh= 1.75604e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.65588e+308); yl+yh= 1.65588e+308 ebd0(x=1e+307, M=2.81571e+299): M/x = (r=0.944796070519959) * 2^(e=-25); i=114, f=1083, fg=f*2^-(e+10)=3.54877e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.73847e+308); yl+yh= 1.73847e+308 j=2: ( 0, 1.73847e+308); ( 0, 1.73847e+308); yl+yh= 1.73847e+308 j=3: ( 0, 1.73847e+308); ( 0, 1.73847e+308); yl+yh= 1.73847e+308 j=4: ( 0, 1.73847e+308); ( 0, 1.73847e+308); yl+yh= 1.73847e+308 3. after ADD1(M): yl,yh = ( 0, 1.73847e+308); yl+yh= 1.73847e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.63855e+308); yl+yh= 1.63855e+308 ebd0(x=1e+307, M=3.34846e+299): M/x = (r=0.561779104644474) * 2^(e=-24); i=16, f=1820, fg=f*2^-(e+10)=2.98189e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=2: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=3: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=4: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 3. after ADD1(M): yl,yh = ( 0, 1.72107e+308); yl+yh= 1.72107e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.62122e+308); yl+yh= 1.62122e+308 ebd0(x=1e+307, M=3.98202e+299): M/x = (r=0.668071708303066) * 2^(e=-24); i=43, f=1533, fg=f*2^-(e+10)=2.51167e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.7039e+308); yl+yh= 1.7039e+308 j=2: ( 0, 1.7039e+308); ( 0, 1.7039e+308); yl+yh= 1.7039e+308 j=3: ( 0, 1.7039e+308); ( 0, 1.7039e+308); yl+yh= 1.7039e+308 j=4: ( 0, 1.7039e+308); ( 0, 1.7039e+308); yl+yh= 1.7039e+308 3. after ADD1(M): yl,yh = ( 0, 1.7039e+308); yl+yh= 1.7039e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.60389e+308); yl+yh= 1.60389e+308 ebd0(x=1e+307, M=4.73544e+299): M/x = (r=0.794475628846029) * 2^(e=-24); i=75, f=1291, fg=f*2^-(e+10)=2.11517e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.68672e+308); yl+yh= 1.68672e+308 j=2: ( 0, 1.68672e+308); ( 0, 1.68672e+308); yl+yh= 1.68672e+308 j=3: ( 0, 1.68672e+308); ( 0, 1.68672e+308); yl+yh= 1.68672e+308 j=4: ( 0, 1.68672e+308); ( 0, 1.68672e+308); yl+yh= 1.68672e+308 3. after ADD1(M): yl,yh = ( 0, 1.68672e+308); yl+yh= 1.68672e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.58656e+308); yl+yh= 1.58656e+308 ebd0(x=1e+307, M=5.63142e+299): M/x = (r=0.944796070519959) * 2^(e=-24); i=114, f=1083, fg=f*2^-(e+10)=1.77439e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.66916e+308); yl+yh= 1.66916e+308 j=2: ( 0, 1.66916e+308); ( 0, 1.66916e+308); yl+yh= 1.66916e+308 j=3: ( 0, 1.66916e+308); ( 0, 1.66916e+308); yl+yh= 1.66916e+308 j=4: ( 0, 1.66916e+308); ( 0, 1.66916e+308); yl+yh= 1.66916e+308 3. after ADD1(M): yl,yh = ( 0, 1.66916e+308); yl+yh= 1.66916e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.56923e+308); yl+yh= 1.56923e+308 ebd0(x=1e+307, M=6.69693e+299): M/x = (r=0.561779104644474) * 2^(e=-23); i=16, f=1820, fg=f*2^-(e+10)=1.49094e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=2: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=3: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=4: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 3. after ADD1(M): yl,yh = ( 0, 1.65175e+308); yl+yh= 1.65175e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5519e+308); yl+yh= 1.5519e+308 ebd0(x=1e+307, M=7.96404e+299): M/x = (r=0.668071708303066) * 2^(e=-23); i=43, f=1533, fg=f*2^-(e+10)=1.25583e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.63459e+308); yl+yh= 1.63459e+308 j=2: ( 0, 1.63459e+308); ( 0, 1.63459e+308); yl+yh= 1.63459e+308 j=3: ( 0, 1.63459e+308); ( 0, 1.63459e+308); yl+yh= 1.63459e+308 j=4: ( 0, 1.63459e+308); ( 0, 1.63459e+308); yl+yh= 1.63459e+308 3. after ADD1(M): yl,yh = ( 0, 1.63459e+308); yl+yh= 1.63459e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.53457e+308); yl+yh= 1.53457e+308 ebd0(x=1e+307, M=9.47089e+299): M/x = (r=0.794475628846029) * 2^(e=-23); i=75, f=1291, fg=f*2^-(e+10)=1.05759e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.61741e+308); yl+yh= 1.61741e+308 j=2: ( 0, 1.61741e+308); ( 0, 1.61741e+308); yl+yh= 1.61741e+308 j=3: ( 0, 1.61741e+308); ( 0, 1.61741e+308); yl+yh= 1.61741e+308 j=4: ( 0, 1.61741e+308); ( 0, 1.61741e+308); yl+yh= 1.61741e+308 3. after ADD1(M): yl,yh = ( 0, 1.61741e+308); yl+yh= 1.61741e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.51725e+308); yl+yh= 1.51725e+308 ebd0(x=1e+307, M=1.12628e+300): M/x = (r=0.944796070519959) * 2^(e=-23); i=114, f=1083, fg=f*2^-(e+10)=8.87194e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.59984e+308); yl+yh= 1.59984e+308 j=2: ( 0, 1.59984e+308); ( 0, 1.59984e+308); yl+yh= 1.59984e+308 j=3: ( 0, 1.59984e+308); ( 0, 1.59984e+308); yl+yh= 1.59984e+308 j=4: ( 0, 1.59984e+308); ( 0, 1.59984e+308); yl+yh= 1.59984e+308 3. after ADD1(M): yl,yh = ( 0, 1.59984e+308); yl+yh= 1.59984e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.49992e+308); yl+yh= 1.49992e+308 ebd0(x=1e+307, M=1.33939e+300): M/x = (r=0.561779104644474) * 2^(e=-22); i=16, f=1820, fg=f*2^-(e+10)=7.45472e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=2: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=3: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=4: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 3. after ADD1(M): yl,yh = ( 0, 1.58244e+308); yl+yh= 1.58244e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48259e+308); yl+yh= 1.48259e+308 ebd0(x=1e+307, M=1.59281e+300): M/x = (r=0.668071708303066) * 2^(e=-22); i=43, f=1533, fg=f*2^-(e+10)=6.27917e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.56527e+308); yl+yh= 1.56527e+308 j=2: ( 0, 1.56527e+308); ( 0, 1.56527e+308); yl+yh= 1.56527e+308 j=3: ( 0, 1.56527e+308); ( 0, 1.56527e+308); yl+yh= 1.56527e+308 j=4: ( 0, 1.56527e+308); ( 0, 1.56527e+308); yl+yh= 1.56527e+308 3. after ADD1(M): yl,yh = ( 0, 1.56527e+308); yl+yh= 1.56527e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.46526e+308); yl+yh= 1.46526e+308 ebd0(x=1e+307, M=1.89418e+300): M/x = (r=0.794475628846029) * 2^(e=-22); i=75, f=1291, fg=f*2^-(e+10)=5.28794e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.54809e+308); yl+yh= 1.54809e+308 j=2: ( 0, 1.54809e+308); ( 0, 1.54809e+308); yl+yh= 1.54809e+308 j=3: ( 0, 1.54809e+308); ( 0, 1.54809e+308); yl+yh= 1.54809e+308 j=4: ( 0, 1.54809e+308); ( 0, 1.54809e+308); yl+yh= 1.54809e+308 3. after ADD1(M): yl,yh = ( 0, 1.54809e+308); yl+yh= 1.54809e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.44793e+308); yl+yh= 1.44793e+308 ebd0(x=1e+307, M=2.25257e+300): M/x = (r=0.944796070519959) * 2^(e=-22); i=114, f=1083, fg=f*2^-(e+10)=4.43597e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.53053e+308); yl+yh= 1.53053e+308 j=2: ( 0, 1.53053e+308); ( 0, 1.53053e+308); yl+yh= 1.53053e+308 j=3: ( 0, 1.53053e+308); ( 0, 1.53053e+308); yl+yh= 1.53053e+308 j=4: ( 0, 1.53053e+308); ( 0, 1.53053e+308); yl+yh= 1.53053e+308 3. after ADD1(M): yl,yh = ( 0, 1.53053e+308); yl+yh= 1.53053e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.4306e+308); yl+yh= 1.4306e+308 ebd0(x=1e+307, M=2.67877e+300): M/x = (r=0.561779104644474) * 2^(e=-21); i=16, f=1820, fg=f*2^-(e+10)=3.72736e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=2: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=3: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=4: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 3. after ADD1(M): yl,yh = ( 0, 1.51312e+308); yl+yh= 1.51312e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.41327e+308); yl+yh= 1.41327e+308 ebd0(x=1e+307, M=3.18561e+300): M/x = (r=0.668071708303066) * 2^(e=-21); i=43, f=1533, fg=f*2^-(e+10)=3.13958e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.49596e+308); yl+yh= 1.49596e+308 j=2: ( 0, 1.49596e+308); ( 0, 1.49596e+308); yl+yh= 1.49596e+308 j=3: ( 0, 1.49596e+308); ( 0, 1.49596e+308); yl+yh= 1.49596e+308 j=4: ( 0, 1.49596e+308); ( 0, 1.49596e+308); yl+yh= 1.49596e+308 3. after ADD1(M): yl,yh = ( 0, 1.49596e+308); yl+yh= 1.49596e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.39595e+308); yl+yh= 1.39595e+308 ebd0(x=1e+307, M=3.78836e+300): M/x = (r=0.794475628846029) * 2^(e=-21); i=75, f=1291, fg=f*2^-(e+10)=2.64397e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.47878e+308); yl+yh= 1.47878e+308 j=2: ( 0, 1.47878e+308); ( 0, 1.47878e+308); yl+yh= 1.47878e+308 j=3: ( 0, 1.47878e+308); ( 0, 1.47878e+308); yl+yh= 1.47878e+308 j=4: ( 0, 1.47878e+308); ( 0, 1.47878e+308); yl+yh= 1.47878e+308 3. after ADD1(M): yl,yh = ( 0, 1.47878e+308); yl+yh= 1.47878e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.37862e+308); yl+yh= 1.37862e+308 ebd0(x=1e+307, M=4.50514e+300): M/x = (r=0.944796070519959) * 2^(e=-21); i=114, f=1083, fg=f*2^-(e+10)=2.21798e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.46121e+308); yl+yh= 1.46121e+308 j=2: ( 0, 1.46121e+308); ( 0, 1.46121e+308); yl+yh= 1.46121e+308 j=3: ( 0, 1.46121e+308); ( 0, 1.46121e+308); yl+yh= 1.46121e+308 j=4: ( 0, 1.46121e+308); ( 0, 1.46121e+308); yl+yh= 1.46121e+308 3. after ADD1(M): yl,yh = ( 0, 1.46121e+308); yl+yh= 1.46121e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.36129e+308); yl+yh= 1.36129e+308 ebd0(x=1e+307, M=5.35754e+300): M/x = (r=0.561779104644474) * 2^(e=-20); i=16, f=1820, fg=f*2^-(e+10)=1.86368e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=2: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=3: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=4: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 3. after ADD1(M): yl,yh = ( 0, 1.44381e+308); yl+yh= 1.44381e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34396e+308); yl+yh= 1.34396e+308 ebd0(x=1e+307, M=6.37123e+300): M/x = (r=0.668071708303066) * 2^(e=-20); i=43, f=1533, fg=f*2^-(e+10)=1.56979e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.42665e+308); yl+yh= 1.42665e+308 j=2: ( 0, 1.42665e+308); ( 0, 1.42665e+308); yl+yh= 1.42665e+308 j=3: ( 0, 1.42665e+308); ( 0, 1.42665e+308); yl+yh= 1.42665e+308 j=4: ( 0, 1.42665e+308); ( 0, 1.42665e+308); yl+yh= 1.42665e+308 3. after ADD1(M): yl,yh = ( 0, 1.42665e+308); yl+yh= 1.42665e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.32663e+308); yl+yh= 1.32663e+308 ebd0(x=1e+307, M=7.57671e+300): M/x = (r=0.794475628846029) * 2^(e=-20); i=75, f=1291, fg=f*2^-(e+10)=1.32198e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.40946e+308); yl+yh= 1.40946e+308 j=2: ( 0, 1.40946e+308); ( 0, 1.40946e+308); yl+yh= 1.40946e+308 j=3: ( 0, 1.40946e+308); ( 0, 1.40946e+308); yl+yh= 1.40946e+308 j=4: ( 0, 1.40946e+308); ( 0, 1.40946e+308); yl+yh= 1.40946e+308 3. after ADD1(M): yl,yh = ( 0, 1.40946e+308); yl+yh= 1.40946e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.3093e+308); yl+yh= 1.3093e+308 ebd0(x=1e+307, M=9.01028e+300): M/x = (r=0.944796070519959) * 2^(e=-20); i=114, f=1083, fg=f*2^-(e+10)=1.10899e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.3919e+308); yl+yh= 1.3919e+308 j=2: ( 0, 1.3919e+308); ( 0, 1.3919e+308); yl+yh= 1.3919e+308 j=3: ( 0, 1.3919e+308); ( 0, 1.3919e+308); yl+yh= 1.3919e+308 j=4: ( 0, 1.3919e+308); ( 0, 1.3919e+308); yl+yh= 1.3919e+308 3. after ADD1(M): yl,yh = ( 0, 1.3919e+308); yl+yh= 1.3919e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.29197e+308); yl+yh= 1.29197e+308 ebd0(x=1e+307, M=1.07151e+301): M/x = (r=0.561779104644474) * 2^(e=-19); i=16, f=1820, fg=f*2^-(e+10)=931840 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=2: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=3: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=4: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 3. after ADD1(M): yl,yh = ( 0, 1.37449e+308); yl+yh= 1.37449e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.27464e+308); yl+yh= 1.27464e+308 ebd0(x=1e+307, M=1.27425e+301): M/x = (r=0.668071708303066) * 2^(e=-19); i=43, f=1533, fg=f*2^-(e+10)=784896 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.35733e+308); yl+yh= 1.35733e+308 j=2: ( 0, 1.35733e+308); ( 0, 1.35733e+308); yl+yh= 1.35733e+308 j=3: ( 0, 1.35733e+308); ( 0, 1.35733e+308); yl+yh= 1.35733e+308 j=4: ( 0, 1.35733e+308); ( 0, 1.35733e+308); yl+yh= 1.35733e+308 3. after ADD1(M): yl,yh = ( 0, 1.35733e+308); yl+yh= 1.35733e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.25732e+308); yl+yh= 1.25732e+308 ebd0(x=1e+307, M=1.51534e+301): M/x = (r=0.794475628846029) * 2^(e=-19); i=75, f=1291, fg=f*2^-(e+10)=660992 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.34015e+308); yl+yh= 1.34015e+308 j=2: ( 0, 1.34015e+308); ( 0, 1.34015e+308); yl+yh= 1.34015e+308 j=3: ( 0, 1.34015e+308); ( 0, 1.34015e+308); yl+yh= 1.34015e+308 j=4: ( 0, 1.34015e+308); ( 0, 1.34015e+308); yl+yh= 1.34015e+308 3. after ADD1(M): yl,yh = ( 0, 1.34015e+308); yl+yh= 1.34015e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.23999e+308); yl+yh= 1.23999e+308 ebd0(x=1e+307, M=1.80206e+301): M/x = (r=0.944796070519959) * 2^(e=-19); i=114, f=1083, fg=f*2^-(e+10)=554496 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.32258e+308); yl+yh= 1.32258e+308 j=2: ( 0, 1.32258e+308); ( 0, 1.32258e+308); yl+yh= 1.32258e+308 j=3: ( 0, 1.32258e+308); ( 0, 1.32258e+308); yl+yh= 1.32258e+308 j=4: ( 0, 1.32258e+308); ( 0, 1.32258e+308); yl+yh= 1.32258e+308 3. after ADD1(M): yl,yh = ( 0, 1.32258e+308); yl+yh= 1.32258e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.22266e+308); yl+yh= 1.22266e+308 ebd0(x=1e+307, M=2.14302e+301): M/x = (r=0.561779104644474) * 2^(e=-18); i=16, f=1820, fg=f*2^-(e+10)=465920 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=2: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=3: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=4: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 3. after ADD1(M): yl,yh = ( 0, 1.30518e+308); yl+yh= 1.30518e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.20533e+308); yl+yh= 1.20533e+308 ebd0(x=1e+307, M=2.54849e+301): M/x = (r=0.668071708303066) * 2^(e=-18); i=43, f=1533, fg=f*2^-(e+10)=392448 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.28802e+308); yl+yh= 1.28802e+308 j=2: ( 0, 1.28802e+308); ( 0, 1.28802e+308); yl+yh= 1.28802e+308 j=3: ( 0, 1.28802e+308); ( 0, 1.28802e+308); yl+yh= 1.28802e+308 j=4: ( 0, 1.28802e+308); ( 0, 1.28802e+308); yl+yh= 1.28802e+308 3. after ADD1(M): yl,yh = ( 0, 1.28802e+308); yl+yh= 1.28802e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.188e+308); yl+yh= 1.188e+308 ebd0(x=1e+307, M=3.03068e+301): M/x = (r=0.794475628846029) * 2^(e=-18); i=75, f=1291, fg=f*2^-(e+10)=330496 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.27084e+308); yl+yh= 1.27084e+308 j=2: ( 0, 1.27084e+308); ( 0, 1.27084e+308); yl+yh= 1.27084e+308 j=3: ( 0, 1.27084e+308); ( 0, 1.27084e+308); yl+yh= 1.27084e+308 j=4: ( 0, 1.27084e+308); ( 0, 1.27084e+308); yl+yh= 1.27084e+308 3. after ADD1(M): yl,yh = ( 0, 1.27084e+308); yl+yh= 1.27084e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.17067e+308); yl+yh= 1.17067e+308 ebd0(x=1e+307, M=3.60411e+301): M/x = (r=0.944796070519959) * 2^(e=-18); i=114, f=1083, fg=f*2^-(e+10)=277248 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.25327e+308); yl+yh= 1.25327e+308 j=2: ( 0, 1.25327e+308); ( 0, 1.25327e+308); yl+yh= 1.25327e+308 j=3: ( 0, 1.25327e+308); ( 0, 1.25327e+308); yl+yh= 1.25327e+308 j=4: ( 0, 1.25327e+308); ( 0, 1.25327e+308); yl+yh= 1.25327e+308 3. after ADD1(M): yl,yh = ( 0, 1.25327e+308); yl+yh= 1.25327e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.15334e+308); yl+yh= 1.15334e+308 ebd0(x=1e+307, M=4.28603e+301): M/x = (r=0.561779104644474) * 2^(e=-17); i=16, f=1820, fg=f*2^-(e+10)=232960 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=2: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=3: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=4: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 3. after ADD1(M): yl,yh = ( 0, 1.23586e+308); yl+yh= 1.23586e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.13602e+308); yl+yh= 1.13602e+308 ebd0(x=1e+307, M=5.09698e+301): M/x = (r=0.668071708303066) * 2^(e=-17); i=43, f=1533, fg=f*2^-(e+10)=196224 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.2187e+308); yl+yh= 1.2187e+308 j=2: ( 0, 1.2187e+308); ( 0, 1.2187e+308); yl+yh= 1.2187e+308 j=3: ( 0, 1.2187e+308); ( 0, 1.2187e+308); yl+yh= 1.2187e+308 j=4: ( 0, 1.2187e+308); ( 0, 1.2187e+308); yl+yh= 1.2187e+308 3. after ADD1(M): yl,yh = ( 0, 1.2187e+308); yl+yh= 1.2187e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.11869e+308); yl+yh= 1.11869e+308 ebd0(x=1e+307, M=6.06137e+301): M/x = (r=0.794475628846029) * 2^(e=-17); i=75, f=1291, fg=f*2^-(e+10)=165248 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.20152e+308); yl+yh= 1.20152e+308 j=2: ( 0, 1.20152e+308); ( 0, 1.20152e+308); yl+yh= 1.20152e+308 j=3: ( 0, 1.20152e+308); ( 0, 1.20152e+308); yl+yh= 1.20152e+308 j=4: ( 0, 1.20152e+308); ( 0, 1.20152e+308); yl+yh= 1.20152e+308 3. after ADD1(M): yl,yh = ( 0, 1.20152e+308); yl+yh= 1.20152e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10136e+308); yl+yh= 1.10136e+308 ebd0(x=1e+307, M=7.20822e+301): M/x = (r=0.944796070519959) * 2^(e=-17); i=114, f=1083, fg=f*2^-(e+10)=138624 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.18395e+308); yl+yh= 1.18395e+308 j=2: ( 0, 1.18395e+308); ( 0, 1.18395e+308); yl+yh= 1.18395e+308 j=3: ( 0, 1.18395e+308); ( 0, 1.18395e+308); yl+yh= 1.18395e+308 j=4: ( 0, 1.18395e+308); ( 0, 1.18395e+308); yl+yh= 1.18395e+308 3. after ADD1(M): yl,yh = ( 0, 1.18395e+308); yl+yh= 1.18395e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.08403e+308); yl+yh= 1.08403e+308 ebd0(x=1e+307, M=8.57207e+301): M/x = (r=0.561779104644474) * 2^(e=-16); i=16, f=1820, fg=f*2^-(e+10)=116480 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=2: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=3: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=4: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 3. after ADD1(M): yl,yh = ( 0, 1.16655e+308); yl+yh= 1.16655e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.0667e+308); yl+yh= 1.0667e+308 ebd0(x=1e+307, M=1.0194e+302): M/x = (r=0.668071708303066) * 2^(e=-16); i=43, f=1533, fg=f*2^-(e+10)=98112 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.14939e+308); yl+yh= 1.14939e+308 j=2: ( 0, 1.14939e+308); ( 0, 1.14939e+308); yl+yh= 1.14939e+308 j=3: ( 0, 1.14939e+308); ( 0, 1.14939e+308); yl+yh= 1.14939e+308 j=4: ( 0, 1.14939e+308); ( 0, 1.14939e+308); yl+yh= 1.14939e+308 3. after ADD1(M): yl,yh = ( 0, 1.14939e+308); yl+yh= 1.14939e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.04937e+308); yl+yh= 1.04937e+308 ebd0(x=1e+307, M=1.21227e+302): M/x = (r=0.794475628846029) * 2^(e=-16); i=75, f=1291, fg=f*2^-(e+10)=82624 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.13221e+308); yl+yh= 1.13221e+308 j=2: ( 0, 1.13221e+308); ( 0, 1.13221e+308); yl+yh= 1.13221e+308 j=3: ( 0, 1.13221e+308); ( 0, 1.13221e+308); yl+yh= 1.13221e+308 j=4: ( 0, 1.13221e+308); ( 0, 1.13221e+308); yl+yh= 1.13221e+308 3. after ADD1(M): yl,yh = ( 0, 1.13221e+308); yl+yh= 1.13221e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.03204e+308); yl+yh= 1.03204e+308 ebd0(x=1e+307, M=1.44164e+302): M/x = (r=0.944796070519959) * 2^(e=-16); i=114, f=1083, fg=f*2^-(e+10)=69312 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.11464e+308); yl+yh= 1.11464e+308 j=2: ( 0, 1.11464e+308); ( 0, 1.11464e+308); yl+yh= 1.11464e+308 j=3: ( 0, 1.11464e+308); ( 0, 1.11464e+308); yl+yh= 1.11464e+308 j=4: ( 0, 1.11464e+308); ( 0, 1.11464e+308); yl+yh= 1.11464e+308 3. after ADD1(M): yl,yh = ( 0, 1.11464e+308); yl+yh= 1.11464e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.01472e+308); yl+yh= 1.01472e+308 ebd0(x=1e+307, M=1.71441e+302): M/x = (r=0.561779104644474) * 2^(e=-15); i=16, f=1820, fg=f*2^-(e+10)=58240 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=2: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=3: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=4: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 3. after ADD1(M): yl,yh = ( 0, 1.09723e+308); yl+yh= 1.09723e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.97387e+307); yl+yh= 9.97387e+307 ebd0(x=1e+307, M=2.03879e+302): M/x = (r=0.668071708303066) * 2^(e=-15); i=43, f=1533, fg=f*2^-(e+10)=49056 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.08007e+308); yl+yh= 1.08007e+308 j=2: ( 0, 1.08007e+308); ( 0, 1.08007e+308); yl+yh= 1.08007e+308 j=3: ( 0, 1.08007e+308); ( 0, 1.08007e+308); yl+yh= 1.08007e+308 j=4: ( 0, 1.08007e+308); ( 0, 1.08007e+308); yl+yh= 1.08007e+308 3. after ADD1(M): yl,yh = ( 0, 1.08007e+308); yl+yh= 1.08007e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.80059e+307); yl+yh= 9.80059e+307 ebd0(x=1e+307, M=2.42455e+302): M/x = (r=0.794475628846029) * 2^(e=-15); i=75, f=1291, fg=f*2^-(e+10)=41312 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.06289e+308); yl+yh= 1.06289e+308 j=2: ( 0, 1.06289e+308); ( 0, 1.06289e+308); yl+yh= 1.06289e+308 j=3: ( 0, 1.06289e+308); ( 0, 1.06289e+308); yl+yh= 1.06289e+308 j=4: ( 0, 1.06289e+308); ( 0, 1.06289e+308); yl+yh= 1.06289e+308 3. after ADD1(M): yl,yh = ( 0, 1.06289e+308); yl+yh= 1.06289e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.6273e+307); yl+yh= 9.6273e+307 ebd0(x=1e+307, M=2.88329e+302): M/x = (r=0.944796070519959) * 2^(e=-15); i=114, f=1083, fg=f*2^-(e+10)=34656 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.04532e+308); yl+yh= 1.04532e+308 j=2: ( 0, 1.04532e+308); ( 0, 1.04532e+308); yl+yh= 1.04532e+308 j=3: ( 0, 1.04532e+308); ( 0, 1.04532e+308); yl+yh= 1.04532e+308 j=4: ( 0, 1.04532e+308); ( 0, 1.04532e+308); yl+yh= 1.04532e+308 3. after ADD1(M): yl,yh = ( 0, 1.04533e+308); yl+yh= 1.04533e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.45402e+307); yl+yh= 9.45402e+307 ebd0(x=1e+307, M=3.42883e+302): M/x = (r=0.561779104644474) * 2^(e=-14); i=16, f=1820, fg=f*2^-(e+10)=29120 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=2: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=3: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=4: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 3. after ADD1(M): yl,yh = ( 0, 1.02792e+308); yl+yh= 1.02792e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.28074e+307); yl+yh= 9.28074e+307 ebd0(x=1e+307, M=4.07759e+302): M/x = (r=0.668071708303066) * 2^(e=-14); i=43, f=1533, fg=f*2^-(e+10)=24528 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.01076e+308); yl+yh= 1.01076e+308 j=2: ( 0, 1.01076e+308); ( 0, 1.01076e+308); yl+yh= 1.01076e+308 j=3: ( 0, 1.01076e+308); ( 0, 1.01076e+308); yl+yh= 1.01076e+308 j=4: ( 0, 1.01076e+308); ( 0, 1.01076e+308); yl+yh= 1.01076e+308 3. after ADD1(M): yl,yh = ( 0, 1.01076e+308); yl+yh= 1.01076e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.10746e+307); yl+yh= 9.10746e+307 ebd0(x=1e+307, M=4.84909e+302): M/x = (r=0.794475628846029) * 2^(e=-14); i=75, f=1291, fg=f*2^-(e+10)=20656 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 9.93576e+307); yl+yh= 9.93576e+307 j=2: ( 0, 9.93576e+307); ( 0, 9.93576e+307); yl+yh= 9.93576e+307 j=3: ( 0, 9.93576e+307); ( 0, 9.93576e+307); yl+yh= 9.93576e+307 j=4: ( 0, 9.93576e+307); ( 0, 9.93576e+307); yl+yh= 9.93576e+307 3. after ADD1(M): yl,yh = ( 0, 9.93581e+307); yl+yh= 9.93581e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.93418e+307); yl+yh= 8.93418e+307 ebd0(x=1e+307, M=5.76658e+302): M/x = (r=0.944796070519959) * 2^(e=-14); i=114, f=1083, fg=f*2^-(e+10)=17328 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 9.76008e+307); yl+yh= 9.76008e+307 j=2: ( 0, 9.76008e+307); ( 0, 9.76008e+307); yl+yh= 9.76008e+307 j=3: ( 0, 9.76008e+307); ( 0, 9.76008e+307); yl+yh= 9.76008e+307 j=4: ( 0, 9.76008e+307); ( 0, 9.76008e+307); yl+yh= 9.76008e+307 3. after ADD1(M): yl,yh = ( 0, 9.76014e+307); yl+yh= 9.76014e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.7609e+307); yl+yh= 8.7609e+307 ebd0(x=1e+307, M=6.85766e+302): M/x = (r=0.561779104644474) * 2^(e=-13); i=16, f=1820, fg=f*2^-(e+10)=14560 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=2: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=3: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=4: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 3. after ADD1(M): yl,yh = ( 0, 9.5861e+307); yl+yh= 9.5861e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.58763e+307); yl+yh= 8.58763e+307 ebd0(x=1e+307, M=8.15517e+302): M/x = (r=0.668071708303066) * 2^(e=-13); i=43, f=1533, fg=f*2^-(e+10)=12264 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 9.41442e+307); yl+yh= 9.41442e+307 j=2: ( 0, 9.41442e+307); ( 0, 9.41442e+307); yl+yh= 9.41442e+307 j=3: ( 0, 9.41442e+307); ( 0, 9.41442e+307); yl+yh= 9.41442e+307 j=4: ( 0, 9.41442e+307); ( 0, 9.41442e+307); yl+yh= 9.41442e+307 3. after ADD1(M): yl,yh = ( 0, 9.4145e+307); yl+yh= 9.4145e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.41435e+307); yl+yh= 8.41435e+307 ebd0(x=1e+307, M=9.69819e+302): M/x = (r=0.794475628846029) * 2^(e=-13); i=75, f=1291, fg=f*2^-(e+10)=10328 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 9.24262e+307); yl+yh= 9.24262e+307 j=2: ( 0, 9.24262e+307); ( 0, 9.24262e+307); yl+yh= 9.24262e+307 j=3: ( 0, 9.24262e+307); ( 0, 9.24262e+307); yl+yh= 9.24262e+307 j=4: ( 0, 9.24262e+307); ( 0, 9.24262e+307); yl+yh= 9.24262e+307 3. after ADD1(M): yl,yh = ( 0, 9.24271e+307); yl+yh= 9.24271e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.24108e+307); yl+yh= 8.24108e+307 ebd0(x=1e+307, M=1.15332e+303): M/x = (r=0.944796070519959) * 2^(e=-13); i=114, f=1083, fg=f*2^-(e+10)=8664 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 9.06693e+307); yl+yh= 9.06693e+307 j=2: ( 0, 9.06693e+307); ( 0, 9.06693e+307); yl+yh= 9.06693e+307 j=3: ( 0, 9.06693e+307); ( 0, 9.06693e+307); yl+yh= 9.06693e+307 j=4: ( 0, 9.06693e+307); ( 0, 9.06693e+307); yl+yh= 9.06693e+307 3. after ADD1(M): yl,yh = ( 0, 9.06705e+307); yl+yh= 9.06705e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.06781e+307); yl+yh= 8.06781e+307 ebd0(x=1e+307, M=1.37153e+303): M/x = (r=0.561779104644474) * 2^(e=-12); i=16, f=1820, fg=f*2^-(e+10)=7280 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=2: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=3: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=4: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 3. after ADD1(M): yl,yh = ( 0, 8.89302e+307); yl+yh= 8.89302e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.89455e+307); yl+yh= 7.89455e+307 ebd0(x=1e+307, M=1.63103e+303): M/x = (r=0.668071708303066) * 2^(e=-12); i=43, f=1533, fg=f*2^-(e+10)=6132 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 8.72128e+307); yl+yh= 8.72128e+307 j=2: ( 0, 8.72128e+307); ( 0, 8.72128e+307); yl+yh= 8.72128e+307 j=3: ( 0, 8.72128e+307); ( 0, 8.72128e+307); yl+yh= 8.72128e+307 j=4: ( 0, 8.72128e+307); ( 0, 8.72128e+307); yl+yh= 8.72128e+307 3. after ADD1(M): yl,yh = ( 0, 8.72144e+307); yl+yh= 8.72144e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.72129e+307); yl+yh= 7.72129e+307 ebd0(x=1e+307, M=1.93964e+303): M/x = (r=0.794475628846029) * 2^(e=-12); i=75, f=1291, fg=f*2^-(e+10)=5164 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 8.54947e+307); yl+yh= 8.54947e+307 j=2: ( 0, 8.54947e+307); ( 0, 8.54947e+307); yl+yh= 8.54947e+307 j=3: ( 0, 8.54947e+307); ( 0, 8.54947e+307); yl+yh= 8.54947e+307 j=4: ( 0, 8.54947e+307); ( 0, 8.54947e+307); yl+yh= 8.54947e+307 3. after ADD1(M): yl,yh = ( 0, 8.54966e+307); yl+yh= 8.54966e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.54803e+307); yl+yh= 7.54803e+307 ebd0(x=1e+307, M=2.30663e+303): M/x = (r=0.944796070519959) * 2^(e=-12); i=114, f=1083, fg=f*2^-(e+10)=4332 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 8.37378e+307); yl+yh= 8.37378e+307 j=2: ( 0, 8.37378e+307); ( 0, 8.37378e+307); yl+yh= 8.37378e+307 j=3: ( 0, 8.37378e+307); ( 0, 8.37378e+307); yl+yh= 8.37378e+307 j=4: ( 0, 8.37378e+307); ( 0, 8.37378e+307); yl+yh= 8.37378e+307 3. after ADD1(M): yl,yh = ( 0, 8.37402e+307); yl+yh= 8.37402e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.37478e+307); yl+yh= 7.37478e+307 ebd0(x=1e+307, M=2.74306e+303): M/x = (r=0.561779104644474) * 2^(e=-11); i=16, f=1820, fg=f*2^-(e+10)=3640 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=2: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=3: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=4: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 3. after ADD1(M): yl,yh = ( 0, 8.20001e+307); yl+yh= 8.20001e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.20154e+307); yl+yh= 7.20154e+307 ebd0(x=1e+307, M=3.26207e+303): M/x = (r=0.668071708303066) * 2^(e=-11); i=43, f=1533, fg=f*2^-(e+10)=3066 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 8.02813e+307); yl+yh= 8.02813e+307 j=2: ( 0, 8.02813e+307); ( 0, 8.02813e+307); yl+yh= 8.02813e+307 j=3: ( 0, 8.02813e+307); ( 0, 8.02813e+307); yl+yh= 8.02813e+307 j=4: ( 0, 8.02813e+307); ( 0, 8.02813e+307); yl+yh= 8.02813e+307 3. after ADD1(M): yl,yh = ( 0, 8.02846e+307); yl+yh= 8.02846e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.0283e+307); yl+yh= 7.0283e+307 ebd0(x=1e+307, M=3.87928e+303): M/x = (r=0.794475628846029) * 2^(e=-11); i=75, f=1291, fg=f*2^-(e+10)=2582 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 7.85632e+307); yl+yh= 7.85632e+307 j=2: ( 0, 7.85632e+307); ( 0, 7.85632e+307); yl+yh= 7.85632e+307 j=3: ( 0, 7.85632e+307); ( 0, 7.85632e+307); yl+yh= 7.85632e+307 j=4: ( 0, 7.85632e+307); ( 0, 7.85632e+307); yl+yh= 7.85632e+307 3. after ADD1(M): yl,yh = ( 0, 7.85671e+307); yl+yh= 7.85671e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.85508e+307); yl+yh= 6.85508e+307 ebd0(x=1e+307, M=4.61326e+303): M/x = (r=0.944796070519959) * 2^(e=-11); i=114, f=1083, fg=f*2^-(e+10)=2166 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 7.68064e+307); yl+yh= 7.68064e+307 j=2: ( 0, 7.68064e+307); ( 0, 7.68064e+307); yl+yh= 7.68064e+307 j=3: ( 0, 7.68064e+307); ( 0, 7.68064e+307); yl+yh= 7.68064e+307 j=4: ( 0, 7.68064e+307); ( 0, 7.68064e+307); yl+yh= 7.68064e+307 3. after ADD1(M): yl,yh = ( 0, 7.6811e+307); yl+yh= 7.6811e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.68187e+307); yl+yh= 6.68187e+307 ebd0(x=1e+307, M=5.48612e+303): M/x = (r=0.561779104644474) * 2^(e=-10); i=16, f=1820, fg=f*2^-(e+10)=1820 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=2: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=3: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=4: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 3. after ADD1(M): yl,yh = ( 0, 7.50714e+307); yl+yh= 7.50714e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.50867e+307); yl+yh= 6.50867e+307 ebd0(x=1e+307, M=6.52414e+303): M/x = (r=0.668071708303066) * 2^(e=-10); i=43, f=1533, fg=f*2^-(e+10)=1533 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 7.33498e+307); yl+yh= 7.33498e+307 j=2: ( 0, 7.33498e+307); ( 0, 7.33498e+307); yl+yh= 7.33498e+307 j=3: ( 0, 7.33498e+307); ( 0, 7.33498e+307); yl+yh= 7.33498e+307 j=4: ( 0, 7.33498e+307); ( 0, 7.33498e+307); yl+yh= 7.33498e+307 3. after ADD1(M): yl,yh = ( 0, 7.33563e+307); yl+yh= 7.33563e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.33548e+307); yl+yh= 6.33548e+307 ebd0(x=1e+307, M=7.75855e+303): M/x = (r=0.794475628846029) * 2^(e=-10); i=75, f=1291, fg=f*2^-(e+10)=1291 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 7.16317e+307); yl+yh= 7.16317e+307 j=2: ( 0, 7.16317e+307); ( 0, 7.16317e+307); yl+yh= 7.16317e+307 j=3: ( 0, 7.16317e+307); ( 0, 7.16317e+307); yl+yh= 7.16317e+307 j=4: ( 0, 7.16317e+307); ( 0, 7.16317e+307); yl+yh= 7.16317e+307 3. after ADD1(M): yl,yh = ( 0, 7.16395e+307); yl+yh= 7.16395e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.16232e+307); yl+yh= 6.16232e+307 ebd0(x=1e+307, M=9.22652e+303): M/x = (r=0.944796070519959) * 2^(e=-10); i=114, f=1083, fg=f*2^-(e+10)=1083 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 6.98749e+307); yl+yh= 6.98749e+307 j=2: ( 0, 6.98749e+307); ( 0, 6.98749e+307); yl+yh= 6.98749e+307 j=3: ( 0, 6.98749e+307); ( 0, 6.98749e+307); yl+yh= 6.98749e+307 j=4: ( 0, 6.98749e+307); ( 0, 6.98749e+307); yl+yh= 6.98749e+307 3. after ADD1(M): yl,yh = ( 0, 6.98841e+307); yl+yh= 6.98841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.98918e+307); yl+yh= 5.98918e+307 ebd0(x=1e+307, M=1.09722e+304): M/x = (r=0.561779104644474) * 2^(e=-9); i=16, f=1820, fg=f*2^-(e+10)=910 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=2: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=3: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=4: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 3. after ADD1(M): yl,yh = ( 0, 6.81454e+307); yl+yh= 6.81454e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.81607e+307); yl+yh= 5.81607e+307 ebd0(x=1e+307, M=1.30483e+304): M/x = (r=0.668071708303066) * 2^(e=-9); i=43, f=1533, fg=f*2^-(e+10)=766.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 6.64183e+307); yl+yh= 6.64183e+307 j=2: ( 0, 6.64183e+307); ( 0, 6.64183e+307); yl+yh= 6.64183e+307 j=3: ( 0, 6.64183e+307); ( 0, 6.64183e+307); yl+yh= 6.64183e+307 j=4: ( 0, 6.64183e+307); ( 0, 6.64183e+307); yl+yh= 6.64183e+307 3. after ADD1(M): yl,yh = ( 0, 6.64314e+307); yl+yh= 6.64314e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.64299e+307); yl+yh= 5.64299e+307 ebd0(x=1e+307, M=1.55171e+304): M/x = (r=0.794475628846029) * 2^(e=-9); i=75, f=1291, fg=f*2^-(e+10)=645.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 6.47003e+307); yl+yh= 6.47003e+307 j=2: ( 0, 6.47003e+307); ( 0, 6.47003e+307); yl+yh= 6.47003e+307 j=3: ( 0, 6.47003e+307); ( 0, 6.47003e+307); yl+yh= 6.47003e+307 j=4: ( 0, 6.47003e+307); ( 0, 6.47003e+307); yl+yh= 6.47003e+307 3. after ADD1(M): yl,yh = ( 0, 6.47158e+307); yl+yh= 6.47158e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.46995e+307); yl+yh= 5.46995e+307 ebd0(x=1e+307, M=1.8453e+304): M/x = (r=0.944796070519959) * 2^(e=-9); i=114, f=1083, fg=f*2^-(e+10)=541.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 6.29434e+307); yl+yh= 6.29434e+307 j=2: ( 0, 6.29434e+307); ( 0, 6.29434e+307); yl+yh= 6.29434e+307 j=3: ( 0, 6.29434e+307); ( 0, 6.29434e+307); yl+yh= 6.29434e+307 j=4: ( 0, 6.29434e+307); ( 0, 6.29434e+307); yl+yh= 6.29434e+307 3. after ADD1(M): yl,yh = ( 0, 6.29619e+307); yl+yh= 6.29619e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.29696e+307); yl+yh= 5.29696e+307 ebd0(x=1e+307, M=2.19445e+304): M/x = (r=0.561779104644474) * 2^(e=-8); i=16, f=1820, fg=f*2^-(e+10)=455 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=2: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=3: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=4: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 3. after ADD1(M): yl,yh = ( 0, 6.12249e+307); yl+yh= 6.12249e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.12402e+307); yl+yh= 5.12402e+307 ebd0(x=1e+307, M=2.60966e+304): M/x = (r=0.668071708303066) * 2^(e=-8); i=43, f=1533, fg=f*2^-(e+10)=383.25 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 5.94869e+307); yl+yh= 5.94869e+307 j=2: ( 0, 5.94869e+307); ( 0, 5.94869e+307); yl+yh= 5.94869e+307 j=3: ( 0, 5.94869e+307); ( 0, 5.94869e+307); yl+yh= 5.94869e+307 j=4: ( 0, 5.94869e+307); ( 0, 5.94869e+307); yl+yh= 5.94869e+307 3. after ADD1(M): yl,yh = ( 0, 5.9513e+307); yl+yh= 5.9513e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.95115e+307); yl+yh= 4.95115e+307 ebd0(x=1e+307, M=3.10342e+304): M/x = (r=0.794475628846029) * 2^(e=-8); i=75, f=1291, fg=f*2^-(e+10)=322.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 5.77688e+307); yl+yh= 5.77688e+307 j=2: ( 0, 5.77688e+307); ( 0, 5.77688e+307); yl+yh= 5.77688e+307 j=3: ( 0, 5.77688e+307); ( 0, 5.77688e+307); yl+yh= 5.77688e+307 j=4: ( 0, 5.77688e+307); ( 0, 5.77688e+307); yl+yh= 5.77688e+307 3. after ADD1(M): yl,yh = ( 0, 5.77998e+307); yl+yh= 5.77998e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.77835e+307); yl+yh= 4.77835e+307 ebd0(x=1e+307, M=3.69061e+304): M/x = (r=0.944796070519959) * 2^(e=-8); i=114, f=1083, fg=f*2^-(e+10)=270.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 5.6012e+307); yl+yh= 5.6012e+307 j=2: ( 0, 5.6012e+307); ( 0, 5.6012e+307); yl+yh= 5.6012e+307 j=3: ( 0, 5.6012e+307); ( 0, 5.6012e+307); yl+yh= 5.6012e+307 j=4: ( 0, 5.6012e+307); ( 0, 5.6012e+307); yl+yh= 5.6012e+307 3. after ADD1(M): yl,yh = ( 0, 5.60489e+307); yl+yh= 5.60489e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.60565e+307); yl+yh= 4.60565e+307 ebd0(x=1e+307, M=4.3889e+304): M/x = (r=0.561779104644474) * 2^(e=-7); i=16, f=1820, fg=f*2^-(e+10)=227.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=2: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=3: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=4: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 3. after ADD1(M): yl,yh = ( 0, 5.43154e+307); yl+yh= 5.43154e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.43307e+307); yl+yh= 4.43307e+307 ebd0(x=1e+307, M=5.21931e+304): M/x = (r=0.668071708303066) * 2^(e=-7); i=43, f=1533, fg=f*2^-(e+10)=191.625 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 5.25554e+307); yl+yh= 5.25554e+307 j=2: ( 0, 5.25554e+307); ( 0, 5.25554e+307); yl+yh= 5.25554e+307 j=3: ( 0, 5.25554e+307); ( 0, 5.25554e+307); yl+yh= 5.25554e+307 j=4: ( 0, 5.25554e+307); ( 0, 5.25554e+307); yl+yh= 5.25554e+307 3. after ADD1(M): yl,yh = ( 0, 5.26076e+307); yl+yh= 5.26076e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.26061e+307); yl+yh= 4.26061e+307 ebd0(x=1e+307, M=6.20684e+304): M/x = (r=0.794475628846029) * 2^(e=-7); i=75, f=1291, fg=f*2^-(e+10)=161.375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 5.08373e+307); yl+yh= 5.08373e+307 j=2: ( 0, 5.08373e+307); ( 0, 5.08373e+307); yl+yh= 5.08373e+307 j=3: ( 0, 5.08373e+307); ( 0, 5.08373e+307); yl+yh= 5.08373e+307 j=4: ( 0, 5.08373e+307); ( 0, 5.08373e+307); yl+yh= 5.08373e+307 3. after ADD1(M): yl,yh = ( 0, 5.08994e+307); yl+yh= 5.08994e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.08831e+307); yl+yh= 4.08831e+307 ebd0(x=1e+307, M=7.38122e+304): M/x = (r=0.944796070519959) * 2^(e=-7); i=114, f=1083, fg=f*2^-(e+10)=135.375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 4.90805e+307); yl+yh= 4.90805e+307 j=2: ( 0, 4.90805e+307); ( 0, 4.90805e+307); yl+yh= 4.90805e+307 j=3: ( 0, 4.90805e+307); ( 0, 4.90805e+307); yl+yh= 4.90805e+307 j=4: ( 0, 4.90805e+307); ( 0, 4.90805e+307); yl+yh= 4.90805e+307 3. after ADD1(M): yl,yh = ( 0, 4.91543e+307); yl+yh= 4.91543e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.9162e+307); yl+yh= 3.9162e+307 ebd0(x=1e+307, M=8.7778e+304): M/x = (r=0.561779104644474) * 2^(e=-6); i=16, f=1820, fg=f*2^-(e+10)=113.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=2: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=3: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=4: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 3. after ADD1(M): yl,yh = ( 0, 4.74278e+307); yl+yh= 4.74278e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74431e+307); yl+yh= 3.74431e+307 ebd0(x=1e+307, M=1.04386e+305): M/x = (r=0.668071708303066) * 2^(e=-6); i=43, f=1533, fg=f*2^-(e+10)=95.8125 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 4.56239e+307); yl+yh= 4.56239e+307 j=2: ( 0, 4.56239e+307); ( 0, 4.56239e+307); yl+yh= 4.56239e+307 j=3: ( 0, 4.56239e+307); ( 0, 4.56239e+307); yl+yh= 4.56239e+307 j=4: ( 0, 4.56239e+307); ( 0, 4.56239e+307); yl+yh= 4.56239e+307 3. after ADD1(M): yl,yh = ( 0, 4.57283e+307); yl+yh= 4.57283e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.57268e+307); yl+yh= 3.57268e+307 ebd0(x=1e+307, M=1.24137e+305): M/x = (r=0.794475628846029) * 2^(e=-6); i=75, f=1291, fg=f*2^-(e+10)=80.6875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 4.39059e+307); yl+yh= 4.39059e+307 j=2: ( 0, 4.39059e+307); ( 0, 4.39058e+307); yl+yh= 4.39058e+307 j=3: ( 0, 4.39058e+307); ( 0, 4.39058e+307); yl+yh= 4.39058e+307 j=4: ( 0, 4.39058e+307); ( 0, 4.39058e+307); yl+yh= 4.39058e+307 3. after ADD1(M): yl,yh = ( 0, 4.403e+307); yl+yh= 4.403e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.40137e+307); yl+yh= 3.40137e+307 ebd0(x=1e+307, M=1.47624e+305): M/x = (r=0.944796070519959) * 2^(e=-6); i=114, f=1083, fg=f*2^-(e+10)=67.6875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 4.2149e+307); yl+yh= 4.2149e+307 j=2: ( 0, 4.2149e+307); ( 0, 4.2149e+307); yl+yh= 4.2149e+307 j=3: ( 0, 4.2149e+307); ( 0, 4.2149e+307); yl+yh= 4.2149e+307 j=4: ( 0, 4.2149e+307); ( 0, 4.2149e+307); yl+yh= 4.2149e+307 3. after ADD1(M): yl,yh = ( 0, 4.22966e+307); yl+yh= 4.22966e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.23043e+307); yl+yh= 3.23043e+307 ebd0(x=1e+307, M=1.75556e+305): M/x = (r=0.561779104644474) * 2^(e=-5); i=16, f=1820, fg=f*2^-(e+10)=56.875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=2: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=3: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=4: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 3. after ADD1(M): yl,yh = ( 0, 4.05841e+307); yl+yh= 4.05841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.05994e+307); yl+yh= 3.05994e+307 ebd0(x=1e+307, M=2.08772e+305): M/x = (r=0.668071708303066) * 2^(e=-5); i=43, f=1533, fg=f*2^-(e+10)=47.9062 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 3.86925e+307); yl+yh= 3.86925e+307 j=2: ( 0, 3.86925e+307); ( 0, 3.86925e+307); yl+yh= 3.86925e+307 j=3: ( 0, 3.86925e+307); ( 0, 3.86925e+307); yl+yh= 3.86925e+307 j=4: ( 0, 3.86925e+307); ( 0, 3.86925e+307); yl+yh= 3.86925e+307 3. after ADD1(M): yl,yh = ( 0, 3.89012e+307); yl+yh= 3.89012e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.88997e+307); yl+yh= 2.88997e+307 ebd0(x=1e+307, M=2.48274e+305): M/x = (r=0.794475628846029) * 2^(e=-5); i=75, f=1291, fg=f*2^-(e+10)=40.3438 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 3.69744e+307); yl+yh= 3.69744e+307 j=2: ( 0, 3.69744e+307); ( 0, 3.69744e+307); yl+yh= 3.69744e+307 j=3: ( 0, 3.69744e+307); ( 0, 3.69744e+307); yl+yh= 3.69744e+307 j=4: ( 0, 3.69744e+307); ( 0, 3.69744e+307); yl+yh= 3.69744e+307 3. after ADD1(M): yl,yh = ( 0, 3.72227e+307); yl+yh= 3.72227e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.72064e+307); yl+yh= 2.72064e+307 ebd0(x=1e+307, M=2.95249e+305): M/x = (r=0.944796070519959) * 2^(e=-5); i=114, f=1083, fg=f*2^-(e+10)=33.8438 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 3.52175e+307); yl+yh= 3.52175e+307 j=2: ( 0, 3.52175e+307); ( 0, 3.52175e+307); yl+yh= 3.52175e+307 j=3: ( 0, 3.52175e+307); ( 0, 3.52175e+307); yl+yh= 3.52175e+307 j=4: ( 0, 3.52175e+307); ( 0, 3.52175e+307); yl+yh= 3.52175e+307 3. after ADD1(M): yl,yh = ( 0, 3.55128e+307); yl+yh= 3.55128e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.55205e+307); yl+yh= 2.55205e+307 ebd0(x=1e+307, M=3.51112e+305): M/x = (r=0.561779104644474) * 2^(e=-4); i=16, f=1820, fg=f*2^-(e+10)=28.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=2: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=3: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=4: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 3. after ADD1(M): yl,yh = ( 0, 3.38282e+307); yl+yh= 3.38282e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.38435e+307); yl+yh= 2.38435e+307 ebd0(x=1e+307, M=4.17545e+305): M/x = (r=0.668071708303066) * 2^(e=-4); i=43, f=1533, fg=f*2^-(e+10)=23.9531 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 3.1761e+307); yl+yh= 3.1761e+307 j=2: ( 0, 3.1761e+307); ( 0, 3.1761e+307); yl+yh= 3.1761e+307 j=3: ( 0, 3.1761e+307); ( 0, 3.1761e+307); yl+yh= 3.1761e+307 j=4: ( 0, 3.1761e+307); ( 0, 3.1761e+307); yl+yh= 3.1761e+307 3. after ADD1(M): yl,yh = ( 0, 3.21785e+307); yl+yh= 3.21785e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.2177e+307); yl+yh= 2.2177e+307 ebd0(x=1e+307, M=4.96547e+305): M/x = (r=0.794475628846029) * 2^(e=-4); i=75, f=1291, fg=f*2^-(e+10)=20.1719 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 3.00429e+307); yl+yh= 3.00429e+307 j=2: ( 0, 3.00429e+307); ( 0, 3.00429e+307); yl+yh= 3.00429e+307 j=3: ( 0, 3.00429e+307); ( 0, 3.00429e+307); yl+yh= 3.00429e+307 j=4: ( 0, 3.00429e+307); ( 0, 3.00429e+307); yl+yh= 3.00429e+307 3. after ADD1(M): yl,yh = ( 0, 3.05395e+307); yl+yh= 3.05395e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.05232e+307); yl+yh= 2.05232e+307 ebd0(x=1e+307, M=5.90498e+305): M/x = (r=0.944796070519959) * 2^(e=-4); i=114, f=1083, fg=f*2^-(e+10)=16.9219 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 2.82861e+307); yl+yh= 2.82861e+307 j=2: ( 0, 2.82861e+307); ( 0, 2.82861e+307); yl+yh= 2.82861e+307 j=3: ( 0, 2.82861e+307); ( 0, 2.82861e+307); yl+yh= 2.82861e+307 j=4: ( 0, 2.82861e+307); ( 0, 2.82861e+307); yl+yh= 2.82861e+307 3. after ADD1(M): yl,yh = ( 0, 2.88766e+307); yl+yh= 2.88766e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.88842e+307); yl+yh= 1.88842e+307 ebd0(x=1e+307, M=7.02224e+305): M/x = (r=0.561779104644474) * 2^(e=-3); i=16, f=1820, fg=f*2^-(e+10)=14.2188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=2: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=3: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=4: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 3. after ADD1(M): yl,yh = ( 0, 2.72479e+307); yl+yh= 2.72479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.72631e+307); yl+yh= 1.72631e+307 ebd0(x=1e+307, M=7.65781e+305): M/x = (r=0.612624457664564) * 2^(e=-3); i=29, f=1670, fg=f*2^-(e+10)=13.0469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.89107e+306); ( 0, 2.56855e+307); yl+yh= 2.56855e+307 j=2: ( 0, 2.56855e+307); ( 0, 2.56855e+307); yl+yh= 2.56855e+307 j=3: ( 0, 2.56855e+307); ( 0, 2.56855e+307); yl+yh= 2.56855e+307 j=4: ( 0, 2.56855e+307); ( 0, 2.56855e+307); yl+yh= 2.56855e+307 3. after ADD1(M): yl,yh = ( 0, 2.64513e+307); yl+yh= 2.64513e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.64602e+307); yl+yh= 1.64602e+307 ebd0(x=1e+307, M=7.99685e+305): M/x = (r=0.639747659612917) * 2^(e=-3); i=36, f=1598, fg=f*2^-(e+10)=12.4844 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.45038e+306); ( 0, 2.52448e+307); yl+yh= 2.52448e+307 j=2: ( 0, 2.52448e+307); ( 0, 2.52448e+307); yl+yh= 2.52448e+307 j=3: ( 0, 2.52448e+307); ( 0, 2.52448e+307); yl+yh= 2.52448e+307 j=4: ( 0, 2.52448e+307); ( 0, 2.52448e+307); yl+yh= 2.52448e+307 3. after ADD1(M): yl,yh = ( 0, 2.60445e+307); yl+yh= 2.60445e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.60609e+307); yl+yh= 1.60609e+307 ebd0(x=1e+307, M=8.3509e+305): M/x = (r=0.668071708303066) * 2^(e=-3); i=43, f=1533, fg=f*2^-(e+10)=11.9766 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 2.48295e+307); yl+yh= 2.48295e+307 j=2: ( 0, 2.48295e+307); ( 0, 2.48295e+307); yl+yh= 2.48295e+307 j=3: ( 0, 2.48295e+307); ( 0, 2.48295e+307); yl+yh= 2.48295e+307 j=4: ( 0, 2.48295e+307); ( 0, 2.48295e+307); yl+yh= 2.48295e+307 3. after ADD1(M): yl,yh = ( 0, 2.56646e+307); yl+yh= 2.56646e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.56631e+307); yl+yh= 1.56631e+307 ebd0(x=1e+307, M=8.72062e+305): M/x = (r=0.697649769762387) * 2^(e=-3); i=51, f=1464, fg=f*2^-(e+10)=11.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.57459e+306); ( 0, 2.4369e+307); yl+yh= 2.4369e+307 j=2: ( 0, 2.4369e+307); ( 0, 2.4369e+307); yl+yh= 2.4369e+307 j=3: ( 0, 2.4369e+307); ( 0, 2.4369e+307); yl+yh= 2.4369e+307 j=4: ( 0, 2.4369e+307); ( 0, 2.4369e+307); yl+yh= 2.4369e+307 3. after ADD1(M): yl,yh = ( 0, 2.52411e+307); yl+yh= 2.52411e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.52669e+307); yl+yh= 1.52669e+307 ebd0(x=1e+307, M=9.10672e+305): M/x = (r=0.728537363879382) * 2^(e=-3); i=59, f=1402, fg=f*2^-(e+10)=10.9531 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.14186e+306); ( 0, 2.39363e+307); yl+yh= 2.39363e+307 j=2: ( 0, 2.39363e+307); ( 0, 2.39363e+307); yl+yh= 2.39363e+307 j=3: ( 0, 2.39363e+307); ( 0, 2.39363e+307); yl+yh= 2.39363e+307 j=4: ( 0, 2.39363e+307); ( 0, 2.39363e+307); yl+yh= 2.39363e+307 3. after ADD1(M): yl,yh = ( 0, 2.4847e+307); yl+yh= 2.4847e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48723e+307); yl+yh= 1.48723e+307 ebd0(x=1e+307, M=9.50991e+305): M/x = (r=0.76079246861802) * 2^(e=-3); i=67, f=1344, fg=f*2^-(e+10)=10.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.71935e+306); ( 0, 2.35138e+307); yl+yh= 2.35138e+307 j=2: ( 0, 2.35138e+307); ( 0, 2.35138e+307); yl+yh= 2.35138e+307 j=3: ( 0, 2.35138e+307); ( 0, 2.35138e+307); yl+yh= 2.35138e+307 j=4: ( 0, 2.35138e+307); ( 0, 2.35138e+307); yl+yh= 2.35138e+307 3. after ADD1(M): yl,yh = ( 0, 2.44648e+307); yl+yh= 2.44648e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.44794e+307); yl+yh= 1.44794e+307 ebd0(x=1e+307, M=9.93095e+305): M/x = (r=0.794475628846029) * 2^(e=-3); i=75, f=1291, fg=f*2^-(e+10)=10.0859 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 2.31114e+307); yl+yh= 2.31114e+307 j=2: ( 0, 2.31114e+307); ( 0, 2.31114e+307); yl+yh= 2.31114e+307 j=3: ( 0, 2.31114e+307); ( 0, 2.31114e+307); yl+yh= 2.31114e+307 j=4: ( 0, 2.31114e+307); ( 0, 2.31114e+307); yl+yh= 2.31114e+307 3. after ADD1(M): yl,yh = ( 0, 2.41045e+307); yl+yh= 2.41045e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.40882e+307); yl+yh= 1.40882e+307 ebd0(x=1e+307, M=1.03706e+306): M/x = (r=0.829650069981441) * 2^(e=-3); i=84, f=1237, fg=f*2^-(e+10)=9.66406 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.88975e+306); ( 0, 2.26842e+307); yl+yh= 2.26842e+307 j=2: ( 0, 2.26842e+307); ( 0, 2.26842e+307); yl+yh= 2.26842e+307 j=3: ( 0, 2.26842e+307); ( 0, 2.26842e+307); yl+yh= 2.26842e+307 j=4: ( 0, 2.26842e+307); ( 0, 2.26842e+307); yl+yh= 2.26842e+307 3. after ADD1(M): yl,yh = ( 0, 2.37212e+307); yl+yh= 2.37212e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.3699e+307); yl+yh= 1.3699e+307 ebd0(x=1e+307, M=1.08298e+306): M/x = (r=0.866381816670688) * 2^(e=-3); i=94, f=1181, fg=f*2^-(e+10)=9.22656 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.42645e+306); ( 0, 2.22209e+307); yl+yh= 2.22209e+307 j=2: ( 0, 2.22209e+307); ( 0, 2.22209e+307); yl+yh= 2.22209e+307 j=3: ( 0, 2.22209e+307); ( 0, 2.22209e+307); yl+yh= 2.22209e+307 j=4: ( 0, 2.22209e+307); ( 0, 2.22209e+307); yl+yh= 2.22209e+307 3. after ADD1(M): yl,yh = ( 0, 2.33038e+307); yl+yh= 2.33038e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.33117e+307); yl+yh= 1.33117e+307 ebd0(x=1e+307, M=1.13092e+306): M/x = (r=0.904739816721033) * 2^(e=-3); i=104, f=1130, fg=f*2^-(e+10)=8.82812 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 9.85024e+305); ( 0, 2.17794e+307); yl+yh= 2.17794e+307 j=2: ( 0, 2.17794e+307); ( 0, 2.17794e+307); yl+yh= 2.17794e+307 j=3: ( 0, 2.17794e+307); ( 0, 2.17794e+307); yl+yh= 2.17794e+307 j=4: ( 0, 2.17794e+307); ( 0, 2.17794e+307); yl+yh= 2.17794e+307 3. after ADD1(M): yl,yh = ( 0, 2.29104e+307); yl+yh= 2.29104e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.29264e+307); yl+yh= 1.29264e+307 ebd0(x=1e+307, M=1.181e+306): M/x = (r=0.944796070519959) * 2^(e=-3); i=114, f=1083, fg=f*2^-(e+10)=8.46094 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 2.13546e+307); yl+yh= 2.13546e+307 j=2: ( 0, 2.13546e+307); ( 0, 2.13546e+307); yl+yh= 2.13546e+307 j=3: ( 0, 2.13546e+307); ( 0, 2.13546e+307); yl+yh= 2.13546e+307 j=4: ( 0, 2.13546e+307); ( 0, 2.13546e+307); yl+yh= 2.13546e+307 3. after ADD1(M): yl,yh = ( 0, 2.25356e+307); yl+yh= 2.25356e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.25433e+307); yl+yh= 1.25433e+307 ebd0(x=1e+307, M=1.23328e+306): M/x = (r=0.986625766184435) * 2^(e=-3); i=125, f=1036, fg=f*2^-(e+10)=8.09375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.16523e+305); ( 0, 2.09109e+307); yl+yh= 2.09109e+307 j=2: ( 0, 2.09109e+307); ( 0, 2.09109e+307); yl+yh= 2.09109e+307 j=3: ( 0, 2.09109e+307); ( 0, 2.09109e+307); yl+yh= 2.09109e+307 j=4: ( 0, 2.09109e+307); ( 0, 2.09109e+307); yl+yh= 2.09109e+307 3. after ADD1(M): yl,yh = ( 0, 2.21442e+307); yl+yh= 2.21442e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.21623e+307); yl+yh= 1.21623e+307 ebd0(x=1e+307, M=1.28788e+306): M/x = (r=0.515153710346883) * 2^(e=-2); i=4, f=1986, fg=f*2^-(e+10)=7.75781 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.62406e+306); ( 0, 2.0487e+307); yl+yh= 2.0487e+307 j=2: ( 0, 2.0487e+307); ( 0, 2.0487e+307); yl+yh= 2.0487e+307 j=3: ( 0, 2.0487e+307); ( 0, 2.0487e+307); yl+yh= 2.0487e+307 j=4: ( 0, 2.0487e+307); ( 0, 2.0487e+307); yl+yh= 2.0487e+307 3. after ADD1(M): yl,yh = ( 0, 2.17749e+307); yl+yh= 2.17749e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.17837e+307); yl+yh= 1.17837e+307 ebd0(x=1e+307, M=1.3449e+306): M/x = (r=0.537961513635455) * 2^(e=-2); i=10, f=1900, fg=f*2^-(e+10)=7.42188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.18139e+306); ( 0, 2.00443e+307); yl+yh= 2.00443e+307 j=2: ( 0, 2.00443e+307); ( 0, 2.00443e+307); yl+yh= 2.00443e+307 j=3: ( 0, 2.00443e+307); ( 0, 2.00443e+307); yl+yh= 2.00443e+307 j=4: ( 0, 2.00443e+307); ( 0, 2.00443e+307); yl+yh= 2.00443e+307 3. after ADD1(M): yl,yh = ( 0, 2.13892e+307); yl+yh= 2.13892e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.14075e+307); yl+yh= 1.14075e+307 ebd0(x=1e+307, M=1.40445e+306): M/x = (r=0.561779104644474) * 2^(e=-2); i=16, f=1820, fg=f*2^-(e+10)=7.10938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=2: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=3: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=4: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 3. after ADD1(M): yl,yh = ( 0, 2.10186e+307); yl+yh= 2.10186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10339e+307); yl+yh= 1.10339e+307 ebd0(x=1e+307, M=1.46663e+306): M/x = (r=0.58665119049577) * 2^(e=-2); i=22, f=1748, fg=f*2^-(e+10)=6.82812 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.34757e+306); ( 0, 1.92105e+307); yl+yh= 1.92105e+307 j=2: ( 0, 1.92105e+307); ( 0, 1.92105e+307); yl+yh= 1.92105e+307 j=3: ( 0, 1.92105e+307); ( 0, 1.92105e+307); yl+yh= 1.92105e+307 j=4: ( 0, 1.92105e+307); ( 0, 1.92105e+307); yl+yh= 1.92105e+307 3. after ADD1(M): yl,yh = ( 0, 2.06771e+307); yl+yh= 2.06771e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.06628e+307); yl+yh= 1.06628e+307 ebd0(x=1e+307, M=1.53156e+306): M/x = (r=0.612624457664564) * 2^(e=-2); i=29, f=1670, fg=f*2^-(e+10)=6.52344 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.89107e+306); ( 0, 1.8754e+307); yl+yh= 1.8754e+307 j=2: ( 0, 1.8754e+307); ( 0, 1.8754e+307); yl+yh= 1.8754e+307 j=3: ( 0, 1.8754e+307); ( 0, 1.8754e+307); yl+yh= 1.8754e+307 j=4: ( 0, 1.8754e+307); ( 0, 1.8754e+307); yl+yh= 1.8754e+307 3. after ADD1(M): yl,yh = ( 0, 2.02856e+307); yl+yh= 2.02856e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.02945e+307); yl+yh= 1.02945e+307 ebd0(x=1e+307, M=1.59937e+306): M/x = (r=0.639747659612917) * 2^(e=-2); i=36, f=1598, fg=f*2^-(e+10)=6.24219 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.45038e+306); ( 0, 1.83133e+307); yl+yh= 1.83133e+307 j=2: ( 0, 1.83133e+307); ( 0, 1.83133e+307); yl+yh= 1.83133e+307 j=3: ( 0, 1.83133e+307); ( 0, 1.83133e+307); yl+yh= 1.83133e+307 j=4: ( 0, 1.83133e+307); ( 0, 1.83133e+307); yl+yh= 1.83133e+307 3. after ADD1(M): yl,yh = ( 0, 1.99127e+307); yl+yh= 1.99127e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.92913e+306); yl+yh= 9.92913e+306 ebd0(x=1e+307, M=1.67018e+306): M/x = (r=0.668071708303066) * 2^(e=-2); i=43, f=1533, fg=f*2^-(e+10)=5.98828 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.7898e+307); yl+yh= 1.7898e+307 j=2: ( 0, 1.7898e+307); ( 0, 1.7898e+307); yl+yh= 1.7898e+307 j=3: ( 0, 1.7898e+307); ( 0, 1.7898e+307); yl+yh= 1.7898e+307 j=4: ( 0, 1.7898e+307); ( 0, 1.7898e+307); yl+yh= 1.7898e+307 3. after ADD1(M): yl,yh = ( 0, 1.95682e+307); yl+yh= 1.95682e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.56672e+306); yl+yh= 9.56672e+306 ebd0(x=1e+307, M=1.74412e+306): M/x = (r=0.697649769762387) * 2^(e=-2); i=51, f=1464, fg=f*2^-(e+10)=5.71875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.57459e+306); ( 0, 1.74375e+307); yl+yh= 1.74375e+307 j=2: ( 0, 1.74375e+307); ( 0, 1.74375e+307); yl+yh= 1.74375e+307 j=3: ( 0, 1.74375e+307); ( 0, 1.74375e+307); yl+yh= 1.74375e+307 j=4: ( 0, 1.74375e+307); ( 0, 1.74375e+307); yl+yh= 1.74375e+307 3. after ADD1(M): yl,yh = ( 0, 1.91817e+307); yl+yh= 1.91817e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.20745e+306); yl+yh= 9.20745e+306 ebd0(x=1e+307, M=1.82134e+306): M/x = (r=0.728537363879382) * 2^(e=-2); i=59, f=1402, fg=f*2^-(e+10)=5.47656 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.14186e+306); ( 0, 1.70048e+307); yl+yh= 1.70048e+307 j=2: ( 0, 1.70048e+307); ( 0, 1.70048e+307); yl+yh= 1.70048e+307 j=3: ( 0, 1.70048e+307); ( 0, 1.70048e+307); yl+yh= 1.70048e+307 j=4: ( 0, 1.70048e+307); ( 0, 1.70048e+307); yl+yh= 1.70048e+307 3. after ADD1(M): yl,yh = ( 0, 1.88262e+307); yl+yh= 1.88262e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.85145e+306); yl+yh= 8.85145e+306 ebd0(x=1e+307, M=1.90198e+306): M/x = (r=0.76079246861802) * 2^(e=-2); i=67, f=1344, fg=f*2^-(e+10)=5.25 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.71935e+306); ( 0, 1.65823e+307); yl+yh= 1.65823e+307 j=2: ( 0, 1.65823e+307); ( 0, 1.65823e+307); yl+yh= 1.65823e+307 j=3: ( 0, 1.65823e+307); ( 0, 1.65823e+307); yl+yh= 1.65823e+307 j=4: ( 0, 1.65823e+307); ( 0, 1.65823e+307); yl+yh= 1.65823e+307 3. after ADD1(M): yl,yh = ( 0, 1.84843e+307); yl+yh= 1.84843e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.49887e+306); yl+yh= 8.49887e+306 ebd0(x=1e+307, M=1.98619e+306): M/x = (r=0.794475628846029) * 2^(e=-2); i=75, f=1291, fg=f*2^-(e+10)=5.04297 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 1.618e+307); yl+yh= 1.618e+307 j=2: ( 0, 1.618e+307); ( 0, 1.618e+307); yl+yh= 1.618e+307 j=3: ( 0, 1.618e+307); ( 0, 1.618e+307); yl+yh= 1.618e+307 j=4: ( 0, 1.618e+307); ( 0, 1.618e+307); yl+yh= 1.618e+307 3. after ADD1(M): yl,yh = ( 0, 1.81662e+307); yl+yh= 1.81662e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.14986e+306); yl+yh= 8.14986e+306 ebd0(x=1e+307, M=2.07413e+306): M/x = (r=0.829650069981441) * 2^(e=-2); i=84, f=1237, fg=f*2^-(e+10)=4.83203 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.88975e+306); ( 0, 1.57527e+307); yl+yh= 1.57527e+307 j=2: ( 0, 1.57527e+307); ( 0, 1.57527e+307); yl+yh= 1.57527e+307 j=3: ( 0, 1.57527e+307); ( 0, 1.57527e+307); yl+yh= 1.57527e+307 j=4: ( 0, 1.57527e+307); ( 0, 1.57527e+307); yl+yh= 1.57527e+307 3. after ADD1(M): yl,yh = ( 0, 1.78268e+307); yl+yh= 1.78268e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.80458e+306); yl+yh= 7.80458e+306 ebd0(x=1e+307, M=2.16595e+306): M/x = (r=0.866381816670688) * 2^(e=-2); i=94, f=1181, fg=f*2^-(e+10)=4.61328 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.42645e+306); ( 0, 1.52894e+307); yl+yh= 1.52894e+307 j=2: ( 0, 1.52894e+307); ( 0, 1.52894e+307); yl+yh= 1.52894e+307 j=3: ( 0, 1.52894e+307); ( 0, 1.52894e+307); yl+yh= 1.52894e+307 j=4: ( 0, 1.52894e+307); ( 0, 1.52894e+307); yl+yh= 1.52894e+307 3. after ADD1(M): yl,yh = ( 0, 1.74554e+307); yl+yh= 1.74554e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.46319e+306); yl+yh= 7.46319e+306 ebd0(x=1e+307, M=2.26185e+306): M/x = (r=0.904739816721033) * 2^(e=-2); i=104, f=1130, fg=f*2^-(e+10)=4.41406 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 9.85024e+305); ( 0, 1.4848e+307); yl+yh= 1.4848e+307 j=2: ( 0, 1.4848e+307); ( 0, 1.4848e+307); yl+yh= 1.4848e+307 j=3: ( 0, 1.4848e+307); ( 0, 1.4848e+307); yl+yh= 1.4848e+307 j=4: ( 0, 1.4848e+307); ( 0, 1.4848e+307); yl+yh= 1.4848e+307 3. after ADD1(M): yl,yh = ( 0, 1.71098e+307); yl+yh= 1.71098e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.12587e+306); yl+yh= 7.12587e+306 ebd0(x=1e+307, M=2.36199e+306): M/x = (r=0.944796070519959) * 2^(e=-2); i=114, f=1083, fg=f*2^-(e+10)=4.23047 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 1.44231e+307); yl+yh= 1.44231e+307 j=2: ( 0, 1.44231e+307); ( 0, 1.44231e+307); yl+yh= 1.44231e+307 j=3: ( 0, 1.44231e+307); ( 0, 1.44231e+307); yl+yh= 1.44231e+307 j=4: ( 0, 1.44231e+307); ( 0, 1.44231e+307); yl+yh= 1.44231e+307 3. after ADD1(M): yl,yh = ( 0, 1.67851e+307); yl+yh= 1.67851e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.7928e+306); yl+yh= 6.7928e+306 ebd0(x=1e+307, M=2.46656e+306): M/x = (r=0.986625766184435) * 2^(e=-2); i=125, f=1036, fg=f*2^-(e+10)=4.04688 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.16523e+305); ( 0, 1.39795e+307); yl+yh= 1.39795e+307 j=2: ( 0, 1.39795e+307); ( 0, 1.39795e+307); yl+yh= 1.39795e+307 j=3: ( 0, 1.39795e+307); ( 0, 1.39795e+307); yl+yh= 1.39795e+307 j=4: ( 0, 1.39795e+307); ( 0, 1.39795e+307); yl+yh= 1.39795e+307 3. after ADD1(M): yl,yh = ( 0, 1.6446e+307); yl+yh= 1.6446e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.46415e+306); yl+yh= 6.46415e+306 ebd0(x=1e+307, M=2.57577e+306): M/x = (r=0.515153710346883) * 2^(e=-1); i=4, f=1986, fg=f*2^-(e+10)=3.87891 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.62406e+306); ( 0, 1.35555e+307); yl+yh= 1.35555e+307 j=2: ( 0, 1.35555e+307); ( 0, 1.35555e+307); yl+yh= 1.35555e+307 j=3: ( 0, 1.35555e+307); ( 0, 1.35555e+307); yl+yh= 1.35555e+307 j=4: ( 0, 1.35555e+307); ( 0, 1.35555e+307); yl+yh= 1.35555e+307 3. after ADD1(M): yl,yh = ( 0, 1.61313e+307); yl+yh= 1.61313e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.14014e+306); yl+yh= 6.14014e+306 ebd0(x=1e+307, M=2.68981e+306): M/x = (r=0.537961513635455) * 2^(e=-1); i=10, f=1900, fg=f*2^-(e+10)=3.71094 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.18139e+306); ( 0, 1.31129e+307); yl+yh= 1.31129e+307 j=2: ( 0, 1.31129e+307); ( 0, 1.31129e+307); yl+yh= 1.31129e+307 j=3: ( 0, 1.31129e+307); ( 0, 1.31129e+307); yl+yh= 1.31129e+307 j=4: ( 0, 1.31129e+307); ( 0, 1.31129e+307); yl+yh= 1.31129e+307 3. after ADD1(M): yl,yh = ( 0, 1.58027e+307); yl+yh= 1.58027e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.82096e+306); yl+yh= 5.82096e+306 ebd0(x=1e+307, M=2.8089e+306): M/x = (r=0.561779104644474) * 2^(e=-1); i=16, f=1820, fg=f*2^-(e+10)=3.55469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=2: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=3: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=4: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 3. after ADD1(M): yl,yh = ( 0, 1.54916e+307); yl+yh= 1.54916e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.50683e+306); yl+yh= 5.50683e+306 ebd0(x=1e+307, M=2.93326e+306): M/x = (r=0.58665119049577) * 2^(e=-1); i=22, f=1748, fg=f*2^-(e+10)=3.41406 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.34757e+306); ( 0, 1.2279e+307); yl+yh= 1.2279e+307 j=2: ( 0, 1.2279e+307); ( 0, 1.2279e+307); yl+yh= 1.2279e+307 j=3: ( 0, 1.2279e+307); ( 0, 1.2279e+307); yl+yh= 1.2279e+307 j=4: ( 0, 1.2279e+307); ( 0, 1.2279e+307); yl+yh= 1.2279e+307 3. after ADD1(M): yl,yh = ( 0, 1.52123e+307); yl+yh= 1.52123e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.19798e+306); yl+yh= 5.19798e+306 ebd0(x=1e+307, M=3.06312e+306): M/x = (r=0.612624457664564) * 2^(e=-1); i=29, f=1670, fg=f*2^-(e+10)=3.26172 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.89107e+306); ( 0, 1.18225e+307); yl+yh= 1.18225e+307 j=2: ( 0, 1.18225e+307); ( 0, 1.18225e+307); yl+yh= 1.18225e+307 j=3: ( 0, 1.18225e+307); ( 0, 1.18225e+307); yl+yh= 1.18225e+307 j=4: ( 0, 1.18225e+307); ( 0, 1.18225e+307); yl+yh= 1.18225e+307 3. after ADD1(M): yl,yh = ( 0, 1.48857e+307); yl+yh= 1.48857e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.89463e+306); yl+yh= 4.89463e+306 ebd0(x=1e+307, M=3.19874e+306): M/x = (r=0.639747659612917) * 2^(e=-1); i=36, f=1598, fg=f*2^-(e+10)=3.12109 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.45038e+306); ( 0, 1.13818e+307); yl+yh= 1.13818e+307 j=2: ( 0, 1.13818e+307); ( 0, 1.13818e+307); yl+yh= 1.13818e+307 j=3: ( 0, 1.13818e+307); ( 0, 1.13818e+307); yl+yh= 1.13818e+307 j=4: ( 0, 1.13818e+307); ( 0, 1.13818e+307); yl+yh= 1.13818e+307 3. after ADD1(M): yl,yh = ( 0, 1.45806e+307); yl+yh= 1.45806e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.59702e+306); yl+yh= 4.59702e+306 ebd0(x=1e+307, M=3.34036e+306): M/x = (r=0.668071708303066) * 2^(e=-1); i=43, f=1533, fg=f*2^-(e+10)=2.99414 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 1.09666e+307); yl+yh= 1.09666e+307 j=2: ( 0, 1.09666e+307); ( 0, 1.09666e+307); yl+yh= 1.09666e+307 j=3: ( 0, 1.09666e+307); ( 0, 1.09666e+307); yl+yh= 1.09666e+307 j=4: ( 0, 1.09666e+307); ( 0, 1.09666e+307); yl+yh= 1.09666e+307 3. after ADD1(M): yl,yh = ( 0, 1.43069e+307); yl+yh= 1.43069e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.30543e+306); yl+yh= 4.30543e+306 ebd0(x=1e+307, M=3.48825e+306): M/x = (r=0.697649769762387) * 2^(e=-1); i=51, f=1464, fg=f*2^-(e+10)=2.85938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.57459e+306); ( 0, 1.05061e+307); yl+yh= 1.05061e+307 j=2: ( 0, 1.05061e+307); ( 0, 1.05061e+307); yl+yh= 1.05061e+307 j=3: ( 0, 1.05061e+307); ( 0, 1.05061e+307); yl+yh= 1.05061e+307 j=4: ( 0, 1.05061e+307); ( 0, 1.05061e+307); yl+yh= 1.05061e+307 3. after ADD1(M): yl,yh = ( 0, 1.39943e+307); yl+yh= 1.39943e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.0201e+306); yl+yh= 4.0201e+306 ebd0(x=1e+307, M=3.64269e+306): M/x = (r=0.728537363879382) * 2^(e=-1); i=59, f=1402, fg=f*2^-(e+10)=2.73828 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.14186e+306); ( 0, 1.00733e+307); yl+yh= 1.00733e+307 j=2: ( 0, 1.00733e+307); ( 0, 1.00733e+307); yl+yh= 1.00733e+307 j=3: ( 0, 1.00733e+307); ( 0, 1.00733e+307); yl+yh= 1.00733e+307 j=4: ( 0, 1.00733e+307); ( 0, 1.00733e+307); yl+yh= 1.00733e+307 3. after ADD1(M): yl,yh = ( 0, 1.3716e+307); yl+yh= 1.3716e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74132e+306); yl+yh= 3.74132e+306 ebd0(x=1e+307, M=3.80396e+306): M/x = (r=0.76079246861802) * 2^(e=-1); i=67, f=1344, fg=f*2^-(e+10)=2.625 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.71935e+306); ( 0, 9.65082e+306); yl+yh= 9.65082e+306 j=2: ( 0, 9.65082e+306); ( 0, 9.65082e+306); yl+yh= 9.65082e+306 j=3: ( 0, 9.65082e+306); ( 0, 9.65082e+306); yl+yh= 9.65082e+306 j=4: ( 0, 9.65082e+306); ( 0, 9.65082e+306); yl+yh= 9.65082e+306 3. after ADD1(M): yl,yh = ( 0, 1.34548e+307); yl+yh= 1.34548e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.46938e+306); yl+yh= 3.46938e+306 ebd0(x=1e+307, M=3.97238e+306): M/x = (r=0.794475628846029) * 2^(e=-1); i=75, f=1291, fg=f*2^-(e+10)=2.52148 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 9.24849e+306); yl+yh= 9.24849e+306 j=2: ( 0, 9.24849e+306); ( 0, 9.24849e+306); yl+yh= 9.24849e+306 j=3: ( 0, 9.24849e+306); ( 0, 9.24849e+306); yl+yh= 9.24849e+306 j=4: ( 0, 9.24849e+306); ( 0, 9.24849e+306); yl+yh= 9.24849e+306 3. after ADD1(M): yl,yh = ( 0, 1.32209e+307); yl+yh= 1.32209e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.20458e+306); yl+yh= 3.20458e+306 ebd0(x=1e+307, M=4.14825e+306): M/x = (r=0.829650069981441) * 2^(e=-1); i=84, f=1237, fg=f*2^-(e+10)=2.41602 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.88975e+306); ( 0, 8.82122e+306); yl+yh= 8.82122e+306 j=2: ( 0, 8.82122e+306); ( 0, 8.82122e+306); yl+yh= 8.82122e+306 j=3: ( 0, 8.82122e+306); ( 0, 8.82122e+306); yl+yh= 8.82122e+306 j=4: ( 0, 8.82122e+306); ( 0, 8.82122e+306); yl+yh= 8.82122e+306 3. after ADD1(M): yl,yh = ( 0, 1.29695e+307); yl+yh= 1.29695e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.94723e+306); yl+yh= 2.94723e+306 ebd0(x=1e+307, M=4.33191e+306): M/x = (r=0.866381816670688) * 2^(e=-1); i=94, f=1181, fg=f*2^-(e+10)=2.30664 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.42645e+306); ( 0, 8.35792e+306); yl+yh= 8.35792e+306 j=2: ( 0, 8.35793e+306); ( 0, 8.35792e+306); yl+yh= 8.35792e+306 j=3: ( 0, 8.35792e+306); ( 0, 8.35792e+306); yl+yh= 8.35792e+306 j=4: ( 0, 8.35792e+306); ( 0, 8.35792e+306); yl+yh= 8.35792e+306 3. after ADD1(M): yl,yh = ( 0, 1.26898e+307); yl+yh= 1.26898e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.69768e+306); yl+yh= 2.69768e+306 ebd0(x=1e+307, M=4.5237e+306): M/x = (r=0.904739816721033) * 2^(e=-1); i=104, f=1130, fg=f*2^-(e+10)=2.20703 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 9.85024e+305); ( 0, 7.9165e+306); yl+yh= 7.9165e+306 j=2: ( 0, 7.9165e+306); ( 0, 7.9165e+306); yl+yh= 7.9165e+306 j=3: ( 0, 7.9165e+306); ( 0, 7.9165e+306); yl+yh= 7.9165e+306 j=4: ( 0, 7.9165e+306); ( 0, 7.9165e+306); yl+yh= 7.9165e+306 3. after ADD1(M): yl,yh = ( 0, 1.24402e+307); yl+yh= 1.24402e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.45625e+306); yl+yh= 2.45625e+306 ebd0(x=1e+307, M=4.72398e+306): M/x = (r=0.944796070519959) * 2^(e=-1); i=114, f=1083, fg=f*2^-(e+10)=2.11523 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 7.49166e+306); yl+yh= 7.49166e+306 j=2: ( 0, 7.49166e+306); ( 0, 7.49166e+306); yl+yh= 7.49166e+306 j=3: ( 0, 7.49166e+306); ( 0, 7.49166e+306); yl+yh= 7.49166e+306 j=4: ( 0, 7.49166e+306); ( 0, 7.49166e+306); yl+yh= 7.49166e+306 3. after ADD1(M): yl,yh = ( 0, 1.22156e+307); yl+yh= 1.22156e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.22331e+306); yl+yh= 2.22331e+306 ebd0(x=1e+307, M=4.93313e+306): M/x = (r=0.986625766184435) * 2^(e=-1); i=125, f=1036, fg=f*2^-(e+10)=2.02344 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.16523e+305); ( 0, 7.04799e+306); yl+yh= 7.04799e+306 j=2: ( 0, 7.04799e+306); ( 0, 7.04799e+306); yl+yh= 7.04799e+306 j=3: ( 0, 7.04799e+306); ( 0, 7.04799e+306); yl+yh= 7.04799e+306 j=4: ( 0, 7.04799e+306); ( 0, 7.04799e+306); yl+yh= 7.04799e+306 3. after ADD1(M): yl,yh = ( 0, 1.19811e+307); yl+yh= 1.19811e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99925e+306); yl+yh= 1.99925e+306 ebd0(x=1e+307, M=5.15154e+306): M/x = (r=0.515153710346883) * 2^(e=0); i=4, f=1986, fg=f*2^-(e+10)=1.93945 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.62406e+306); ( 0, 6.62406e+306); yl+yh= 6.62406e+306 j=2: ( 0, 6.62406e+306); ( 0, 6.62406e+306); yl+yh= 6.62406e+306 j=3: ( 0, 6.62406e+306); ( 0, 6.62406e+306); yl+yh= 6.62406e+306 j=4: ( 0, 6.62406e+306); ( 0, 6.62406e+306); yl+yh= 6.62406e+306 3. after ADD1(M): yl,yh = ( 0, 1.17756e+307); yl+yh= 1.17756e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.78444e+306); yl+yh= 1.78444e+306 ebd0(x=1e+307, M=5.37962e+306): M/x = (r=0.537961513635455) * 2^(e=0); i=10, f=1900, fg=f*2^-(e+10)=1.85547 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.18139e+306); ( 0, 6.18139e+306); yl+yh= 6.18139e+306 j=2: ( 0, 6.18139e+306); ( 0, 6.18139e+306); yl+yh= 6.18139e+306 j=3: ( 0, 6.18139e+306); ( 0, 6.18139e+306); yl+yh= 6.18139e+306 j=4: ( 0, 6.18139e+306); ( 0, 6.18139e+306); yl+yh= 6.18139e+306 3. after ADD1(M): yl,yh = ( 0, 1.1561e+307); yl+yh= 1.1561e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5793e+306); yl+yh= 1.5793e+306 ebd0(x=1e+307, M=5.61779e+306): M/x = (r=0.561779104644474) * 2^(e=0); i=16, f=1820, fg=f*2^-(e+10)=1.77734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=2: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=3: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=4: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 3. after ADD1(M): yl,yh = ( 0, 1.1369e+307); yl+yh= 1.1369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.38426e+306); yl+yh= 1.38426e+306 ebd0(x=1e+307, M=5.86651e+306): M/x = (r=0.58665119049577) * 2^(e=0); i=22, f=1748, fg=f*2^-(e+10)=1.70703 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.34757e+306); ( 0, 5.34757e+306); yl+yh= 5.34757e+306 j=2: ( 0, 5.34757e+306); ( 0, 5.34757e+306); yl+yh= 5.34757e+306 j=3: ( 0, 5.34757e+306); ( 0, 5.34757e+306); yl+yh= 5.34757e+306 j=4: ( 0, 5.34757e+306); ( 0, 5.34757e+306); yl+yh= 5.34757e+306 3. after ADD1(M): yl,yh = ( 0, 1.12141e+307); yl+yh= 1.12141e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.19976e+306); yl+yh= 1.19976e+306 ebd0(x=1e+307, M=6.12624e+306): M/x = (r=0.612624457664564) * 2^(e=0); i=29, f=1670, fg=f*2^-(e+10)=1.63086 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.89107e+306); ( 0, 4.89107e+306); yl+yh= 4.89107e+306 j=2: ( 0, 4.89108e+306); ( 0, 4.89108e+306); yl+yh= 4.89108e+306 j=3: ( 0, 4.89108e+306); ( 0, 4.89108e+306); yl+yh= 4.89108e+306 j=4: ( 0, 4.89108e+306); ( 0, 4.89108e+306); yl+yh= 4.89108e+306 3. after ADD1(M): yl,yh = ( 0, 1.10173e+307); yl+yh= 1.10173e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.02628e+306); yl+yh= 1.02628e+306 ebd0(x=1e+307, M=6.39748e+306): M/x = (r=0.639747659612917) * 2^(e=0); i=36, f=1598, fg=f*2^-(e+10)=1.56055 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.45038e+306); ( 0, 4.45038e+306); yl+yh= 4.45038e+306 j=2: ( 0, 4.45038e+306); ( 0, 4.45038e+306); yl+yh= 4.45038e+306 j=3: ( 0, 4.45038e+306); ( 0, 4.45038e+306); yl+yh= 4.45038e+306 j=4: ( 0, 4.45038e+306); ( 0, 4.45038e+306); yl+yh= 4.45038e+306 3. after ADD1(M): yl,yh = ( 0, 1.08479e+307); yl+yh= 1.08479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.64291e+305); yl+yh= 8.64291e+305 ebd0(x=1e+307, M=6.68072e+306): M/x = (r=0.668071708303066) * 2^(e=0); i=43, f=1533, fg=f*2^-(e+10)=1.49707 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, 4.0351e+306); yl+yh= 4.0351e+306 j=2: ( 0, 4.0351e+306); ( 0, 4.0351e+306); yl+yh= 4.0351e+306 j=3: ( 0, 4.0351e+306); ( 0, 4.0351e+306); yl+yh= 4.0351e+306 j=4: ( 0, 4.0351e+306); ( 0, 4.0351e+306); yl+yh= 4.0351e+306 3. after ADD1(M): yl,yh = ( 0, 1.07158e+307); yl+yh= 1.07158e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.14315e+305); yl+yh= 7.14315e+305 ebd0(x=1e+307, M=6.9765e+306): M/x = (r=0.697649769762387) * 2^(e=0); i=51, f=1464, fg=f*2^-(e+10)=1.42969 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.57459e+306); ( 0, 3.57459e+306); yl+yh= 3.57459e+306 j=2: ( 0, 3.57459e+306); ( 0, 3.57459e+306); yl+yh= 3.57459e+306 j=3: ( 0, 3.57459e+306); ( 0, 3.57459e+306); yl+yh= 3.57459e+306 j=4: ( 0, 3.57459e+306); ( 0, 3.57459e+306); yl+yh= 3.57459e+306 3. after ADD1(M): yl,yh = ( 0, 1.05511e+307); yl+yh= 1.05511e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.76878e+305); yl+yh= 5.76878e+305 ebd0(x=1e+307, M=7.28537e+306): M/x = (r=0.728537363879382) * 2^(e=0); i=59, f=1402, fg=f*2^-(e+10)=1.36914 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.14186e+306); ( 0, 3.14186e+306); yl+yh= 3.14186e+306 j=2: ( 0, 3.14186e+306); ( 0, 3.14186e+306); yl+yh= 3.14186e+306 j=3: ( 0, 3.14186e+306); ( 0, 3.14186e+306); yl+yh= 3.14186e+306 j=4: ( 0, 3.14186e+306); ( 0, 3.14186e+306); yl+yh= 3.14186e+306 3. after ADD1(M): yl,yh = ( 0, 1.04272e+307); yl+yh= 1.04272e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.52537e+305); yl+yh= 4.52537e+305 ebd0(x=1e+307, M=7.60792e+306): M/x = (r=0.76079246861802) * 2^(e=0); i=67, f=1344, fg=f*2^-(e+10)=1.3125 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.71935e+306); ( 0, 2.71935e+306); yl+yh= 2.71935e+306 j=2: ( 0, 2.71935e+306); ( 0, 2.71935e+306); yl+yh= 2.71935e+306 j=3: ( 0, 2.71935e+306); ( 0, 2.71935e+306); yl+yh= 2.71935e+306 j=4: ( 0, 2.71935e+306); ( 0, 2.71935e+306); yl+yh= 2.71935e+306 3. after ADD1(M): yl,yh = ( 0, 1.03273e+307); yl+yh= 1.03273e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.41871e+305); yl+yh= 3.41871e+305 ebd0(x=1e+307, M=7.94476e+306): M/x = (r=0.794475628846029) * 2^(e=0); i=75, f=1291, fg=f*2^-(e+10)=1.26074 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, 2.31702e+306); yl+yh= 2.31702e+306 j=2: ( 0, 2.31702e+306); ( 0, 2.31702e+306); yl+yh= 2.31702e+306 j=3: ( 0, 2.31702e+306); ( 0, 2.31702e+306); yl+yh= 2.31702e+306 j=4: ( 0, 2.31702e+306); ( 0, 2.31702e+306); yl+yh= 2.31702e+306 3. after ADD1(M): yl,yh = ( 0, 1.02618e+307); yl+yh= 1.02618e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.45486e+305); yl+yh= 2.45486e+305 ebd0(x=1e+307, M=8.2965e+306): M/x = (r=0.829650069981441) * 2^(e=0); i=84, f=1237, fg=f*2^-(e+10)=1.20801 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.88975e+306); ( 0, 1.88975e+306); yl+yh= 1.88975e+306 j=2: ( 0, 1.88975e+306); ( 0, 1.88975e+306); yl+yh= 1.88975e+306 j=3: ( 0, 1.88975e+306); ( 0, 1.88975e+306); yl+yh= 1.88975e+306 j=4: ( 0, 1.88975e+306); ( 0, 1.88975e+306); yl+yh= 1.88975e+306 3. after ADD1(M): yl,yh = ( 0, 1.01863e+307); yl+yh= 1.01863e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.64013e+305); yl+yh= 1.64013e+305 ebd0(x=1e+307, M=8.66382e+306): M/x = (r=0.866381816670688) * 2^(e=0); i=94, f=1181, fg=f*2^-(e+10)=1.15332 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.42645e+306); ( 0, 1.42645e+306); yl+yh= 1.42645e+306 j=2: ( 0, 1.42645e+306); ( 0, 1.42645e+306); yl+yh= 1.42645e+306 j=3: ( 0, 1.42645e+306); ( 0, 1.42645e+306); yl+yh= 1.42645e+306 j=4: ( 0, 1.42645e+306); ( 0, 1.42645e+306); yl+yh= 1.42645e+306 3. after ADD1(M): yl,yh = ( 0, 1.00903e+307); yl+yh= 1.00903e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.81139e+304); yl+yh= 9.81139e+304 ebd0(x=1e+307, M=9.0474e+306): M/x = (r=0.904739816721033) * 2^(e=0); i=104, f=1130, fg=f*2^-(e+10)=1.10352 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 9.85024e+305); ( 0, 9.85024e+305); yl+yh= 9.85024e+305 j=2: ( 0, 9.85024e+305); ( 0, 9.85024e+305); yl+yh= 9.85024e+305 j=3: ( 0, 9.85024e+305); ( 0, 9.85024e+305); yl+yh= 9.85024e+305 j=4: ( 0, 9.85024e+305); ( 0, 9.85024e+305); yl+yh= 9.85024e+305 3. after ADD1(M): yl,yh = ( 0, 1.00324e+307); yl+yh= 1.00324e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.84769e+304); yl+yh= 4.84769e+304 ebd0(x=1e+307, M=9.44796e+306): M/x = (r=0.944796070519959) * 2^(e=0); i=114, f=1083, fg=f*2^-(e+10)=1.05762 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, 5.60187e+305); yl+yh= 5.60187e+305 j=2: ( 0, 5.60187e+305); ( 0, 5.60187e+305); yl+yh= 5.60187e+305 j=3: ( 0, 5.60187e+305); ( 0, 5.60187e+305); yl+yh= 5.60187e+305 j=4: ( 0, 5.60187e+305); ( 0, 5.60187e+305); yl+yh= 5.60187e+305 3. after ADD1(M): yl,yh = ( 0, 1.00081e+307); yl+yh= 1.00081e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.58224e+304); yl+yh= 1.58224e+304 ebd0(x=1e+307, M=9.86626e+306): M/x = (r=0.986625766184435) * 2^(e=0); i=125, f=1036, fg=f*2^-(e+10)=1.01172 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.16523e+305); ( 0, 1.16523e+305); yl+yh= 1.16523e+305 j=2: ( 0, 1.16523e+305); ( 0, 1.16523e+305); yl+yh= 1.16523e+305 j=3: ( 0, 1.16523e+305); ( 0, 1.16523e+305); yl+yh= 1.16523e+305 j=4: ( 0, 1.16523e+305); ( 0, 1.16523e+305); yl+yh= 1.16523e+305 3. after ADD1(M): yl,yh = ( 0, 9.98278e+306); yl+yh= 9.98278e+306 4. after ADD1(- M*fg): yl,yh = ( 0, 9.02406e+302); yl+yh= 9.02406e+302 ebd0(x=1e+307, M=1.03031e+307): M/x = (r=0.515153710346883) * 2^(e=1); i=4, f=1986, fg=f*2^-(e+10)=0.969727 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.62406e+306); ( 0, -3.07407e+305); yl+yh= -3.07407e+305 j=2: ( 0, -3.07408e+305); ( 0, -3.07408e+305); yl+yh= -3.07408e+305 j=3: ( 0, -3.07408e+305); ( 0, -3.07408e+305); yl+yh= -3.07408e+305 j=4: ( 0, -3.07408e+305); ( 0, -3.07408e+305); yl+yh= -3.07408e+305 3. after ADD1(M): yl,yh = ( 0, 9.99567e+306); yl+yh= 9.99567e+306 4. after ADD1(- M*fg): yl,yh = ( 0, 4.50196e+303); yl+yh= 4.50196e+303 ebd0(x=1e+307, M=1.07592e+307): M/x = (r=0.537961513635455) * 2^(e=1); i=10, f=1900, fg=f*2^-(e+10)=0.927734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.18139e+306); ( 0, -7.50081e+305); yl+yh= -7.50081e+305 j=2: ( 0, -7.50081e+305); ( 0, -7.50081e+305); yl+yh= -7.50081e+305 j=3: ( 0, -7.50081e+305); ( 0, -7.50081e+305); yl+yh= -7.50081e+305 j=4: ( 0, -7.50081e+305); ( 0, -7.50081e+305); yl+yh= -7.50081e+305 3. after ADD1(M): yl,yh = ( 0, 1.00091e+307); yl+yh= 1.00091e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.7441e+304); yl+yh= 2.7441e+304 ebd0(x=1e+307, M=1.12356e+307): M/x = (r=0.561779104644474) * 2^(e=1); i=16, f=1820, fg=f*2^-(e+10)=0.888672 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=2: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=3: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=4: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 3. after ADD1(M): yl,yh = ( 0, 1.00553e+307); yl+yh= 1.00553e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.05759e+304); yl+yh= 7.05759e+304 ebd0(x=1e+307, M=1.1733e+307): M/x = (r=0.58665119049577) * 2^(e=1); i=22, f=1748, fg=f*2^-(e+10)=0.853516 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.34757e+306); ( 0, -1.5839e+306); yl+yh= -1.5839e+306 j=2: ( 0, -1.5839e+306); ( 0, -1.5839e+306); yl+yh= -1.5839e+306 j=3: ( 0, -1.5839e+306); ( 0, -1.5839e+306); yl+yh= -1.5839e+306 j=4: ( 0, -1.5839e+306); ( 0, -1.5839e+306); yl+yh= -1.5839e+306 3. after ADD1(M): yl,yh = ( 0, 1.01491e+307); yl+yh= 1.01491e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34801e+305); yl+yh= 1.34801e+305 ebd0(x=1e+307, M=1.22525e+307): M/x = (r=0.612624457664564) * 2^(e=1); i=29, f=1670, fg=f*2^-(e+10)=0.81543 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.89107e+306); ( 0, -2.0404e+306); yl+yh= -2.0404e+306 j=2: ( 0, -2.0404e+306); ( 0, -2.0404e+306); yl+yh= -2.0404e+306 j=3: ( 0, -2.0404e+306); ( 0, -2.0404e+306); yl+yh= -2.0404e+306 j=4: ( 0, -2.0404e+306); ( 0, -2.0404e+306); yl+yh= -2.0404e+306 3. after ADD1(M): yl,yh = ( 0, 1.02121e+307); yl+yh= 1.02121e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.21049e+305); yl+yh= 2.21049e+305 ebd0(x=1e+307, M=1.2795e+307): M/x = (r=0.639747659612917) * 2^(e=1); i=36, f=1598, fg=f*2^-(e+10)=0.780273 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.45038e+306); ( 0, -2.4811e+306); yl+yh= -2.4811e+306 j=2: ( 0, -2.4811e+306); ( 0, -2.4811e+306); yl+yh= -2.4811e+306 j=3: ( 0, -2.4811e+306); ( 0, -2.4811e+306); yl+yh= -2.4811e+306 j=4: ( 0, -2.4811e+306); ( 0, -2.4811e+306); yl+yh= -2.4811e+306 3. after ADD1(M): yl,yh = ( 0, 1.03139e+307); yl+yh= 1.03139e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.30296e+305); yl+yh= 3.30296e+305 ebd0(x=1e+307, M=1.33614e+307): M/x = (r=0.668071708303066) * 2^(e=1); i=43, f=1533, fg=f*2^-(e+10)=0.748535 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, -2.89637e+306); yl+yh= -2.89637e+306 j=2: ( 0, -2.89637e+306); ( 0, -2.89637e+306); yl+yh= -2.89637e+306 j=3: ( 0, -2.89637e+306); ( 0, -2.89637e+306); yl+yh= -2.89637e+306 j=4: ( 0, -2.89637e+306); ( 0, -2.89637e+306); yl+yh= -2.89637e+306 3. after ADD1(M): yl,yh = ( 0, 1.04651e+307); yl+yh= 1.04651e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.6356e+305); yl+yh= 4.6356e+305 ebd0(x=1e+307, M=1.3953e+307): M/x = (r=0.697649769762387) * 2^(e=1); i=51, f=1464, fg=f*2^-(e+10)=0.714844 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.57459e+306); ( 0, -3.35688e+306); yl+yh= -3.35688e+306 j=2: ( 0, -3.35688e+306); ( 0, -3.35688e+306); yl+yh= -3.35688e+306 j=3: ( 0, -3.35688e+306); ( 0, -3.35688e+306); yl+yh= -3.35688e+306 j=4: ( 0, -3.35688e+306); ( 0, -3.35688e+306); yl+yh= -3.35688e+306 3. after ADD1(M): yl,yh = ( 0, 1.05961e+307); yl+yh= 1.05961e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.21904e+305); yl+yh= 6.21904e+305 ebd0(x=1e+307, M=1.45707e+307): M/x = (r=0.728537363879382) * 2^(e=1); i=59, f=1402, fg=f*2^-(e+10)=0.68457 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.14186e+306); ( 0, -3.78961e+306); yl+yh= -3.78961e+306 j=2: ( 0, -3.78961e+306); ( 0, -3.78961e+306); yl+yh= -3.78961e+306 j=3: ( 0, -3.78961e+306); ( 0, -3.78961e+306); yl+yh= -3.78961e+306 j=4: ( 0, -3.78961e+306); ( 0, -3.78961e+306); yl+yh= -3.78961e+306 3. after ADD1(M): yl,yh = ( 0, 1.07811e+307); yl+yh= 1.07811e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.06439e+305); yl+yh= 8.06439e+305 ebd0(x=1e+307, M=1.52158e+307): M/x = (r=0.76079246861802) * 2^(e=1); i=67, f=1344, fg=f*2^-(e+10)=0.65625 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.71935e+306); ( 0, -4.21212e+306); yl+yh= -4.21212e+306 j=2: ( 0, -4.21212e+306); ( 0, -4.21212e+306); yl+yh= -4.21212e+306 j=3: ( 0, -4.21212e+306); ( 0, -4.21212e+306); yl+yh= -4.21212e+306 j=4: ( 0, -4.21212e+306); ( 0, -4.21212e+306); yl+yh= -4.21212e+306 3. after ADD1(M): yl,yh = ( 0, 1.10037e+307); yl+yh= 1.10037e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.01832e+306); yl+yh= 1.01832e+306 ebd0(x=1e+307, M=1.58895e+307): M/x = (r=0.794475628846029) * 2^(e=1); i=75, f=1291, fg=f*2^-(e+10)=0.630371 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, -4.61445e+306); yl+yh= -4.61445e+306 j=2: ( 0, -4.61445e+306); ( 0, -4.61445e+306); yl+yh= -4.61445e+306 j=3: ( 0, -4.61445e+306); ( 0, -4.61445e+306); yl+yh= -4.61445e+306 j=4: ( 0, -4.61445e+306); ( 0, -4.61445e+306); yl+yh= -4.61445e+306 3. after ADD1(M): yl,yh = ( 0, 1.12751e+307); yl+yh= 1.12751e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.25877e+306); yl+yh= 1.25877e+306 ebd0(x=1e+307, M=1.6593e+307): M/x = (r=0.829650069981441) * 2^(e=1); i=84, f=1237, fg=f*2^-(e+10)=0.604004 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.88975e+306); ( 0, -5.04172e+306); yl+yh= -5.04172e+306 j=2: ( 0, -5.04172e+306); ( 0, -5.04172e+306); yl+yh= -5.04172e+306 j=3: ( 0, -5.04172e+306); ( 0, -5.04172e+306); yl+yh= -5.04172e+306 j=4: ( 0, -5.04172e+306); ( 0, -5.04172e+306); yl+yh= -5.04172e+306 3. after ADD1(M): yl,yh = ( 0, 1.15513e+307); yl+yh= 1.15513e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.52904e+306); yl+yh= 1.52904e+306 ebd0(x=1e+307, M=1.73276e+307): M/x = (r=0.866381816670688) * 2^(e=1); i=94, f=1181, fg=f*2^-(e+10)=0.57666 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.42645e+306); ( 0, -5.50502e+306); yl+yh= -5.50502e+306 j=2: ( 0, -5.50502e+306); ( 0, -5.50502e+306); yl+yh= -5.50502e+306 j=3: ( 0, -5.50502e+306); ( 0, -5.50502e+306); yl+yh= -5.50502e+306 j=4: ( 0, -5.50502e+306); ( 0, -5.50502e+306); yl+yh= -5.50502e+306 3. after ADD1(M): yl,yh = ( 0, 1.18226e+307); yl+yh= 1.18226e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.83046e+306); yl+yh= 1.83046e+306 ebd0(x=1e+307, M=1.80948e+307): M/x = (r=0.904739816721033) * 2^(e=1); i=104, f=1130, fg=f*2^-(e+10)=0.551758 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 9.85024e+305); ( 0, -5.94645e+306); yl+yh= -5.94645e+306 j=2: ( 0, -5.94645e+306); ( 0, -5.94645e+306); yl+yh= -5.94645e+306 j=3: ( 0, -5.94645e+306); ( 0, -5.94645e+306); yl+yh= -5.94645e+306 j=4: ( 0, -5.94645e+306); ( 0, -5.94645e+306); yl+yh= -5.94645e+306 3. after ADD1(M): yl,yh = ( 0, 1.21483e+307); yl+yh= 1.21483e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.1644e+306); yl+yh= 2.1644e+306 ebd0(x=1e+307, M=1.88959e+307): M/x = (r=0.944796070519959) * 2^(e=1); i=114, f=1083, fg=f*2^-(e+10)=0.528809 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, -6.37128e+306); yl+yh= -6.37128e+306 j=2: ( 0, -6.37128e+306); ( 0, -6.37128e+306); yl+yh= -6.37128e+306 j=3: ( 0, -6.37128e+306); ( 0, -6.37128e+306); yl+yh= -6.37128e+306 j=4: ( 0, -6.37128e+306); ( 0, -6.37128e+306); yl+yh= -6.37128e+306 3. after ADD1(M): yl,yh = ( 0, 1.25246e+307); yl+yh= 1.25246e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.53231e+306); yl+yh= 2.53231e+306 ebd0(x=1e+307, M=1.97325e+307): M/x = (r=0.986625766184435) * 2^(e=1); i=125, f=1036, fg=f*2^-(e+10)=0.505859 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.16523e+305); ( 0, -6.81495e+306); yl+yh= -6.81495e+306 j=2: ( 0, -6.81495e+306); ( 0, -6.81495e+306); yl+yh= -6.81495e+306 j=3: ( 0, -6.81495e+306); ( 0, -6.81495e+306); yl+yh= -6.81495e+306 j=4: ( 0, -6.81495e+306); ( 0, -6.81495e+306); yl+yh= -6.81495e+306 3. after ADD1(M): yl,yh = ( 0, 1.29176e+307); yl+yh= 1.29176e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.93569e+306); yl+yh= 2.93569e+306 ebd0(x=1e+307, M=2.06061e+307): M/x = (r=0.515153710346883) * 2^(e=2); i=4, f=1986, fg=f*2^-(e+10)=0.484863 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.62406e+306); ( 0, -7.23888e+306); yl+yh= -7.23888e+306 j=2: ( 0, -7.23888e+306); ( 0, -7.23888e+306); yl+yh= -7.23888e+306 j=3: ( 0, -7.23888e+306); ( 0, -7.23888e+306); yl+yh= -7.23888e+306 j=4: ( 0, -7.23888e+306); ( 0, -7.23888e+306); yl+yh= -7.23888e+306 3. after ADD1(M): yl,yh = ( 0, 1.33673e+307); yl+yh= 1.33673e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.3761e+306); yl+yh= 3.3761e+306 ebd0(x=1e+307, M=2.15185e+307): M/x = (r=0.537961513635455) * 2^(e=2); i=10, f=1900, fg=f*2^-(e+10)=0.463867 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.18139e+306); ( 0, -7.68155e+306); yl+yh= -7.68155e+306 j=2: ( 0, -7.68155e+306); ( 0, -7.68155e+306); yl+yh= -7.68155e+306 j=3: ( 0, -7.68155e+306); ( 0, -7.68155e+306); yl+yh= -7.68155e+306 j=4: ( 0, -7.68155e+306); ( 0, -7.68155e+306); yl+yh= -7.68155e+306 3. after ADD1(M): yl,yh = ( 0, 1.38369e+307); yl+yh= 1.38369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.8552e+306); yl+yh= 3.8552e+306 ebd0(x=1e+307, M=2.24712e+307): M/x = (r=0.561779104644474) * 2^(e=2); i=16, f=1820, fg=f*2^-(e+10)=0.444336 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=2: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=3: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=4: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 3. after ADD1(M): yl,yh = ( 0, 1.43594e+307); yl+yh= 1.43594e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.37469e+306); yl+yh= 4.37469e+306 ebd0(x=1e+307, M=2.3466e+307): M/x = (r=0.58665119049577) * 2^(e=2); i=22, f=1748, fg=f*2^-(e+10)=0.426758 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.34757e+306); ( 0, -8.51538e+306); yl+yh= -8.51538e+306 j=2: ( 0, -8.51538e+306); ( 0, -8.51538e+306); yl+yh= -8.51538e+306 j=3: ( 0, -8.51538e+306); ( 0, -8.51538e+306); yl+yh= -8.51538e+306 j=4: ( 0, -8.51538e+306); ( 0, -8.51538e+306); yl+yh= -8.51538e+306 3. after ADD1(M): yl,yh = ( 0, 1.49507e+307); yl+yh= 1.49507e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.93635e+306); yl+yh= 4.93635e+306 ebd0(x=1e+307, M=2.4505e+307): M/x = (r=0.612624457664564) * 2^(e=2); i=29, f=1670, fg=f*2^-(e+10)=0.407715 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.89107e+306); ( 0, -8.97187e+306); yl+yh= -8.97187e+306 j=2: ( 0, -8.97187e+306); ( 0, -8.97187e+306); yl+yh= -8.97187e+306 j=3: ( 0, -8.97187e+306); ( 0, -8.97187e+306); yl+yh= -8.97187e+306 j=4: ( 0, -8.97187e+306); ( 0, -8.97187e+306); yl+yh= -8.97187e+306 3. after ADD1(M): yl,yh = ( 0, 1.55331e+307); yl+yh= 1.55331e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.54207e+306); yl+yh= 5.54207e+306 ebd0(x=1e+307, M=2.55899e+307): M/x = (r=0.639747659612917) * 2^(e=2); i=36, f=1598, fg=f*2^-(e+10)=0.390137 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.45038e+306); ( 0, -9.41257e+306); yl+yh= -9.41257e+306 j=2: ( 0, -9.41257e+306); ( 0, -9.41257e+306); yl+yh= -9.41257e+306 j=3: ( 0, -9.41257e+306); ( 0, -9.41257e+306); yl+yh= -9.41257e+306 j=4: ( 0, -9.41257e+306); ( 0, -9.41257e+306); yl+yh= -9.41257e+306 3. after ADD1(M): yl,yh = ( 0, 1.61773e+307); yl+yh= 1.61773e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.19378e+306); yl+yh= 6.19378e+306 ebd0(x=1e+307, M=2.67229e+307): M/x = (r=0.668071708303066) * 2^(e=2); i=43, f=1533, fg=f*2^-(e+10)=0.374268 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 4.0351e+306); ( 0, -9.82784e+306); yl+yh= -9.82784e+306 j=2: ( 0, -9.82784e+306); ( 0, -9.82784e+306); yl+yh= -9.82784e+306 j=3: ( 0, -9.82784e+306); ( 0, -9.82784e+306); yl+yh= -9.82784e+306 j=4: ( 0, -9.82784e+306); ( 0, -9.82784e+306); yl+yh= -9.82784e+306 3. after ADD1(M): yl,yh = ( 0, 1.6895e+307); yl+yh= 1.6895e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.89352e+306); yl+yh= 6.89352e+306 ebd0(x=1e+307, M=2.7906e+307): M/x = (r=0.697649769762387) * 2^(e=2); i=51, f=1464, fg=f*2^-(e+10)=0.357422 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.57459e+306); ( 0, -1.02884e+307); yl+yh= -1.02884e+307 j=2: ( 0, -1.02884e+307); ( 0, -1.02884e+307); yl+yh= -1.02884e+307 j=3: ( 0, -1.02884e+307); ( 0, -1.02884e+307); yl+yh= -1.02884e+307 j=4: ( 0, -1.02884e+307); ( 0, -1.02884e+307); yl+yh= -1.02884e+307 3. after ADD1(M): yl,yh = ( 0, 1.76176e+307); yl+yh= 1.76176e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.64343e+306); yl+yh= 7.64343e+306 ebd0(x=1e+307, M=2.91415e+307): M/x = (r=0.728537363879382) * 2^(e=2); i=59, f=1402, fg=f*2^-(e+10)=0.342285 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 3.14186e+306); ( 0, -1.07211e+307); yl+yh= -1.07211e+307 j=2: ( 0, -1.07211e+307); ( 0, -1.07211e+307); yl+yh= -1.07211e+307 j=3: ( 0, -1.07211e+307); ( 0, -1.07211e+307); yl+yh= -1.07211e+307 j=4: ( 0, -1.07211e+307); ( 0, -1.07211e+307); yl+yh= -1.07211e+307 3. after ADD1(M): yl,yh = ( 0, 1.84204e+307); yl+yh= 1.84204e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.44571e+306); yl+yh= 8.44571e+306 ebd0(x=1e+307, M=3.04317e+307): M/x = (r=0.76079246861802) * 2^(e=2); i=67, f=1344, fg=f*2^-(e+10)=0.328125 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.71935e+306); ( 0, -1.11436e+307); yl+yh= -1.11436e+307 j=2: ( 0, -1.11436e+307); ( 0, -1.11436e+307); yl+yh= -1.11436e+307 j=3: ( 0, -1.11436e+307); ( 0, -1.11436e+307); yl+yh= -1.11436e+307 j=4: ( 0, -1.11436e+307); ( 0, -1.11436e+307); yl+yh= -1.11436e+307 3. after ADD1(M): yl,yh = ( 0, 1.92881e+307); yl+yh= 1.92881e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.3027e+306); yl+yh= 9.3027e+306 ebd0(x=1e+307, M=3.1779e+307): M/x = (r=0.794475628846029) * 2^(e=2); i=75, f=1291, fg=f*2^-(e+10)=0.315186 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 2.31702e+306); ( 0, -1.15459e+307); yl+yh= -1.15459e+307 j=2: ( 0, -1.15459e+307); ( 0, -1.15459e+307); yl+yh= -1.15459e+307 j=3: ( 0, -1.15459e+307); ( 0, -1.15459e+307); yl+yh= -1.15459e+307 j=4: ( 0, -1.15459e+307); ( 0, -1.15459e+307); yl+yh= -1.15459e+307 3. after ADD1(M): yl,yh = ( 0, 2.02331e+307); yl+yh= 2.02331e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.02168e+307); yl+yh= 1.02168e+307 ebd0(x=1e+307, M=3.3186e+307): M/x = (r=0.829650069981441) * 2^(e=2); i=84, f=1237, fg=f*2^-(e+10)=0.302002 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.88975e+306); ( 0, -1.19732e+307); yl+yh= -1.19732e+307 j=2: ( 0, -1.19732e+307); ( 0, -1.19732e+307); yl+yh= -1.19732e+307 j=3: ( 0, -1.19732e+307); ( 0, -1.19732e+307); yl+yh= -1.19732e+307 j=4: ( 0, -1.19732e+307); ( 0, -1.19732e+307); yl+yh= -1.19732e+307 3. after ADD1(M): yl,yh = ( 0, 2.12128e+307); yl+yh= 2.12128e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.11906e+307); yl+yh= 1.11906e+307 ebd0(x=1e+307, M=3.46553e+307): M/x = (r=0.866381816670688) * 2^(e=2); i=94, f=1181, fg=f*2^-(e+10)=0.28833 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.42645e+306); ( 0, -1.24365e+307); yl+yh= -1.24365e+307 j=2: ( 0, -1.24365e+307); ( 0, -1.24365e+307); yl+yh= -1.24365e+307 j=3: ( 0, -1.24365e+307); ( 0, -1.24365e+307); yl+yh= -1.24365e+307 j=4: ( 0, -1.24365e+307); ( 0, -1.24365e+307); yl+yh= -1.24365e+307 3. after ADD1(M): yl,yh = ( 0, 2.22188e+307); yl+yh= 2.22188e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.22266e+307); yl+yh= 1.22266e+307 ebd0(x=1e+307, M=3.61896e+307): M/x = (r=0.904739816721033) * 2^(e=2); i=104, f=1130, fg=f*2^-(e+10)=0.275879 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 9.85024e+305); ( 0, -1.28779e+307); yl+yh= -1.28779e+307 j=2: ( 0, -1.28779e+307); ( 0, -1.28779e+307); yl+yh= -1.28779e+307 j=3: ( 0, -1.28779e+307); ( 0, -1.28779e+307); yl+yh= -1.28779e+307 j=4: ( 0, -1.28779e+307); ( 0, -1.28779e+307); yl+yh= -1.28779e+307 3. after ADD1(M): yl,yh = ( 0, 2.33117e+307); yl+yh= 2.33117e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.33277e+307); yl+yh= 1.33277e+307 ebd0(x=1e+307, M=3.77918e+307): M/x = (r=0.944796070519959) * 2^(e=2); i=114, f=1083, fg=f*2^-(e+10)=0.264404 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.60187e+305); ( 0, -1.33028e+307); yl+yh= -1.33028e+307 j=2: ( 0, -1.33028e+307); ( 0, -1.33028e+307); yl+yh= -1.33028e+307 j=3: ( 0, -1.33028e+307); ( 0, -1.33028e+307); yl+yh= -1.33028e+307 j=4: ( 0, -1.33028e+307); ( 0, -1.33028e+307); yl+yh= -1.33028e+307 3. after ADD1(M): yl,yh = ( 0, 2.44891e+307); yl+yh= 2.44891e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.44968e+307); yl+yh= 1.44968e+307 ebd0(x=1e+307, M=3.9465e+307): M/x = (r=0.986625766184435) * 2^(e=2); i=125, f=1036, fg=f*2^-(e+10)=0.25293 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 1.16523e+305); ( 0, -1.37464e+307); yl+yh= -1.37464e+307 j=2: ( 0, -1.37464e+307); ( 0, -1.37464e+307); yl+yh= -1.37464e+307 j=3: ( 0, -1.37464e+307); ( 0, -1.37464e+307); yl+yh= -1.37464e+307 j=4: ( 0, -1.37464e+307); ( 0, -1.37464e+307); yl+yh= -1.37464e+307 3. after ADD1(M): yl,yh = ( 0, 2.57186e+307); yl+yh= 2.57186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.57367e+307); yl+yh= 1.57367e+307 ebd0(x=1e+307, M=4.12123e+307): M/x = (r=0.515153710346883) * 2^(e=3); i=4, f=1986, fg=f*2^-(e+10)=0.242432 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.62406e+306); ( 0, -1.41704e+307); yl+yh= -1.41704e+307 j=2: ( 0, -1.41704e+307); ( 0, -1.41704e+307); yl+yh= -1.41704e+307 j=3: ( 0, -1.41704e+307); ( 0, -1.41704e+307); yl+yh= -1.41704e+307 j=4: ( 0, -1.41704e+307); ( 0, -1.41704e+307); yl+yh= -1.41704e+307 3. after ADD1(M): yl,yh = ( 0, 2.70419e+307); yl+yh= 2.70419e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.70508e+307); yl+yh= 1.70508e+307 ebd0(x=1e+307, M=4.30369e+307): M/x = (r=0.537961513635455) * 2^(e=3); i=10, f=1900, fg=f*2^-(e+10)=0.231934 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 6.18139e+306); ( 0, -1.4613e+307); yl+yh= -1.4613e+307 j=2: ( 0, -1.4613e+307); ( 0, -1.4613e+307); yl+yh= -1.4613e+307 j=3: ( 0, -1.4613e+307); ( 0, -1.4613e+307); yl+yh= -1.4613e+307 j=4: ( 0, -1.4613e+307); ( 0, -1.4613e+307); yl+yh= -1.4613e+307 3. after ADD1(M): yl,yh = ( 0, 2.84239e+307); yl+yh= 2.84239e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.84422e+307); yl+yh= 1.84422e+307 ebd0(x=1e+307, M=4.49423e+307): M/x = (r=0.561779104644474) * 2^(e=3); i=16, f=1820, fg=f*2^-(e+10)=0.222168 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*b[0,j]), j=1:4: j=1: ( 0, 5.75121e+306); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=2: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=3: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=4: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 3. after ADD1(M): yl,yh = ( 0, 2.98991e+307); yl+yh= 2.98991e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99144e+307); yl+yh= 1.99144e+307 dpq_ebd0(x[1:1], np[1:188], ... ): ebd0(x=1e+307, M=8.37116e+298): M/x = (r=0.561779104644474) * 2^(e=-26); i=16, f=1820, fg=f*2^-(e+10)=1.19276e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=9.95504e+298): M/x = (r=0.668071708303066) * 2^(e=-26); i=43, f=1533, fg=f*2^-(e+10)=1.00467e+08 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.18386e+299): M/x = (r=0.794475628846029) * 2^(e=-26); i=75, f=1291, fg=f*2^-(e+10)=8.4607e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.40786e+299): M/x = (r=0.944796070519959) * 2^(e=-26); i=114, f=1083, fg=f*2^-(e+10)=7.09755e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( nan, inf); yl+yh= nan non-finite yh --> return((yh=Inf, yl=0)) ebd0(x=1e+307, M=1.67423e+299): M/x = (r=0.561779104644474) * 2^(e=-25); i=16, f=1820, fg=f*2^-(e+10)=5.96378e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=1: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=2: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 j=3: ( 0, 1.79038e+308); ( 0, 1.79038e+308); yl+yh= 1.79038e+308 3. after ADD1(M): yl,yh = ( 0, 1.79038e+308); yl+yh= 1.79038e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.69053e+308); yl+yh= 1.69053e+308 ebd0(x=1e+307, M=1.99101e+299): M/x = (r=0.668071708303066) * 2^(e=-25); i=43, f=1533, fg=f*2^-(e+10)=5.02333e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.77322e+308); yl+yh= 1.77322e+308 j=1: ( 0, 1.77322e+308); ( 0, 1.77322e+308); yl+yh= 1.77322e+308 j=2: ( 0, 1.77322e+308); ( 0, 1.77322e+308); yl+yh= 1.77322e+308 j=3: ( 0, 1.77322e+308); ( 0, 1.77322e+308); yl+yh= 1.77322e+308 3. after ADD1(M): yl,yh = ( 0, 1.77322e+308); yl+yh= 1.77322e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.6732e+308); yl+yh= 1.6732e+308 ebd0(x=1e+307, M=2.36772e+299): M/x = (r=0.794475628846029) * 2^(e=-25); i=75, f=1291, fg=f*2^-(e+10)=4.23035e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.75604e+308); yl+yh= 1.75604e+308 j=1: ( 0, 1.75604e+308); ( 0, 1.75604e+308); yl+yh= 1.75604e+308 j=2: ( 0, 1.75604e+308); ( 0, 1.75604e+308); yl+yh= 1.75604e+308 j=3: ( 0, 1.75604e+308); ( 0, 1.75604e+308); yl+yh= 1.75604e+308 3. after ADD1(M): yl,yh = ( 0, 1.75604e+308); yl+yh= 1.75604e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.65588e+308); yl+yh= 1.65588e+308 ebd0(x=1e+307, M=2.81571e+299): M/x = (r=0.944796070519959) * 2^(e=-25); i=114, f=1083, fg=f*2^-(e+10)=3.54877e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.73847e+308); yl+yh= 1.73847e+308 j=1: ( 0, 1.73847e+308); ( 0, 1.73847e+308); yl+yh= 1.73847e+308 j=2: ( 0, 1.73847e+308); ( 0, 1.73847e+308); yl+yh= 1.73847e+308 j=3: ( 0, 1.73847e+308); ( 0, 1.73847e+308); yl+yh= 1.73847e+308 3. after ADD1(M): yl,yh = ( 0, 1.73847e+308); yl+yh= 1.73847e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.63855e+308); yl+yh= 1.63855e+308 ebd0(x=1e+307, M=3.34846e+299): M/x = (r=0.561779104644474) * 2^(e=-24); i=16, f=1820, fg=f*2^-(e+10)=2.98189e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=1: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=2: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 j=3: ( 0, 1.72107e+308); ( 0, 1.72107e+308); yl+yh= 1.72107e+308 3. after ADD1(M): yl,yh = ( 0, 1.72107e+308); yl+yh= 1.72107e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.62122e+308); yl+yh= 1.62122e+308 ebd0(x=1e+307, M=3.98202e+299): M/x = (r=0.668071708303066) * 2^(e=-24); i=43, f=1533, fg=f*2^-(e+10)=2.51167e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.7039e+308); yl+yh= 1.7039e+308 j=1: ( 0, 1.7039e+308); ( 0, 1.7039e+308); yl+yh= 1.7039e+308 j=2: ( 0, 1.7039e+308); ( 0, 1.7039e+308); yl+yh= 1.7039e+308 j=3: ( 0, 1.7039e+308); ( 0, 1.7039e+308); yl+yh= 1.7039e+308 3. after ADD1(M): yl,yh = ( 0, 1.7039e+308); yl+yh= 1.7039e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.60389e+308); yl+yh= 1.60389e+308 ebd0(x=1e+307, M=4.73544e+299): M/x = (r=0.794475628846029) * 2^(e=-24); i=75, f=1291, fg=f*2^-(e+10)=2.11517e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.68672e+308); yl+yh= 1.68672e+308 j=1: ( 0, 1.68672e+308); ( 0, 1.68672e+308); yl+yh= 1.68672e+308 j=2: ( 0, 1.68672e+308); ( 0, 1.68672e+308); yl+yh= 1.68672e+308 j=3: ( 0, 1.68672e+308); ( 0, 1.68672e+308); yl+yh= 1.68672e+308 3. after ADD1(M): yl,yh = ( 0, 1.68672e+308); yl+yh= 1.68672e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.58656e+308); yl+yh= 1.58656e+308 ebd0(x=1e+307, M=5.63142e+299): M/x = (r=0.944796070519959) * 2^(e=-24); i=114, f=1083, fg=f*2^-(e+10)=1.77439e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.66916e+308); yl+yh= 1.66916e+308 j=1: ( 0, 1.66916e+308); ( 0, 1.66916e+308); yl+yh= 1.66916e+308 j=2: ( 0, 1.66916e+308); ( 0, 1.66916e+308); yl+yh= 1.66916e+308 j=3: ( 0, 1.66916e+308); ( 0, 1.66916e+308); yl+yh= 1.66916e+308 3. after ADD1(M): yl,yh = ( 0, 1.66916e+308); yl+yh= 1.66916e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.56923e+308); yl+yh= 1.56923e+308 ebd0(x=1e+307, M=6.69693e+299): M/x = (r=0.561779104644474) * 2^(e=-23); i=16, f=1820, fg=f*2^-(e+10)=1.49094e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=1: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=2: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 j=3: ( 0, 1.65175e+308); ( 0, 1.65175e+308); yl+yh= 1.65175e+308 3. after ADD1(M): yl,yh = ( 0, 1.65175e+308); yl+yh= 1.65175e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5519e+308); yl+yh= 1.5519e+308 ebd0(x=1e+307, M=7.96404e+299): M/x = (r=0.668071708303066) * 2^(e=-23); i=43, f=1533, fg=f*2^-(e+10)=1.25583e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.63459e+308); yl+yh= 1.63459e+308 j=1: ( 0, 1.63459e+308); ( 0, 1.63459e+308); yl+yh= 1.63459e+308 j=2: ( 0, 1.63459e+308); ( 0, 1.63459e+308); yl+yh= 1.63459e+308 j=3: ( 0, 1.63459e+308); ( 0, 1.63459e+308); yl+yh= 1.63459e+308 3. after ADD1(M): yl,yh = ( 0, 1.63459e+308); yl+yh= 1.63459e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.53457e+308); yl+yh= 1.53457e+308 ebd0(x=1e+307, M=9.47089e+299): M/x = (r=0.794475628846029) * 2^(e=-23); i=75, f=1291, fg=f*2^-(e+10)=1.05759e+07 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.61741e+308); yl+yh= 1.61741e+308 j=1: ( 0, 1.61741e+308); ( 0, 1.61741e+308); yl+yh= 1.61741e+308 j=2: ( 0, 1.61741e+308); ( 0, 1.61741e+308); yl+yh= 1.61741e+308 j=3: ( 0, 1.61741e+308); ( 0, 1.61741e+308); yl+yh= 1.61741e+308 3. after ADD1(M): yl,yh = ( 0, 1.61741e+308); yl+yh= 1.61741e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.51725e+308); yl+yh= 1.51725e+308 ebd0(x=1e+307, M=1.12628e+300): M/x = (r=0.944796070519959) * 2^(e=-23); i=114, f=1083, fg=f*2^-(e+10)=8.87194e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.59984e+308); yl+yh= 1.59984e+308 j=1: ( 0, 1.59984e+308); ( 0, 1.59984e+308); yl+yh= 1.59984e+308 j=2: ( 0, 1.59984e+308); ( 0, 1.59984e+308); yl+yh= 1.59984e+308 j=3: ( 0, 1.59984e+308); ( 0, 1.59984e+308); yl+yh= 1.59984e+308 3. after ADD1(M): yl,yh = ( 0, 1.59984e+308); yl+yh= 1.59984e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.49992e+308); yl+yh= 1.49992e+308 ebd0(x=1e+307, M=1.33939e+300): M/x = (r=0.561779104644474) * 2^(e=-22); i=16, f=1820, fg=f*2^-(e+10)=7.45472e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=1: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=2: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 j=3: ( 0, 1.58244e+308); ( 0, 1.58244e+308); yl+yh= 1.58244e+308 3. after ADD1(M): yl,yh = ( 0, 1.58244e+308); yl+yh= 1.58244e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48259e+308); yl+yh= 1.48259e+308 ebd0(x=1e+307, M=1.59281e+300): M/x = (r=0.668071708303066) * 2^(e=-22); i=43, f=1533, fg=f*2^-(e+10)=6.27917e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.56527e+308); yl+yh= 1.56527e+308 j=1: ( 0, 1.56527e+308); ( 0, 1.56527e+308); yl+yh= 1.56527e+308 j=2: ( 0, 1.56527e+308); ( 0, 1.56527e+308); yl+yh= 1.56527e+308 j=3: ( 0, 1.56527e+308); ( 0, 1.56527e+308); yl+yh= 1.56527e+308 3. after ADD1(M): yl,yh = ( 0, 1.56527e+308); yl+yh= 1.56527e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.46526e+308); yl+yh= 1.46526e+308 ebd0(x=1e+307, M=1.89418e+300): M/x = (r=0.794475628846029) * 2^(e=-22); i=75, f=1291, fg=f*2^-(e+10)=5.28794e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.54809e+308); yl+yh= 1.54809e+308 j=1: ( 0, 1.54809e+308); ( 0, 1.54809e+308); yl+yh= 1.54809e+308 j=2: ( 0, 1.54809e+308); ( 0, 1.54809e+308); yl+yh= 1.54809e+308 j=3: ( 0, 1.54809e+308); ( 0, 1.54809e+308); yl+yh= 1.54809e+308 3. after ADD1(M): yl,yh = ( 0, 1.54809e+308); yl+yh= 1.54809e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.44793e+308); yl+yh= 1.44793e+308 ebd0(x=1e+307, M=2.25257e+300): M/x = (r=0.944796070519959) * 2^(e=-22); i=114, f=1083, fg=f*2^-(e+10)=4.43597e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.53053e+308); yl+yh= 1.53053e+308 j=1: ( 0, 1.53053e+308); ( 0, 1.53053e+308); yl+yh= 1.53053e+308 j=2: ( 0, 1.53053e+308); ( 0, 1.53053e+308); yl+yh= 1.53053e+308 j=3: ( 0, 1.53053e+308); ( 0, 1.53053e+308); yl+yh= 1.53053e+308 3. after ADD1(M): yl,yh = ( 0, 1.53053e+308); yl+yh= 1.53053e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.4306e+308); yl+yh= 1.4306e+308 ebd0(x=1e+307, M=2.67877e+300): M/x = (r=0.561779104644474) * 2^(e=-21); i=16, f=1820, fg=f*2^-(e+10)=3.72736e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=1: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=2: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 j=3: ( 0, 1.51312e+308); ( 0, 1.51312e+308); yl+yh= 1.51312e+308 3. after ADD1(M): yl,yh = ( 0, 1.51312e+308); yl+yh= 1.51312e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.41327e+308); yl+yh= 1.41327e+308 ebd0(x=1e+307, M=3.18561e+300): M/x = (r=0.668071708303066) * 2^(e=-21); i=43, f=1533, fg=f*2^-(e+10)=3.13958e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.49596e+308); yl+yh= 1.49596e+308 j=1: ( 0, 1.49596e+308); ( 0, 1.49596e+308); yl+yh= 1.49596e+308 j=2: ( 0, 1.49596e+308); ( 0, 1.49596e+308); yl+yh= 1.49596e+308 j=3: ( 0, 1.49596e+308); ( 0, 1.49596e+308); yl+yh= 1.49596e+308 3. after ADD1(M): yl,yh = ( 0, 1.49596e+308); yl+yh= 1.49596e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.39595e+308); yl+yh= 1.39595e+308 ebd0(x=1e+307, M=3.78836e+300): M/x = (r=0.794475628846029) * 2^(e=-21); i=75, f=1291, fg=f*2^-(e+10)=2.64397e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.47878e+308); yl+yh= 1.47878e+308 j=1: ( 0, 1.47878e+308); ( 0, 1.47878e+308); yl+yh= 1.47878e+308 j=2: ( 0, 1.47878e+308); ( 0, 1.47878e+308); yl+yh= 1.47878e+308 j=3: ( 0, 1.47878e+308); ( 0, 1.47878e+308); yl+yh= 1.47878e+308 3. after ADD1(M): yl,yh = ( 0, 1.47878e+308); yl+yh= 1.47878e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.37862e+308); yl+yh= 1.37862e+308 ebd0(x=1e+307, M=4.50514e+300): M/x = (r=0.944796070519959) * 2^(e=-21); i=114, f=1083, fg=f*2^-(e+10)=2.21798e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.46121e+308); yl+yh= 1.46121e+308 j=1: ( 0, 1.46121e+308); ( 0, 1.46121e+308); yl+yh= 1.46121e+308 j=2: ( 0, 1.46121e+308); ( 0, 1.46121e+308); yl+yh= 1.46121e+308 j=3: ( 0, 1.46121e+308); ( 0, 1.46121e+308); yl+yh= 1.46121e+308 3. after ADD1(M): yl,yh = ( 0, 1.46121e+308); yl+yh= 1.46121e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.36129e+308); yl+yh= 1.36129e+308 ebd0(x=1e+307, M=5.35754e+300): M/x = (r=0.561779104644474) * 2^(e=-20); i=16, f=1820, fg=f*2^-(e+10)=1.86368e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=1: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=2: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 j=3: ( 0, 1.44381e+308); ( 0, 1.44381e+308); yl+yh= 1.44381e+308 3. after ADD1(M): yl,yh = ( 0, 1.44381e+308); yl+yh= 1.44381e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34396e+308); yl+yh= 1.34396e+308 ebd0(x=1e+307, M=6.37123e+300): M/x = (r=0.668071708303066) * 2^(e=-20); i=43, f=1533, fg=f*2^-(e+10)=1.56979e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.42665e+308); yl+yh= 1.42665e+308 j=1: ( 0, 1.42665e+308); ( 0, 1.42665e+308); yl+yh= 1.42665e+308 j=2: ( 0, 1.42665e+308); ( 0, 1.42665e+308); yl+yh= 1.42665e+308 j=3: ( 0, 1.42665e+308); ( 0, 1.42665e+308); yl+yh= 1.42665e+308 3. after ADD1(M): yl,yh = ( 0, 1.42665e+308); yl+yh= 1.42665e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.32663e+308); yl+yh= 1.32663e+308 ebd0(x=1e+307, M=7.57671e+300): M/x = (r=0.794475628846029) * 2^(e=-20); i=75, f=1291, fg=f*2^-(e+10)=1.32198e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.40946e+308); yl+yh= 1.40946e+308 j=1: ( 0, 1.40946e+308); ( 0, 1.40946e+308); yl+yh= 1.40946e+308 j=2: ( 0, 1.40946e+308); ( 0, 1.40946e+308); yl+yh= 1.40946e+308 j=3: ( 0, 1.40946e+308); ( 0, 1.40946e+308); yl+yh= 1.40946e+308 3. after ADD1(M): yl,yh = ( 0, 1.40946e+308); yl+yh= 1.40946e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.3093e+308); yl+yh= 1.3093e+308 ebd0(x=1e+307, M=9.01028e+300): M/x = (r=0.944796070519959) * 2^(e=-20); i=114, f=1083, fg=f*2^-(e+10)=1.10899e+06 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.3919e+308); yl+yh= 1.3919e+308 j=1: ( 0, 1.3919e+308); ( 0, 1.3919e+308); yl+yh= 1.3919e+308 j=2: ( 0, 1.3919e+308); ( 0, 1.3919e+308); yl+yh= 1.3919e+308 j=3: ( 0, 1.3919e+308); ( 0, 1.3919e+308); yl+yh= 1.3919e+308 3. after ADD1(M): yl,yh = ( 0, 1.3919e+308); yl+yh= 1.3919e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.29197e+308); yl+yh= 1.29197e+308 ebd0(x=1e+307, M=1.07151e+301): M/x = (r=0.561779104644474) * 2^(e=-19); i=16, f=1820, fg=f*2^-(e+10)=931840 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=1: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=2: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 j=3: ( 0, 1.37449e+308); ( 0, 1.37449e+308); yl+yh= 1.37449e+308 3. after ADD1(M): yl,yh = ( 0, 1.37449e+308); yl+yh= 1.37449e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.27464e+308); yl+yh= 1.27464e+308 ebd0(x=1e+307, M=1.27425e+301): M/x = (r=0.668071708303066) * 2^(e=-19); i=43, f=1533, fg=f*2^-(e+10)=784896 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.35733e+308); yl+yh= 1.35733e+308 j=1: ( 0, 1.35733e+308); ( 0, 1.35733e+308); yl+yh= 1.35733e+308 j=2: ( 0, 1.35733e+308); ( 0, 1.35733e+308); yl+yh= 1.35733e+308 j=3: ( 0, 1.35733e+308); ( 0, 1.35733e+308); yl+yh= 1.35733e+308 3. after ADD1(M): yl,yh = ( 0, 1.35733e+308); yl+yh= 1.35733e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.25732e+308); yl+yh= 1.25732e+308 ebd0(x=1e+307, M=1.51534e+301): M/x = (r=0.794475628846029) * 2^(e=-19); i=75, f=1291, fg=f*2^-(e+10)=660992 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.34015e+308); yl+yh= 1.34015e+308 j=1: ( 0, 1.34015e+308); ( 0, 1.34015e+308); yl+yh= 1.34015e+308 j=2: ( 0, 1.34015e+308); ( 0, 1.34015e+308); yl+yh= 1.34015e+308 j=3: ( 0, 1.34015e+308); ( 0, 1.34015e+308); yl+yh= 1.34015e+308 3. after ADD1(M): yl,yh = ( 0, 1.34015e+308); yl+yh= 1.34015e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.23999e+308); yl+yh= 1.23999e+308 ebd0(x=1e+307, M=1.80206e+301): M/x = (r=0.944796070519959) * 2^(e=-19); i=114, f=1083, fg=f*2^-(e+10)=554496 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.32258e+308); yl+yh= 1.32258e+308 j=1: ( 0, 1.32258e+308); ( 0, 1.32258e+308); yl+yh= 1.32258e+308 j=2: ( 0, 1.32258e+308); ( 0, 1.32258e+308); yl+yh= 1.32258e+308 j=3: ( 0, 1.32258e+308); ( 0, 1.32258e+308); yl+yh= 1.32258e+308 3. after ADD1(M): yl,yh = ( 0, 1.32258e+308); yl+yh= 1.32258e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.22266e+308); yl+yh= 1.22266e+308 ebd0(x=1e+307, M=2.14302e+301): M/x = (r=0.561779104644474) * 2^(e=-18); i=16, f=1820, fg=f*2^-(e+10)=465920 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=1: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=2: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 j=3: ( 0, 1.30518e+308); ( 0, 1.30518e+308); yl+yh= 1.30518e+308 3. after ADD1(M): yl,yh = ( 0, 1.30518e+308); yl+yh= 1.30518e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.20533e+308); yl+yh= 1.20533e+308 ebd0(x=1e+307, M=2.54849e+301): M/x = (r=0.668071708303066) * 2^(e=-18); i=43, f=1533, fg=f*2^-(e+10)=392448 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.28802e+308); yl+yh= 1.28802e+308 j=1: ( 0, 1.28802e+308); ( 0, 1.28802e+308); yl+yh= 1.28802e+308 j=2: ( 0, 1.28802e+308); ( 0, 1.28802e+308); yl+yh= 1.28802e+308 j=3: ( 0, 1.28802e+308); ( 0, 1.28802e+308); yl+yh= 1.28802e+308 3. after ADD1(M): yl,yh = ( 0, 1.28802e+308); yl+yh= 1.28802e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.188e+308); yl+yh= 1.188e+308 ebd0(x=1e+307, M=3.03068e+301): M/x = (r=0.794475628846029) * 2^(e=-18); i=75, f=1291, fg=f*2^-(e+10)=330496 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.27084e+308); yl+yh= 1.27084e+308 j=1: ( 0, 1.27084e+308); ( 0, 1.27084e+308); yl+yh= 1.27084e+308 j=2: ( 0, 1.27084e+308); ( 0, 1.27084e+308); yl+yh= 1.27084e+308 j=3: ( 0, 1.27084e+308); ( 0, 1.27084e+308); yl+yh= 1.27084e+308 3. after ADD1(M): yl,yh = ( 0, 1.27084e+308); yl+yh= 1.27084e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.17067e+308); yl+yh= 1.17067e+308 ebd0(x=1e+307, M=3.60411e+301): M/x = (r=0.944796070519959) * 2^(e=-18); i=114, f=1083, fg=f*2^-(e+10)=277248 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.25327e+308); yl+yh= 1.25327e+308 j=1: ( 0, 1.25327e+308); ( 0, 1.25327e+308); yl+yh= 1.25327e+308 j=2: ( 0, 1.25327e+308); ( 0, 1.25327e+308); yl+yh= 1.25327e+308 j=3: ( 0, 1.25327e+308); ( 0, 1.25327e+308); yl+yh= 1.25327e+308 3. after ADD1(M): yl,yh = ( 0, 1.25327e+308); yl+yh= 1.25327e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.15334e+308); yl+yh= 1.15334e+308 ebd0(x=1e+307, M=4.28603e+301): M/x = (r=0.561779104644474) * 2^(e=-17); i=16, f=1820, fg=f*2^-(e+10)=232960 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=1: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=2: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 j=3: ( 0, 1.23586e+308); ( 0, 1.23586e+308); yl+yh= 1.23586e+308 3. after ADD1(M): yl,yh = ( 0, 1.23586e+308); yl+yh= 1.23586e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.13602e+308); yl+yh= 1.13602e+308 ebd0(x=1e+307, M=5.09698e+301): M/x = (r=0.668071708303066) * 2^(e=-17); i=43, f=1533, fg=f*2^-(e+10)=196224 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.2187e+308); yl+yh= 1.2187e+308 j=1: ( 0, 1.2187e+308); ( 0, 1.2187e+308); yl+yh= 1.2187e+308 j=2: ( 0, 1.2187e+308); ( 0, 1.2187e+308); yl+yh= 1.2187e+308 j=3: ( 0, 1.2187e+308); ( 0, 1.2187e+308); yl+yh= 1.2187e+308 3. after ADD1(M): yl,yh = ( 0, 1.2187e+308); yl+yh= 1.2187e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.11869e+308); yl+yh= 1.11869e+308 ebd0(x=1e+307, M=6.06137e+301): M/x = (r=0.794475628846029) * 2^(e=-17); i=75, f=1291, fg=f*2^-(e+10)=165248 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.20152e+308); yl+yh= 1.20152e+308 j=1: ( 0, 1.20152e+308); ( 0, 1.20152e+308); yl+yh= 1.20152e+308 j=2: ( 0, 1.20152e+308); ( 0, 1.20152e+308); yl+yh= 1.20152e+308 j=3: ( 0, 1.20152e+308); ( 0, 1.20152e+308); yl+yh= 1.20152e+308 3. after ADD1(M): yl,yh = ( 0, 1.20152e+308); yl+yh= 1.20152e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10136e+308); yl+yh= 1.10136e+308 ebd0(x=1e+307, M=7.20822e+301): M/x = (r=0.944796070519959) * 2^(e=-17); i=114, f=1083, fg=f*2^-(e+10)=138624 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.18395e+308); yl+yh= 1.18395e+308 j=1: ( 0, 1.18395e+308); ( 0, 1.18395e+308); yl+yh= 1.18395e+308 j=2: ( 0, 1.18395e+308); ( 0, 1.18395e+308); yl+yh= 1.18395e+308 j=3: ( 0, 1.18395e+308); ( 0, 1.18395e+308); yl+yh= 1.18395e+308 3. after ADD1(M): yl,yh = ( 0, 1.18395e+308); yl+yh= 1.18395e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.08403e+308); yl+yh= 1.08403e+308 ebd0(x=1e+307, M=8.57207e+301): M/x = (r=0.561779104644474) * 2^(e=-16); i=16, f=1820, fg=f*2^-(e+10)=116480 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=1: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=2: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 j=3: ( 0, 1.16655e+308); ( 0, 1.16655e+308); yl+yh= 1.16655e+308 3. after ADD1(M): yl,yh = ( 0, 1.16655e+308); yl+yh= 1.16655e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.0667e+308); yl+yh= 1.0667e+308 ebd0(x=1e+307, M=1.0194e+302): M/x = (r=0.668071708303066) * 2^(e=-16); i=43, f=1533, fg=f*2^-(e+10)=98112 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.14939e+308); yl+yh= 1.14939e+308 j=1: ( 0, 1.14939e+308); ( 0, 1.14939e+308); yl+yh= 1.14939e+308 j=2: ( 0, 1.14939e+308); ( 0, 1.14939e+308); yl+yh= 1.14939e+308 j=3: ( 0, 1.14939e+308); ( 0, 1.14939e+308); yl+yh= 1.14939e+308 3. after ADD1(M): yl,yh = ( 0, 1.14939e+308); yl+yh= 1.14939e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.04937e+308); yl+yh= 1.04937e+308 ebd0(x=1e+307, M=1.21227e+302): M/x = (r=0.794475628846029) * 2^(e=-16); i=75, f=1291, fg=f*2^-(e+10)=82624 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.13221e+308); yl+yh= 1.13221e+308 j=1: ( 0, 1.13221e+308); ( 0, 1.13221e+308); yl+yh= 1.13221e+308 j=2: ( 0, 1.13221e+308); ( 0, 1.13221e+308); yl+yh= 1.13221e+308 j=3: ( 0, 1.13221e+308); ( 0, 1.13221e+308); yl+yh= 1.13221e+308 3. after ADD1(M): yl,yh = ( 0, 1.13221e+308); yl+yh= 1.13221e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.03204e+308); yl+yh= 1.03204e+308 ebd0(x=1e+307, M=1.44164e+302): M/x = (r=0.944796070519959) * 2^(e=-16); i=114, f=1083, fg=f*2^-(e+10)=69312 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.11464e+308); yl+yh= 1.11464e+308 j=1: ( 0, 1.11464e+308); ( 0, 1.11464e+308); yl+yh= 1.11464e+308 j=2: ( 0, 1.11464e+308); ( 0, 1.11464e+308); yl+yh= 1.11464e+308 j=3: ( 0, 1.11464e+308); ( 0, 1.11464e+308); yl+yh= 1.11464e+308 3. after ADD1(M): yl,yh = ( 0, 1.11464e+308); yl+yh= 1.11464e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 1.01472e+308); yl+yh= 1.01472e+308 ebd0(x=1e+307, M=1.71441e+302): M/x = (r=0.561779104644474) * 2^(e=-15); i=16, f=1820, fg=f*2^-(e+10)=58240 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=1: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=2: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 j=3: ( 0, 1.09723e+308); ( 0, 1.09723e+308); yl+yh= 1.09723e+308 3. after ADD1(M): yl,yh = ( 0, 1.09723e+308); yl+yh= 1.09723e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.97387e+307); yl+yh= 9.97387e+307 ebd0(x=1e+307, M=2.03879e+302): M/x = (r=0.668071708303066) * 2^(e=-15); i=43, f=1533, fg=f*2^-(e+10)=49056 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.08007e+308); yl+yh= 1.08007e+308 j=1: ( 0, 1.08007e+308); ( 0, 1.08007e+308); yl+yh= 1.08007e+308 j=2: ( 0, 1.08007e+308); ( 0, 1.08007e+308); yl+yh= 1.08007e+308 j=3: ( 0, 1.08007e+308); ( 0, 1.08007e+308); yl+yh= 1.08007e+308 3. after ADD1(M): yl,yh = ( 0, 1.08007e+308); yl+yh= 1.08007e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.80059e+307); yl+yh= 9.80059e+307 ebd0(x=1e+307, M=2.42455e+302): M/x = (r=0.794475628846029) * 2^(e=-15); i=75, f=1291, fg=f*2^-(e+10)=41312 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.06289e+308); yl+yh= 1.06289e+308 j=1: ( 0, 1.06289e+308); ( 0, 1.06289e+308); yl+yh= 1.06289e+308 j=2: ( 0, 1.06289e+308); ( 0, 1.06289e+308); yl+yh= 1.06289e+308 j=3: ( 0, 1.06289e+308); ( 0, 1.06289e+308); yl+yh= 1.06289e+308 3. after ADD1(M): yl,yh = ( 0, 1.06289e+308); yl+yh= 1.06289e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.6273e+307); yl+yh= 9.6273e+307 ebd0(x=1e+307, M=2.88329e+302): M/x = (r=0.944796070519959) * 2^(e=-15); i=114, f=1083, fg=f*2^-(e+10)=34656 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.04532e+308); yl+yh= 1.04532e+308 j=1: ( 0, 1.04532e+308); ( 0, 1.04532e+308); yl+yh= 1.04532e+308 j=2: ( 0, 1.04532e+308); ( 0, 1.04532e+308); yl+yh= 1.04532e+308 j=3: ( 0, 1.04532e+308); ( 0, 1.04532e+308); yl+yh= 1.04532e+308 3. after ADD1(M): yl,yh = ( 0, 1.04533e+308); yl+yh= 1.04533e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.45402e+307); yl+yh= 9.45402e+307 ebd0(x=1e+307, M=3.42883e+302): M/x = (r=0.561779104644474) * 2^(e=-14); i=16, f=1820, fg=f*2^-(e+10)=29120 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=1: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=2: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 j=3: ( 0, 1.02792e+308); ( 0, 1.02792e+308); yl+yh= 1.02792e+308 3. after ADD1(M): yl,yh = ( 0, 1.02792e+308); yl+yh= 1.02792e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.28074e+307); yl+yh= 9.28074e+307 ebd0(x=1e+307, M=4.07759e+302): M/x = (r=0.668071708303066) * 2^(e=-14); i=43, f=1533, fg=f*2^-(e+10)=24528 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.01076e+308); yl+yh= 1.01076e+308 j=1: ( 0, 1.01076e+308); ( 0, 1.01076e+308); yl+yh= 1.01076e+308 j=2: ( 0, 1.01076e+308); ( 0, 1.01076e+308); yl+yh= 1.01076e+308 j=3: ( 0, 1.01076e+308); ( 0, 1.01076e+308); yl+yh= 1.01076e+308 3. after ADD1(M): yl,yh = ( 0, 1.01076e+308); yl+yh= 1.01076e+308 4. after ADD1(- M*fg): yl,yh = ( 0, 9.10746e+307); yl+yh= 9.10746e+307 ebd0(x=1e+307, M=4.84909e+302): M/x = (r=0.794475628846029) * 2^(e=-14); i=75, f=1291, fg=f*2^-(e+10)=20656 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 9.93576e+307); yl+yh= 9.93576e+307 j=1: ( 0, 9.93576e+307); ( 0, 9.93576e+307); yl+yh= 9.93576e+307 j=2: ( 0, 9.93576e+307); ( 0, 9.93576e+307); yl+yh= 9.93576e+307 j=3: ( 0, 9.93576e+307); ( 0, 9.93576e+307); yl+yh= 9.93576e+307 3. after ADD1(M): yl,yh = ( 0, 9.93581e+307); yl+yh= 9.93581e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.93418e+307); yl+yh= 8.93418e+307 ebd0(x=1e+307, M=5.76658e+302): M/x = (r=0.944796070519959) * 2^(e=-14); i=114, f=1083, fg=f*2^-(e+10)=17328 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 9.76008e+307); yl+yh= 9.76008e+307 j=1: ( 0, 9.76008e+307); ( 0, 9.76008e+307); yl+yh= 9.76008e+307 j=2: ( 0, 9.76008e+307); ( 0, 9.76008e+307); yl+yh= 9.76008e+307 j=3: ( 0, 9.76008e+307); ( 0, 9.76008e+307); yl+yh= 9.76008e+307 3. after ADD1(M): yl,yh = ( 0, 9.76014e+307); yl+yh= 9.76014e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.7609e+307); yl+yh= 8.7609e+307 ebd0(x=1e+307, M=6.85766e+302): M/x = (r=0.561779104644474) * 2^(e=-13); i=16, f=1820, fg=f*2^-(e+10)=14560 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=1: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=2: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 j=3: ( 0, 9.58603e+307); ( 0, 9.58603e+307); yl+yh= 9.58603e+307 3. after ADD1(M): yl,yh = ( 0, 9.5861e+307); yl+yh= 9.5861e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.58763e+307); yl+yh= 8.58763e+307 ebd0(x=1e+307, M=8.15517e+302): M/x = (r=0.668071708303066) * 2^(e=-13); i=43, f=1533, fg=f*2^-(e+10)=12264 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 9.41442e+307); yl+yh= 9.41442e+307 j=1: ( 0, 9.41442e+307); ( 0, 9.41442e+307); yl+yh= 9.41442e+307 j=2: ( 0, 9.41442e+307); ( 0, 9.41442e+307); yl+yh= 9.41442e+307 j=3: ( 0, 9.41442e+307); ( 0, 9.41442e+307); yl+yh= 9.41442e+307 3. after ADD1(M): yl,yh = ( 0, 9.4145e+307); yl+yh= 9.4145e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.41435e+307); yl+yh= 8.41435e+307 ebd0(x=1e+307, M=9.69819e+302): M/x = (r=0.794475628846029) * 2^(e=-13); i=75, f=1291, fg=f*2^-(e+10)=10328 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 9.24262e+307); yl+yh= 9.24262e+307 j=1: ( 0, 9.24262e+307); ( 0, 9.24262e+307); yl+yh= 9.24262e+307 j=2: ( 0, 9.24262e+307); ( 0, 9.24262e+307); yl+yh= 9.24262e+307 j=3: ( 0, 9.24262e+307); ( 0, 9.24262e+307); yl+yh= 9.24262e+307 3. after ADD1(M): yl,yh = ( 0, 9.24271e+307); yl+yh= 9.24271e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.24108e+307); yl+yh= 8.24108e+307 ebd0(x=1e+307, M=1.15332e+303): M/x = (r=0.944796070519959) * 2^(e=-13); i=114, f=1083, fg=f*2^-(e+10)=8664 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 9.06693e+307); yl+yh= 9.06693e+307 j=1: ( 0, 9.06693e+307); ( 0, 9.06693e+307); yl+yh= 9.06693e+307 j=2: ( 0, 9.06693e+307); ( 0, 9.06693e+307); yl+yh= 9.06693e+307 j=3: ( 0, 9.06693e+307); ( 0, 9.06693e+307); yl+yh= 9.06693e+307 3. after ADD1(M): yl,yh = ( 0, 9.06705e+307); yl+yh= 9.06705e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.06781e+307); yl+yh= 8.06781e+307 ebd0(x=1e+307, M=1.37153e+303): M/x = (r=0.561779104644474) * 2^(e=-12); i=16, f=1820, fg=f*2^-(e+10)=7280 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=1: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=2: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 j=3: ( 0, 8.89289e+307); ( 0, 8.89289e+307); yl+yh= 8.89289e+307 3. after ADD1(M): yl,yh = ( 0, 8.89302e+307); yl+yh= 8.89302e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.89455e+307); yl+yh= 7.89455e+307 ebd0(x=1e+307, M=1.63103e+303): M/x = (r=0.668071708303066) * 2^(e=-12); i=43, f=1533, fg=f*2^-(e+10)=6132 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 8.72128e+307); yl+yh= 8.72128e+307 j=1: ( 0, 8.72128e+307); ( 0, 8.72128e+307); yl+yh= 8.72128e+307 j=2: ( 0, 8.72128e+307); ( 0, 8.72128e+307); yl+yh= 8.72128e+307 j=3: ( 0, 8.72128e+307); ( 0, 8.72128e+307); yl+yh= 8.72128e+307 3. after ADD1(M): yl,yh = ( 0, 8.72144e+307); yl+yh= 8.72144e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.72129e+307); yl+yh= 7.72129e+307 ebd0(x=1e+307, M=1.93964e+303): M/x = (r=0.794475628846029) * 2^(e=-12); i=75, f=1291, fg=f*2^-(e+10)=5164 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 8.54947e+307); yl+yh= 8.54947e+307 j=1: ( 0, 8.54947e+307); ( 0, 8.54947e+307); yl+yh= 8.54947e+307 j=2: ( 0, 8.54947e+307); ( 0, 8.54947e+307); yl+yh= 8.54947e+307 j=3: ( 0, 8.54947e+307); ( 0, 8.54947e+307); yl+yh= 8.54947e+307 3. after ADD1(M): yl,yh = ( 0, 8.54966e+307); yl+yh= 8.54966e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.54803e+307); yl+yh= 7.54803e+307 ebd0(x=1e+307, M=2.30663e+303): M/x = (r=0.944796070519959) * 2^(e=-12); i=114, f=1083, fg=f*2^-(e+10)=4332 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 8.37378e+307); yl+yh= 8.37378e+307 j=1: ( 0, 8.37378e+307); ( 0, 8.37378e+307); yl+yh= 8.37378e+307 j=2: ( 0, 8.37378e+307); ( 0, 8.37378e+307); yl+yh= 8.37378e+307 j=3: ( 0, 8.37378e+307); ( 0, 8.37378e+307); yl+yh= 8.37378e+307 3. after ADD1(M): yl,yh = ( 0, 8.37402e+307); yl+yh= 8.37402e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.37478e+307); yl+yh= 7.37478e+307 ebd0(x=1e+307, M=2.74306e+303): M/x = (r=0.561779104644474) * 2^(e=-11); i=16, f=1820, fg=f*2^-(e+10)=3640 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=1: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=2: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 j=3: ( 0, 8.19974e+307); ( 0, 8.19974e+307); yl+yh= 8.19974e+307 3. after ADD1(M): yl,yh = ( 0, 8.20001e+307); yl+yh= 8.20001e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.20154e+307); yl+yh= 7.20154e+307 ebd0(x=1e+307, M=3.26207e+303): M/x = (r=0.668071708303066) * 2^(e=-11); i=43, f=1533, fg=f*2^-(e+10)=3066 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 8.02813e+307); yl+yh= 8.02813e+307 j=1: ( 0, 8.02813e+307); ( 0, 8.02813e+307); yl+yh= 8.02813e+307 j=2: ( 0, 8.02813e+307); ( 0, 8.02813e+307); yl+yh= 8.02813e+307 j=3: ( 0, 8.02813e+307); ( 0, 8.02813e+307); yl+yh= 8.02813e+307 3. after ADD1(M): yl,yh = ( 0, 8.02846e+307); yl+yh= 8.02846e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.0283e+307); yl+yh= 7.0283e+307 ebd0(x=1e+307, M=3.87928e+303): M/x = (r=0.794475628846029) * 2^(e=-11); i=75, f=1291, fg=f*2^-(e+10)=2582 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 7.85632e+307); yl+yh= 7.85632e+307 j=1: ( 0, 7.85632e+307); ( 0, 7.85632e+307); yl+yh= 7.85632e+307 j=2: ( 0, 7.85632e+307); ( 0, 7.85632e+307); yl+yh= 7.85632e+307 j=3: ( 0, 7.85632e+307); ( 0, 7.85632e+307); yl+yh= 7.85632e+307 3. after ADD1(M): yl,yh = ( 0, 7.85671e+307); yl+yh= 7.85671e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.85508e+307); yl+yh= 6.85508e+307 ebd0(x=1e+307, M=4.61326e+303): M/x = (r=0.944796070519959) * 2^(e=-11); i=114, f=1083, fg=f*2^-(e+10)=2166 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 7.68064e+307); yl+yh= 7.68064e+307 j=1: ( 0, 7.68064e+307); ( 0, 7.68064e+307); yl+yh= 7.68064e+307 j=2: ( 0, 7.68064e+307); ( 0, 7.68064e+307); yl+yh= 7.68064e+307 j=3: ( 0, 7.68064e+307); ( 0, 7.68064e+307); yl+yh= 7.68064e+307 3. after ADD1(M): yl,yh = ( 0, 7.6811e+307); yl+yh= 7.6811e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.68187e+307); yl+yh= 6.68187e+307 ebd0(x=1e+307, M=5.48612e+303): M/x = (r=0.561779104644474) * 2^(e=-10); i=16, f=1820, fg=f*2^-(e+10)=1820 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=1: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=2: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 j=3: ( 0, 7.50659e+307); ( 0, 7.50659e+307); yl+yh= 7.50659e+307 3. after ADD1(M): yl,yh = ( 0, 7.50714e+307); yl+yh= 7.50714e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.50867e+307); yl+yh= 6.50867e+307 ebd0(x=1e+307, M=6.52414e+303): M/x = (r=0.668071708303066) * 2^(e=-10); i=43, f=1533, fg=f*2^-(e+10)=1533 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 7.33498e+307); yl+yh= 7.33498e+307 j=1: ( 0, 7.33498e+307); ( 0, 7.33498e+307); yl+yh= 7.33498e+307 j=2: ( 0, 7.33498e+307); ( 0, 7.33498e+307); yl+yh= 7.33498e+307 j=3: ( 0, 7.33498e+307); ( 0, 7.33498e+307); yl+yh= 7.33498e+307 3. after ADD1(M): yl,yh = ( 0, 7.33563e+307); yl+yh= 7.33563e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.33548e+307); yl+yh= 6.33548e+307 ebd0(x=1e+307, M=7.75855e+303): M/x = (r=0.794475628846029) * 2^(e=-10); i=75, f=1291, fg=f*2^-(e+10)=1291 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 7.16317e+307); yl+yh= 7.16317e+307 j=1: ( 0, 7.16317e+307); ( 0, 7.16317e+307); yl+yh= 7.16317e+307 j=2: ( 0, 7.16317e+307); ( 0, 7.16317e+307); yl+yh= 7.16317e+307 j=3: ( 0, 7.16317e+307); ( 0, 7.16317e+307); yl+yh= 7.16317e+307 3. after ADD1(M): yl,yh = ( 0, 7.16395e+307); yl+yh= 7.16395e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.16232e+307); yl+yh= 6.16232e+307 ebd0(x=1e+307, M=9.22652e+303): M/x = (r=0.944796070519959) * 2^(e=-10); i=114, f=1083, fg=f*2^-(e+10)=1083 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 6.98749e+307); yl+yh= 6.98749e+307 j=1: ( 0, 6.98749e+307); ( 0, 6.98749e+307); yl+yh= 6.98749e+307 j=2: ( 0, 6.98749e+307); ( 0, 6.98749e+307); yl+yh= 6.98749e+307 j=3: ( 0, 6.98749e+307); ( 0, 6.98749e+307); yl+yh= 6.98749e+307 3. after ADD1(M): yl,yh = ( 0, 6.98841e+307); yl+yh= 6.98841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.98918e+307); yl+yh= 5.98918e+307 ebd0(x=1e+307, M=1.09722e+304): M/x = (r=0.561779104644474) * 2^(e=-9); i=16, f=1820, fg=f*2^-(e+10)=910 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=1: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=2: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 j=3: ( 0, 6.81345e+307); ( 0, 6.81345e+307); yl+yh= 6.81345e+307 3. after ADD1(M): yl,yh = ( 0, 6.81454e+307); yl+yh= 6.81454e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.81607e+307); yl+yh= 5.81607e+307 ebd0(x=1e+307, M=1.30483e+304): M/x = (r=0.668071708303066) * 2^(e=-9); i=43, f=1533, fg=f*2^-(e+10)=766.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 6.64183e+307); yl+yh= 6.64183e+307 j=1: ( 0, 6.64183e+307); ( 0, 6.64183e+307); yl+yh= 6.64183e+307 j=2: ( 0, 6.64183e+307); ( 0, 6.64183e+307); yl+yh= 6.64183e+307 j=3: ( 0, 6.64183e+307); ( 0, 6.64183e+307); yl+yh= 6.64183e+307 3. after ADD1(M): yl,yh = ( 0, 6.64314e+307); yl+yh= 6.64314e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.64299e+307); yl+yh= 5.64299e+307 ebd0(x=1e+307, M=1.55171e+304): M/x = (r=0.794475628846029) * 2^(e=-9); i=75, f=1291, fg=f*2^-(e+10)=645.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 6.47003e+307); yl+yh= 6.47003e+307 j=1: ( 0, 6.47003e+307); ( 0, 6.47003e+307); yl+yh= 6.47003e+307 j=2: ( 0, 6.47003e+307); ( 0, 6.47003e+307); yl+yh= 6.47003e+307 j=3: ( 0, 6.47003e+307); ( 0, 6.47003e+307); yl+yh= 6.47003e+307 3. after ADD1(M): yl,yh = ( 0, 6.47158e+307); yl+yh= 6.47158e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.46995e+307); yl+yh= 5.46995e+307 ebd0(x=1e+307, M=1.8453e+304): M/x = (r=0.944796070519959) * 2^(e=-9); i=114, f=1083, fg=f*2^-(e+10)=541.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 6.29434e+307); yl+yh= 6.29434e+307 j=1: ( 0, 6.29434e+307); ( 0, 6.29434e+307); yl+yh= 6.29434e+307 j=2: ( 0, 6.29434e+307); ( 0, 6.29434e+307); yl+yh= 6.29434e+307 j=3: ( 0, 6.29434e+307); ( 0, 6.29434e+307); yl+yh= 6.29434e+307 3. after ADD1(M): yl,yh = ( 0, 6.29619e+307); yl+yh= 6.29619e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.29696e+307); yl+yh= 5.29696e+307 ebd0(x=1e+307, M=2.19445e+304): M/x = (r=0.561779104644474) * 2^(e=-8); i=16, f=1820, fg=f*2^-(e+10)=455 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=1: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=2: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 j=3: ( 0, 6.1203e+307); ( 0, 6.1203e+307); yl+yh= 6.1203e+307 3. after ADD1(M): yl,yh = ( 0, 6.12249e+307); yl+yh= 6.12249e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.12402e+307); yl+yh= 5.12402e+307 ebd0(x=1e+307, M=2.60966e+304): M/x = (r=0.668071708303066) * 2^(e=-8); i=43, f=1533, fg=f*2^-(e+10)=383.25 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 5.94869e+307); yl+yh= 5.94869e+307 j=1: ( 0, 5.94869e+307); ( 0, 5.94869e+307); yl+yh= 5.94869e+307 j=2: ( 0, 5.94869e+307); ( 0, 5.94869e+307); yl+yh= 5.94869e+307 j=3: ( 0, 5.94869e+307); ( 0, 5.94869e+307); yl+yh= 5.94869e+307 3. after ADD1(M): yl,yh = ( 0, 5.9513e+307); yl+yh= 5.9513e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.95115e+307); yl+yh= 4.95115e+307 ebd0(x=1e+307, M=3.10342e+304): M/x = (r=0.794475628846029) * 2^(e=-8); i=75, f=1291, fg=f*2^-(e+10)=322.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 5.77688e+307); yl+yh= 5.77688e+307 j=1: ( 0, 5.77688e+307); ( 0, 5.77688e+307); yl+yh= 5.77688e+307 j=2: ( 0, 5.77688e+307); ( 0, 5.77688e+307); yl+yh= 5.77688e+307 j=3: ( 0, 5.77688e+307); ( 0, 5.77688e+307); yl+yh= 5.77688e+307 3. after ADD1(M): yl,yh = ( 0, 5.77998e+307); yl+yh= 5.77998e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.77835e+307); yl+yh= 4.77835e+307 ebd0(x=1e+307, M=3.69061e+304): M/x = (r=0.944796070519959) * 2^(e=-8); i=114, f=1083, fg=f*2^-(e+10)=270.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 5.6012e+307); yl+yh= 5.6012e+307 j=1: ( 0, 5.6012e+307); ( 0, 5.6012e+307); yl+yh= 5.6012e+307 j=2: ( 0, 5.6012e+307); ( 0, 5.6012e+307); yl+yh= 5.6012e+307 j=3: ( 0, 5.6012e+307); ( 0, 5.6012e+307); yl+yh= 5.6012e+307 3. after ADD1(M): yl,yh = ( 0, 5.60489e+307); yl+yh= 5.60489e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.60565e+307); yl+yh= 4.60565e+307 ebd0(x=1e+307, M=4.3889e+304): M/x = (r=0.561779104644474) * 2^(e=-7); i=16, f=1820, fg=f*2^-(e+10)=227.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=1: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=2: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 j=3: ( 0, 5.42715e+307); ( 0, 5.42715e+307); yl+yh= 5.42715e+307 3. after ADD1(M): yl,yh = ( 0, 5.43154e+307); yl+yh= 5.43154e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.43307e+307); yl+yh= 4.43307e+307 ebd0(x=1e+307, M=5.21931e+304): M/x = (r=0.668071708303066) * 2^(e=-7); i=43, f=1533, fg=f*2^-(e+10)=191.625 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 5.25554e+307); yl+yh= 5.25554e+307 j=1: ( 0, 5.25554e+307); ( 0, 5.25554e+307); yl+yh= 5.25554e+307 j=2: ( 0, 5.25554e+307); ( 0, 5.25554e+307); yl+yh= 5.25554e+307 j=3: ( 0, 5.25554e+307); ( 0, 5.25554e+307); yl+yh= 5.25554e+307 3. after ADD1(M): yl,yh = ( 0, 5.26076e+307); yl+yh= 5.26076e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.26061e+307); yl+yh= 4.26061e+307 ebd0(x=1e+307, M=6.20684e+304): M/x = (r=0.794475628846029) * 2^(e=-7); i=75, f=1291, fg=f*2^-(e+10)=161.375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 5.08373e+307); yl+yh= 5.08373e+307 j=1: ( 0, 5.08373e+307); ( 0, 5.08373e+307); yl+yh= 5.08373e+307 j=2: ( 0, 5.08373e+307); ( 0, 5.08373e+307); yl+yh= 5.08373e+307 j=3: ( 0, 5.08373e+307); ( 0, 5.08373e+307); yl+yh= 5.08373e+307 3. after ADD1(M): yl,yh = ( 0, 5.08994e+307); yl+yh= 5.08994e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.08831e+307); yl+yh= 4.08831e+307 ebd0(x=1e+307, M=7.38122e+304): M/x = (r=0.944796070519959) * 2^(e=-7); i=114, f=1083, fg=f*2^-(e+10)=135.375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 4.90805e+307); yl+yh= 4.90805e+307 j=1: ( 0, 4.90805e+307); ( 0, 4.90805e+307); yl+yh= 4.90805e+307 j=2: ( 0, 4.90805e+307); ( 0, 4.90805e+307); yl+yh= 4.90805e+307 j=3: ( 0, 4.90805e+307); ( 0, 4.90805e+307); yl+yh= 4.90805e+307 3. after ADD1(M): yl,yh = ( 0, 4.91543e+307); yl+yh= 4.91543e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.9162e+307); yl+yh= 3.9162e+307 ebd0(x=1e+307, M=8.7778e+304): M/x = (r=0.561779104644474) * 2^(e=-6); i=16, f=1820, fg=f*2^-(e+10)=113.75 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=1: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=2: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 j=3: ( 0, 4.734e+307); ( 0, 4.734e+307); yl+yh= 4.734e+307 3. after ADD1(M): yl,yh = ( 0, 4.74278e+307); yl+yh= 4.74278e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74431e+307); yl+yh= 3.74431e+307 ebd0(x=1e+307, M=1.04386e+305): M/x = (r=0.668071708303066) * 2^(e=-6); i=43, f=1533, fg=f*2^-(e+10)=95.8125 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 4.56239e+307); yl+yh= 4.56239e+307 j=1: ( 0, 4.56239e+307); ( 0, 4.56239e+307); yl+yh= 4.56239e+307 j=2: ( 0, 4.56239e+307); ( 0, 4.56239e+307); yl+yh= 4.56239e+307 j=3: ( 0, 4.56239e+307); ( 0, 4.56239e+307); yl+yh= 4.56239e+307 3. after ADD1(M): yl,yh = ( 0, 4.57283e+307); yl+yh= 4.57283e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.57268e+307); yl+yh= 3.57268e+307 ebd0(x=1e+307, M=1.24137e+305): M/x = (r=0.794475628846029) * 2^(e=-6); i=75, f=1291, fg=f*2^-(e+10)=80.6875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 4.39059e+307); yl+yh= 4.39059e+307 j=1: ( 0, 4.39059e+307); ( 0, 4.39058e+307); yl+yh= 4.39058e+307 j=2: ( 0, 4.39058e+307); ( 0, 4.39058e+307); yl+yh= 4.39058e+307 j=3: ( 0, 4.39058e+307); ( 0, 4.39058e+307); yl+yh= 4.39058e+307 3. after ADD1(M): yl,yh = ( 0, 4.403e+307); yl+yh= 4.403e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.40137e+307); yl+yh= 3.40137e+307 ebd0(x=1e+307, M=1.47624e+305): M/x = (r=0.944796070519959) * 2^(e=-6); i=114, f=1083, fg=f*2^-(e+10)=67.6875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 4.2149e+307); yl+yh= 4.2149e+307 j=1: ( 0, 4.2149e+307); ( 0, 4.2149e+307); yl+yh= 4.2149e+307 j=2: ( 0, 4.2149e+307); ( 0, 4.2149e+307); yl+yh= 4.2149e+307 j=3: ( 0, 4.2149e+307); ( 0, 4.2149e+307); yl+yh= 4.2149e+307 3. after ADD1(M): yl,yh = ( 0, 4.22966e+307); yl+yh= 4.22966e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.23043e+307); yl+yh= 3.23043e+307 ebd0(x=1e+307, M=1.75556e+305): M/x = (r=0.561779104644474) * 2^(e=-5); i=16, f=1820, fg=f*2^-(e+10)=56.875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=1: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=2: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 j=3: ( 0, 4.04086e+307); ( 0, 4.04086e+307); yl+yh= 4.04086e+307 3. after ADD1(M): yl,yh = ( 0, 4.05841e+307); yl+yh= 4.05841e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.05994e+307); yl+yh= 3.05994e+307 ebd0(x=1e+307, M=2.08772e+305): M/x = (r=0.668071708303066) * 2^(e=-5); i=43, f=1533, fg=f*2^-(e+10)=47.9062 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 3.86925e+307); yl+yh= 3.86925e+307 j=1: ( 0, 3.86925e+307); ( 0, 3.86925e+307); yl+yh= 3.86925e+307 j=2: ( 0, 3.86925e+307); ( 0, 3.86925e+307); yl+yh= 3.86925e+307 j=3: ( 0, 3.86925e+307); ( 0, 3.86925e+307); yl+yh= 3.86925e+307 3. after ADD1(M): yl,yh = ( 0, 3.89012e+307); yl+yh= 3.89012e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.88997e+307); yl+yh= 2.88997e+307 ebd0(x=1e+307, M=2.48274e+305): M/x = (r=0.794475628846029) * 2^(e=-5); i=75, f=1291, fg=f*2^-(e+10)=40.3438 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 3.69744e+307); yl+yh= 3.69744e+307 j=1: ( 0, 3.69744e+307); ( 0, 3.69744e+307); yl+yh= 3.69744e+307 j=2: ( 0, 3.69744e+307); ( 0, 3.69744e+307); yl+yh= 3.69744e+307 j=3: ( 0, 3.69744e+307); ( 0, 3.69744e+307); yl+yh= 3.69744e+307 3. after ADD1(M): yl,yh = ( 0, 3.72227e+307); yl+yh= 3.72227e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.72064e+307); yl+yh= 2.72064e+307 ebd0(x=1e+307, M=2.95249e+305): M/x = (r=0.944796070519959) * 2^(e=-5); i=114, f=1083, fg=f*2^-(e+10)=33.8438 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 3.52175e+307); yl+yh= 3.52175e+307 j=1: ( 0, 3.52175e+307); ( 0, 3.52175e+307); yl+yh= 3.52175e+307 j=2: ( 0, 3.52175e+307); ( 0, 3.52175e+307); yl+yh= 3.52175e+307 j=3: ( 0, 3.52175e+307); ( 0, 3.52175e+307); yl+yh= 3.52175e+307 3. after ADD1(M): yl,yh = ( 0, 3.55128e+307); yl+yh= 3.55128e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.55205e+307); yl+yh= 2.55205e+307 ebd0(x=1e+307, M=3.51112e+305): M/x = (r=0.561779104644474) * 2^(e=-4); i=16, f=1820, fg=f*2^-(e+10)=28.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=1: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=2: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 j=3: ( 0, 3.34771e+307); ( 0, 3.34771e+307); yl+yh= 3.34771e+307 3. after ADD1(M): yl,yh = ( 0, 3.38282e+307); yl+yh= 3.38282e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.38435e+307); yl+yh= 2.38435e+307 ebd0(x=1e+307, M=4.17545e+305): M/x = (r=0.668071708303066) * 2^(e=-4); i=43, f=1533, fg=f*2^-(e+10)=23.9531 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 3.1761e+307); yl+yh= 3.1761e+307 j=1: ( 0, 3.1761e+307); ( 0, 3.1761e+307); yl+yh= 3.1761e+307 j=2: ( 0, 3.1761e+307); ( 0, 3.1761e+307); yl+yh= 3.1761e+307 j=3: ( 0, 3.1761e+307); ( 0, 3.1761e+307); yl+yh= 3.1761e+307 3. after ADD1(M): yl,yh = ( 0, 3.21785e+307); yl+yh= 3.21785e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.2177e+307); yl+yh= 2.2177e+307 ebd0(x=1e+307, M=4.96547e+305): M/x = (r=0.794475628846029) * 2^(e=-4); i=75, f=1291, fg=f*2^-(e+10)=20.1719 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 3.00429e+307); yl+yh= 3.00429e+307 j=1: ( 0, 3.00429e+307); ( 0, 3.00429e+307); yl+yh= 3.00429e+307 j=2: ( 0, 3.00429e+307); ( 0, 3.00429e+307); yl+yh= 3.00429e+307 j=3: ( 0, 3.00429e+307); ( 0, 3.00429e+307); yl+yh= 3.00429e+307 3. after ADD1(M): yl,yh = ( 0, 3.05395e+307); yl+yh= 3.05395e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.05232e+307); yl+yh= 2.05232e+307 ebd0(x=1e+307, M=5.90498e+305): M/x = (r=0.944796070519959) * 2^(e=-4); i=114, f=1083, fg=f*2^-(e+10)=16.9219 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 2.82861e+307); yl+yh= 2.82861e+307 j=1: ( 0, 2.82861e+307); ( 0, 2.82861e+307); yl+yh= 2.82861e+307 j=2: ( 0, 2.82861e+307); ( 0, 2.82861e+307); yl+yh= 2.82861e+307 j=3: ( 0, 2.82861e+307); ( 0, 2.82861e+307); yl+yh= 2.82861e+307 3. after ADD1(M): yl,yh = ( 0, 2.88766e+307); yl+yh= 2.88766e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.88842e+307); yl+yh= 1.88842e+307 ebd0(x=1e+307, M=7.02224e+305): M/x = (r=0.561779104644474) * 2^(e=-3); i=16, f=1820, fg=f*2^-(e+10)=14.2188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=1: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=2: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 j=3: ( 0, 2.65456e+307); ( 0, 2.65456e+307); yl+yh= 2.65456e+307 3. after ADD1(M): yl,yh = ( 0, 2.72479e+307); yl+yh= 2.72479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.72631e+307); yl+yh= 1.72631e+307 ebd0(x=1e+307, M=7.65781e+305): M/x = (r=0.612624457664564) * 2^(e=-3); i=29, f=1670, fg=f*2^-(e+10)=13.0469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.89107e+306); ( 0, 2.56855e+307); yl+yh= 2.56855e+307 j=1: ( 0, 2.56855e+307); ( 0, 2.56855e+307); yl+yh= 2.56855e+307 j=2: ( 0, 2.56855e+307); ( 0, 2.56855e+307); yl+yh= 2.56855e+307 j=3: ( 0, 2.56855e+307); ( 0, 2.56855e+307); yl+yh= 2.56855e+307 3. after ADD1(M): yl,yh = ( 0, 2.64513e+307); yl+yh= 2.64513e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.64602e+307); yl+yh= 1.64602e+307 ebd0(x=1e+307, M=7.99685e+305): M/x = (r=0.639747659612917) * 2^(e=-3); i=36, f=1598, fg=f*2^-(e+10)=12.4844 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.45038e+306); ( 0, 2.52448e+307); yl+yh= 2.52448e+307 j=1: ( 0, 2.52448e+307); ( 0, 2.52448e+307); yl+yh= 2.52448e+307 j=2: ( 0, 2.52448e+307); ( 0, 2.52448e+307); yl+yh= 2.52448e+307 j=3: ( 0, 2.52448e+307); ( 0, 2.52448e+307); yl+yh= 2.52448e+307 3. after ADD1(M): yl,yh = ( 0, 2.60445e+307); yl+yh= 2.60445e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.60609e+307); yl+yh= 1.60609e+307 ebd0(x=1e+307, M=8.3509e+305): M/x = (r=0.668071708303066) * 2^(e=-3); i=43, f=1533, fg=f*2^-(e+10)=11.9766 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 2.48295e+307); yl+yh= 2.48295e+307 j=1: ( 0, 2.48295e+307); ( 0, 2.48295e+307); yl+yh= 2.48295e+307 j=2: ( 0, 2.48295e+307); ( 0, 2.48295e+307); yl+yh= 2.48295e+307 j=3: ( 0, 2.48295e+307); ( 0, 2.48295e+307); yl+yh= 2.48295e+307 3. after ADD1(M): yl,yh = ( 0, 2.56646e+307); yl+yh= 2.56646e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.56631e+307); yl+yh= 1.56631e+307 ebd0(x=1e+307, M=8.72062e+305): M/x = (r=0.697649769762387) * 2^(e=-3); i=51, f=1464, fg=f*2^-(e+10)=11.4375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.57459e+306); ( 0, 2.4369e+307); yl+yh= 2.4369e+307 j=1: ( 0, 2.4369e+307); ( 0, 2.4369e+307); yl+yh= 2.4369e+307 j=2: ( 0, 2.4369e+307); ( 0, 2.4369e+307); yl+yh= 2.4369e+307 j=3: ( 0, 2.4369e+307); ( 0, 2.4369e+307); yl+yh= 2.4369e+307 3. after ADD1(M): yl,yh = ( 0, 2.52411e+307); yl+yh= 2.52411e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.52669e+307); yl+yh= 1.52669e+307 ebd0(x=1e+307, M=9.10672e+305): M/x = (r=0.728537363879382) * 2^(e=-3); i=59, f=1402, fg=f*2^-(e+10)=10.9531 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.14186e+306); ( 0, 2.39363e+307); yl+yh= 2.39363e+307 j=1: ( 0, 2.39363e+307); ( 0, 2.39363e+307); yl+yh= 2.39363e+307 j=2: ( 0, 2.39363e+307); ( 0, 2.39363e+307); yl+yh= 2.39363e+307 j=3: ( 0, 2.39363e+307); ( 0, 2.39363e+307); yl+yh= 2.39363e+307 3. after ADD1(M): yl,yh = ( 0, 2.4847e+307); yl+yh= 2.4847e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.48723e+307); yl+yh= 1.48723e+307 ebd0(x=1e+307, M=9.50991e+305): M/x = (r=0.76079246861802) * 2^(e=-3); i=67, f=1344, fg=f*2^-(e+10)=10.5 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.71935e+306); ( 0, 2.35138e+307); yl+yh= 2.35138e+307 j=1: ( 0, 2.35138e+307); ( 0, 2.35138e+307); yl+yh= 2.35138e+307 j=2: ( 0, 2.35138e+307); ( 0, 2.35138e+307); yl+yh= 2.35138e+307 j=3: ( 0, 2.35138e+307); ( 0, 2.35138e+307); yl+yh= 2.35138e+307 3. after ADD1(M): yl,yh = ( 0, 2.44648e+307); yl+yh= 2.44648e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.44794e+307); yl+yh= 1.44794e+307 ebd0(x=1e+307, M=9.93095e+305): M/x = (r=0.794475628846029) * 2^(e=-3); i=75, f=1291, fg=f*2^-(e+10)=10.0859 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 2.31114e+307); yl+yh= 2.31114e+307 j=1: ( 0, 2.31114e+307); ( 0, 2.31114e+307); yl+yh= 2.31114e+307 j=2: ( 0, 2.31114e+307); ( 0, 2.31114e+307); yl+yh= 2.31114e+307 j=3: ( 0, 2.31114e+307); ( 0, 2.31114e+307); yl+yh= 2.31114e+307 3. after ADD1(M): yl,yh = ( 0, 2.41045e+307); yl+yh= 2.41045e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.40882e+307); yl+yh= 1.40882e+307 ebd0(x=1e+307, M=1.03706e+306): M/x = (r=0.829650069981441) * 2^(e=-3); i=84, f=1237, fg=f*2^-(e+10)=9.66406 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.88975e+306); ( 0, 2.26842e+307); yl+yh= 2.26842e+307 j=1: ( 0, 2.26842e+307); ( 0, 2.26842e+307); yl+yh= 2.26842e+307 j=2: ( 0, 2.26842e+307); ( 0, 2.26842e+307); yl+yh= 2.26842e+307 j=3: ( 0, 2.26842e+307); ( 0, 2.26842e+307); yl+yh= 2.26842e+307 3. after ADD1(M): yl,yh = ( 0, 2.37212e+307); yl+yh= 2.37212e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.3699e+307); yl+yh= 1.3699e+307 ebd0(x=1e+307, M=1.08298e+306): M/x = (r=0.866381816670688) * 2^(e=-3); i=94, f=1181, fg=f*2^-(e+10)=9.22656 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.42645e+306); ( 0, 2.22209e+307); yl+yh= 2.22209e+307 j=1: ( 0, 2.22209e+307); ( 0, 2.22209e+307); yl+yh= 2.22209e+307 j=2: ( 0, 2.22209e+307); ( 0, 2.22209e+307); yl+yh= 2.22209e+307 j=3: ( 0, 2.22209e+307); ( 0, 2.22209e+307); yl+yh= 2.22209e+307 3. after ADD1(M): yl,yh = ( 0, 2.33038e+307); yl+yh= 2.33038e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.33117e+307); yl+yh= 1.33117e+307 ebd0(x=1e+307, M=1.13092e+306): M/x = (r=0.904739816721033) * 2^(e=-3); i=104, f=1130, fg=f*2^-(e+10)=8.82812 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 9.85024e+305); ( 0, 2.17794e+307); yl+yh= 2.17794e+307 j=1: ( 0, 2.17794e+307); ( 0, 2.17794e+307); yl+yh= 2.17794e+307 j=2: ( 0, 2.17794e+307); ( 0, 2.17794e+307); yl+yh= 2.17794e+307 j=3: ( 0, 2.17794e+307); ( 0, 2.17794e+307); yl+yh= 2.17794e+307 3. after ADD1(M): yl,yh = ( 0, 2.29104e+307); yl+yh= 2.29104e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.29264e+307); yl+yh= 1.29264e+307 ebd0(x=1e+307, M=1.181e+306): M/x = (r=0.944796070519959) * 2^(e=-3); i=114, f=1083, fg=f*2^-(e+10)=8.46094 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 2.13546e+307); yl+yh= 2.13546e+307 j=1: ( 0, 2.13546e+307); ( 0, 2.13546e+307); yl+yh= 2.13546e+307 j=2: ( 0, 2.13546e+307); ( 0, 2.13546e+307); yl+yh= 2.13546e+307 j=3: ( 0, 2.13546e+307); ( 0, 2.13546e+307); yl+yh= 2.13546e+307 3. after ADD1(M): yl,yh = ( 0, 2.25356e+307); yl+yh= 2.25356e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.25433e+307); yl+yh= 1.25433e+307 ebd0(x=1e+307, M=1.23328e+306): M/x = (r=0.986625766184435) * 2^(e=-3); i=125, f=1036, fg=f*2^-(e+10)=8.09375 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.16523e+305); ( 0, 2.09109e+307); yl+yh= 2.09109e+307 j=1: ( 0, 2.09109e+307); ( 0, 2.09109e+307); yl+yh= 2.09109e+307 j=2: ( 0, 2.09109e+307); ( 0, 2.09109e+307); yl+yh= 2.09109e+307 j=3: ( 0, 2.09109e+307); ( 0, 2.09109e+307); yl+yh= 2.09109e+307 3. after ADD1(M): yl,yh = ( 0, 2.21442e+307); yl+yh= 2.21442e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.21623e+307); yl+yh= 1.21623e+307 ebd0(x=1e+307, M=1.28788e+306): M/x = (r=0.515153710346883) * 2^(e=-2); i=4, f=1986, fg=f*2^-(e+10)=7.75781 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.62406e+306); ( 0, 2.0487e+307); yl+yh= 2.0487e+307 j=1: ( 0, 2.0487e+307); ( 0, 2.0487e+307); yl+yh= 2.0487e+307 j=2: ( 0, 2.0487e+307); ( 0, 2.0487e+307); yl+yh= 2.0487e+307 j=3: ( 0, 2.0487e+307); ( 0, 2.0487e+307); yl+yh= 2.0487e+307 3. after ADD1(M): yl,yh = ( 0, 2.17749e+307); yl+yh= 2.17749e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.17837e+307); yl+yh= 1.17837e+307 ebd0(x=1e+307, M=1.3449e+306): M/x = (r=0.537961513635455) * 2^(e=-2); i=10, f=1900, fg=f*2^-(e+10)=7.42188 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.18139e+306); ( 0, 2.00443e+307); yl+yh= 2.00443e+307 j=1: ( 0, 2.00443e+307); ( 0, 2.00443e+307); yl+yh= 2.00443e+307 j=2: ( 0, 2.00443e+307); ( 0, 2.00443e+307); yl+yh= 2.00443e+307 j=3: ( 0, 2.00443e+307); ( 0, 2.00443e+307); yl+yh= 2.00443e+307 3. after ADD1(M): yl,yh = ( 0, 2.13892e+307); yl+yh= 2.13892e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.14075e+307); yl+yh= 1.14075e+307 ebd0(x=1e+307, M=1.40445e+306): M/x = (r=0.561779104644474) * 2^(e=-2); i=16, f=1820, fg=f*2^-(e+10)=7.10938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=1: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=2: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 j=3: ( 0, 1.96142e+307); ( 0, 1.96142e+307); yl+yh= 1.96142e+307 3. after ADD1(M): yl,yh = ( 0, 2.10186e+307); yl+yh= 2.10186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.10339e+307); yl+yh= 1.10339e+307 ebd0(x=1e+307, M=1.46663e+306): M/x = (r=0.58665119049577) * 2^(e=-2); i=22, f=1748, fg=f*2^-(e+10)=6.82812 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.34757e+306); ( 0, 1.92105e+307); yl+yh= 1.92105e+307 j=1: ( 0, 1.92105e+307); ( 0, 1.92105e+307); yl+yh= 1.92105e+307 j=2: ( 0, 1.92105e+307); ( 0, 1.92105e+307); yl+yh= 1.92105e+307 j=3: ( 0, 1.92105e+307); ( 0, 1.92105e+307); yl+yh= 1.92105e+307 3. after ADD1(M): yl,yh = ( 0, 2.06771e+307); yl+yh= 2.06771e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.06628e+307); yl+yh= 1.06628e+307 ebd0(x=1e+307, M=1.53156e+306): M/x = (r=0.612624457664564) * 2^(e=-2); i=29, f=1670, fg=f*2^-(e+10)=6.52344 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.89107e+306); ( 0, 1.8754e+307); yl+yh= 1.8754e+307 j=1: ( 0, 1.8754e+307); ( 0, 1.8754e+307); yl+yh= 1.8754e+307 j=2: ( 0, 1.8754e+307); ( 0, 1.8754e+307); yl+yh= 1.8754e+307 j=3: ( 0, 1.8754e+307); ( 0, 1.8754e+307); yl+yh= 1.8754e+307 3. after ADD1(M): yl,yh = ( 0, 2.02856e+307); yl+yh= 2.02856e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.02945e+307); yl+yh= 1.02945e+307 ebd0(x=1e+307, M=1.59937e+306): M/x = (r=0.639747659612917) * 2^(e=-2); i=36, f=1598, fg=f*2^-(e+10)=6.24219 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.45038e+306); ( 0, 1.83133e+307); yl+yh= 1.83133e+307 j=1: ( 0, 1.83133e+307); ( 0, 1.83133e+307); yl+yh= 1.83133e+307 j=2: ( 0, 1.83133e+307); ( 0, 1.83133e+307); yl+yh= 1.83133e+307 j=3: ( 0, 1.83133e+307); ( 0, 1.83133e+307); yl+yh= 1.83133e+307 3. after ADD1(M): yl,yh = ( 0, 1.99127e+307); yl+yh= 1.99127e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.92913e+306); yl+yh= 9.92913e+306 ebd0(x=1e+307, M=1.67018e+306): M/x = (r=0.668071708303066) * 2^(e=-2); i=43, f=1533, fg=f*2^-(e+10)=5.98828 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.7898e+307); yl+yh= 1.7898e+307 j=1: ( 0, 1.7898e+307); ( 0, 1.7898e+307); yl+yh= 1.7898e+307 j=2: ( 0, 1.7898e+307); ( 0, 1.7898e+307); yl+yh= 1.7898e+307 j=3: ( 0, 1.7898e+307); ( 0, 1.7898e+307); yl+yh= 1.7898e+307 3. after ADD1(M): yl,yh = ( 0, 1.95682e+307); yl+yh= 1.95682e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.56672e+306); yl+yh= 9.56672e+306 ebd0(x=1e+307, M=1.74412e+306): M/x = (r=0.697649769762387) * 2^(e=-2); i=51, f=1464, fg=f*2^-(e+10)=5.71875 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.57459e+306); ( 0, 1.74375e+307); yl+yh= 1.74375e+307 j=1: ( 0, 1.74375e+307); ( 0, 1.74375e+307); yl+yh= 1.74375e+307 j=2: ( 0, 1.74375e+307); ( 0, 1.74375e+307); yl+yh= 1.74375e+307 j=3: ( 0, 1.74375e+307); ( 0, 1.74375e+307); yl+yh= 1.74375e+307 3. after ADD1(M): yl,yh = ( 0, 1.91817e+307); yl+yh= 1.91817e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.20745e+306); yl+yh= 9.20745e+306 ebd0(x=1e+307, M=1.82134e+306): M/x = (r=0.728537363879382) * 2^(e=-2); i=59, f=1402, fg=f*2^-(e+10)=5.47656 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.14186e+306); ( 0, 1.70048e+307); yl+yh= 1.70048e+307 j=1: ( 0, 1.70048e+307); ( 0, 1.70048e+307); yl+yh= 1.70048e+307 j=2: ( 0, 1.70048e+307); ( 0, 1.70048e+307); yl+yh= 1.70048e+307 j=3: ( 0, 1.70048e+307); ( 0, 1.70048e+307); yl+yh= 1.70048e+307 3. after ADD1(M): yl,yh = ( 0, 1.88262e+307); yl+yh= 1.88262e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.85145e+306); yl+yh= 8.85145e+306 ebd0(x=1e+307, M=1.90198e+306): M/x = (r=0.76079246861802) * 2^(e=-2); i=67, f=1344, fg=f*2^-(e+10)=5.25 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.71935e+306); ( 0, 1.65823e+307); yl+yh= 1.65823e+307 j=1: ( 0, 1.65823e+307); ( 0, 1.65823e+307); yl+yh= 1.65823e+307 j=2: ( 0, 1.65823e+307); ( 0, 1.65823e+307); yl+yh= 1.65823e+307 j=3: ( 0, 1.65823e+307); ( 0, 1.65823e+307); yl+yh= 1.65823e+307 3. after ADD1(M): yl,yh = ( 0, 1.84843e+307); yl+yh= 1.84843e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.49887e+306); yl+yh= 8.49887e+306 ebd0(x=1e+307, M=1.98619e+306): M/x = (r=0.794475628846029) * 2^(e=-2); i=75, f=1291, fg=f*2^-(e+10)=5.04297 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 1.618e+307); yl+yh= 1.618e+307 j=1: ( 0, 1.618e+307); ( 0, 1.618e+307); yl+yh= 1.618e+307 j=2: ( 0, 1.618e+307); ( 0, 1.618e+307); yl+yh= 1.618e+307 j=3: ( 0, 1.618e+307); ( 0, 1.618e+307); yl+yh= 1.618e+307 3. after ADD1(M): yl,yh = ( 0, 1.81662e+307); yl+yh= 1.81662e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.14986e+306); yl+yh= 8.14986e+306 ebd0(x=1e+307, M=2.07413e+306): M/x = (r=0.829650069981441) * 2^(e=-2); i=84, f=1237, fg=f*2^-(e+10)=4.83203 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.88975e+306); ( 0, 1.57527e+307); yl+yh= 1.57527e+307 j=1: ( 0, 1.57527e+307); ( 0, 1.57527e+307); yl+yh= 1.57527e+307 j=2: ( 0, 1.57527e+307); ( 0, 1.57527e+307); yl+yh= 1.57527e+307 j=3: ( 0, 1.57527e+307); ( 0, 1.57527e+307); yl+yh= 1.57527e+307 3. after ADD1(M): yl,yh = ( 0, 1.78268e+307); yl+yh= 1.78268e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.80458e+306); yl+yh= 7.80458e+306 ebd0(x=1e+307, M=2.16595e+306): M/x = (r=0.866381816670688) * 2^(e=-2); i=94, f=1181, fg=f*2^-(e+10)=4.61328 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.42645e+306); ( 0, 1.52894e+307); yl+yh= 1.52894e+307 j=1: ( 0, 1.52894e+307); ( 0, 1.52894e+307); yl+yh= 1.52894e+307 j=2: ( 0, 1.52894e+307); ( 0, 1.52894e+307); yl+yh= 1.52894e+307 j=3: ( 0, 1.52894e+307); ( 0, 1.52894e+307); yl+yh= 1.52894e+307 3. after ADD1(M): yl,yh = ( 0, 1.74554e+307); yl+yh= 1.74554e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.46319e+306); yl+yh= 7.46319e+306 ebd0(x=1e+307, M=2.26185e+306): M/x = (r=0.904739816721033) * 2^(e=-2); i=104, f=1130, fg=f*2^-(e+10)=4.41406 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 9.85024e+305); ( 0, 1.4848e+307); yl+yh= 1.4848e+307 j=1: ( 0, 1.4848e+307); ( 0, 1.4848e+307); yl+yh= 1.4848e+307 j=2: ( 0, 1.4848e+307); ( 0, 1.4848e+307); yl+yh= 1.4848e+307 j=3: ( 0, 1.4848e+307); ( 0, 1.4848e+307); yl+yh= 1.4848e+307 3. after ADD1(M): yl,yh = ( 0, 1.71098e+307); yl+yh= 1.71098e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.12587e+306); yl+yh= 7.12587e+306 ebd0(x=1e+307, M=2.36199e+306): M/x = (r=0.944796070519959) * 2^(e=-2); i=114, f=1083, fg=f*2^-(e+10)=4.23047 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 1.44231e+307); yl+yh= 1.44231e+307 j=1: ( 0, 1.44231e+307); ( 0, 1.44231e+307); yl+yh= 1.44231e+307 j=2: ( 0, 1.44231e+307); ( 0, 1.44231e+307); yl+yh= 1.44231e+307 j=3: ( 0, 1.44231e+307); ( 0, 1.44231e+307); yl+yh= 1.44231e+307 3. after ADD1(M): yl,yh = ( 0, 1.67851e+307); yl+yh= 1.67851e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.7928e+306); yl+yh= 6.7928e+306 ebd0(x=1e+307, M=2.46656e+306): M/x = (r=0.986625766184435) * 2^(e=-2); i=125, f=1036, fg=f*2^-(e+10)=4.04688 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.16523e+305); ( 0, 1.39795e+307); yl+yh= 1.39795e+307 j=1: ( 0, 1.39795e+307); ( 0, 1.39795e+307); yl+yh= 1.39795e+307 j=2: ( 0, 1.39795e+307); ( 0, 1.39795e+307); yl+yh= 1.39795e+307 j=3: ( 0, 1.39795e+307); ( 0, 1.39795e+307); yl+yh= 1.39795e+307 3. after ADD1(M): yl,yh = ( 0, 1.6446e+307); yl+yh= 1.6446e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.46415e+306); yl+yh= 6.46415e+306 ebd0(x=1e+307, M=2.57577e+306): M/x = (r=0.515153710346883) * 2^(e=-1); i=4, f=1986, fg=f*2^-(e+10)=3.87891 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.62406e+306); ( 0, 1.35555e+307); yl+yh= 1.35555e+307 j=1: ( 0, 1.35555e+307); ( 0, 1.35555e+307); yl+yh= 1.35555e+307 j=2: ( 0, 1.35555e+307); ( 0, 1.35555e+307); yl+yh= 1.35555e+307 j=3: ( 0, 1.35555e+307); ( 0, 1.35555e+307); yl+yh= 1.35555e+307 3. after ADD1(M): yl,yh = ( 0, 1.61313e+307); yl+yh= 1.61313e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.14014e+306); yl+yh= 6.14014e+306 ebd0(x=1e+307, M=2.68981e+306): M/x = (r=0.537961513635455) * 2^(e=-1); i=10, f=1900, fg=f*2^-(e+10)=3.71094 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.18139e+306); ( 0, 1.31129e+307); yl+yh= 1.31129e+307 j=1: ( 0, 1.31129e+307); ( 0, 1.31129e+307); yl+yh= 1.31129e+307 j=2: ( 0, 1.31129e+307); ( 0, 1.31129e+307); yl+yh= 1.31129e+307 j=3: ( 0, 1.31129e+307); ( 0, 1.31129e+307); yl+yh= 1.31129e+307 3. after ADD1(M): yl,yh = ( 0, 1.58027e+307); yl+yh= 1.58027e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.82096e+306); yl+yh= 5.82096e+306 ebd0(x=1e+307, M=2.8089e+306): M/x = (r=0.561779104644474) * 2^(e=-1); i=16, f=1820, fg=f*2^-(e+10)=3.55469 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=1: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=2: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 j=3: ( 0, 1.26827e+307); ( 0, 1.26827e+307); yl+yh= 1.26827e+307 3. after ADD1(M): yl,yh = ( 0, 1.54916e+307); yl+yh= 1.54916e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.50683e+306); yl+yh= 5.50683e+306 ebd0(x=1e+307, M=2.93326e+306): M/x = (r=0.58665119049577) * 2^(e=-1); i=22, f=1748, fg=f*2^-(e+10)=3.41406 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.34757e+306); ( 0, 1.2279e+307); yl+yh= 1.2279e+307 j=1: ( 0, 1.2279e+307); ( 0, 1.2279e+307); yl+yh= 1.2279e+307 j=2: ( 0, 1.2279e+307); ( 0, 1.2279e+307); yl+yh= 1.2279e+307 j=3: ( 0, 1.2279e+307); ( 0, 1.2279e+307); yl+yh= 1.2279e+307 3. after ADD1(M): yl,yh = ( 0, 1.52123e+307); yl+yh= 1.52123e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.19798e+306); yl+yh= 5.19798e+306 ebd0(x=1e+307, M=3.06312e+306): M/x = (r=0.612624457664564) * 2^(e=-1); i=29, f=1670, fg=f*2^-(e+10)=3.26172 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.89107e+306); ( 0, 1.18225e+307); yl+yh= 1.18225e+307 j=1: ( 0, 1.18225e+307); ( 0, 1.18225e+307); yl+yh= 1.18225e+307 j=2: ( 0, 1.18225e+307); ( 0, 1.18225e+307); yl+yh= 1.18225e+307 j=3: ( 0, 1.18225e+307); ( 0, 1.18225e+307); yl+yh= 1.18225e+307 3. after ADD1(M): yl,yh = ( 0, 1.48857e+307); yl+yh= 1.48857e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.89463e+306); yl+yh= 4.89463e+306 ebd0(x=1e+307, M=3.19874e+306): M/x = (r=0.639747659612917) * 2^(e=-1); i=36, f=1598, fg=f*2^-(e+10)=3.12109 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.45038e+306); ( 0, 1.13818e+307); yl+yh= 1.13818e+307 j=1: ( 0, 1.13818e+307); ( 0, 1.13818e+307); yl+yh= 1.13818e+307 j=2: ( 0, 1.13818e+307); ( 0, 1.13818e+307); yl+yh= 1.13818e+307 j=3: ( 0, 1.13818e+307); ( 0, 1.13818e+307); yl+yh= 1.13818e+307 3. after ADD1(M): yl,yh = ( 0, 1.45806e+307); yl+yh= 1.45806e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.59702e+306); yl+yh= 4.59702e+306 ebd0(x=1e+307, M=3.34036e+306): M/x = (r=0.668071708303066) * 2^(e=-1); i=43, f=1533, fg=f*2^-(e+10)=2.99414 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 1.09666e+307); yl+yh= 1.09666e+307 j=1: ( 0, 1.09666e+307); ( 0, 1.09666e+307); yl+yh= 1.09666e+307 j=2: ( 0, 1.09666e+307); ( 0, 1.09666e+307); yl+yh= 1.09666e+307 j=3: ( 0, 1.09666e+307); ( 0, 1.09666e+307); yl+yh= 1.09666e+307 3. after ADD1(M): yl,yh = ( 0, 1.43069e+307); yl+yh= 1.43069e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.30543e+306); yl+yh= 4.30543e+306 ebd0(x=1e+307, M=3.48825e+306): M/x = (r=0.697649769762387) * 2^(e=-1); i=51, f=1464, fg=f*2^-(e+10)=2.85938 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.57459e+306); ( 0, 1.05061e+307); yl+yh= 1.05061e+307 j=1: ( 0, 1.05061e+307); ( 0, 1.05061e+307); yl+yh= 1.05061e+307 j=2: ( 0, 1.05061e+307); ( 0, 1.05061e+307); yl+yh= 1.05061e+307 j=3: ( 0, 1.05061e+307); ( 0, 1.05061e+307); yl+yh= 1.05061e+307 3. after ADD1(M): yl,yh = ( 0, 1.39943e+307); yl+yh= 1.39943e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.0201e+306); yl+yh= 4.0201e+306 ebd0(x=1e+307, M=3.64269e+306): M/x = (r=0.728537363879382) * 2^(e=-1); i=59, f=1402, fg=f*2^-(e+10)=2.73828 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.14186e+306); ( 0, 1.00733e+307); yl+yh= 1.00733e+307 j=1: ( 0, 1.00733e+307); ( 0, 1.00733e+307); yl+yh= 1.00733e+307 j=2: ( 0, 1.00733e+307); ( 0, 1.00733e+307); yl+yh= 1.00733e+307 j=3: ( 0, 1.00733e+307); ( 0, 1.00733e+307); yl+yh= 1.00733e+307 3. after ADD1(M): yl,yh = ( 0, 1.3716e+307); yl+yh= 1.3716e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.74132e+306); yl+yh= 3.74132e+306 ebd0(x=1e+307, M=3.80396e+306): M/x = (r=0.76079246861802) * 2^(e=-1); i=67, f=1344, fg=f*2^-(e+10)=2.625 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.71935e+306); ( 0, 9.65082e+306); yl+yh= 9.65082e+306 j=1: ( 0, 9.65082e+306); ( 0, 9.65082e+306); yl+yh= 9.65082e+306 j=2: ( 0, 9.65082e+306); ( 0, 9.65082e+306); yl+yh= 9.65082e+306 j=3: ( 0, 9.65082e+306); ( 0, 9.65082e+306); yl+yh= 9.65082e+306 3. after ADD1(M): yl,yh = ( 0, 1.34548e+307); yl+yh= 1.34548e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.46938e+306); yl+yh= 3.46938e+306 ebd0(x=1e+307, M=3.97238e+306): M/x = (r=0.794475628846029) * 2^(e=-1); i=75, f=1291, fg=f*2^-(e+10)=2.52148 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 9.24849e+306); yl+yh= 9.24849e+306 j=1: ( 0, 9.24849e+306); ( 0, 9.24849e+306); yl+yh= 9.24849e+306 j=2: ( 0, 9.24849e+306); ( 0, 9.24849e+306); yl+yh= 9.24849e+306 j=3: ( 0, 9.24849e+306); ( 0, 9.24849e+306); yl+yh= 9.24849e+306 3. after ADD1(M): yl,yh = ( 0, 1.32209e+307); yl+yh= 1.32209e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.20458e+306); yl+yh= 3.20458e+306 ebd0(x=1e+307, M=4.14825e+306): M/x = (r=0.829650069981441) * 2^(e=-1); i=84, f=1237, fg=f*2^-(e+10)=2.41602 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.88975e+306); ( 0, 8.82122e+306); yl+yh= 8.82122e+306 j=1: ( 0, 8.82122e+306); ( 0, 8.82122e+306); yl+yh= 8.82122e+306 j=2: ( 0, 8.82122e+306); ( 0, 8.82122e+306); yl+yh= 8.82122e+306 j=3: ( 0, 8.82122e+306); ( 0, 8.82122e+306); yl+yh= 8.82122e+306 3. after ADD1(M): yl,yh = ( 0, 1.29695e+307); yl+yh= 1.29695e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.94723e+306); yl+yh= 2.94723e+306 ebd0(x=1e+307, M=4.33191e+306): M/x = (r=0.866381816670688) * 2^(e=-1); i=94, f=1181, fg=f*2^-(e+10)=2.30664 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.42645e+306); ( 0, 8.35792e+306); yl+yh= 8.35792e+306 j=1: ( 0, 8.35793e+306); ( 0, 8.35792e+306); yl+yh= 8.35792e+306 j=2: ( 0, 8.35792e+306); ( 0, 8.35792e+306); yl+yh= 8.35792e+306 j=3: ( 0, 8.35792e+306); ( 0, 8.35792e+306); yl+yh= 8.35792e+306 3. after ADD1(M): yl,yh = ( 0, 1.26898e+307); yl+yh= 1.26898e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.69768e+306); yl+yh= 2.69768e+306 ebd0(x=1e+307, M=4.5237e+306): M/x = (r=0.904739816721033) * 2^(e=-1); i=104, f=1130, fg=f*2^-(e+10)=2.20703 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 9.85024e+305); ( 0, 7.9165e+306); yl+yh= 7.9165e+306 j=1: ( 0, 7.9165e+306); ( 0, 7.9165e+306); yl+yh= 7.9165e+306 j=2: ( 0, 7.9165e+306); ( 0, 7.9165e+306); yl+yh= 7.9165e+306 j=3: ( 0, 7.9165e+306); ( 0, 7.9165e+306); yl+yh= 7.9165e+306 3. after ADD1(M): yl,yh = ( 0, 1.24402e+307); yl+yh= 1.24402e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.45625e+306); yl+yh= 2.45625e+306 ebd0(x=1e+307, M=4.72398e+306): M/x = (r=0.944796070519959) * 2^(e=-1); i=114, f=1083, fg=f*2^-(e+10)=2.11523 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 7.49166e+306); yl+yh= 7.49166e+306 j=1: ( 0, 7.49166e+306); ( 0, 7.49166e+306); yl+yh= 7.49166e+306 j=2: ( 0, 7.49166e+306); ( 0, 7.49166e+306); yl+yh= 7.49166e+306 j=3: ( 0, 7.49166e+306); ( 0, 7.49166e+306); yl+yh= 7.49166e+306 3. after ADD1(M): yl,yh = ( 0, 1.22156e+307); yl+yh= 1.22156e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.22331e+306); yl+yh= 2.22331e+306 ebd0(x=1e+307, M=4.93313e+306): M/x = (r=0.986625766184435) * 2^(e=-1); i=125, f=1036, fg=f*2^-(e+10)=2.02344 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.16523e+305); ( 0, 7.04799e+306); yl+yh= 7.04799e+306 j=1: ( 0, 7.04799e+306); ( 0, 7.04799e+306); yl+yh= 7.04799e+306 j=2: ( 0, 7.04799e+306); ( 0, 7.04799e+306); yl+yh= 7.04799e+306 j=3: ( 0, 7.04799e+306); ( 0, 7.04799e+306); yl+yh= 7.04799e+306 3. after ADD1(M): yl,yh = ( 0, 1.19811e+307); yl+yh= 1.19811e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99925e+306); yl+yh= 1.99925e+306 ebd0(x=1e+307, M=5.15154e+306): M/x = (r=0.515153710346883) * 2^(e=0); i=4, f=1986, fg=f*2^-(e+10)=1.93945 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.62406e+306); ( 0, 6.62406e+306); yl+yh= 6.62406e+306 j=1: ( 0, 6.62406e+306); ( 0, 6.62406e+306); yl+yh= 6.62406e+306 j=2: ( 0, 6.62406e+306); ( 0, 6.62406e+306); yl+yh= 6.62406e+306 j=3: ( 0, 6.62406e+306); ( 0, 6.62406e+306); yl+yh= 6.62406e+306 3. after ADD1(M): yl,yh = ( 0, 1.17756e+307); yl+yh= 1.17756e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.78444e+306); yl+yh= 1.78444e+306 ebd0(x=1e+307, M=5.37962e+306): M/x = (r=0.537961513635455) * 2^(e=0); i=10, f=1900, fg=f*2^-(e+10)=1.85547 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.18139e+306); ( 0, 6.18139e+306); yl+yh= 6.18139e+306 j=1: ( 0, 6.18139e+306); ( 0, 6.18139e+306); yl+yh= 6.18139e+306 j=2: ( 0, 6.18139e+306); ( 0, 6.18139e+306); yl+yh= 6.18139e+306 j=3: ( 0, 6.18139e+306); ( 0, 6.18139e+306); yl+yh= 6.18139e+306 3. after ADD1(M): yl,yh = ( 0, 1.1561e+307); yl+yh= 1.1561e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.5793e+306); yl+yh= 1.5793e+306 ebd0(x=1e+307, M=5.61779e+306): M/x = (r=0.561779104644474) * 2^(e=0); i=16, f=1820, fg=f*2^-(e+10)=1.77734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=1: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=2: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 j=3: ( 0, 5.75121e+306); ( 0, 5.75121e+306); yl+yh= 5.75121e+306 3. after ADD1(M): yl,yh = ( 0, 1.1369e+307); yl+yh= 1.1369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.38426e+306); yl+yh= 1.38426e+306 ebd0(x=1e+307, M=5.86651e+306): M/x = (r=0.58665119049577) * 2^(e=0); i=22, f=1748, fg=f*2^-(e+10)=1.70703 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.34757e+306); ( 0, 5.34757e+306); yl+yh= 5.34757e+306 j=1: ( 0, 5.34757e+306); ( 0, 5.34757e+306); yl+yh= 5.34757e+306 j=2: ( 0, 5.34757e+306); ( 0, 5.34757e+306); yl+yh= 5.34757e+306 j=3: ( 0, 5.34757e+306); ( 0, 5.34757e+306); yl+yh= 5.34757e+306 3. after ADD1(M): yl,yh = ( 0, 1.12141e+307); yl+yh= 1.12141e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.19976e+306); yl+yh= 1.19976e+306 ebd0(x=1e+307, M=6.12624e+306): M/x = (r=0.612624457664564) * 2^(e=0); i=29, f=1670, fg=f*2^-(e+10)=1.63086 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.89107e+306); ( 0, 4.89107e+306); yl+yh= 4.89107e+306 j=1: ( 0, 4.89108e+306); ( 0, 4.89108e+306); yl+yh= 4.89108e+306 j=2: ( 0, 4.89108e+306); ( 0, 4.89108e+306); yl+yh= 4.89108e+306 j=3: ( 0, 4.89108e+306); ( 0, 4.89108e+306); yl+yh= 4.89108e+306 3. after ADD1(M): yl,yh = ( 0, 1.10173e+307); yl+yh= 1.10173e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.02628e+306); yl+yh= 1.02628e+306 ebd0(x=1e+307, M=6.39748e+306): M/x = (r=0.639747659612917) * 2^(e=0); i=36, f=1598, fg=f*2^-(e+10)=1.56055 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.45038e+306); ( 0, 4.45038e+306); yl+yh= 4.45038e+306 j=1: ( 0, 4.45038e+306); ( 0, 4.45038e+306); yl+yh= 4.45038e+306 j=2: ( 0, 4.45038e+306); ( 0, 4.45038e+306); yl+yh= 4.45038e+306 j=3: ( 0, 4.45038e+306); ( 0, 4.45038e+306); yl+yh= 4.45038e+306 3. after ADD1(M): yl,yh = ( 0, 1.08479e+307); yl+yh= 1.08479e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.64291e+305); yl+yh= 8.64291e+305 ebd0(x=1e+307, M=6.68072e+306): M/x = (r=0.668071708303066) * 2^(e=0); i=43, f=1533, fg=f*2^-(e+10)=1.49707 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, 4.0351e+306); yl+yh= 4.0351e+306 j=1: ( 0, 4.0351e+306); ( 0, 4.0351e+306); yl+yh= 4.0351e+306 j=2: ( 0, 4.0351e+306); ( 0, 4.0351e+306); yl+yh= 4.0351e+306 j=3: ( 0, 4.0351e+306); ( 0, 4.0351e+306); yl+yh= 4.0351e+306 3. after ADD1(M): yl,yh = ( 0, 1.07158e+307); yl+yh= 1.07158e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.14315e+305); yl+yh= 7.14315e+305 ebd0(x=1e+307, M=6.9765e+306): M/x = (r=0.697649769762387) * 2^(e=0); i=51, f=1464, fg=f*2^-(e+10)=1.42969 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.57459e+306); ( 0, 3.57459e+306); yl+yh= 3.57459e+306 j=1: ( 0, 3.57459e+306); ( 0, 3.57459e+306); yl+yh= 3.57459e+306 j=2: ( 0, 3.57459e+306); ( 0, 3.57459e+306); yl+yh= 3.57459e+306 j=3: ( 0, 3.57459e+306); ( 0, 3.57459e+306); yl+yh= 3.57459e+306 3. after ADD1(M): yl,yh = ( 0, 1.05511e+307); yl+yh= 1.05511e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.76878e+305); yl+yh= 5.76878e+305 ebd0(x=1e+307, M=7.28537e+306): M/x = (r=0.728537363879382) * 2^(e=0); i=59, f=1402, fg=f*2^-(e+10)=1.36914 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.14186e+306); ( 0, 3.14186e+306); yl+yh= 3.14186e+306 j=1: ( 0, 3.14186e+306); ( 0, 3.14186e+306); yl+yh= 3.14186e+306 j=2: ( 0, 3.14186e+306); ( 0, 3.14186e+306); yl+yh= 3.14186e+306 j=3: ( 0, 3.14186e+306); ( 0, 3.14186e+306); yl+yh= 3.14186e+306 3. after ADD1(M): yl,yh = ( 0, 1.04272e+307); yl+yh= 1.04272e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.52537e+305); yl+yh= 4.52537e+305 ebd0(x=1e+307, M=7.60792e+306): M/x = (r=0.76079246861802) * 2^(e=0); i=67, f=1344, fg=f*2^-(e+10)=1.3125 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.71935e+306); ( 0, 2.71935e+306); yl+yh= 2.71935e+306 j=1: ( 0, 2.71935e+306); ( 0, 2.71935e+306); yl+yh= 2.71935e+306 j=2: ( 0, 2.71935e+306); ( 0, 2.71935e+306); yl+yh= 2.71935e+306 j=3: ( 0, 2.71935e+306); ( 0, 2.71935e+306); yl+yh= 2.71935e+306 3. after ADD1(M): yl,yh = ( 0, 1.03273e+307); yl+yh= 1.03273e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.41871e+305); yl+yh= 3.41871e+305 ebd0(x=1e+307, M=7.94476e+306): M/x = (r=0.794475628846029) * 2^(e=0); i=75, f=1291, fg=f*2^-(e+10)=1.26074 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, 2.31702e+306); yl+yh= 2.31702e+306 j=1: ( 0, 2.31702e+306); ( 0, 2.31702e+306); yl+yh= 2.31702e+306 j=2: ( 0, 2.31702e+306); ( 0, 2.31702e+306); yl+yh= 2.31702e+306 j=3: ( 0, 2.31702e+306); ( 0, 2.31702e+306); yl+yh= 2.31702e+306 3. after ADD1(M): yl,yh = ( 0, 1.02618e+307); yl+yh= 1.02618e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.45486e+305); yl+yh= 2.45486e+305 ebd0(x=1e+307, M=8.2965e+306): M/x = (r=0.829650069981441) * 2^(e=0); i=84, f=1237, fg=f*2^-(e+10)=1.20801 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.88975e+306); ( 0, 1.88975e+306); yl+yh= 1.88975e+306 j=1: ( 0, 1.88975e+306); ( 0, 1.88975e+306); yl+yh= 1.88975e+306 j=2: ( 0, 1.88975e+306); ( 0, 1.88975e+306); yl+yh= 1.88975e+306 j=3: ( 0, 1.88975e+306); ( 0, 1.88975e+306); yl+yh= 1.88975e+306 3. after ADD1(M): yl,yh = ( 0, 1.01863e+307); yl+yh= 1.01863e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.64013e+305); yl+yh= 1.64013e+305 ebd0(x=1e+307, M=8.66382e+306): M/x = (r=0.866381816670688) * 2^(e=0); i=94, f=1181, fg=f*2^-(e+10)=1.15332 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.42645e+306); ( 0, 1.42645e+306); yl+yh= 1.42645e+306 j=1: ( 0, 1.42645e+306); ( 0, 1.42645e+306); yl+yh= 1.42645e+306 j=2: ( 0, 1.42645e+306); ( 0, 1.42645e+306); yl+yh= 1.42645e+306 j=3: ( 0, 1.42645e+306); ( 0, 1.42645e+306); yl+yh= 1.42645e+306 3. after ADD1(M): yl,yh = ( 0, 1.00903e+307); yl+yh= 1.00903e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.81139e+304); yl+yh= 9.81139e+304 ebd0(x=1e+307, M=9.0474e+306): M/x = (r=0.904739816721033) * 2^(e=0); i=104, f=1130, fg=f*2^-(e+10)=1.10352 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 9.85024e+305); ( 0, 9.85024e+305); yl+yh= 9.85024e+305 j=1: ( 0, 9.85024e+305); ( 0, 9.85024e+305); yl+yh= 9.85024e+305 j=2: ( 0, 9.85024e+305); ( 0, 9.85024e+305); yl+yh= 9.85024e+305 j=3: ( 0, 9.85024e+305); ( 0, 9.85024e+305); yl+yh= 9.85024e+305 3. after ADD1(M): yl,yh = ( 0, 1.00324e+307); yl+yh= 1.00324e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.84769e+304); yl+yh= 4.84769e+304 ebd0(x=1e+307, M=9.44796e+306): M/x = (r=0.944796070519959) * 2^(e=0); i=114, f=1083, fg=f*2^-(e+10)=1.05762 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, 5.60187e+305); yl+yh= 5.60187e+305 j=1: ( 0, 5.60187e+305); ( 0, 5.60187e+305); yl+yh= 5.60187e+305 j=2: ( 0, 5.60187e+305); ( 0, 5.60187e+305); yl+yh= 5.60187e+305 j=3: ( 0, 5.60187e+305); ( 0, 5.60187e+305); yl+yh= 5.60187e+305 3. after ADD1(M): yl,yh = ( 0, 1.00081e+307); yl+yh= 1.00081e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.58224e+304); yl+yh= 1.58224e+304 ebd0(x=1e+307, M=9.86626e+306): M/x = (r=0.986625766184435) * 2^(e=0); i=125, f=1036, fg=f*2^-(e+10)=1.01172 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.16523e+305); ( 0, 1.16523e+305); yl+yh= 1.16523e+305 j=1: ( 0, 1.16523e+305); ( 0, 1.16523e+305); yl+yh= 1.16523e+305 j=2: ( 0, 1.16523e+305); ( 0, 1.16523e+305); yl+yh= 1.16523e+305 j=3: ( 0, 1.16523e+305); ( 0, 1.16523e+305); yl+yh= 1.16523e+305 3. after ADD1(M): yl,yh = ( 0, 9.98278e+306); yl+yh= 9.98278e+306 4. after ADD1(- M*fg): yl,yh = ( 0, 9.02406e+302); yl+yh= 9.02406e+302 ebd0(x=1e+307, M=1.03031e+307): M/x = (r=0.515153710346883) * 2^(e=1); i=4, f=1986, fg=f*2^-(e+10)=0.969727 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.62406e+306); ( 0, -3.07407e+305); yl+yh= -3.07407e+305 j=1: ( 0, -3.07408e+305); ( 0, -3.07408e+305); yl+yh= -3.07408e+305 j=2: ( 0, -3.07408e+305); ( 0, -3.07408e+305); yl+yh= -3.07408e+305 j=3: ( 0, -3.07408e+305); ( 0, -3.07408e+305); yl+yh= -3.07408e+305 3. after ADD1(M): yl,yh = ( 0, 9.99567e+306); yl+yh= 9.99567e+306 4. after ADD1(- M*fg): yl,yh = ( 0, 4.50196e+303); yl+yh= 4.50196e+303 ebd0(x=1e+307, M=1.07592e+307): M/x = (r=0.537961513635455) * 2^(e=1); i=10, f=1900, fg=f*2^-(e+10)=0.927734 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.18139e+306); ( 0, -7.50081e+305); yl+yh= -7.50081e+305 j=1: ( 0, -7.50081e+305); ( 0, -7.50081e+305); yl+yh= -7.50081e+305 j=2: ( 0, -7.50081e+305); ( 0, -7.50081e+305); yl+yh= -7.50081e+305 j=3: ( 0, -7.50081e+305); ( 0, -7.50081e+305); yl+yh= -7.50081e+305 3. after ADD1(M): yl,yh = ( 0, 1.00091e+307); yl+yh= 1.00091e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.7441e+304); yl+yh= 2.7441e+304 ebd0(x=1e+307, M=1.12356e+307): M/x = (r=0.561779104644474) * 2^(e=1); i=16, f=1820, fg=f*2^-(e+10)=0.888672 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=1: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=2: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 j=3: ( 0, -1.18026e+306); ( 0, -1.18026e+306); yl+yh= -1.18026e+306 3. after ADD1(M): yl,yh = ( 0, 1.00553e+307); yl+yh= 1.00553e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.05759e+304); yl+yh= 7.05759e+304 ebd0(x=1e+307, M=1.1733e+307): M/x = (r=0.58665119049577) * 2^(e=1); i=22, f=1748, fg=f*2^-(e+10)=0.853516 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.34757e+306); ( 0, -1.5839e+306); yl+yh= -1.5839e+306 j=1: ( 0, -1.5839e+306); ( 0, -1.5839e+306); yl+yh= -1.5839e+306 j=2: ( 0, -1.5839e+306); ( 0, -1.5839e+306); yl+yh= -1.5839e+306 j=3: ( 0, -1.5839e+306); ( 0, -1.5839e+306); yl+yh= -1.5839e+306 3. after ADD1(M): yl,yh = ( 0, 1.01491e+307); yl+yh= 1.01491e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.34801e+305); yl+yh= 1.34801e+305 ebd0(x=1e+307, M=1.22525e+307): M/x = (r=0.612624457664564) * 2^(e=1); i=29, f=1670, fg=f*2^-(e+10)=0.81543 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.89107e+306); ( 0, -2.0404e+306); yl+yh= -2.0404e+306 j=1: ( 0, -2.0404e+306); ( 0, -2.0404e+306); yl+yh= -2.0404e+306 j=2: ( 0, -2.0404e+306); ( 0, -2.0404e+306); yl+yh= -2.0404e+306 j=3: ( 0, -2.0404e+306); ( 0, -2.0404e+306); yl+yh= -2.0404e+306 3. after ADD1(M): yl,yh = ( 0, 1.02121e+307); yl+yh= 1.02121e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.21049e+305); yl+yh= 2.21049e+305 ebd0(x=1e+307, M=1.2795e+307): M/x = (r=0.639747659612917) * 2^(e=1); i=36, f=1598, fg=f*2^-(e+10)=0.780273 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.45038e+306); ( 0, -2.4811e+306); yl+yh= -2.4811e+306 j=1: ( 0, -2.4811e+306); ( 0, -2.4811e+306); yl+yh= -2.4811e+306 j=2: ( 0, -2.4811e+306); ( 0, -2.4811e+306); yl+yh= -2.4811e+306 j=3: ( 0, -2.4811e+306); ( 0, -2.4811e+306); yl+yh= -2.4811e+306 3. after ADD1(M): yl,yh = ( 0, 1.03139e+307); yl+yh= 1.03139e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.30296e+305); yl+yh= 3.30296e+305 ebd0(x=1e+307, M=1.33614e+307): M/x = (r=0.668071708303066) * 2^(e=1); i=43, f=1533, fg=f*2^-(e+10)=0.748535 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, -2.89637e+306); yl+yh= -2.89637e+306 j=1: ( 0, -2.89637e+306); ( 0, -2.89637e+306); yl+yh= -2.89637e+306 j=2: ( 0, -2.89637e+306); ( 0, -2.89637e+306); yl+yh= -2.89637e+306 j=3: ( 0, -2.89637e+306); ( 0, -2.89637e+306); yl+yh= -2.89637e+306 3. after ADD1(M): yl,yh = ( 0, 1.04651e+307); yl+yh= 1.04651e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.6356e+305); yl+yh= 4.6356e+305 ebd0(x=1e+307, M=1.3953e+307): M/x = (r=0.697649769762387) * 2^(e=1); i=51, f=1464, fg=f*2^-(e+10)=0.714844 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.57459e+306); ( 0, -3.35688e+306); yl+yh= -3.35688e+306 j=1: ( 0, -3.35688e+306); ( 0, -3.35688e+306); yl+yh= -3.35688e+306 j=2: ( 0, -3.35688e+306); ( 0, -3.35688e+306); yl+yh= -3.35688e+306 j=3: ( 0, -3.35688e+306); ( 0, -3.35688e+306); yl+yh= -3.35688e+306 3. after ADD1(M): yl,yh = ( 0, 1.05961e+307); yl+yh= 1.05961e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.21904e+305); yl+yh= 6.21904e+305 ebd0(x=1e+307, M=1.45707e+307): M/x = (r=0.728537363879382) * 2^(e=1); i=59, f=1402, fg=f*2^-(e+10)=0.68457 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.14186e+306); ( 0, -3.78961e+306); yl+yh= -3.78961e+306 j=1: ( 0, -3.78961e+306); ( 0, -3.78961e+306); yl+yh= -3.78961e+306 j=2: ( 0, -3.78961e+306); ( 0, -3.78961e+306); yl+yh= -3.78961e+306 j=3: ( 0, -3.78961e+306); ( 0, -3.78961e+306); yl+yh= -3.78961e+306 3. after ADD1(M): yl,yh = ( 0, 1.07811e+307); yl+yh= 1.07811e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.06439e+305); yl+yh= 8.06439e+305 ebd0(x=1e+307, M=1.52158e+307): M/x = (r=0.76079246861802) * 2^(e=1); i=67, f=1344, fg=f*2^-(e+10)=0.65625 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.71935e+306); ( 0, -4.21212e+306); yl+yh= -4.21212e+306 j=1: ( 0, -4.21212e+306); ( 0, -4.21212e+306); yl+yh= -4.21212e+306 j=2: ( 0, -4.21212e+306); ( 0, -4.21212e+306); yl+yh= -4.21212e+306 j=3: ( 0, -4.21212e+306); ( 0, -4.21212e+306); yl+yh= -4.21212e+306 3. after ADD1(M): yl,yh = ( 0, 1.10037e+307); yl+yh= 1.10037e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.01832e+306); yl+yh= 1.01832e+306 ebd0(x=1e+307, M=1.58895e+307): M/x = (r=0.794475628846029) * 2^(e=1); i=75, f=1291, fg=f*2^-(e+10)=0.630371 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, -4.61445e+306); yl+yh= -4.61445e+306 j=1: ( 0, -4.61445e+306); ( 0, -4.61445e+306); yl+yh= -4.61445e+306 j=2: ( 0, -4.61445e+306); ( 0, -4.61445e+306); yl+yh= -4.61445e+306 j=3: ( 0, -4.61445e+306); ( 0, -4.61445e+306); yl+yh= -4.61445e+306 3. after ADD1(M): yl,yh = ( 0, 1.12751e+307); yl+yh= 1.12751e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.25877e+306); yl+yh= 1.25877e+306 ebd0(x=1e+307, M=1.6593e+307): M/x = (r=0.829650069981441) * 2^(e=1); i=84, f=1237, fg=f*2^-(e+10)=0.604004 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.88975e+306); ( 0, -5.04172e+306); yl+yh= -5.04172e+306 j=1: ( 0, -5.04172e+306); ( 0, -5.04172e+306); yl+yh= -5.04172e+306 j=2: ( 0, -5.04172e+306); ( 0, -5.04172e+306); yl+yh= -5.04172e+306 j=3: ( 0, -5.04172e+306); ( 0, -5.04172e+306); yl+yh= -5.04172e+306 3. after ADD1(M): yl,yh = ( 0, 1.15513e+307); yl+yh= 1.15513e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.52904e+306); yl+yh= 1.52904e+306 ebd0(x=1e+307, M=1.73276e+307): M/x = (r=0.866381816670688) * 2^(e=1); i=94, f=1181, fg=f*2^-(e+10)=0.57666 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.42645e+306); ( 0, -5.50502e+306); yl+yh= -5.50502e+306 j=1: ( 0, -5.50502e+306); ( 0, -5.50502e+306); yl+yh= -5.50502e+306 j=2: ( 0, -5.50502e+306); ( 0, -5.50502e+306); yl+yh= -5.50502e+306 j=3: ( 0, -5.50502e+306); ( 0, -5.50502e+306); yl+yh= -5.50502e+306 3. after ADD1(M): yl,yh = ( 0, 1.18226e+307); yl+yh= 1.18226e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.83046e+306); yl+yh= 1.83046e+306 ebd0(x=1e+307, M=1.80948e+307): M/x = (r=0.904739816721033) * 2^(e=1); i=104, f=1130, fg=f*2^-(e+10)=0.551758 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 9.85024e+305); ( 0, -5.94645e+306); yl+yh= -5.94645e+306 j=1: ( 0, -5.94645e+306); ( 0, -5.94645e+306); yl+yh= -5.94645e+306 j=2: ( 0, -5.94645e+306); ( 0, -5.94645e+306); yl+yh= -5.94645e+306 j=3: ( 0, -5.94645e+306); ( 0, -5.94645e+306); yl+yh= -5.94645e+306 3. after ADD1(M): yl,yh = ( 0, 1.21483e+307); yl+yh= 1.21483e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.1644e+306); yl+yh= 2.1644e+306 ebd0(x=1e+307, M=1.88959e+307): M/x = (r=0.944796070519959) * 2^(e=1); i=114, f=1083, fg=f*2^-(e+10)=0.528809 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, -6.37128e+306); yl+yh= -6.37128e+306 j=1: ( 0, -6.37128e+306); ( 0, -6.37128e+306); yl+yh= -6.37128e+306 j=2: ( 0, -6.37128e+306); ( 0, -6.37128e+306); yl+yh= -6.37128e+306 j=3: ( 0, -6.37128e+306); ( 0, -6.37128e+306); yl+yh= -6.37128e+306 3. after ADD1(M): yl,yh = ( 0, 1.25246e+307); yl+yh= 1.25246e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.53231e+306); yl+yh= 2.53231e+306 ebd0(x=1e+307, M=1.97325e+307): M/x = (r=0.986625766184435) * 2^(e=1); i=125, f=1036, fg=f*2^-(e+10)=0.505859 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.16523e+305); ( 0, -6.81495e+306); yl+yh= -6.81495e+306 j=1: ( 0, -6.81495e+306); ( 0, -6.81495e+306); yl+yh= -6.81495e+306 j=2: ( 0, -6.81495e+306); ( 0, -6.81495e+306); yl+yh= -6.81495e+306 j=3: ( 0, -6.81495e+306); ( 0, -6.81495e+306); yl+yh= -6.81495e+306 3. after ADD1(M): yl,yh = ( 0, 1.29176e+307); yl+yh= 1.29176e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 2.93569e+306); yl+yh= 2.93569e+306 ebd0(x=1e+307, M=2.06061e+307): M/x = (r=0.515153710346883) * 2^(e=2); i=4, f=1986, fg=f*2^-(e+10)=0.484863 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.62406e+306); ( 0, -7.23888e+306); yl+yh= -7.23888e+306 j=1: ( 0, -7.23888e+306); ( 0, -7.23888e+306); yl+yh= -7.23888e+306 j=2: ( 0, -7.23888e+306); ( 0, -7.23888e+306); yl+yh= -7.23888e+306 j=3: ( 0, -7.23888e+306); ( 0, -7.23888e+306); yl+yh= -7.23888e+306 3. after ADD1(M): yl,yh = ( 0, 1.33673e+307); yl+yh= 1.33673e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.3761e+306); yl+yh= 3.3761e+306 ebd0(x=1e+307, M=2.15185e+307): M/x = (r=0.537961513635455) * 2^(e=2); i=10, f=1900, fg=f*2^-(e+10)=0.463867 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.18139e+306); ( 0, -7.68155e+306); yl+yh= -7.68155e+306 j=1: ( 0, -7.68155e+306); ( 0, -7.68155e+306); yl+yh= -7.68155e+306 j=2: ( 0, -7.68155e+306); ( 0, -7.68155e+306); yl+yh= -7.68155e+306 j=3: ( 0, -7.68155e+306); ( 0, -7.68155e+306); yl+yh= -7.68155e+306 3. after ADD1(M): yl,yh = ( 0, 1.38369e+307); yl+yh= 1.38369e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 3.8552e+306); yl+yh= 3.8552e+306 ebd0(x=1e+307, M=2.24712e+307): M/x = (r=0.561779104644474) * 2^(e=2); i=16, f=1820, fg=f*2^-(e+10)=0.444336 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=1: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=2: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 j=3: ( 0, -8.11173e+306); ( 0, -8.11173e+306); yl+yh= -8.11173e+306 3. after ADD1(M): yl,yh = ( 0, 1.43594e+307); yl+yh= 1.43594e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.37469e+306); yl+yh= 4.37469e+306 ebd0(x=1e+307, M=2.3466e+307): M/x = (r=0.58665119049577) * 2^(e=2); i=22, f=1748, fg=f*2^-(e+10)=0.426758 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.534756 4.38289e-08 -8.60182e-16 -8.77595e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.001431915025983222 1a. before adding -x * log1pmx(.) = -x * -1.02421e-06 = 1.02421e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.02421e+301); yl+yh= 1.02421e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.34757e+306); ( 0, -8.51538e+306); yl+yh= -8.51538e+306 j=1: ( 0, -8.51538e+306); ( 0, -8.51538e+306); yl+yh= -8.51538e+306 j=2: ( 0, -8.51538e+306); ( 0, -8.51538e+306); yl+yh= -8.51538e+306 j=3: ( 0, -8.51538e+306); ( 0, -8.51538e+306); yl+yh= -8.51538e+306 3. after ADD1(M): yl,yh = ( 0, 1.49507e+307); yl+yh= 1.49507e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 4.93635e+306); yl+yh= 4.93635e+306 ebd0(x=1e+307, M=2.4505e+307): M/x = (r=0.612624457664564) * 2^(e=2); i=29, f=1670, fg=f*2^-(e+10)=0.407715 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.489107 2.7458e-08 -1.44704e-15 4.21187e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0008956598634558893 1a. before adding -x * log1pmx(.) = -x * -4.01343e-07 = 4.01343e+300 1. after A.(-x*l..): yl,yh = ( 0, 4.01343e+300); yl+yh= 4.01343e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.89107e+306); ( 0, -8.97187e+306); yl+yh= -8.97187e+306 j=1: ( 0, -8.97187e+306); ( 0, -8.97187e+306); yl+yh= -8.97187e+306 j=2: ( 0, -8.97187e+306); ( 0, -8.97187e+306); yl+yh= -8.97187e+306 j=3: ( 0, -8.97187e+306); ( 0, -8.97187e+306); yl+yh= -8.97187e+306 3. after ADD1(M): yl,yh = ( 0, 1.55331e+307); yl+yh= 1.55331e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 5.54207e+306); yl+yh= 5.54207e+306 ebd0(x=1e+307, M=2.55899e+307): M/x = (r=0.639747659612917) * 2^(e=2); i=36, f=1598, fg=f*2^-(e+10)=0.390137 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.445036 2.86507e-08 -9.15535e-16 -4.73659e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001643789002499022 1a. before adding -x * log1pmx(.) = -x * -1.3525e-06 = 1.3525e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.3525e+301); yl+yh= 1.3525e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.45038e+306); ( 0, -9.41257e+306); yl+yh= -9.41257e+306 j=1: ( 0, -9.41257e+306); ( 0, -9.41257e+306); yl+yh= -9.41257e+306 j=2: ( 0, -9.41257e+306); ( 0, -9.41257e+306); yl+yh= -9.41257e+306 j=3: ( 0, -9.41257e+306); ( 0, -9.41257e+306); yl+yh= -9.41257e+306 3. after ADD1(M): yl,yh = ( 0, 1.61773e+307); yl+yh= 1.61773e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.19378e+306); yl+yh= 6.19378e+306 ebd0(x=1e+307, M=2.67229e+307): M/x = (r=0.668071708303066) * 2^(e=2); i=43, f=1533, fg=f*2^-(e+10)=0.374268 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.40351 -2.04166e-08 -2.93405e-16 1.89435e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.0001503211216803169 1a. before adding -x * log1pmx(.) = -x * -1.12971e-08 = 1.12971e+299 1. after A.(-x*l..): yl,yh = ( 0, 1.12971e+299); yl+yh= 1.12971e+299 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 4.0351e+306); ( 0, -9.82784e+306); yl+yh= -9.82784e+306 j=1: ( 0, -9.82784e+306); ( 0, -9.82784e+306); yl+yh= -9.82784e+306 j=2: ( 0, -9.82784e+306); ( 0, -9.82784e+306); yl+yh= -9.82784e+306 j=3: ( 0, -9.82784e+306); ( 0, -9.82784e+306); yl+yh= -9.82784e+306 3. after ADD1(M): yl,yh = ( 0, 1.6895e+307); yl+yh= 1.6895e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 6.89352e+306); yl+yh= 6.89352e+306 ebd0(x=1e+307, M=2.7906e+307): M/x = (r=0.697649769762387) * 2^(e=2); i=51, f=1464, fg=f*2^-(e+10)=0.357422 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.357456 -2.03304e-08 -1.57945e-15 6.31868e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002578844792837345 1a. before adding -x * log1pmx(.) = -x * -3.33095e-06 = 3.33095e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.33095e+301); yl+yh= 3.33095e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.57459e+306); ( 0, -1.02884e+307); yl+yh= -1.02884e+307 j=1: ( 0, -1.02884e+307); ( 0, -1.02884e+307); yl+yh= -1.02884e+307 j=2: ( 0, -1.02884e+307); ( 0, -1.02884e+307); yl+yh= -1.02884e+307 j=3: ( 0, -1.02884e+307); ( 0, -1.02884e+307); yl+yh= -1.02884e+307 3. after ADD1(M): yl,yh = ( 0, 1.76176e+307); yl+yh= 1.76176e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 7.64343e+306); yl+yh= 7.64343e+306 ebd0(x=1e+307, M=2.91415e+307): M/x = (r=0.728537363879382) * 2^(e=2); i=59, f=1402, fg=f*2^-(e+10)=0.342285 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.314183 2.68266e-08 -9.79256e-16 2.2955e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.002529898282330208 1a. before adding -x * log1pmx(.) = -x * -3.2056e-06 = 3.2056e+301 1. after A.(-x*l..): yl,yh = ( 0, 3.2056e+301); yl+yh= 3.2056e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 3.14186e+306); ( 0, -1.07211e+307); yl+yh= -1.07211e+307 j=1: ( 0, -1.07211e+307); ( 0, -1.07211e+307); yl+yh= -1.07211e+307 j=2: ( 0, -1.07211e+307); ( 0, -1.07211e+307); yl+yh= -1.07211e+307 j=3: ( 0, -1.07211e+307); ( 0, -1.07211e+307); yl+yh= -1.07211e+307 3. after ADD1(M): yl,yh = ( 0, 1.84204e+307); yl+yh= 1.84204e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 8.44571e+306); yl+yh= 8.44571e+306 ebd0(x=1e+307, M=3.04317e+307): M/x = (r=0.76079246861802) * 2^(e=2); i=67, f=1344, fg=f*2^-(e+10)=0.328125 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.271934 -1.89333e-08 7.77939e-16 2.59197e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001459884938849225 1a. before adding -x * log1pmx(.) = -x * -1.06667e-06 = 1.06667e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.06667e+301); yl+yh= 1.06667e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.71935e+306); ( 0, -1.11436e+307); yl+yh= -1.11436e+307 j=1: ( 0, -1.11436e+307); ( 0, -1.11436e+307); yl+yh= -1.11436e+307 j=2: ( 0, -1.11436e+307); ( 0, -1.11436e+307); yl+yh= -1.11436e+307 j=3: ( 0, -1.11436e+307); ( 0, -1.11436e+307); yl+yh= -1.11436e+307 3. after ADD1(M): yl,yh = ( 0, 1.92881e+307); yl+yh= 1.92881e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 9.3027e+306); yl+yh= 9.3027e+306 ebd0(x=1e+307, M=3.1779e+307): M/x = (r=0.794475628846029) * 2^(e=2); i=75, f=1291, fg=f*2^-(e+10)=0.315186 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.231701 -1.39464e-08 1.09709e-17 3.22991e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.00162894222678073 1a. before adding -x * log1pmx(.) = -x * -1.32529e-06 = 1.32529e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.32529e+301); yl+yh= 1.32529e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 2.31702e+306); ( 0, -1.15459e+307); yl+yh= -1.15459e+307 j=1: ( 0, -1.15459e+307); ( 0, -1.15459e+307); yl+yh= -1.15459e+307 j=2: ( 0, -1.15459e+307); ( 0, -1.15459e+307); yl+yh= -1.15459e+307 j=3: ( 0, -1.15459e+307); ( 0, -1.15459e+307); yl+yh= -1.15459e+307 3. after ADD1(M): yl,yh = ( 0, 2.02331e+307); yl+yh= 2.02331e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.02168e+307); yl+yh= 1.02168e+307 ebd0(x=1e+307, M=3.3186e+307): M/x = (r=0.829650069981441) * 2^(e=2); i=84, f=1237, fg=f*2^-(e+10)=0.302002 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.188973 4.24154e-09 3.80868e-16 -2.11474e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = 0.002223766178752216 1a. before adding -x * log1pmx(.) = -x * -2.46891e-06 = 2.46891e+301 1. after A.(-x*l..): yl,yh = ( 0, 2.46891e+301); yl+yh= 2.46891e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.88975e+306); ( 0, -1.19732e+307); yl+yh= -1.19732e+307 j=1: ( 0, -1.19732e+307); ( 0, -1.19732e+307); yl+yh= -1.19732e+307 j=2: ( 0, -1.19732e+307); ( 0, -1.19732e+307); yl+yh= -1.19732e+307 j=3: ( 0, -1.19732e+307); ( 0, -1.19732e+307); yl+yh= -1.19732e+307 3. after ADD1(M): yl,yh = ( 0, 2.12128e+307); yl+yh= 2.12128e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.11906e+307); yl+yh= 1.11906e+307 ebd0(x=1e+307, M=3.46553e+307): M/x = (r=0.866381816670688) * 2^(e=2); i=94, f=1181, fg=f*2^-(e+10)=0.28833 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.142645 9.18647e-09 -8.04937e-16 1.438e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007842524530446449 1a. before adding -x * log1pmx(.) = -x * -3.07687e-07 = 3.07687e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.07687e+300); yl+yh= 3.07687e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.42645e+306); ( 0, -1.24365e+307); yl+yh= -1.24365e+307 j=1: ( 0, -1.24365e+307); ( 0, -1.24365e+307); yl+yh= -1.24365e+307 j=2: ( 0, -1.24365e+307); ( 0, -1.24365e+307); yl+yh= -1.24365e+307 j=3: ( 0, -1.24365e+307); ( 0, -1.24365e+307); yl+yh= -1.24365e+307 3. after ADD1(M): yl,yh = ( 0, 2.22188e+307); yl+yh= 2.22188e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.22266e+307); yl+yh= 1.22266e+307 ebd0(x=1e+307, M=3.61896e+307): M/x = (r=0.904739816721033) * 2^(e=2); i=104, f=1130, fg=f*2^-(e+10)=0.275879 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0985011 4.97073e-09 4.13051e-16 6.31345e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001605475688703415 1a. before adding -x * log1pmx(.) = -x * -1.29016e-06 = 1.29016e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.29016e+301); yl+yh= 1.29016e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 9.85024e+305); ( 0, -1.28779e+307); yl+yh= -1.28779e+307 j=1: ( 0, -1.28779e+307); ( 0, -1.28779e+307); yl+yh= -1.28779e+307 j=2: ( 0, -1.28779e+307); ( 0, -1.28779e+307); yl+yh= -1.28779e+307 j=3: ( 0, -1.28779e+307); ( 0, -1.28779e+307); yl+yh= -1.28779e+307 3. after ADD1(M): yl,yh = ( 0, 2.33117e+307); yl+yh= 2.33117e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.33277e+307); yl+yh= 1.33277e+307 ebd0(x=1e+307, M=3.77918e+307): M/x = (r=0.944796070519959) * 2^(e=2); i=114, f=1083, fg=f*2^-(e+10)=0.264404 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0560184 -5.13975e-10 -3.81165e-17 1.90722e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.0007674371356297203 1a. before adding -x * log1pmx(.) = -x * -2.94631e-07 = 2.94631e+300 1. after A.(-x*l..): yl,yh = ( 0, 2.94631e+300); yl+yh= 2.94631e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.60187e+305); ( 0, -1.33028e+307); yl+yh= -1.33028e+307 j=1: ( 0, -1.33028e+307); ( 0, -1.33028e+307); yl+yh= -1.33028e+307 j=2: ( 0, -1.33028e+307); ( 0, -1.33028e+307); yl+yh= -1.33028e+307 j=3: ( 0, -1.33028e+307); ( 0, -1.33028e+307); yl+yh= -1.33028e+307 3. after ADD1(M): yl,yh = ( 0, 2.44891e+307); yl+yh= 2.44891e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.44968e+307); yl+yh= 1.44968e+307 ebd0(x=1e+307, M=3.9465e+307): M/x = (r=0.986625766184435) * 2^(e=2); i=125, f=1036, fg=f*2^-(e+10)=0.25293 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.0116506 9.16889e-10 -1.58487e-17 -1.35049e-24 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001812213118091281 1a. before adding -x * log1pmx(.) = -x * -1.64404e-06 = 1.64404e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.64404e+301); yl+yh= 1.64404e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 1.16523e+305); ( 0, -1.37464e+307); yl+yh= -1.37464e+307 j=1: ( 0, -1.37464e+307); ( 0, -1.37464e+307); yl+yh= -1.37464e+307 j=2: ( 0, -1.37464e+307); ( 0, -1.37464e+307); yl+yh= -1.37464e+307 j=3: ( 0, -1.37464e+307); ( 0, -1.37464e+307); yl+yh= -1.37464e+307 3. after ADD1(M): yl,yh = ( 0, 2.57186e+307); yl+yh= 2.57186e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.57367e+307); yl+yh= 1.57367e+307 ebd0(x=1e+307, M=4.12123e+307): M/x = (r=0.515153710346883) * 2^(e=3); i=4, f=1986, fg=f*2^-(e+10)=0.242432 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.662406 -4.7916e-08 -2.16151e-15 7.09297e-23 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.000883526612393892 1a. before adding -x * log1pmx(.) = -x * -3.9054e-07 = 3.9054e+300 1. after A.(-x*l..): yl,yh = ( 0, 3.9054e+300); yl+yh= 3.9054e+300 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.62406e+306); ( 0, -1.41704e+307); yl+yh= -1.41704e+307 j=1: ( 0, -1.41704e+307); ( 0, -1.41704e+307); yl+yh= -1.41704e+307 j=2: ( 0, -1.41704e+307); ( 0, -1.41704e+307); yl+yh= -1.41704e+307 j=3: ( 0, -1.41704e+307); ( 0, -1.41704e+307); yl+yh= -1.41704e+307 3. after ADD1(M): yl,yh = ( 0, 2.70419e+307); yl+yh= 2.70419e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.70508e+307); yl+yh= 1.70508e+307 ebd0(x=1e+307, M=4.30369e+307): M/x = (r=0.537961513635455) * 2^(e=3); i=10, f=1900, fg=f*2^-(e+10)=0.231934 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.618137 -6.40619e-11 3.55058e-18 -3.62368e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001829222746713673 1a. before adding -x * log1pmx(.) = -x * -1.67507e-06 = 1.67507e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.67507e+301); yl+yh= 1.67507e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 6.18139e+306); ( 0, -1.4613e+307); yl+yh= -1.4613e+307 j=1: ( 0, -1.4613e+307); ( 0, -1.4613e+307); yl+yh= -1.4613e+307 j=2: ( 0, -1.4613e+307); ( 0, -1.4613e+307); yl+yh= -1.4613e+307 j=3: ( 0, -1.4613e+307); ( 0, -1.4613e+307); yl+yh= -1.4613e+307 3. after ADD1(M): yl,yh = ( 0, 2.84239e+307); yl+yh= 2.84239e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.84422e+307); yl+yh= 1.84422e+307 ebd0(x=1e+307, M=4.49423e+307): M/x = (r=0.561779104644474) * 2^(e=3); i=16, f=1820, fg=f*2^-(e+10)=0.222168 bd0_sc[0][0..3]= (0.693147 -1.90465e-09 -8.78318e-17 3.06184e-24 ) i -> bd0_sc[i][0..3]= (0.57512 2.24238e-09 -2.20452e-17 4.07854e-25 ) small(?) (M*fg-x)/x = (M*fg)/x - 1 = -0.001525419479548646 1a. before adding -x * log1pmx(.) = -x * -1.16464e-06 = 1.16464e+301 1. after A.(-x*l..): yl,yh = ( 0, 1.16464e+301); yl+yh= 1.16464e+301 2: A(x*b[i,j]) and A(-x*e*b[0,j]), j=1:4: j=0: ( 0, 5.75121e+306); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=1: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=2: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 j=3: ( 0, -1.50432e+307); ( 0, -1.50432e+307); yl+yh= -1.50432e+307 3. after ADD1(M): yl,yh = ( 0, 2.98991e+307); yl+yh= 2.98991e+307 4. after ADD1(- M*fg): yl,yh = ( 0, 1.99144e+307); yl+yh= 1.99144e+307 bd0(1e+307, 8.2965e+306): T.series w/ 75 terms -> bd0=1.64013e+305 bd0(1e+307, 8.66382e+306): T.series w/ 67 terms -> bd0=9.81139e+304 bd0(1e+307, 9.0474e+306): T.series w/ 59 terms -> bd0=4.84769e+304 bd0(1e+307, 9.44796e+306): T.series w/ 50 terms -> bd0=1.58224e+304 bd0(1e+307, 9.86626e+306): T.series w/ 36 terms -> bd0=9.02406e+302 bd0(1e+307, 1.03031e+307): T.series w/ 43 terms -> bd0=4.50196e+303 bd0(1e+307, 1.07592e+307): T.series w/ 54 terms -> bd0=2.7441e+304 bd0(1e+307, 1.12356e+307): T.series w/ 63 terms -> bd0=7.05759e+304 bd0(1e+307, 1.1733e+307): T.series w/ 70 terms -> bd0=1.34801e+305 > p.relE(bd0.2)#, dFac=1) > > if(!interactive()) # gets too expensive + quit("no") > proc.time() user system elapsed 2.39 0.07 2.45