global total_tests, total_exceptions: mstart := trunc(time()*1000.0): rstart := 1428543875*1000: rcpuustart := 0.968*1000: rcpusstart := 0.046*1000: total_tests := 0: total_exceptions := 0: hours_elapsed := proc(msec) local hrs: hrs := trunc(evalf(msec/3600000)): hrs : end: min_elapsed := proc(hrs,msec) local min2: min2 := trunc(evalf((msec-hrs*3600000)/60000)): min2: end: sec_elapsed := proc(hrs,min2,msec) local sec2: sec2 := trunc(evalf((msec - hrs*360000 - min2 * 60000)/1000)) : sec2 : end: msec_elapsed := proc(hrs,min2,sec2,msec) local msec2: msec2 := msec - hrs*3600000 - min2 * 60000 - sec2 * 1000: msec2 : end: dump_except := proc(maplefunc,apfunc,x,fxm,fxr,fxrerr,percent_error,abs_error,except_fd) global total_tests, total_exceptions: total_exceptions := total_exceptions + 1: fprintf(except_fd,"EXCEPTION: Maple func = %s APFP func = %s\n",maplefunc,apfunc): fprintf(except_fd,"x = %40.34e\n",x): fprintf(except_fd,"Ruby APFP = %40.34e\n",fxr): fprintf(except_fd,"Maple = %40.34e\n",fxm): fprintf(except_fd,"Ruby est fxrerr= %40.34e\n",fxrerr): fprintf(except_fd,"Abs Error = %40.34e\n",abs_error): fprintf(except_fd,"Percent Error = %40.34e\n",percent_error): end: out_fd := fopen(`c:\\cygwin\\home\\dennis\\src\\mine\\aptst\\aptst.txt`,WRITE,TEXT): except_fd := fopen(`c:\\cygwin\\home\\dennis\\src\\mine\\aptst\\apexcept.txt`,WRITE,TEXT): Digits := 34: fprintf(out_fd,"maplefunc = sin apfunc = sin\n"): fprintf(except_fd,"maplefunc = sin apfunc = sin\n"): fprintf(out_fd,"x = -6.0\n"): total_tests := total_tests + 1: fxm := sin(-6.0): fxr2 := 0.279415498198925872811555446611896398e0: fxrerr := 0.857e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.9\n"): total_tests := total_tests + 1: fxm := sin(-5.9): fxr2 := 0.373876664830236359814846468983384574e0: fxrerr := 0.759e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.800000000000001\n"): total_tests := total_tests + 1: fxm := sin(-5.800000000000001): fxr2 := 0.464602179413756325898709585383354102e0: fxrerr := 0.671e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.700000000000001\n"): total_tests := total_tests + 1: fxm := sin(-5.700000000000001): fxr2 := 0.550685542597636926514565768712511476e0: fxrerr := 0.596e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.600000000000001\n"): total_tests := total_tests + 1: fxm := sin(-5.600000000000001): fxr2 := 0.631266637872320535897790643466559536e0: fxrerr := 0.528e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.500000000000002\n"): total_tests := total_tests + 1: fxm := sin(-5.500000000000002): fxr2 := 0.705540325570390488892370593000660995e0: fxrerr := 0.467e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.400000000000002\n"): total_tests := total_tests + 1: fxm := sin(-5.400000000000002): fxr2 := 0.772764487555986092972717897463963892e0: fxrerr := 0.413e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.3000000000000025\n"): total_tests := total_tests + 1: fxm := sin(-5.3000000000000025): fxr2 := 0.832267442223899777628719219949664498e0: fxrerr := 0.363e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.200000000000003\n"): total_tests := total_tests + 1: fxm := sin(-5.200000000000003): fxr2 := 0.883454655720151859123070539286952604e0: fxrerr := 0.321e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.100000000000003\n"): total_tests := total_tests + 1: fxm := sin(-5.100000000000003): fxr2 := 0.925814682327731163012918108599008167e0: fxrerr := 0.283e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.0000000000000036\n"): total_tests := total_tests + 1: fxm := sin(-5.0000000000000036): fxr2 := 0.958924274663137447709286738535229131e0: fxrerr := 0.25e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.900000000000004\n"): total_tests := total_tests + 1: fxm := sin(-4.900000000000004): fxr2 := 0.982452612624331766226899559608852142e0: fxrerr := 0.222e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.800000000000004\n"): total_tests := total_tests + 1: fxm := sin(-4.800000000000004): fxr2 := 0.996164608835840321785662708709388924e0: fxrerr := 0.195e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.700000000000005\n"): total_tests := total_tests + 1: fxm := sin(-4.700000000000005): fxr2 := 0.999923257564100946122853856016159034e0: fxrerr := 0.171e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.600000000000005\n"): total_tests := total_tests + 1: fxm := sin(-4.600000000000005): fxr2 := 0.993691003633465016900739335168996437e0: fxrerr := 0.151e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.500000000000005\n"): total_tests := total_tests + 1: fxm := sin(-4.500000000000005): fxr2 := 0.977530117665098109368132168384941032e0: fxrerr := 0.133e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.400000000000006\n"): total_tests := total_tests + 1: fxm := sin(-4.400000000000006): fxr2 := 0.951602073889517798032612203881358161e0: fxrerr := 0.117e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.300000000000006\n"): total_tests := total_tests + 1: fxm := sin(-4.300000000000006): fxr2 := 0.916165936749457388826741840119926321e0: fxrerr := 0.103e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.200000000000006\n"): total_tests := total_tests + 1: fxm := sin(-4.200000000000006): fxr2 := 0.871575772413591001583505142090598898e0: fxrerr := 0.914e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.100000000000007\n"): total_tests := total_tests + 1: fxm := sin(-4.100000000000007): fxr2 := 0.818277111064414528032662757220787232e0: fxrerr := 0.801e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.000000000000007\n"): total_tests := total_tests + 1: fxm := sin(-4.000000000000007): fxr2 := 0.756802495307932826877985139776689838e0: fxrerr := 0.702e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.900000000000007\n"): total_tests := total_tests + 1: fxm := sin(-3.900000000000007): fxr2 := 0.687766159183978899617017526342744808e0: fxrerr := 0.613e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.800000000000007\n"): total_tests := total_tests + 1: fxm := sin(-3.800000000000007): fxr2 := 0.611857890942724612507569487020791741e0: fxrerr := 0.601e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.700000000000007\n"): total_tests := total_tests + 1: fxm := sin(-3.700000000000007): fxr2 := 0.529836140908499149910999598545339089e0: fxrerr := 0.642e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.6000000000000068\n"): total_tests := total_tests + 1: fxm := sin(-3.6000000000000068): fxr2 := 0.442520443294858482223958419682102636e0: fxrerr := 0.672e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.5000000000000067\n"): total_tests := total_tests + 1: fxm := sin(-3.5000000000000067): fxr2 := 0.350783227689626122380173648371224588e0: fxrerr := 0.695e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.4000000000000066\n"): total_tests := total_tests + 1: fxm := sin(-3.4000000000000066): fxr2 := 0.255541102026837700117973453800867495e0: fxrerr := 0.711e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.3000000000000065\n"): total_tests := total_tests + 1: fxm := sin(-3.3000000000000065): fxr2 := 0.157745694143254800630158685220895423e0: fxrerr := 0.719e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.2000000000000064\n"): total_tests := total_tests + 1: fxm := sin(-3.2000000000000064): fxr2 := 0.583741434275862982237825010376412563e-1: fxrerr := 0.72e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.1000000000000063\n"): total_tests := total_tests + 1: fxm := sin(-3.1000000000000063): fxr2 := -0.41580662433284284643251549935221784e-1: fxrerr := 0.714e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.000000000000006\n"): total_tests := total_tests + 1: fxm := sin(-3.000000000000006): fxr2 := -0.1411200080598612821457652001328265e0: fxrerr := 0.701e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.900000000000006\n"): total_tests := total_tests + 1: fxm := sin(-2.900000000000006): fxr2 := -0.23924932921397650243526602119213817e0: fxrerr := 0.68e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.800000000000006\n"): total_tests := total_tests + 1: fxm := sin(-2.800000000000006): fxr2 := -0.33498815015589926620980974075747679e0: fxrerr := 0.654e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.700000000000006\n"): total_tests := total_tests + 1: fxm := sin(-2.700000000000006): fxr2 := -0.42737988023382451012320098348329984e0: fxrerr := 0.621e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.600000000000006\n"): total_tests := total_tests + 1: fxm := sin(-2.600000000000006): fxr2 := -0.51550137182145909392520672151668652e0: fxrerr := 0.583e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.5000000000000058\n"): total_tests := total_tests + 1: fxm := sin(-2.5000000000000058): fxr2 := -0.59847214410395184741888452996055001e0: fxrerr := 0.539e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.4000000000000057\n"): total_tests := total_tests + 1: fxm := sin(-2.4000000000000057): fxr2 := -0.67546318055114672342159294023096262e0: fxrerr := 0.491e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.3000000000000056\n"): total_tests := total_tests + 1: fxm := sin(-2.3000000000000056): fxr2 := -0.74570521217671644623968704461632423e0: fxrerr := 0.439e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.2000000000000055\n"): total_tests := total_tests + 1: fxm := sin(-2.2000000000000055): fxr2 := -0.80849640381958694754789200600249358e0: fxrerr := 0.383e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.1000000000000054\n"): total_tests := total_tests + 1: fxm := sin(-2.1000000000000054): fxr2 := -0.86320936664887104451179447402620014e0: fxrerr := 0.326e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.0000000000000053\n"): total_tests := total_tests + 1: fxm := sin(-2.0000000000000053): fxr2 := -0.90929742682567948981778616604432256e0: fxrerr := 0.265e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.9000000000000052\n"): total_tests := total_tests + 1: fxm := sin(-1.9000000000000052): fxr2 := -0.94630008768741280738396192140436782e0: fxrerr := 0.204e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.8000000000000052\n"): total_tests := total_tests + 1: fxm := sin(-1.8000000000000052): fxr2 := -0.97384763087819400508148077477750342e0: fxrerr := 0.142e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.700000000000005\n"): total_tests := total_tests + 1: fxm := sin(-1.700000000000005): fxr2 := -0.99166481045246797112366192101205928e0: fxrerr := 0.796e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.600000000000005\n"): total_tests := total_tests + 1: fxm := sin(-1.600000000000005): fxr2 := -0.9995736030415050183445023190901083e0: fxrerr := 0.215e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.5000000000000049\n"): total_tests := total_tests + 1: fxm := sin(-1.5000000000000049): fxr2 := -0.99749498660405477755401154287377166e0: fxrerr := 0.426e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4000000000000048\n"): total_tests := total_tests + 1: fxm := sin(-1.4000000000000048): fxr2 := -0.98544972998846099650176049995125034e0: fxrerr := 0.101e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.3000000000000047\n"): total_tests := total_tests + 1: fxm := sin(-1.3000000000000047): fxr2 := -0.96355818541719422194584316558972506e0: fxrerr := 0.157e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2000000000000046\n"): total_tests := total_tests + 1: fxm := sin(-1.2000000000000046): fxr2 := -0.932039085967228016515805028183422e0: fxrerr := 0.211e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1000000000000045\n"): total_tests := total_tests + 1: fxm := sin(-1.1000000000000045): fxr2 := -0.89120736006143738113434899296092485e0: fxrerr := 0.261e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0000000000000044\n"): total_tests := total_tests + 1: fxm := sin(-1.0000000000000044): fxr2 := -0.84147098480789888398264814143690994e0: fxrerr := 0.307e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9000000000000045\n"): total_tests := total_tests + 1: fxm := sin(-0.9000000000000045): fxr2 := -0.78332690962748618570623953369567146e0: fxrerr := 0.349e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8000000000000045\n"): total_tests := total_tests + 1: fxm := sin(-0.8000000000000045): fxr2 := -0.71735609089952589680736667281851613e0: fxrerr := 0.386e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7000000000000045\n"): total_tests := total_tests + 1: fxm := sin(-0.7000000000000045): fxr2 := -0.64421768723769449546245713159011548e0: fxrerr := 0.419e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6000000000000045\n"): total_tests := total_tests + 1: fxm := sin(-0.6000000000000045): fxr2 := -0.56464247339503907121121253920527837e0: fxrerr := 0.446e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5000000000000046\n"): total_tests := total_tests + 1: fxm := sin(-0.5000000000000046): fxr2 := -0.47942553860420703715307263092499309e0: fxrerr := 0.468e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.4000000000000046\n"): total_tests := total_tests + 1: fxm := sin(-0.4000000000000046): fxr2 := -0.38941834230865472854688417006296598e0: fxrerr := 0.485e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.3000000000000046\n"): total_tests := total_tests + 1: fxm := sin(-0.3000000000000046): fxr2 := -0.29552020666134396965317072346959102e0: fxrerr := 0.496e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.2000000000000046\n"): total_tests := total_tests + 1: fxm := sin(-0.2000000000000046): fxr2 := -0.19866933079506572376567069682779091e0: fxrerr := 0.502e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.10000000000000459\n"): total_tests := total_tests + 1: fxm := sin(-0.10000000000000459): fxr2 := -0.99833416646832719375932824547836739e-1: fxrerr := 0.503e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.579669976578771e-15\n"): total_tests := total_tests + 1: fxm := sin(-4.579669976578771e-15): fxr2 := -0.45796699765787709999999999999839913e-14: fxrerr := 0.5e-49: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.09999999999999543\n"): total_tests := total_tests + 1: fxm := sin(0.09999999999999543): fxr2 := 0.998334166468236051377788778318284634e-1: fxrerr := 0.566e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.19999999999999543\n"): total_tests := total_tests + 1: fxm := sin(0.19999999999999543): fxr2 := 0.198669330795056736555151892642060908e0: fxrerr := 0.625e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.29999999999999544\n"): total_tests := total_tests + 1: fxm := sin(0.29999999999999544): fxr2 := 0.29552020666133521877093033291850533e0: fxrerr := 0.677e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.39999999999999547\n"): total_tests := total_tests + 1: fxm := sin(0.39999999999999547): fxr2 := 0.38941834230864631926000892372228457e0: fxrerr := 0.712e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.49999999999999545\n"): total_tests := total_tests + 1: fxm := sin(0.49999999999999545): fxr2 := 0.479425538604199007272631334014750395e0: fxrerr := 0.742e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5999999999999954\n"): total_tests := total_tests + 1: fxm := sin(0.5999999999999954): fxr2 := 0.564642473395031560657116861132516669e0: fxrerr := 0.752e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6999999999999954\n"): total_tests := total_tests + 1: fxm := sin(0.6999999999999954): fxr2 := 0.644217687237687535398552842745143568e0: fxrerr := 0.753e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7999999999999954\n"): total_tests := total_tests + 1: fxm := sin(0.7999999999999954): fxr2 := 0.717356090899519556776311613612859491e0: fxrerr := 0.731e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8999999999999954\n"): total_tests := total_tests + 1: fxm := sin(0.8999999999999954): fxr2 := 0.783326909627480529055528270648761185e0: fxrerr := 0.696e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9999999999999953\n"): total_tests := total_tests + 1: fxm := sin(0.9999999999999953): fxr2 := 0.84147098480789396723166474136433317e0: fxrerr := 0.642e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0999999999999954\n"): total_tests := total_tests + 1: fxm := sin(1.0999999999999954): fxr2 := 0.891207360061433253409644020206290804e0: fxrerr := 0.571e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.1999999999999955\n"): total_tests := total_tests + 1: fxm := sin(1.1999999999999955): fxr2 := 0.932039085967224719060239290454289722e0: fxrerr := 0.481e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2999999999999956\n"): total_tests := total_tests + 1: fxm := sin(1.2999999999999956): fxr2 := 0.963558185417191787706502681845636773e0: fxrerr := 0.374e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3999999999999957\n"): total_tests := total_tests + 1: fxm := sin(1.3999999999999957): fxr2 := 0.98544972998845944980076010776095097e0: fxrerr := 0.249e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4999999999999958\n"): total_tests := total_tests + 1: fxm := sin(1.4999999999999958): fxr2 := 0.997494986604054133845476366780467035e0: fxrerr := 0.185e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.5999999999999959\n"): total_tests := total_tests + 1: fxm := sin(1.5999999999999959): fxr2 := 0.999573603041505284060155260821610179e0: fxrerr := 0.215e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.699999999999996\n"): total_tests := total_tests + 1: fxm := sin(1.699999999999996): fxr2 := 0.991664810452469130724110580738678674e0: fxrerr := 0.251e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.799999999999996\n"): total_tests := total_tests + 1: fxm := sin(1.799999999999996): fxr2 := 0.973847630878196095340751951183788077e0: fxrerr := 0.397e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.8999999999999961\n"): total_tests := total_tests + 1: fxm := sin(1.8999999999999961): fxr2 := 0.946300087687415749319020379291108059e0: fxrerr := 0.585e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.9999999999999962\n"): total_tests := total_tests + 1: fxm := sin(1.9999999999999962): fxr2 := 0.909297426825683276753998745046250298e0: fxrerr := 0.786e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.099999999999996\n"): total_tests := total_tests + 1: fxm := sin(2.099999999999996): fxr2 := 0.863209366648875790065177712691925434e0: fxrerr := 0.989e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.199999999999996\n"): total_tests := total_tests + 1: fxm := sin(2.199999999999996): fxr2 := 0.808496403819592538308505931792485203e0: fxrerr := 0.118e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.2999999999999963\n"): total_tests := total_tests + 1: fxm := sin(2.2999999999999963): fxr2 := 0.745705212176722642606684946987910526e0: fxrerr := 0.139e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.3999999999999964\n"): total_tests := total_tests + 1: fxm := sin(2.3999999999999964): fxr2 := 0.675463180551153581183147473820704996e0: fxrerr := 0.159e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.4999999999999964\n"): total_tests := total_tests + 1: fxm := sin(2.4999999999999964): fxr2 := 0.598472144103959378168870671143657725e0: fxrerr := 0.179e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.5999999999999965\n"): total_tests := total_tests + 1: fxm := sin(2.5999999999999965): fxr2 := 0.515501371821467234368363726521529289e0: fxrerr := 0.197e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.6999999999999966\n"): total_tests := total_tests + 1: fxm := sin(2.6999999999999966): fxr2 := 0.427379880233833008401335943863313619e0: fxrerr := 0.214e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.7999999999999967\n"): total_tests := total_tests + 1: fxm := sin(2.7999999999999967): fxr2 := 0.334988150155908028877577959282501762e0: fxrerr := 0.229e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.899999999999997\n"): total_tests := total_tests + 1: fxm := sin(2.899999999999997): fxr2 := 0.239249329213985241058752367510064205e0: fxrerr := 0.243e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.999999999999997\n"): total_tests := total_tests + 1: fxm := sin(2.999999999999997): fxr2 := 0.141120008059870192078234604143847256e0: fxrerr := 0.255e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.099999999999997\n"): total_tests := total_tests + 1: fxm := sin(3.099999999999997): fxr2 := 0.41580662433293576600149091434879586e-1: fxrerr := 0.264e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.199999999999997\n"): total_tests := total_tests + 1: fxm := sin(3.199999999999997): fxr2 := -0.58374143427576914252890030359578387e-1: fxrerr := 0.272e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.299999999999997\n"): total_tests := total_tests + 1: fxm := sin(3.299999999999997): fxr2 := -0.15774569414324541957234455100712031e0: fxrerr := 0.269e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.3999999999999972\n"): total_tests := total_tests + 1: fxm := sin(3.3999999999999972): fxr2 := -0.25554110202682861221496320687189703e0: fxrerr := 0.309e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.4999999999999973\n"): total_tests := total_tests + 1: fxm := sin(3.4999999999999973): fxr2 := -0.35078322768961731968731311489224483e0: fxrerr := 0.357e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.5999999999999974\n"): total_tests := total_tests + 1: fxm := sin(3.5999999999999974): fxr2 := -0.44252044329485005269484487870898257e0: fxrerr := 0.406e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.6999999999999975\n"): total_tests := total_tests + 1: fxm := sin(3.6999999999999975): fxr2 := -0.529836140908491092960698349679155e0: fxrerr := 0.467e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.7999999999999976\n"): total_tests := total_tests + 1: fxm := sin(3.7999999999999976): fxr2 := -0.61185789094271717741107749151703991e0: fxrerr := 0.536e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.8999999999999977\n"): total_tests := total_tests + 1: fxm := sin(3.8999999999999977): fxr2 := -0.68776615918397214844658846505457247e0: fxrerr := 0.613e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sin,sin,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sin,sin,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = cos apfunc = cos\n"): fprintf(except_fd,"maplefunc = cos apfunc = cos\n"): fprintf(out_fd,"x = -6.0\n"): total_tests := total_tests + 1: fxm := cos(-6.0): fxr2 := 0.960170286650366020545652297922927405e0: fxrerr := 0.196e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.9\n"): total_tests := total_tests + 1: fxm := cos(-5.9): fxr2 := 0.92747843074403574090610468003246691e0: fxrerr := 0.178e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.800000000000001\n"): total_tests := total_tests + 1: fxm := cos(-5.800000000000001): fxr2 := 0.885519516941319468766837515518257998e0: fxrerr := 0.159e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.700000000000001\n"): total_tests := total_tests + 1: fxm := cos(-5.700000000000001): fxr2 := 0.834712784839160233434776628634771565e0: fxrerr := 0.143e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.600000000000001\n"): total_tests := total_tests + 1: fxm := cos(-5.600000000000001): fxr2 := 0.775565878510250428922447534478207405e0: fxrerr := 0.129e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.500000000000002\n"): total_tests := total_tests + 1: fxm := cos(-5.500000000000002): fxr2 := 0.70866977429126141110807232210824059e0: fxrerr := 0.115e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.400000000000002\n"): total_tests := total_tests + 1: fxm := cos(-5.400000000000002): fxr2 := 0.634692875942635907935726950954196814e0: fxrerr := 0.103e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.3000000000000025\n"): total_tests := total_tests + 1: fxm := cos(-5.3000000000000025): fxr2 := 0.554374336179163010113552193312010685e0: fxrerr := 0.935e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.200000000000003\n"): total_tests := total_tests + 1: fxm := cos(-5.200000000000003): fxr2 := 0.468516671300379609003061087066331506e0: fxrerr := 0.84e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.100000000000003\n"): total_tests := total_tests + 1: fxm := cos(-5.100000000000003): fxr2 := 0.377977742712983340764622536124171848e0: fxrerr := 0.751e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.0000000000000036\n"): total_tests := total_tests + 1: fxm := cos(-5.0000000000000036): fxr2 := 0.283662185463229716594027958810207436e0: fxrerr := 0.675e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.900000000000004\n"): total_tests := total_tests + 1: fxm := cos(-4.900000000000004): fxr2 := 0.186512369422579334304779641450476907e0: fxrerr := 0.603e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.800000000000004\n"): total_tests := total_tests + 1: fxm := cos(-4.800000000000004): fxr2 := 0.874989834394505539786506010114749978e-1: fxrerr := 0.542e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.700000000000005\n"): total_tests := total_tests + 1: fxm := cos(-4.700000000000005): fxr2 := -0.12388663462885737534220475822535171e-1: fxrerr := 0.484e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.600000000000005\n"): total_tests := total_tests + 1: fxm := cos(-4.600000000000005): fxr2 := -0.11215252693504954897488965390550654e0: fxrerr := 0.438e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.500000000000005\n"): total_tests := total_tests + 1: fxm := cos(-4.500000000000005): fxr2 := -0.21079579943077481832989349930591831e0: fxrerr := 0.391e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.400000000000006\n"): total_tests := total_tests + 1: fxm := cos(-4.400000000000006): fxr2 := -0.30733286997841397350669640511645632e0: fxrerr := 0.349e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.300000000000006\n"): total_tests := total_tests + 1: fxm := cos(-4.300000000000006): fxr2 := -0.4007991720799697999111418995989161e0: fxrerr := 0.312e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.200000000000006\n"): total_tests := total_tests + 1: fxm := cos(-4.200000000000006): fxr2 := -0.49026082134069434820091039983994892e0: fxrerr := 0.281e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.100000000000007\n"): total_tests := total_tests + 1: fxm := cos(-4.100000000000007): fxr2 := -0.57482394653326318359525122877217982e0: fxrerr := 0.253e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.000000000000007\n"): total_tests := total_tests + 1: fxm := cos(-4.000000000000007): fxr2 := -0.65364362086360661702170102758397663e0: fxrerr := 0.224e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.900000000000007\n"): total_tests := total_tests + 1: fxm := cos(-3.900000000000007): fxr2 := -0.72593230420013531500921619677983868e0: fxrerr := 0.188e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.800000000000007\n"): total_tests := total_tests + 1: fxm := cos(-3.800000000000007): fxr2 := -0.79096771191441241699133157529781634e0: fxrerr := 0.18e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.700000000000007\n"): total_tests := total_tests + 1: fxm := cos(-3.700000000000007): fxr2 := -0.84810003171040444998268374688113151e0: fxrerr := 0.163e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.6000000000000068\n"): total_tests := total_tests + 1: fxm := cos(-3.6000000000000068): fxr2 := -0.89675841633414399673127732024899329e0: fxrerr := 0.146e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.5000000000000067\n"): total_tests := total_tests + 1: fxm := cos(-3.5000000000000067): fxr2 := -0.93645668729079398745103210619775924e0: fxrerr := 0.129e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.4000000000000066\n"): total_tests := total_tests + 1: fxm := cos(-3.4000000000000066): fxr2 := -0.96679819257945932771092816265792972e0: fxrerr := 0.109e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.3000000000000065\n"): total_tests := total_tests + 1: fxm := cos(-3.3000000000000065): fxr2 := -0.98747976990886385858957911996750941e0: fxrerr := 0.104e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.2000000000000064\n"): total_tests := total_tests + 1: fxm := cos(-3.2000000000000064): fxr2 := -0.99829477579475271106714278575171881e0: fxrerr := 0.941e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.1000000000000063\n"): total_tests := total_tests + 1: fxm := cos(-3.1000000000000063): fxr2 := -0.99913515027327972645054938425228702e0: fxrerr := 0.841e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.000000000000006\n"): total_tests := total_tests + 1: fxm := cos(-3.000000000000006): fxr2 := -0.98999249660044630399162115391677371e0: fxrerr := 0.753e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.900000000000006\n"): total_tests := total_tests + 1: fxm := cos(-2.900000000000006): fxr2 := -0.9709581651495919572770819532220238e0: fxrerr := 0.673e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.800000000000006\n"): total_tests := total_tests + 1: fxm := cos(-2.800000000000006): fxr2 := -0.94222234066866016251568905277871101e0: fxrerr := 0.602e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.700000000000006\n"): total_tests := total_tests + 1: fxm := cos(-2.700000000000006): fxr2 := -0.90407214201706371226180868490666395e0: fxrerr := 0.507e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.600000000000006\n"): total_tests := total_tests + 1: fxm := cos(-2.600000000000006): fxr2 := -0.85688875336895032680593308041518845e0: fxrerr := 0.48e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.5000000000000058\n"): total_tests := total_tests + 1: fxm := cos(-2.5000000000000058): fxr2 := -0.8011436155469371859719385934015417e0: fxrerr := 0.426e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.4000000000000057\n"): total_tests := total_tests + 1: fxm := cos(-2.4000000000000057): fxr2 := -0.73739371554124934974895136888308512e0: fxrerr := 0.381e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.3000000000000056\n"): total_tests := total_tests + 1: fxm := cos(-2.3000000000000056): fxr2 := -0.66627602127982836926706876078856311e0: fxrerr := 0.34e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.2000000000000055\n"): total_tests := total_tests + 1: fxm := cos(-2.2000000000000055): fxr2 := -0.58850111725535015525436362039204073e0: fxrerr := 0.304e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.1000000000000054\n"): total_tests := total_tests + 1: fxm := cos(-2.1000000000000054): fxr2 := -0.50484610459986211295151842763016819e0: fxrerr := 0.271e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.0000000000000053\n"): total_tests := total_tests + 1: fxm := cos(-2.0000000000000053): fxr2 := -0.41614683654714720627393040560790271e0: fxrerr := 0.24e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.9000000000000052\n"): total_tests := total_tests + 1: fxm := cos(-1.9000000000000052): fxr2 := -0.32328956686350834303928966963127917e0: fxrerr := 0.213e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.8000000000000052\n"): total_tests := total_tests + 1: fxm := cos(-1.8000000000000052): fxr2 := -0.22720209469309211932435487314247865e0: fxrerr := 0.189e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.700000000000005\n"): total_tests := total_tests + 1: fxm := cos(-1.700000000000005): fxr2 := -0.12884449429552964241169511967633943e0: fxrerr := 0.162e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.600000000000005\n"): total_tests := total_tests + 1: fxm := cos(-1.600000000000005): fxr2 := -0.291995223012937240737856704719551e-1: fxrerr := 0.148e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.5000000000000049\n"): total_tests := total_tests + 1: fxm := cos(-1.5000000000000049): fxr2 := 0.707372016676980223627554915667080261e-1: fxrerr := 0.127e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4000000000000048\n"): total_tests := total_tests + 1: fxm := cos(-1.4000000000000048): fxr2 := 0.169967142900236208458044090592824701e0: fxrerr := 0.113e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.3000000000000047\n"): total_tests := total_tests + 1: fxm := cos(-1.3000000000000047): fxr2 := 0.267498828624582878274512648482982822e0: fxrerr := 0.1e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2000000000000046\n"): total_tests := total_tests + 1: fxm := cos(-1.2000000000000046): fxr2 := 0.36235775447666929025857790637803388e0: fxrerr := 0.88e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1000000000000045\n"): total_tests := total_tests + 1: fxm := cos(-1.1000000000000045): fxr2 := 0.45359612142557337733824977532109376e0: fxrerr := 0.772e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0000000000000044\n"): total_tests := total_tests + 1: fxm := cos(-1.0000000000000044): fxr2 := 0.540302305868136014928603452693117286e0: fxrerr := 0.67e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9000000000000045\n"): total_tests := total_tests + 1: fxm := cos(-0.9000000000000045): fxr2 := 0.621609968270660931513622827725591642e0: fxrerr := 0.582e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8000000000000045\n"): total_tests := total_tests + 1: fxm := cos(-0.8000000000000045): fxr2 := 0.696706709347162192818340933782843482e0: fxrerr := 0.507e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7000000000000045\n"): total_tests := total_tests + 1: fxm := cos(-0.7000000000000045): fxr2 := 0.764842187284485527276267420574379389e0: fxrerr := 0.426e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6000000000000045\n"): total_tests := total_tests + 1: fxm := cos(-0.6000000000000045): fxr2 := 0.82533561490967575634982222128791211e0: fxrerr := 0.353e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5000000000000046\n"): total_tests := total_tests + 1: fxm := cos(-0.5000000000000046): fxr2 := 0.877582561890370510758804003260743571e0: fxrerr := 0.286e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.4000000000000046\n"): total_tests := total_tests + 1: fxm := cos(-0.4000000000000046): fxr2 := 0.921060994002883291474152112249795118e0: fxrerr := 0.22e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.3000000000000046\n"): total_tests := total_tests + 1: fxm := cos(-0.3000000000000046): fxr2 := 0.955336489125604660249359585395896947e0: fxrerr := 0.163e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.2000000000000046\n"): total_tests := total_tests + 1: fxm := cos(-0.2000000000000046): fxr2 := 0.980066577841240717245274859456208653e0: fxrerr := 0.107e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.10000000000000459\n"): total_tests := total_tests + 1: fxm := cos(-0.10000000000000459): fxr2 := 0.995004165278025307860179578852169775e0: fxrerr := 0.555e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.579669976578771e-15\n"): total_tests := total_tests + 1: fxm := cos(-4.579669976578771e-15): fxr2 := 0.999999999999999999999999999989513311e0: fxrerr := 0.5e-34: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.09999999999999543\n"): total_tests := total_tests + 1: fxm := cos(0.09999999999999543): fxr2 := 0.995004165278026222334276063798136048e0: fxrerr := 0.106e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.19999999999999543\n"): total_tests := total_tests + 1: fxm := cos(0.19999999999999543): fxr2 := 0.980066577841242539043038250167689223e0: fxrerr := 0.182e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.29999999999999544\n"): total_tests := total_tests + 1: fxm := cos(0.29999999999999544): fxr2 := 0.955336489125607367214452603266579928e0: fxrerr := 0.278e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.39999999999999547\n"): total_tests := total_tests + 1: fxm := cos(0.39999999999999547): fxr2 := 0.92106099400288684686361739022907835e0: fxrerr := 0.39e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.49999999999999545\n"): total_tests := total_tests + 1: fxm := cos(0.49999999999999545): fxr2 := 0.877582561890374897502482231718396819e0: fxrerr := 0.528e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5999999999999954\n"): total_tests := total_tests + 1: fxm := cos(0.5999999999999954): fxr2 := 0.825335614909680894596330116109287112e0: fxrerr := 0.683e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6999999999999954\n"): total_tests := total_tests + 1: fxm := cos(0.6999999999999954): fxr2 := 0.76484218728449138965722128356261977e0: fxrerr := 0.872e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7999999999999954\n"): total_tests := total_tests + 1: fxm := cos(0.7999999999999954): fxr2 := 0.696706709347168720758768119439657252e0: fxrerr := 0.108e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8999999999999954\n"): total_tests := total_tests + 1: fxm := cos(0.8999999999999954): fxr2 := 0.621609968270668059788500437824143794e0: fxrerr := 0.132e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9999999999999953\n"): total_tests := total_tests + 1: fxm := cos(0.9999999999999953): fxr2 := 0.540302305868143672314565204550590226e0: fxrerr := 0.16e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0999999999999954\n"): total_tests := total_tests + 1: fxm := cos(1.0999999999999954): fxr2 := 0.453596121425581487325226334382480855e0: fxrerr := 0.194e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.1999999999999955\n"): total_tests := total_tests + 1: fxm := cos(1.1999999999999955): fxr2 := 0.362357754476677771814260208137980663e0: fxrerr := 0.232e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2999999999999956\n"): total_tests := total_tests + 1: fxm := cos(1.2999999999999956): fxr2 := 0.267498828624591646653999944939326658e0: fxrerr := 0.274e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3999999999999957\n"): total_tests := total_tests + 1: fxm := cos(1.3999999999999957): fxr2 := 0.169967142900245176050586985580855293e0: fxrerr := 0.323e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4999999999999958\n"): total_tests := total_tests + 1: fxm := cos(1.4999999999999958): fxr2 := 0.707372016677070995671335884622548323e-1: fxrerr := 0.38e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.5999999999999959\n"): total_tests := total_tests + 1: fxm := cos(1.5999999999999959): fxr2 := -0.2919952230128462795399799277507921e-1: fxrerr := 0.445e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.699999999999996\n"): total_tests := total_tests + 1: fxm := cos(1.699999999999996): fxr2 := -0.12884449429552071742840104745938116e0: fxrerr := 0.515e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.799999999999996\n"): total_tests := total_tests + 1: fxm := cos(1.799999999999996): fxr2 := -0.22720209469308315992615079374801675e0: fxrerr := 0.6e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.8999999999999961\n"): total_tests := total_tests + 1: fxm := cos(1.8999999999999961): fxr2 := -0.32328956686349973170849171416134622e0: fxrerr := 0.693e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.9999999999999962\n"): total_tests := total_tests + 1: fxm := cos(1.9999999999999962): fxr2 := -0.41614683654713893166734629190731491e0: fxrerr := 0.801e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.099999999999996\n"): total_tests := total_tests + 1: fxm := cos(2.099999999999996): fxr2 := -0.50484610459985399878347192822004578e0: fxrerr := 0.926e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.199999999999996\n"): total_tests := total_tests + 1: fxm := cos(2.199999999999996): fxr2 := -0.58850111725534247453852733428948297e0: fxrerr := 0.105e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.2999999999999963\n"): total_tests := total_tests + 1: fxm := cos(2.2999999999999963): fxr2 := -0.66627602127982143420859551729680005e0: fxrerr := 0.121e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.3999999999999964\n"): total_tests := total_tests + 1: fxm := cos(2.3999999999999964): fxr2 := -0.73739371554124306794137224318666877e0: fxrerr := 0.137e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.4999999999999964\n"): total_tests := total_tests + 1: fxm := cos(2.4999999999999964): fxr2 := -0.80114361554693156033378401621878148e0: fxrerr := 0.158e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.5999999999999965\n"): total_tests := total_tests + 1: fxm := cos(2.5999999999999965): fxr2 := -0.85688875336894542954290077651512907e0: fxrerr := 0.18e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.6999999999999966\n"): total_tests := total_tests + 1: fxm := cos(2.6999999999999966): fxr2 := -0.90407214201705969489093448691632691e0: fxrerr := 0.204e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.7999999999999967\n"): total_tests := total_tests + 1: fxm := cos(2.7999999999999967): fxr2 := -0.94222234066865704712589260287478894e0: fxrerr := 0.233e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.899999999999997\n"): total_tests := total_tests + 1: fxm := cos(2.899999999999997): fxr2 := -0.97095816514958980403311902739417809e0: fxrerr := 0.266e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.999999999999997\n"): total_tests := total_tests + 1: fxm := cos(2.999999999999997): fxr2 := -0.98999249660044503391154861512513979e0: fxrerr := 0.302e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.099999999999997\n"): total_tests := total_tests + 1: fxm := cos(3.099999999999997): fxr2 := -0.99913515027327933975038875466523228e0: fxrerr := 0.345e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.199999999999997\n"): total_tests := total_tests + 1: fxm := cos(3.199999999999997): fxr2 := -0.99829477579475325978409100501881753e0: fxrerr := 0.392e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.299999999999997\n"): total_tests := total_tests + 1: fxm := cos(3.299999999999997): fxr2 := -0.98747976990886535717367348084355541e0: fxrerr := 0.443e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.3999999999999972\n"): total_tests := total_tests + 1: fxm := cos(3.3999999999999972): fxr2 := -0.96679819257946172979728721488959763e0: fxrerr := 0.502e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.4999999999999973\n"): total_tests := total_tests + 1: fxm := cos(3.4999999999999973): fxr2 := -0.93645668729079728481337238864193685e0: fxrerr := 0.57e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.5999999999999974\n"): total_tests := total_tests + 1: fxm := cos(3.5999999999999974): fxr2 := -0.89675841633414815642344429187910716e0: fxrerr := 0.645e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.6999999999999975\n"): total_tests := total_tests + 1: fxm := cos(3.6999999999999975): fxr2 := -0.84810003171040948342602237758478514e0: fxrerr := 0.731e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.7999999999999976\n"): total_tests := total_tests + 1: fxm := cos(3.7999999999999976): fxr2 := -0.7909677119144181684555064368742289e0: fxrerr := 0.827e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.8999999999999977\n"): total_tests := total_tests + 1: fxm := cos(3.8999999999999977): fxr2 := -0.72593230420014171123449660775221198e0: fxrerr := 0.797e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cos,cos,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cos,cos,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = tan apfunc = tan\n"): fprintf(except_fd,"maplefunc = tan apfunc = tan\n"): fprintf(out_fd,"x = -1.5\n"): total_tests := total_tests + 1: fxm := tan(-1.5): fxr2 := -0.14101419947171719387646083651987726e2: fxrerr := 0.253e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4\n"): total_tests := total_tests + 1: fxm := tan(-1.4): fxr2 := -0.57978837154828896437077202436036951e1: fxrerr := 0.405e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2999999999999998\n"): total_tests := total_tests + 1: fxm := tan(-1.2999999999999998): fxr2 := -0.36021024479679753562027363836983767e1: fxrerr := 0.143e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1999999999999997\n"): total_tests := total_tests + 1: fxm := tan(-1.1999999999999997): fxr2 := -0.25721516221263166506208040739189879e1: fxrerr := 0.699e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0999999999999996\n"): total_tests := total_tests + 1: fxm := tan(-1.0999999999999996): fxr2 := -0.19647596572486500068187184810447882e1: fxrerr := 0.4e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9999999999999997\n"): total_tests := total_tests + 1: fxm := tan(-0.9999999999999997): fxr2 := -0.15574077246549012028513285630309118e1: fxrerr := 0.254e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8999999999999997\n"): total_tests := total_tests + 1: fxm := tan(-0.8999999999999997): fxr2 := -0.12601582175503383607349555075016834e1: fxrerr := 0.174e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7999999999999997\n"): total_tests := total_tests + 1: fxm := tan(-0.7999999999999997): fxr2 := -0.10296385570503633946996937233938435e1: fxrerr := 0.13e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6999999999999997\n"): total_tests := total_tests + 1: fxm := tan(-0.6999999999999997): fxr2 := -0.84228838046307893529322024327788409e0: fxrerr := 0.101e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5999999999999998\n"): total_tests := total_tests + 1: fxm := tan(-0.5999999999999998): fxr2 := -0.68413680834169202346229091187188649e0: fxrerr := 0.832e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.4999999999999998\n"): total_tests := total_tests + 1: fxm := tan(-0.4999999999999998): fxr2 := -0.54630248984379025356589738387534625e0: fxrerr := 0.71e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.3999999999999998\n"): total_tests := total_tests + 1: fxm := tan(-0.3999999999999998): fxr2 := -0.42279321873816152623081426497029054e0: fxrerr := 0.628e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.2999999999999998\n"): total_tests := total_tests + 1: fxm := tan(-0.2999999999999998): fxr2 := -0.30933624960962301389752061518888215e0: fxrerr := 0.571e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.19999999999999982\n"): total_tests := total_tests + 1: fxm := tan(-0.19999999999999982): fxr2 := -0.2027100355086722959249137423806346e0: fxrerr := 0.534e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.09999999999999981\n"): total_tests := total_tests + 1: fxm := tan(-0.09999999999999981): fxr2 := -0.1003346720854503531453412255070863e0: fxrerr := 0.511e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.942890293094024e-16\n"): total_tests := total_tests + 1: fxm := tan(1.942890293094024e-16): fxr2 := 0.194289029309402400000000000000002443e-15: fxrerr := 0.147e-49: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.1000000000000002\n"): total_tests := total_tests + 1: fxm := tan(0.1000000000000002): fxr2 := 0.100334672085450747071489330280093355e0: fxrerr := 0.579e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2000000000000002\n"): total_tests := total_tests + 1: fxm := tan(0.2000000000000002): fxr2 := 0.202710035508672691539629970832994725e0: fxrerr := 0.675e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.3000000000000002\n"): total_tests := total_tests + 1: fxm := tan(0.3000000000000002): fxr2 := 0.309336249609623452173086744207734173e0: fxrerr := 0.798e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.40000000000000024\n"): total_tests := total_tests + 1: fxm := tan(0.40000000000000024): fxr2 := 0.422793218738162044882620821799342565e0: fxrerr := 0.952e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5000000000000002\n"): total_tests := total_tests + 1: fxm := tan(0.5000000000000002): fxr2 := 0.546302489843790772944461547685281121e0: fxrerr := 0.117e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6000000000000002\n"): total_tests := total_tests + 1: fxm := tan(0.6000000000000002): fxr2 := 0.684136808341692610679559923054865177e0: fxrerr := 0.147e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7000000000000002\n"): total_tests := total_tests + 1: fxm := tan(0.7000000000000002): fxr2 := 0.842288380463079790018078174836450612e0: fxrerr := 0.194e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8000000000000002\n"): total_tests := total_tests + 1: fxm := tan(0.8000000000000002): fxr2 := 0.102963855705036442477747280577159168e1: fxrerr := 0.264e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9000000000000001\n"): total_tests := total_tests + 1: fxm := tan(0.9000000000000001): fxr2 := 0.126015821755033939593444881136056717e1: fxrerr := 0.379e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0000000000000002\n"): total_tests := total_tests + 1: fxm := tan(1.0000000000000002): fxr2 := 0.155740772465490291561073897041052573e1: fxrerr := 0.582e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.1000000000000003\n"): total_tests := total_tests + 1: fxm := tan(1.1000000000000003): fxr2 := 0.196475965724865340901507600733232545e1: fxrerr := 0.966e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2000000000000004\n"): total_tests := total_tests + 1: fxm := tan(1.2000000000000004): fxr2 := 0.257215162212632198179558111885801553e1: fxrerr := 0.177e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3000000000000005\n"): total_tests := total_tests + 1: fxm := tan(1.3000000000000005): fxr2 := 0.360210244796798513880216834353947091e1: fxrerr := 0.384e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4000000000000006\n"): total_tests := total_tests + 1: fxm := tan(1.4000000000000006): fxr2 := 0.579788371548291041298106720068228645e1: fxrerr := 0.111e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tan,tan,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tan,tan,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = exp apfunc = exp\n"): fprintf(except_fd,"maplefunc = exp apfunc = exp\n"): fprintf(out_fd,"x = -1.5\n"): total_tests := total_tests + 1: fxm := exp(-1.5): fxr2 := 0.223130160148429828933280470764012553e0: fxrerr := 0.246e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4\n"): total_tests := total_tests + 1: fxm := exp(-1.4): fxr2 := 0.246596963941606476939861239833767668e0: fxrerr := 0.274e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2999999999999998\n"): total_tests := total_tests + 1: fxm := exp(-1.2999999999999998): fxr2 := 0.272531793034012657628691774365875677e0: fxrerr := 0.299e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1999999999999997\n"): total_tests := total_tests + 1: fxm := exp(-1.1999999999999997): fxr2 := 0.30119421191220218700324118074386505e0: fxrerr := 0.33e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0999999999999996\n"): total_tests := total_tests + 1: fxm := exp(-1.0999999999999996): fxr2 := 0.33287108369807968643728038566316352e0: fxrerr := 0.364e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9999999999999997\n"): total_tests := total_tests + 1: fxm := exp(-0.9999999999999997): fxr2 := 0.367879441171442431959356121594173925e0: fxrerr := 0.198e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8999999999999997\n"): total_tests := total_tests + 1: fxm := exp(-0.8999999999999997): fxr2 := 0.406569659740599233854352161825377872e0: fxrerr := 0.218e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7999999999999997\n"): total_tests := total_tests + 1: fxm := exp(-0.7999999999999997): fxr2 := 0.449328964117221726228791620182060475e0: fxrerr := 0.238e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6999999999999997\n"): total_tests := total_tests + 1: fxm := exp(-0.6999999999999997): fxr2 := 0.496585303791409663680391230820405746e0: fxrerr := 0.261e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5999999999999998\n"): total_tests := total_tests + 1: fxm := exp(-0.5999999999999998): fxr2 := 0.548811636094026542390786136037865431e0: fxrerr := 0.292e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.4999999999999998\n"): total_tests := total_tests + 1: fxm := exp(-0.4999999999999998): fxr2 := 0.606530659712633544909931477517877351e0: fxrerr := 0.321e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.3999999999999998\n"): total_tests := total_tests + 1: fxm := exp(-0.3999999999999998): fxr2 := 0.670320046035639434808442132275699673e0: fxrerr := 0.351e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.2999999999999998\n"): total_tests := total_tests + 1: fxm := exp(-0.2999999999999998): fxr2 := 0.740818220681718014230517915661404968e0: fxrerr := 0.386e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.19999999999999982\n"): total_tests := total_tests + 1: fxm := exp(-0.19999999999999982): fxr2 := 0.818730753077982006041471062655787322e0: fxrerr := 0.423e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.09999999999999981\n"): total_tests := total_tests + 1: fxm := exp(-0.09999999999999981): fxr2 := 0.904837418035959745083358486278771913e0: fxrerr := 0.463e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.942890293094024e-16\n"): total_tests := total_tests + 1: fxm := exp(1.942890293094024e-16): fxr2 := 0.100000000000000019428902930940241887e1: fxrerr := 0.1e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.1000000000000002\n"): total_tests := total_tests + 1: fxm := exp(0.1000000000000002): fxr2 := 0.110517091807564784584589144161979364e1: fxrerr := 0.715e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2000000000000002\n"): total_tests := total_tests + 1: fxm := exp(0.2000000000000002): fxr2 := 0.122140275816017007820162362667366529e1: fxrerr := 0.848e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.3000000000000002\n"): total_tests := total_tests + 1: fxm := exp(0.3000000000000002): fxr2 := 0.1349858807576003373955505828528655e1: fxrerr := 0.995e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.40000000000000024\n"): total_tests := total_tests + 1: fxm := exp(0.40000000000000024): fxr2 := 0.149182469764127067586278038674214141e1: fxrerr := 0.115e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5000000000000002\n"): total_tests := total_tests + 1: fxm := exp(0.5000000000000002): fxr2 := 0.16487212707001284765929049278398258e1: fxrerr := 0.134e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6000000000000002\n"): total_tests := total_tests + 1: fxm := exp(0.6000000000000002): fxr2 := 0.182211880039050933929912774626469576e1: fxrerr := 0.155e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7000000000000002\n"): total_tests := total_tests + 1: fxm := exp(0.7000000000000002): fxr2 := 0.201375270747047692437509088267840973e1: fxrerr := 0.178e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8000000000000002\n"): total_tests := total_tests + 1: fxm := exp(0.8000000000000002): fxr2 := 0.222554092849246804968772322988864205e1: fxrerr := 0.206e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9000000000000001\n"): total_tests := total_tests + 1: fxm := exp(0.9000000000000001): fxr2 := 0.24596031111569499097604376792974492e1: fxrerr := 0.234e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0000000000000002\n"): total_tests := total_tests + 1: fxm := exp(1.0000000000000002): fxr2 := 0.271828182845904577901665316316176375e1: fxrerr := 0.554e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.1000000000000003\n"): total_tests := total_tests + 1: fxm := exp(1.1000000000000003): fxr2 := 0.300416602394643401330821513751874077e1: fxrerr := 0.623e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2000000000000004\n"): total_tests := total_tests + 1: fxm := exp(1.2000000000000004): fxr2 := 0.332011692273654881757753652422090525e1: fxrerr := 0.706e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3000000000000005\n"): total_tests := total_tests + 1: fxm := exp(1.3000000000000005): fxr2 := 0.366929666761924605510582372563405464e1: fxrerr := 0.792e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4000000000000006\n"): total_tests := total_tests + 1: fxm := exp(1.4000000000000006): fxr2 := 0.405519996684467702034408900203410197e1: fxrerr := 0.898e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = exp apfunc = exp\n"): fprintf(except_fd,"maplefunc = exp apfunc = exp\n"): fprintf(out_fd,"x = -100.5\n"): total_tests := total_tests + 1: fxm := exp(-100.5): fxr2 := 0.225634013591703631320281828241535816e-43: fxrerr := 0.149e-74: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-100.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-100.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -90.4\n"): total_tests := total_tests + 1: fxm := exp(-90.4): fxr2 := 0.549261091932993188705344581715793585e-39: fxrerr := 0.369e-70: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-90.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-90.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -80.30000000000001\n"): total_tests := total_tests + 1: fxm := exp(-80.30000000000001): fxr2 := 0.133706679373855616913513883103990969e-34: fxrerr := 0.918e-66: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-80.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-80.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -70.20000000000002\n"): total_tests := total_tests + 1: fxm := exp(-70.20000000000002): fxr2 := 0.325482295610408540314815436141008736e-30: fxrerr := 0.526e-61: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-70.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-70.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -60.100000000000016\n"): total_tests := total_tests + 1: fxm := exp(-60.100000000000016): fxr2 := 0.792321858952228379859991850872118985e-26: fxrerr := 0.121e-56: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-60.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-60.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -50.000000000000014\n"): total_tests := total_tests + 1: fxm := exp(-50.000000000000014): fxr2 := 0.192874984796389078051947132186707394e-21: fxrerr := 0.279e-52: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-50.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-50.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -39.90000000000001\n"): total_tests := total_tests + 1: fxm := exp(-39.90000000000001): fxr2 := 0.469515757263114272484250233895196932e-17: fxrerr := 0.633e-48: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-39.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-39.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -29.80000000000001\n"): total_tests := total_tests + 1: fxm := exp(-29.80000000000001): fxr2 := 0.11429426503964231946195857615764972e-12: fxrerr := 0.144e-43: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-29.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-29.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -19.70000000000001\n"): total_tests := total_tests + 1: fxm := exp(-19.70000000000001): fxr2 := 0.278226637101584316210685325034220794e-8: fxrerr := 0.326e-39: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-19.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-19.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.60000000000001\n"): total_tests := total_tests + 1: fxm := exp(-9.60000000000001): fxr2 := 0.677287364908531957098235504566605377e-4: fxrerr := 0.125e-35: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,-9.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,-9.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.49999999999998934\n"): total_tests := total_tests + 1: fxm := exp(0.49999999999998934): fxr2 := 0.164872127070011057147990512454179476e1: fxrerr := 0.134e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,0.49999999999998934,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,0.49999999999998934,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 10.599999999999989\n"): total_tests := total_tests + 1: fxm := exp(10.599999999999989): fxr2 := 0.401348374308753516262650913390236108e5: fxrerr := 0.78e-27: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,10.599999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,10.599999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 20.69999999999999\n"): total_tests := total_tests + 1: fxm := exp(20.69999999999999): fxr2 := 0.977002725826898210085005998817761444e9: fxrerr := 0.279e-22: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,20.69999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,20.69999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 30.79999999999999\n"): total_tests := total_tests + 1: fxm := exp(30.79999999999999): fxr2 := 0.237831865624768678480118828774682531e14: fxrerr := 0.89e-18: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,30.79999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,30.79999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 40.89999999999999\n"): total_tests := total_tests + 1: fxm := exp(40.89999999999999): fxr2 := 0.578954334632837335028672263363638974e18: fxrerr := 0.269e-13: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,40.89999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,40.89999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 50.99999999999999\n"): total_tests := total_tests + 1: fxm := exp(50.99999999999999): fxr2 := 0.140934908242692470295839006191951504e23: fxrerr := 0.775e-9: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,50.99999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,50.99999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 61.099999999999994\n"): total_tests := total_tests + 1: fxm := exp(61.099999999999994): fxr2 := 0.343077979958000798073350997081653918e27: fxrerr := 0.219e-4: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,61.099999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,61.099999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 71.19999999999999\n"): total_tests := total_tests + 1: fxm := exp(71.19999999999999): fxr2 := 0.83515504994245721942762285581649615e31: fxrerr := 0.604e0: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,71.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,71.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 81.29999999999998\n"): total_tests := total_tests + 1: fxm := exp(81.29999999999998): fxr2 := 0.203301872515912910378584476665714227e36: fxrerr := 0.163e5: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,81.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,81.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 91.39999999999998\n"): total_tests := total_tests + 1: fxm := exp(91.39999999999998): fxr2 := 0.494897939865474068276169423077571158e40: fxrerr := 0.437e9: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(exp,exp,91.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(exp,exp,91.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = arcsin apfunc = asin\n"): fprintf(except_fd,"maplefunc = arcsin apfunc = asin\n"): fprintf(out_fd,"x = -0.9\n"): total_tests := total_tests + 1: fxm := arcsin(-0.9): fxr2 := -0.11197695149986341866866770558453836e1: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8\n"): total_tests := total_tests + 1: fxm := arcsin(-0.8): fxr2 := -0.92729521800161223242851246292242801e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7000000000000001\n"): total_tests := total_tests + 1: fxm := arcsin(-0.7000000000000001): fxr2 := -0.77539749661075320376836175551597659e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6000000000000001\n"): total_tests := total_tests + 1: fxm := arcsin(-0.6000000000000001): fxr2 := -0.64350110879328451180280922871732813e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5000000000000001\n"): total_tests := total_tests + 1: fxm := arcsin(-0.5000000000000001): fxr2 := -0.52359877559829898854716106847174032e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.40000000000000013\n"): total_tests := total_tests + 1: fxm := arcsin(-0.40000000000000013): fxr2 := -0.41151684606748816122636655101238764e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.30000000000000016\n"): total_tests := total_tests + 1: fxm := arcsin(-0.30000000000000016): fxr2 := -0.30469265401539767569757683673446074e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.20000000000000015\n"): total_tests := total_tests + 1: fxm := arcsin(-0.20000000000000015): fxr2 := -0.20135792079033094454823447616625683e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.10000000000000014\n"): total_tests := total_tests + 1: fxm := arcsin(-0.10000000000000014): fxr2 := -0.1001674211615599370508173157423848e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.3877787807814457e-16\n"): total_tests := total_tests + 1: fxm := arcsin(-1.3877787807814457e-16): fxr2 := -0.13877787807814457000000000000000044e-15: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.09999999999999987\n"): total_tests := total_tests + 1: fxm := arcsin(0.09999999999999987): fxr2 := 0.100167421161559665690607195755124355e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.19999999999999987\n"): total_tests := total_tests + 1: fxm := arcsin(0.19999999999999987): fxr2 := 0.201357920790330658774431151462144877e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2999999999999999\n"): total_tests := total_tests + 1: fxm := arcsin(0.2999999999999999): fxr2 := 0.304692654015397403143519289035701301e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.3999999999999999\n"): total_tests := total_tests + 1: fxm := arcsin(0.3999999999999999): fxr2 := 0.411516846067487910275792779621147549e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.4999999999999999\n"): total_tests := total_tests + 1: fxm := arcsin(0.4999999999999999): fxr2 := 0.523598775598298757607053392621434731e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5999999999999999\n"): total_tests := total_tests + 1: fxm := arcsin(0.5999999999999999): fxr2 := 0.643501108793284261802809228717328462e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6999999999999998\n"): total_tests := total_tests + 1: fxm := arcsin(0.6999999999999998): fxr2 := 0.775397496610752783684336547113064795e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7999999999999998\n"): total_tests := total_tests + 1: fxm := arcsin(0.7999999999999998): fxr2 := 0.927295218001611899095179129589169463e0: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8999999999999998\n"): total_tests := total_tests + 1: fxm := arcsin(0.8999999999999998): fxr2 := 0.111976951499863372785520931472208347e1: fxrerr := 0.1e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arcsin,asin,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arcsin,asin,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = arccos apfunc = acos\n"): fprintf(except_fd,"maplefunc = arccos apfunc = acos\n"): fprintf(out_fd,"x = -0.9\n"): total_tests := total_tests + 1: fxm := arccos(-0.9): fxr2 := 0.269056584179353080591799874748513495e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8\n"): total_tests := total_tests + 1: fxm := arccos(-0.8): fxr2 := 0.249809154479650885165983415456217936e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7000000000000001\n"): total_tests := total_tests + 1: fxm := arccos(-0.7000000000000001): fxr2 := 0.234619382340564982299968344715572794e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6000000000000001\n"): total_tests := total_tests + 1: fxm := arccos(-0.6000000000000001): fxr2 := 0.221429743558818113103413092035707948e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5000000000000001\n"): total_tests := total_tests + 1: fxm := arccos(-0.5000000000000001): fxr2 := 0.209439510239319560777848276011149167e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.40000000000000013\n"): total_tests := total_tests + 1: fxm := arccos(-0.40000000000000013): fxr2 := 0.198231317286238478045768824265213899e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.30000000000000016\n"): total_tests := total_tests + 1: fxm := arccos(-0.30000000000000016): fxr2 := 0.187548898081029429492889852837421209e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.20000000000000015\n"): total_tests := total_tests + 1: fxm := arccos(-0.20000000000000015): fxr2 := 0.177215424758522756377955616780600818e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.10000000000000014\n"): total_tests := total_tests + 1: fxm := arccos(-0.10000000000000014): fxr2 := 0.167096374795645655628213900738213615e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.3877787807814457e-16\n"): total_tests := total_tests + 1: fxm := arccos(-1.3877787807814457e-16): fxr2 := 0.157079632679489675800919976978432135e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.09999999999999987\n"): total_tests := total_tests + 1: fxm := arccos(0.09999999999999987): fxr2 := 0.147062890563333695354071449588462699e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.19999999999999987\n"): total_tests := total_tests + 1: fxm := arccos(0.19999999999999987): fxr2 := 0.136943840600456596045689054017760647e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2999999999999999\n"): total_tests := total_tests + 1: fxm := arccos(0.2999999999999999): fxr2 := 0.126610367277949921608780240260405004e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.3999999999999999\n"): total_tests := total_tests + 1: fxm := arccos(0.3999999999999999): fxr2 := 0.11592794807274087089555289120186038e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.4999999999999999\n"): total_tests := total_tests + 1: fxm := arccos(0.4999999999999999): fxr2 := 0.104719755119659786162426829901831661e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5999999999999999\n"): total_tests := total_tests + 1: fxm := arccos(0.5999999999999999): fxr2 := 0.927295218001612357428512462922422888e0: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6999999999999998\n"): total_tests := total_tests + 1: fxm := arccos(0.6999999999999998): fxr2 := 0.795398830184143835546985144526686555e0: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7999999999999998\n"): total_tests := total_tests + 1: fxm := arccos(0.7999999999999998): fxr2 := 0.643501108793284720136142562050581887e0: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8999999999999998\n"): total_tests := total_tests + 1: fxm := arccos(0.8999999999999998): fxr2 := 0.45102681179626289137611237691766788e0: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arccos,acos,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arccos,acos,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = arctan apfunc = atan\n"): fprintf(except_fd,"maplefunc = arctan apfunc = atan\n"): fprintf(out_fd,"x = -10.5\n"): total_tests := total_tests + 1: fxm := arctan(-10.5): fxr2 := -0.14758446204521402994740697066993044e1: fxrerr := 0.178e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.4\n"): total_tests := total_tests + 1: fxm := arctan(-10.4): fxr2 := -0.14749371796848834305340397686400432e1: fxrerr := 0.179e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-10.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-10.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.3\n"): total_tests := total_tests + 1: fxm := arctan(-10.3): fxr2 := -0.14740122816874226938499962360139613e1: fxrerr := 0.18e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-10.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-10.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.200000000000001\n"): total_tests := total_tests + 1: fxm := arctan(-10.200000000000001): fxr2 := -0.14730694194361778977599008338325008e1: fxrerr := 0.181e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-10.200000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-10.200000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.100000000000001\n"): total_tests := total_tests + 1: fxm := arctan(-10.100000000000001): fxr2 := -0.14721080661464900829557329140481971e1: fxrerr := 0.182e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-10.100000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-10.100000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.000000000000002\n"): total_tests := total_tests + 1: fxm := arctan(-10.000000000000002): fxr2 := -0.14711276743037346116548557697815287e1: fxrerr := 0.182e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-10.000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-10.000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.900000000000002\n"): total_tests := total_tests + 1: fxm := arctan(-9.900000000000002): fxr2 := -0.14701276746370677453863315621470062e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.800000000000002\n"): total_tests := total_tests + 1: fxm := arctan(-9.800000000000002): fxr2 := -0.14691074750318196014609416481827517e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.800000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.800000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.700000000000003\n"): total_tests := total_tests + 1: fxm := arctan(-9.700000000000003): fxr2 := -0.14680664593762271609752313013941755e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.700000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.700000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.600000000000003\n"): total_tests := total_tests + 1: fxm := arctan(-9.600000000000003): fxr2 := -0.14670039863378538234164863118663396e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.600000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.600000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.500000000000004\n"): total_tests := total_tests + 1: fxm := arctan(-9.500000000000004): fxr2 := -0.14659193880646627672486019624611437e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.500000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.500000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.400000000000004\n"): total_tests := total_tests + 1: fxm := arctan(-9.400000000000004): fxr2 := -0.1464811968805296771971060143028656e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.400000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.400000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.300000000000004\n"): total_tests := total_tests + 1: fxm := arctan(-9.300000000000004): fxr2 := -0.14636810034426649251343890772048382e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.300000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.300000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.200000000000005\n"): total_tests := total_tests + 1: fxm := arctan(-9.200000000000005): fxr2 := -0.1462525735934440636470355417429907e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.100000000000005\n"): total_tests := total_tests + 1: fxm := arctan(-9.100000000000005): fxr2 := -0.14613453776535332568494965849370385e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.000000000000005\n"): total_tests := total_tests + 1: fxm := arctan(-9.000000000000005): fxr2 := -0.14601391056210010336477915755272168e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-9.000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-9.000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.900000000000006\n"): total_tests := total_tests + 1: fxm := arctan(-8.900000000000006): fxr2 := -0.1458906060623220579189424637057783e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.800000000000006\n"): total_tests := total_tests + 1: fxm := arctan(-8.800000000000006): fxr2 := -0.14576453452044121826738056365991634e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.700000000000006\n"): total_tests := total_tests + 1: fxm := arctan(-8.700000000000006): fxr2 := -0.14563560215248332498101112779789815e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.600000000000007\n"): total_tests := total_tests + 1: fxm := arctan(-8.600000000000007): fxr2 := -0.14550371090740859926741174704453361e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.600000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.600000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.500000000000007\n"): total_tests := total_tests + 1: fxm := arctan(-8.500000000000007): fxr2 := -0.14536875822280324318054433798400017e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.400000000000007\n"): total_tests := total_tests + 1: fxm := arctan(-8.400000000000007): fxr2 := -0.14523063676367589486948112401033943e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.400000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.400000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.300000000000008\n"): total_tests := total_tests + 1: fxm := arctan(-8.300000000000008): fxr2 := -0.14508923414298728323682065596693551e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.200000000000008\n"): total_tests := total_tests + 1: fxm := arctan(-8.200000000000008): fxr2 := -0.14494443262241330577171571178839373e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.200000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.200000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.100000000000009\n"): total_tests := total_tests + 1: fxm := arctan(-8.100000000000009): fxr2 := -0.14479610879170017586835019879730084e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.100000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.100000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.000000000000009\n"): total_tests := total_tests + 1: fxm := arctan(-8.000000000000009): fxr2 := -0.14464413322481353226615053040141886e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-8.000000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-8.000000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.900000000000009\n"): total_tests := total_tests + 1: fxm := arctan(-7.900000000000009): fxr2 := -0.144488370110909854406262296657176e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.900000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.900000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.80000000000001\n"): total_tests := total_tests + 1: fxm := arctan(-7.80000000000001): fxr2 := -0.14432867685796585218638850146879825e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.70000000000001\n"): total_tests := total_tests + 1: fxm := arctan(-7.70000000000001): fxr2 := -0.14416490366668767254671145523509659e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.60000000000001\n"): total_tests := total_tests + 1: fxm := arctan(-7.60000000000001): fxr2 := -0.14399689307208398352437171231212853e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.500000000000011\n"): total_tests := total_tests + 1: fxm := arctan(-7.500000000000011): fxr2 := -0.14382447944982227901011422392015802e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.500000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.500000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.400000000000011\n"): total_tests := total_tests + 1: fxm := arctan(-7.400000000000011): fxr2 := -0.14364748848419283088924106464833e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.400000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.400000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.300000000000011\n"): total_tests := total_tests + 1: fxm := arctan(-7.300000000000011): fxr2 := -0.14346573659417560617011387178207326e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.300000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.300000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.200000000000012\n"): total_tests := total_tests + 1: fxm := arctan(-7.200000000000012): fxr2 := -0.14327903031373773991097663329510321e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.200000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.200000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.100000000000012\n"): total_tests := total_tests + 1: fxm := arctan(-7.100000000000012): fxr2 := -0.143087165622077910278600316338384e1: fxrerr := 0.133e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.100000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.100000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.000000000000012\n"): total_tests := total_tests + 1: fxm := arctan(-7.000000000000012): fxr2 := -0.14288992721907329364184700745367952e1: fxrerr := 0.143e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-7.000000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-7.000000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.900000000000013\n"): total_tests := total_tests + 1: fxm := arctan(-6.900000000000013): fxr2 := -0.14268708774066805828631805469745632e1: fxrerr := 0.143e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.900000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.900000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.800000000000013\n"): total_tests := total_tests + 1: fxm := arctan(-6.800000000000013): fxr2 := -0.14247840690836214931348516615328593e1: fxrerr := 0.144e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.800000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.800000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.7000000000000135\n"): total_tests := total_tests + 1: fxm := arctan(-6.7000000000000135): fxr2 := -0.14226363060630655349278377280632497e1: fxrerr := 0.144e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.7000000000000135,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.7000000000000135,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.600000000000014\n"): total_tests := total_tests + 1: fxm := arctan(-6.600000000000014): fxr2 := -0.14204248987877623938017967808095488e1: fxrerr := 0.144e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.600000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.600000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.500000000000014\n"): total_tests := total_tests + 1: fxm := arctan(-6.500000000000014): fxr2 := -0.1418146998399631783103282269287337e1: fxrerr := 0.145e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.500000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.500000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.400000000000015\n"): total_tests := total_tests + 1: fxm := arctan(-6.400000000000015): fxr2 := -0.14157995848709559944109247618913327e1: fxrerr := 0.145e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.400000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.400000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.300000000000015\n"): total_tests := total_tests + 1: fxm := arctan(-6.300000000000015): fxr2 := -0.14133794540683062709157934968894057e1: fxrerr := 0.145e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.200000000000015\n"): total_tests := total_tests + 1: fxm := arctan(-6.200000000000015): fxr2 := -0.14108832036366777304158748543883552e1: fxrerr := 0.146e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.200000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.200000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.100000000000016\n"): total_tests := total_tests + 1: fxm := arctan(-6.100000000000016): fxr2 := -0.14083072175776936640616997348252531e1: fxrerr := 0.146e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -6.000000000000016\n"): total_tests := total_tests + 1: fxm := arctan(-6.000000000000016): fxr2 := -0.14056476493802702133846258344271185e1: fxrerr := 0.147e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-6.000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-6.000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.900000000000016\n"): total_tests := total_tests + 1: fxm := arctan(-5.900000000000016): fxr2 := -0.14029004035445224984005325744124588e1: fxrerr := 0.147e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.800000000000017\n"): total_tests := total_tests + 1: fxm := arctan(-5.800000000000017): fxr2 := -0.14000611153196143052662489499595197e1: fxrerr := 0.148e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.800000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.800000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.700000000000017\n"): total_tests := total_tests + 1: fxm := arctan(-5.700000000000017): fxr2 := -0.13971251284533232991058233982496431e1: fxrerr := 0.148e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.700000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.700000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.600000000000017\n"): total_tests := total_tests + 1: fxm := arctan(-5.600000000000017): fxr2 := -0.13940874707248605298513461843468019e1: fxrerr := 0.149e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.600000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.600000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.500000000000018\n"): total_tests := total_tests + 1: fxm := arctan(-5.500000000000018): fxr2 := -0.13909428270024189246427686943818185e1: fxrerr := 0.149e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.500000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.500000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.400000000000018\n"): total_tests := total_tests + 1: fxm := arctan(-5.400000000000018): fxr2 := -0.13876855095324130881147596673431402e1: fxrerr := 0.15e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.400000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.400000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.3000000000000185\n"): total_tests := total_tests + 1: fxm := arctan(-5.3000000000000185): fxr2 := -0.13843094251276804790067469947024444e1: fxrerr := 0.151e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.3000000000000185,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.3000000000000185,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.200000000000019\n"): total_tests := total_tests + 1: fxm := arctan(-5.200000000000019): fxr2 := -0.13808080388761815736676283056158865e1: fxrerr := 0.151e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.200000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.200000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.100000000000019\n"): total_tests := total_tests + 1: fxm := arctan(-5.100000000000019): fxr2 := -0.13771743339389519405576991139485649e1: fxrerr := 0.152e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.100000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.100000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -5.0000000000000195\n"): total_tests := total_tests + 1: fxm := arctan(-5.0000000000000195): fxr2 := -0.13734007669450166108612719264421487e1: fxrerr := 0.153e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-5.0000000000000195,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-5.0000000000000195,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.90000000000002\n"): total_tests := total_tests + 1: fxm := arctan(-4.90000000000002): fxr2 := -0.13694792184202566588539230929385621e1: fxrerr := 0.153e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.80000000000002\n"): total_tests := total_tests + 1: fxm := arctan(-4.80000000000002): fxr2 := -0.13654009376051300590529245578770422e1: fxrerr := 0.154e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.700000000000021\n"): total_tests := total_tests + 1: fxm := arctan(-4.700000000000021): fxr2 := -0.13611564809206850080876877757671766e1: fxrerr := 0.155e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.600000000000021\n"): total_tests := total_tests + 1: fxm := arctan(-4.600000000000021): fxr2 := -0.13567356432310760600170708401746771e1: fxrerr := 0.156e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.500000000000021\n"): total_tests := total_tests + 1: fxm := arctan(-4.500000000000021): fxr2 := -0.1352127380920955645424442059032477e1: fxrerr := 0.157e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.500000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.500000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.400000000000022\n"): total_tests := total_tests + 1: fxm := arctan(-4.400000000000022): fxr2 := -0.13473197256542646787077405088121385e1: fxrerr := 0.158e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.400000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.400000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.300000000000022\n"): total_tests := total_tests + 1: fxm := arctan(-4.300000000000022): fxr2 := -0.13422996875030354406802905008640795e1: fxrerr := 0.159e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.300000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.300000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.200000000000022\n"): total_tests := total_tests + 1: fxm := arctan(-4.200000000000022): fxr2 := -0.13370531459259963744661503500444469e1: fxrerr := 0.16e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.200000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.200000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.100000000000023\n"): total_tests := total_tests + 1: fxm := arctan(-4.100000000000023): fxr2 := -0.13315647268312373415846111651259077e1: fxrerr := 0.162e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -4.000000000000023\n"): total_tests := total_tests + 1: fxm := arctan(-4.000000000000023): fxr2 := -0.13258176636680338180004156810093892e1: fxrerr := 0.163e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-4.000000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-4.000000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.900000000000023\n"): total_tests := total_tests + 1: fxm := arctan(-3.900000000000023): fxr2 := -0.1319793640151863433666219085732592e1: fxrerr := 0.164e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.900000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.900000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.800000000000023\n"): total_tests := total_tests + 1: fxm := arctan(-3.800000000000023): fxr2 := -0.13134726118238094660667623120568728e1: fxrerr := 0.166e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.800000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.800000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.700000000000023\n"): total_tests := total_tests + 1: fxm := arctan(-3.700000000000023): fxr2 := -0.13068326031691936223535714540615933e1: fxrerr := 0.168e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.700000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.700000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.6000000000000227\n"): total_tests := total_tests + 1: fxm := arctan(-3.6000000000000227): fxr2 := -0.12998494764564777038692247550148581e1: fxrerr := 0.170e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.6000000000000227,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.6000000000000227,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.5000000000000226\n"): total_tests := total_tests + 1: fxm := arctan(-3.5000000000000226): fxr2 := -0.12924966677897869735634687798874653e1: fxrerr := 0.172e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.5000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.5000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.4000000000000226\n"): total_tests := total_tests + 1: fxm := arctan(-3.4000000000000226): fxr2 := -0.12847448850775801945796577751855174e1: fxrerr := 0.174e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.4000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.4000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.3000000000000225\n"): total_tests := total_tests + 1: fxm := arctan(-3.3000000000000225): fxr2 := -0.12765617616837107348248983068218254e1: fxrerr := 0.176e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.3000000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.3000000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.2000000000000224\n"): total_tests := total_tests + 1: fxm := arctan(-3.2000000000000224): fxr2 := -0.12679114584199272065533278747015554e1: fxrerr := 0.178e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.2000000000000224,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.2000000000000224,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.1000000000000223\n"): total_tests := total_tests + 1: fxm := arctan(-3.1000000000000223): fxr2 := -0.12587542052323654273506012257503641e1: fxrerr := 0.181e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.1000000000000223,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.1000000000000223,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -3.000000000000022\n"): total_tests := total_tests + 1: fxm := arctan(-3.000000000000022): fxr2 := -0.12490457723982566258299170772665702e1: fxrerr := 0.184e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-3.000000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-3.000000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.900000000000022\n"): total_tests := total_tests + 1: fxm := arctan(-2.900000000000022): fxr2 := -0.1238736859252013479316323697517826e1: fxrerr := 0.187e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.900000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.900000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.800000000000022\n"): total_tests := total_tests + 1: fxm := arctan(-2.800000000000022): fxr2 := -0.12277723863741957108455758976384642e1: fxrerr := 0.191e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.800000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.800000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.700000000000022\n"): total_tests := total_tests + 1: fxm := arctan(-2.700000000000022): fxr2 := -0.12160906747839589566586850667986004e1: fxrerr := 0.194e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.700000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.700000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.600000000000022\n"): total_tests := total_tests + 1: fxm := arctan(-2.600000000000022): fxr2 := -0.12036224929766802458583790665785556e1: fxrerr := 0.199e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.600000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.600000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.5000000000000218\n"): total_tests := total_tests + 1: fxm := arctan(-2.5000000000000218): fxr2 := -0.11902899496825347398242854989446459e1: fxrerr := 0.203e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.5000000000000218,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.5000000000000218,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.4000000000000217\n"): total_tests := total_tests + 1: fxm := arctan(-2.4000000000000217): fxr2 := -0.11760052070951383125503937588585762e1: fxrerr := 0.208e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.4000000000000217,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.4000000000000217,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.3000000000000216\n"): total_tests := total_tests + 1: fxm := arctan(-2.3000000000000216): fxr2 := -0.11606689862534090608023684724267258e1: fxrerr := 0.214e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.3000000000000216,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.3000000000000216,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.2000000000000215\n"): total_tests := total_tests + 1: fxm := arctan(-2.2000000000000215): fxr2 := -0.11441688336680242115184302247850117e1: fxrerr := 0.220e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.2000000000000215,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.2000000000000215,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.1000000000000214\n"): total_tests := total_tests + 1: fxm := arctan(-2.1000000000000214): fxr2 := -0.11263771168938016655341256209625871e1: fxrerr := 0.226e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.1000000000000214,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.1000000000000214,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -2.0000000000000213\n"): total_tests := total_tests + 1: fxm := arctan(-2.0000000000000213): fxr2 := -0.11071487177940947630170654601422419e1: fxrerr := 0.234e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-2.0000000000000213,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-2.0000000000000213,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.9000000000000212\n"): total_tests := total_tests + 1: fxm := arctan(-1.9000000000000212): fxr2 := -0.10863183977578780167624611437076223e1: fxrerr := 0.243e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.9000000000000212,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.9000000000000212,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.8000000000000211\n"): total_tests := total_tests + 1: fxm := arctan(-1.8000000000000211): fxr2 := -0.10636978224025646373589854556306106e1: fxrerr := 0.252e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.8000000000000211,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.8000000000000211,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.700000000000021\n"): total_tests := total_tests + 1: fxm := arctan(-1.700000000000021): fxr2 := -0.10390722595360964260788338854155759e1: fxrerr := 0.263e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.600000000000021\n"): total_tests := total_tests + 1: fxm := arctan(-1.600000000000021): fxr2 := -0.10121970114513400821362179695644381e1: fxrerr := 0.275e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.5000000000000209\n"): total_tests := total_tests + 1: fxm := arctan(-1.5000000000000209): fxr2 := -0.98279372324733549875494138018340345e0: fxrerr := 0.288e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.5000000000000209,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.5000000000000209,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4000000000000208\n"): total_tests := total_tests + 1: fxm := arctan(-1.4000000000000208): fxr2 := -0.95054684081208217492181616242171591e0: fxrerr := 0.303e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.4000000000000208,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.4000000000000208,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.3000000000000207\n"): total_tests := total_tests + 1: fxm := arctan(-1.3000000000000207): fxr2 := -0.91510070055336811173408821773145308e0: fxrerr := 0.320e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.3000000000000207,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.3000000000000207,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2000000000000206\n"): total_tests := total_tests + 1: fxm := arctan(-1.2000000000000206): fxr2 := -0.87605805059820186573699834071493992e0: fxrerr := 0.340e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.2000000000000206,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.2000000000000206,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1000000000000205\n"): total_tests := total_tests + 1: fxm := arctan(-1.1000000000000205): fxr2 := -0.83298126667444098143579310925302634e0: fxrerr := 0.361e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.1000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.1000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0000000000000204\n"): total_tests := total_tests + 1: fxm := arctan(-1.0000000000000204): fxr2 := -0.78544816339694830964066188316990115e0: fxrerr := 0.1e-3: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-1.0000000000000204,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-1.0000000000000204,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9000000000000205\n"): total_tests := total_tests + 1: fxm := arctan(-0.9000000000000205): fxr2 := -0.73281510178651791760764290134811044e0: fxrerr := 0.276e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-0.9000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-0.9000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8000000000000205\n"): total_tests := total_tests + 1: fxm := arctan(-0.8000000000000205): fxr2 := -0.67474094222356516305652097348481275e0: fxrerr := 0.304e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-0.8000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-0.8000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7000000000000205\n"): total_tests := total_tests + 1: fxm := arctan(-0.7000000000000205): fxr2 := -0.61072596438922237493302062132417324e0: fxrerr := 0.335e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-0.7000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-0.7000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6000000000000205\n"): total_tests := total_tests + 1: fxm := arctan(-0.6000000000000205): fxr2 := -0.54041950027059922897299012917815507e0: fxrerr := 0.367e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(arctan,atan,-0.6000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(arctan,atan,-0.6000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = ln apfunc = log\n"): fprintf(except_fd,"maplefunc = ln apfunc = log\n"): fprintf(out_fd,"x = 0.01\n"): total_tests := total_tests + 1: fxm := ln(0.01): fxr2 := -0.46051701859880913680359829093686929e1: fxrerr := 0.551e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.11\n"): total_tests := total_tests + 1: fxm := ln(0.11): fxr2 := -0.22072749131897208239740393314035681e1: fxrerr := 0.454e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.21000000000000002\n"): total_tests := total_tests + 1: fxm := ln(0.21000000000000002): fxr2 := -0.15606477482646682762972896909077736e1: fxrerr := 0.238e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.31000000000000005\n"): total_tests := total_tests + 1: fxm := ln(0.31000000000000005): fxr2 := -0.11711829815029449608164960041812137e1: fxrerr := 0.161e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.41000000000000003\n"): total_tests := total_tests + 1: fxm := ln(0.41000000000000003): fxr2 := -0.89159811928378349099848782901424958e0: fxrerr := 0.121e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.51\n"): total_tests := total_tests + 1: fxm := ln(0.51): fxr2 := -0.67334455326376559639120305457307558e0: fxrerr := 0.98e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.61\n"): total_tests := total_tests + 1: fxm := ln(0.61): fxr2 := -0.49429632181478011928459380594311322e0: fxrerr := 0.819e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.71\n"): total_tests := total_tests + 1: fxm := ln(0.71): fxr2 := -0.34249030894677594670652837685569397e0: fxrerr := 0.704e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8099999999999999\n"): total_tests := total_tests + 1: fxm := ln(0.8099999999999999): fxr2 := -0.21072103131565272591179208513542312e0: fxrerr := 0.617e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9099999999999999\n"): total_tests := total_tests + 1: fxm := ln(0.9099999999999999): fxr2 := -0.94310679471241436767252614470126212e-1: fxrerr := 0.549e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.01\n"): total_tests := total_tests + 1: fxm := ln(1.01): fxr2 := 0.995033085316808284821535754429364e-2: fxrerr := 0.546e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.11\n"): total_tests := total_tests + 1: fxm := ln(1.11): fxr2 := 0.10436001532424276772735799858527524e0: fxrerr := 0.501e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2100000000000002\n"): total_tests := total_tests + 1: fxm := ln(1.2100000000000002): fxr2 := 0.19062035960864988537716044490865134e0: fxrerr := 0.464e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3100000000000003\n"): total_tests := total_tests + 1: fxm := ln(1.3100000000000003): fxr2 := 0.27002713721306040512107468958705574e0: fxrerr := 0.432e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4100000000000004\n"): total_tests := total_tests + 1: fxm := ln(1.4100000000000004): fxr2 := 0.34358970439007719386815625973730154e0: fxrerr := 0.405e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.5100000000000005\n"): total_tests := total_tests + 1: fxm := ln(1.5100000000000005): fxr2 := 0.41210965082683329188608120468525104e0: fxrerr := 0.382e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.6100000000000005\n"): total_tests := total_tests + 1: fxm := ln(1.6100000000000005): fxr2 := 0.47623417899637193843512887706474444e0: fxrerr := 0.361e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.7100000000000006\n"): total_tests := total_tests + 1: fxm := ln(1.7100000000000006): fxr2 := 0.53649337051456882564072797882027414e0: fxrerr := 0.343e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.8100000000000007\n"): total_tests := total_tests + 1: fxm := ln(1.8100000000000007): fxr2 := 0.59332684527773476554343562097693124e0: fxrerr := 0.327e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.9100000000000008\n"): total_tests := total_tests + 1: fxm := ln(1.9100000000000008): fxr2 := 0.64710324205853892366213458210058294e0: fxrerr := 0.312e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.0100000000000007\n"): total_tests := total_tests + 1: fxm := ln(2.0100000000000007): fxr2 := 0.69813472207098473128804079157916574e0: fxrerr := 0.299e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.1100000000000008\n"): total_tests := total_tests + 1: fxm := ln(2.1100000000000008): fxr2 := 0.74668794748797550685289278736511504e0: fxrerr := 0.287e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.210000000000001\n"): total_tests := total_tests + 1: fxm := ln(2.210000000000001): fxr2 := 0.79299251552966190075572693287505834e0: fxrerr := 0.277e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.310000000000001\n"): total_tests := total_tests + 1: fxm := ln(2.310000000000001): fxr2 := 0.83724752453370260542699154939492604e0: fxrerr := 0.267e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.410000000000001\n"): total_tests := total_tests + 1: fxm := ln(2.410000000000001): fxr2 := 0.87962674750256404236818774544159964e0: fxrerr := 0.258e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.510000000000001\n"): total_tests := total_tests + 1: fxm := ln(2.510000000000001): fxr2 := 0.92028275314369291658897683163148954e0: fxrerr := 0.25e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.610000000000001\n"): total_tests := total_tests + 1: fxm := ln(2.610000000000001): fxr2 := 0.95935022133460242507954204894545184e0: fxrerr := 0.242e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.7100000000000013\n"): total_tests := total_tests + 1: fxm := ln(2.7100000000000013): fxr2 := 0.99694863489161001176568421180750854e0: fxrerr := 0.235e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.8100000000000014\n"): total_tests := total_tests + 1: fxm := ln(2.8100000000000014): fxr2 := 0.103318448334565489529129598471934744e1: fxrerr := 0.228e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.9100000000000015\n"): total_tests := total_tests + 1: fxm := ln(2.9100000000000015): fxr2 := 0.106815308118340166093990147503083174e1: fxrerr := 0.222e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.0100000000000016\n"): total_tests := total_tests + 1: fxm := ln(3.0100000000000016): fxr2 := 0.110194007876078489210367414144009954e1: fxrerr := 0.217e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.1100000000000017\n"): total_tests := total_tests + 1: fxm := ln(3.1100000000000017): fxr2 := 0.113462272619114331278380686828246314e1: fxrerr := 0.211e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.2100000000000017\n"): total_tests := total_tests + 1: fxm := ln(3.2100000000000017): fxr2 := 0.116627093714192502625867672090093004e1: fxrerr := 0.206e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.310000000000002\n"): total_tests := total_tests + 1: fxm := ln(3.310000000000002): fxr2 := 0.119694818938897213697824118096302004e1: fxrerr := 0.202e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.410000000000002\n"): total_tests := total_tests + 1: fxm := ln(3.410000000000002): fxr2 := 0.122671229129542600846538892275736304e1: fxrerr := 0.197e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.510000000000002\n"): total_tests := total_tests + 1: fxm := ln(3.510000000000002): fxr2 := 0.125561603747777501200381004353381294e1: fxrerr := 0.193e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.610000000000002\n"): total_tests := total_tests + 1: fxm := ln(3.610000000000002): fxr2 := 0.128370777234479010599869245302179094e1: fxrerr := 0.189e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.710000000000002\n"): total_tests := total_tests + 1: fxm := ln(3.710000000000002): fxr2 := 0.13110318766193443102973969245858434e1: fxrerr := 0.185e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.8100000000000023\n"): total_tests := total_tests + 1: fxm := ln(3.8100000000000023): fxr2 := 0.133762918913861020008124381768460553e1: fxrerr := 0.182e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.9100000000000024\n"): total_tests := total_tests + 1: fxm := ln(3.9100000000000024): fxr2 := 0.136353737399727501683104622829394536e1: fxrerr := 0.178e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.0100000000000025\n"): total_tests := total_tests + 1: fxm := ln(4.0100000000000025): fxr2 := 0.138879124131847844125609268670860631e1: fxrerr := 0.175e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.110000000000002\n"): total_tests := total_tests + 1: fxm := ln(4.110000000000002): fxr2 := 0.141342302850814372529245732171359267e1: fxrerr := 0.172e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.210000000000002\n"): total_tests := total_tests + 1: fxm := ln(4.210000000000002): fxr2 := 0.143746264769429052461211574183110627e1: fxrerr := 0.169e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.310000000000001\n"): total_tests := total_tests + 1: fxm := ln(4.310000000000001): fxr2 := 0.146093790411565665173024538187508815e1: fxrerr := 0.167e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.410000000000001\n"): total_tests := total_tests + 1: fxm := ln(4.410000000000001): fxr2 := 0.148387468945875485172258266587512804e1: fxrerr := 0.164e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.510000000000001\n"): total_tests := total_tests + 1: fxm := ln(4.510000000000001): fxr2 := 0.150629715351458720162221406380673252e1: fxrerr := 0.161e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.61\n"): total_tests := total_tests + 1: fxm := ln(4.61): fxr2 := 0.152822785700855715033674228390579778e1: fxrerr := 0.159e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.71\n"): total_tests := total_tests + 1: fxm := ln(4.71): fxr2 := 0.154968790802832638078370756395727216e1: fxrerr := 0.157e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.81\n"): total_tests := total_tests + 1: fxm := ln(4.81): fxr2 := 0.157069708411766981238560020322803697e1: fxrerr := 0.154e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.909999999999999\n"): total_tests := total_tests + 1: fxm := ln(4.909999999999999): fxr2 := 0.159127394180642900703221963560560189e1: fxrerr := 0.152e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.009999999999999\n"): total_tests := total_tests + 1: fxm := ln(5.009999999999999): fxr2 := 0.161143591509677323101821470110494357e1: fxrerr := 0.15e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.1099999999999985\n"): total_tests := total_tests + 1: fxm := ln(5.1099999999999985): fxr2 := 0.163119940421561277261940432752077817e1: fxrerr := 0.148e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.209999999999998\n"): total_tests := total_tests + 1: fxm := ln(5.209999999999998): fxr2 := 0.165057985576527516617575348812792063e1: fxrerr := 0.147e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.309999999999998\n"): total_tests := total_tests + 1: fxm := ln(5.309999999999998): fxr2 := 0.16695918352538470887227236632430302e1: fxrerr := 0.145e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.4099999999999975\n"): total_tests := total_tests + 1: fxm := ln(5.4099999999999975): fxr2 := 0.168824909285838969142699383075740414e1: fxrerr := 0.143e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.509999999999997\n"): total_tests := total_tests + 1: fxm := ln(5.509999999999997): fxr2 := 0.170656462316482257469170675451791161e1: fxrerr := 0.141e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.609999999999997\n"): total_tests := total_tests + 1: fxm := ln(5.609999999999997): fxr2 := 0.172455071953460441291138223462185614e1: fxrerr := 0.14e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.709999999999996\n"): total_tests := total_tests + 1: fxm := ln(5.709999999999996): fxr2 := 0.174221902366791814816858924103650427e1: fxrerr := 0.138e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.809999999999996\n"): total_tests := total_tests + 1: fxm := ln(5.809999999999996): fxr2 := 0.17595805708638191720766837096891643e1: fxrerr := 0.137e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.909999999999996\n"): total_tests := total_tests + 1: fxm := ln(5.909999999999996): fxr2 := 0.177664583141800615332010872609034115e1: fxrerr := 0.135e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.009999999999995\n"): total_tests := total_tests + 1: fxm := ln(6.009999999999995): fxr2 := 0.179342474854711537929034218955616093e1: fxrerr := 0.134e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.109999999999995\n"): total_tests := total_tests + 1: fxm := ln(6.109999999999995): fxr2 := 0.180992677318350313650784963732031061e1: fxrerr := 0.132e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.209999999999995\n"): total_tests := total_tests + 1: fxm := ln(6.209999999999995): fxr2 := 0.182616089594538659180352656718617582e1: fxrerr := 0.131e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.309999999999994\n"): total_tests := total_tests + 1: fxm := ln(6.309999999999994): fxr2 := 0.184213567655312083837112279466091376e1: fxrerr := 0.13e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.409999999999994\n"): total_tests := total_tests + 1: fxm := ln(6.409999999999994): fxr2 := 0.185785927093257773575998213097252676e1: fxrerr := 0.129e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.509999999999994\n"): total_tests := total_tests + 1: fxm := ln(6.509999999999994): fxr2 := 0.18733394562204769527347932204237015e1: fxrerr := 0.127e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.609999999999993\n"): total_tests := total_tests + 1: fxm := ln(6.609999999999993): fxr2 := 0.188858365386359385880319381980533286e1: fxrerr := 0.126e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.709999999999993\n"): total_tests := total_tests + 1: fxm := ln(6.709999999999993): fxr2 := 0.190359895098358938155827376606021898e1: fxrerr := 0.125e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.8099999999999925\n"): total_tests := total_tests + 1: fxm := ln(6.8099999999999925): fxr2 := 0.191839212016141989705105800130298682e1: fxrerr := 0.124e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.909999999999992\n"): total_tests := total_tests + 1: fxm := ln(6.909999999999992): fxr2 := 0.193296963777957737082937284496875132e1: fxrerr := 0.123e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.009999999999992\n"): total_tests := total_tests + 1: fxm := ln(7.009999999999992): fxr2 := 0.194733770104649758123754668441610961e1: fxrerr := 0.122e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.109999999999991\n"): total_tests := total_tests + 1: fxm := ln(7.109999999999991): fxr2 := 0.196150224381514824310466829583034981e1: fxrerr := 0.121e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.209999999999991\n"): total_tests := total_tests + 1: fxm := ln(7.209999999999991): fxr2 := 0.197546895129685645957167533914098198e1: fxrerr := 0.12e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.309999999999991\n"): total_tests := total_tests + 1: fxm := ln(7.309999999999991): fxr2 := 0.198924327376168590449624374305331691e1: fxrerr := 0.119e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.40999999999999\n"): total_tests := total_tests + 1: fxm := ln(7.40999999999999): fxr2 := 0.200283043930799416989411188386705679e1: fxrerr := 0.118e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.50999999999999\n"): total_tests := total_tests + 1: fxm := ln(7.50999999999999): fxr2 := 0.201623546577604204466160772385683894e1: fxrerr := 0.117e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.60999999999999\n"): total_tests := total_tests + 1: fxm := ln(7.60999999999999): fxr2 := 0.202946317187359315425894905793527174e1: fxrerr := 0.116e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.709999999999989\n"): total_tests := total_tests + 1: fxm := ln(7.709999999999989): fxr2 := 0.204251818757523669499250930119859974e1: fxrerr := 0.115e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.809999999999989\n"): total_tests := total_tests + 1: fxm := ln(7.809999999999989): fxr2 := 0.20554049638515931889047109757563297e1: fxrerr := 0.115e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.909999999999989\n"): total_tests := total_tests + 1: fxm := ln(7.909999999999989): fxr2 := 0.206812778177956111500674785107762162e1: fxrerr := 0.114e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.00999999999999\n"): total_tests := total_tests + 1: fxm := ln(8.00999999999999): fxr2 := 0.208069076108026660463287241850369429e1: fxrerr := 0.113e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.109999999999989\n"): total_tests := total_tests + 1: fxm := ln(8.109999999999989): fxr2 := 0.209309786812732019681421280751584828e1: fxrerr := 0.112e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.209999999999988\n"): total_tests := total_tests + 1: fxm := ln(8.209999999999988): fxr2 := 0.21053529234643353919468094130420005e1: fxrerr := 0.112e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.309999999999988\n"): total_tests := total_tests + 1: fxm := ln(8.309999999999988): fxr2 := 0.211745960886735537918533857743837558e1: fxrerr := 0.111e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.409999999999988\n"): total_tests := total_tests + 1: fxm := ln(8.409999999999988): fxr2 := 0.212942147398485525945779064405799991e1: fxrerr := 0.11e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.509999999999987\n"): total_tests := total_tests + 1: fxm := ln(8.509999999999987): fxr2 := 0.21412419425852812395242945006397849e1: fxrerr := 0.109e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.609999999999987\n"): total_tests := total_tests + 1: fxm := ln(8.609999999999987): fxr2 := 0.215292431843963792245913686447459123e1: fxrerr := 0.109e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.709999999999987\n"): total_tests := total_tests + 1: fxm := ln(8.709999999999987): fxr2 := 0.216447179086440993515026309572337747e1: fxrerr := 0.108e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.809999999999986\n"): total_tests := total_tests + 1: fxm := ln(8.809999999999986): fxr2 := 0.21758874399480865512249782073529191e1: fxrerr := 0.107e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.909999999999986\n"): total_tests := total_tests + 1: fxm := ln(8.909999999999986): fxr2 := 0.218717424148271637033870368138066687e1: fxrerr := 0.107e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.009999999999986\n"): total_tests := total_tests + 1: fxm := ln(9.009999999999986): fxr2 := 0.21983350716202449925289420462003944e1: fxrerr := 0.106e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.109999999999985\n"): total_tests := total_tests + 1: fxm := ln(9.109999999999985): fxr2 := 0.220937271127186530636510722584278033e1: fxrerr := 0.105e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.209999999999985\n"): total_tests := total_tests + 1: fxm := ln(9.209999999999985): fxr2 := 0.222028985026721384829322978082844769e1: fxrerr := 0.105e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.309999999999985\n"): total_tests := total_tests + 1: fxm := ln(9.309999999999985): fxr2 := 0.22310890912889740910129659062892555e1: fxrerr := 0.104e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.409999999999984\n"): total_tests := total_tests + 1: fxm := ln(9.409999999999984): fxr2 := 0.224177295359728656645674121527857916e1: fxrerr := 0.104e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.509999999999984\n"): total_tests := total_tests + 1: fxm := ln(9.509999999999984): fxr2 := 0.225234387655729725511948716772375785e1: fxrerr := 0.103e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.609999999999983\n"): total_tests := total_tests + 1: fxm := ln(9.609999999999983): fxr2 := 0.226280422298219935483171098425136107e1: fxrerr := 0.103e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.709999999999983\n"): total_tests := total_tests + 1: fxm := ln(9.709999999999983): fxr2 := 0.227315628230323179245123084989936241e1: fxrerr := 0.102e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.809999999999983\n"): total_tests := total_tests + 1: fxm := ln(9.809999999999983): fxr2 := 0.228340227357726998220623788008871126e1: fxrerr := 0.102e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.909999999999982\n"): total_tests := total_tests + 1: fxm := ln(9.909999999999982): fxr2 := 0.229354434834189480546534322234684649e1: fxrerr := 0.101e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = ln apfunc = log\n"): fprintf(except_fd,"maplefunc = ln apfunc = log\n"): fprintf(out_fd,"x = 0.1\n"): total_tests := total_tests + 1: fxm := ln(0.1): fxr2 := -0.23025850929940456840179914546843297e1: fxrerr := 0.5e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2000000000000002\n"): total_tests := total_tests + 1: fxm := ln(1.2000000000000002): fxr2 := 0.18232155679395479287838469182119524e0: fxrerr := 0.467e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.3000000000000003\n"): total_tests := total_tests + 1: fxm := ln(2.3000000000000003): fxr2 := 0.83290912293510413722354398582148864e0: fxrerr := 0.268e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.4000000000000004\n"): total_tests := total_tests + 1: fxm := ln(3.4000000000000004): fxr2 := 0.122377543162211582329583410817635094e1: fxrerr := 0.198e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.5\n"): total_tests := total_tests + 1: fxm := ln(4.5): fxr2 := 0.150407739677627407337325835238687448e1: fxrerr := 0.162e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.6\n"): total_tests := total_tests + 1: fxm := ln(5.6): fxr2 := 0.172276659774110354933905765313334477e1: fxrerr := 0.14e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.699999999999999\n"): total_tests := total_tests + 1: fxm := ln(6.699999999999999): fxr2 := 0.190210752639692022639834919839576469e1: fxrerr := 0.125e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.799999999999999\n"): total_tests := total_tests + 1: fxm := ln(7.799999999999999): fxr2 := 0.205412373369554592464284514013344258e1: fxrerr := 0.115e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.899999999999999\n"): total_tests := total_tests + 1: fxm := ln(8.899999999999999): fxr2 := 0.218605127673809404194027352418772508e1: fxrerr := 0.107e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.999999999999998\n"): total_tests := total_tests + 1: fxm := ln(9.999999999999998): fxr2 := 0.230258509299404548401799145468434323e1: fxrerr := 0.101e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 11.099999999999998\n"): total_tests := total_tests + 1: fxm := ln(11.099999999999998): fxr2 := 0.240694510831828827156516927308944208e1: fxrerr := 0.46e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 12.199999999999998\n"): total_tests := total_tests + 1: fxm := ln(12.199999999999998): fxr2 := 0.250143595173921071021620354069124358e1: fxrerr := 0.419e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 13.299999999999997\n"): total_tests := total_tests + 1: fxm := ln(13.299999999999997): fxr2 := 0.258776403522770785553247894621057758e1: fxrerr := 0.385e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 14.399999999999997\n"): total_tests := total_tests + 1: fxm := ln(14.399999999999997): fxr2 := 0.266722820658195472810809417166005968e1: fxrerr := 0.357e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 15.499999999999996\n"): total_tests := total_tests + 1: fxm := ln(15.499999999999996): fxr2 := 0.274084002392520067844741607405190988e1: fxrerr := 0.332e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 16.599999999999998\n"): total_tests := total_tests + 1: fxm := ln(16.599999999999998): fxr2 := 0.280940269536249742839278517922182128e1: fxrerr := 0.311e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 17.7\n"): total_tests := total_tests + 1: fxm := ln(17.7): fxr2 := 0.287356463957978345799330415595787708e1: fxrerr := 0.292e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 18.8\n"): total_tests := total_tests + 1: fxm := ln(18.8): fxr2 := 0.293385686983590352163742345800417808e1: fxrerr := 0.275e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 19.900000000000002\n"): total_tests := total_tests + 1: fxm := ln(19.900000000000002): fxr2 := 0.299071973173044681189464239999825248e1: fxrerr := 0.261e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 21.000000000000004\n"): total_tests := total_tests + 1: fxm := ln(21.000000000000004): fxr2 := 0.304452243772342318697678845655617748e1: fxrerr := 0.248e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 22.100000000000005\n"): total_tests := total_tests + 1: fxm := ln(22.100000000000005): fxr2 := 0.309557760852370735852937449615678288e1: fxrerr := 0.236e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 23.200000000000006\n"): total_tests := total_tests + 1: fxm := ln(23.200000000000006): fxr2 := 0.314415227867226453003766659722446968e1: fxrerr := 0.225e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 24.300000000000008\n"): total_tests := total_tests + 1: fxm := ln(24.300000000000008): fxr2 := 0.319047635034650310217634172581299538e1: fxrerr := 0.215e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 25.40000000000001\n"): total_tests := total_tests + 1: fxm := ln(25.40000000000001): fxr2 := 0.323474917402449129214746887606484148e1: fxrerr := 0.206e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 26.50000000000001\n"): total_tests := total_tests + 1: fxm := ln(26.50000000000001): fxr2 := 0.327714473299217690208572758360855588e1: fxrerr := 0.198e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 27.600000000000012\n"): total_tests := total_tests + 1: fxm := ln(27.600000000000012): fxr2 := 0.331781577272310475180107955261679948e1: fxrerr := 0.191e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 28.700000000000014\n"): total_tests := total_tests + 1: fxm := ln(28.700000000000014): fxr2 := 0.335689712276557591275900271057660078e1: fxrerr := 0.184e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 29.800000000000015\n"): total_tests := total_tests + 1: fxm := ln(29.800000000000015): fxr2 := 0.339450839351135926974737363986439108e1: fxrerr := 0.177e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 30.900000000000016\n"): total_tests := total_tests + 1: fxm := ln(30.900000000000016): fxr2 := 0.343075618390370029594520884810053778e1: fxrerr := 0.171e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 32.000000000000014\n"): total_tests := total_tests + 1: fxm := ln(32.000000000000014): fxr2 := 0.346573590279972698458616060729079518e1: fxrerr := 0.166e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 33.100000000000016\n"): total_tests := total_tests + 1: fxm := ln(33.100000000000016): fxr2 := 0.349953328238301770015031118549639208e1: fxrerr := 0.161e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 34.20000000000002\n"): total_tests := total_tests + 1: fxm := ln(34.20000000000002): fxr2 := 0.353222564406856005299408020993345388e1: fxrerr := 0.156e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 35.30000000000002\n"): total_tests := total_tests + 1: fxm := ln(35.30000000000002): fxr2 := 0.356388296393925164994996662284339448e1: fxrerr := 0.151e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 36.40000000000002\n"): total_tests := total_tests + 1: fxm := ln(36.40000000000002): fxr2 := 0.359456877464269552542586242378979228e1: fxrerr := 0.147e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 37.50000000000002\n"): total_tests := total_tests + 1: fxm := ln(37.50000000000002): fxr2 := 0.362434093297636566451286511524991448e1: fxrerr := 0.143e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 38.60000000000002\n"): total_tests := total_tests + 1: fxm := ln(38.60000000000002): fxr2 := 0.365325227647078569538888674606347151e1: fxrerr := 0.139e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 39.700000000000024\n"): total_tests := total_tests + 1: fxm := ln(39.700000000000024): fxr2 := 0.368135118769314533359944561327568644e1: fxrerr := 0.135e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 40.800000000000026\n"): total_tests := total_tests + 1: fxm := ln(40.800000000000026): fxr2 := 0.37086820814101166531333867252699272e1: fxrerr := 0.132e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 41.90000000000003\n"): total_tests := total_tests + 1: fxm := ln(41.90000000000003): fxr2 := 0.373528582692809276300539592762139367e1: fxrerr := 0.129e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 43.00000000000003\n"): total_tests := total_tests + 1: fxm := ln(43.00000000000003): fxr2 := 0.376120011569356312114726111799676515e1: fxrerr := 0.126e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 44.10000000000003\n"): total_tests := total_tests + 1: fxm := ln(44.10000000000003): fxr2 := 0.378645978245280098925531334958422892e1: fxrerr := 0.123e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 45.20000000000003\n"): total_tests := total_tests + 1: fxm := ln(45.20000000000003): fxr2 := 0.38110970868381861671154184411398244e1: fxrerr := 0.12e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 46.30000000000003\n"): total_tests := total_tests + 1: fxm := ln(46.30000000000003): fxr2 := 0.383514196109218903801001987344238506e1: fxrerr := 0.117e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 47.400000000000034\n"): total_tests := total_tests + 1: fxm := ln(47.400000000000034): fxr2 := 0.385862222870103152826700950424922038e1: fxrerr := 0.115e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 48.500000000000036\n"): total_tests := total_tests + 1: fxm := ln(48.500000000000036): fxr2 := 0.388156379794343825496753073735891039e1: fxrerr := 0.113e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 49.60000000000004\n"): total_tests := total_tests + 1: fxm := ln(49.60000000000004): fxr2 := 0.390399083373088260603171425891617916e1: fxrerr := 0.11e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 50.70000000000004\n"): total_tests := total_tests + 1: fxm := ln(50.70000000000004): fxr2 := 0.392592591059713826843886377384974846e1: fxrerr := 0.108e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 51.80000000000004\n"): total_tests := total_tests + 1: fxm := ln(51.80000000000004): fxr2 := 0.394739014926543814707346128202034045e1: fxrerr := 0.106e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 52.90000000000004\n"): total_tests := total_tests + 1: fxm := ln(52.90000000000004): fxr2 := 0.396840333886425445373918150572213014e1: fxrerr := 0.104e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 54.00000000000004\n"): total_tests := total_tests + 1: fxm := ln(54.00000000000004): fxr2 := 0.398898404656427512434370857296621861e1: fxrerr := 0.102e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 55.100000000000044\n"): total_tests := total_tests + 1: fxm := ln(55.100000000000044): fxr2 := 0.400914971615886960172240238343077934e1: fxrerr := 0.1e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 56.200000000000045\n"): total_tests := total_tests + 1: fxm := ln(56.200000000000045): fxr2 := 0.402891675689964619121762276370865516e1: fxrerr := 0.990e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 57.30000000000005\n"): total_tests := total_tests + 1: fxm := ln(57.30000000000005): fxr2 := 0.40483006237206947528275527745797625e1: fxrerr := 0.973e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 58.40000000000005\n"): total_tests := total_tests + 1: fxm := ln(58.40000000000005): fxr2 := 0.406731588983418222949019732877217566e1: fxrerr := 0.957e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 59.50000000000005\n"): total_tests := total_tests + 1: fxm := ln(59.50000000000005): fxr2 := 0.40859763125515849162737896936392877e1: fxrerr := 0.941e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 60.60000000000005\n"): total_tests := total_tests + 1: fxm := ln(60.60000000000005): fxr2 := 0.410429489307526959276119242143406782e1: fxrerr := 0.926e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 61.70000000000005\n"): total_tests := total_tests + 1: fxm := ln(61.70000000000005): fxr2 := 0.412228393091134294035235169880394082e1: fxrerr := 0.911e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 62.800000000000054\n"): total_tests := total_tests + 1: fxm := ln(62.800000000000054): fxr2 := 0.413995507347415385211352948960324573e1: fxrerr := 0.897e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 63.900000000000055\n"): total_tests := total_tests + 1: fxm := ln(63.900000000000055): fxr2 := 0.415731936138348998082182835605519596e1: fxrerr := 0.883e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 65.00000000000006\n"): total_tests := total_tests + 1: fxm := ln(65.00000000000006): fxr2 := 0.417438726989563803373116985171415558e1: fxrerr := 0.870e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 66.10000000000005\n"): total_tests := total_tests + 1: fxm := ln(66.10000000000005): fxr2 := 0.419116874685764135825235017615411591e1: fxrerr := 0.857e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 67.20000000000005\n"): total_tests := total_tests + 1: fxm := ln(67.20000000000005): fxr2 := 0.420767324752910460361638618059099325e1: fxrerr := 0.845e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 68.30000000000004\n"): total_tests := total_tests + 1: fxm := ln(68.30000000000004): fxr2 := 0.422390976657674496501639102941102978e1: fxrerr := 0.833e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 69.40000000000003\n"): total_tests := total_tests + 1: fxm := ln(69.40000000000003): fxr2 := 0.423988686751275925002957457367830885e1: fxrerr := 0.821e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 70.50000000000003\n"): total_tests := total_tests + 1: fxm := ln(70.50000000000003): fxr2 := 0.425561270981822339433087867885345194e1: fxrerr := 0.810e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 71.60000000000002\n"): total_tests := total_tests + 1: fxm := ln(71.60000000000002): fxr2 := 0.427109507396660021032388615680083647e1: fxrerr := 0.799e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 72.70000000000002\n"): total_tests := total_tests + 1: fxm := ln(72.70000000000002): fxr2 := 0.428634138453947395699762520054125759e1: fxrerr := 0.788e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 73.80000000000001\n"): total_tests := total_tests + 1: fxm := ln(73.80000000000001): fxr2 := 0.430135873160642694755784952720639601e1: fxrerr := 0.778e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 74.9\n"): total_tests := total_tests + 1: fxm := ln(74.9): fxr2 := 0.431615389052317379439176010578209087e1: fxrerr := 0.768e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 76.0\n"): total_tests := total_tests + 1: fxm := ln(76.0): fxr2 := 0.433073334028633107884349167480420501e1: fxrerr := 0.758e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 77.1\n"): total_tests := total_tests + 1: fxm := ln(77.1): fxr2 := 0.434510328056928380572904809699941528e1: fxrerr := 0.749e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 78.19999999999999\n"): total_tests := total_tests + 1: fxm := ln(78.19999999999999): fxr2 := 0.435926964755126526857829026479472109e1: fxrerr := 0.740e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 79.29999999999998\n"): total_tests := total_tests + 1: fxm := ln(79.29999999999998): fxr2 := 0.437323812864080204858007550644777146e1: fxrerr := 0.731e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 80.39999999999998\n"): total_tests := total_tests + 1: fxm := ln(80.39999999999998): fxr2 := 0.438701417618492043712557111604556787e1: fxrerr := 0.722e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 81.49999999999997\n"): total_tests := total_tests + 1: fxm := ln(81.49999999999997): fxr2 := 0.440060302024681665654954073546004988e1: fxrerr := 0.714e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 82.59999999999997\n"): total_tests := total_tests + 1: fxm := ln(82.59999999999997): fxr2 := 0.441400968052693201792451787594630727e1: fxrerr := 0.706e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 83.69999999999996\n"): total_tests := total_tests + 1: fxm := ln(83.69999999999996): fxr2 := 0.442723897749542915819965648982497631e1: fxrerr := 0.698e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 84.79999999999995\n"): total_tests := total_tests + 1: fxm := ln(84.79999999999995): fxr2 := 0.444029554279785679817276466074326204e1: fxrerr := 0.690e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 85.89999999999995\n"): total_tests := total_tests + 1: fxm := ln(85.89999999999995): fxr2 := 0.445318382899020910522680803254530143e1: fxrerr := 0.683e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 86.99999999999994\n"): total_tests := total_tests + 1: fxm := ln(86.99999999999994): fxr2 := 0.446590811865458302892334485549109429e1: fxrerr := 0.675e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 88.09999999999994\n"): total_tests := total_tests + 1: fxm := ln(88.09999999999994): fxr2 := 0.447847253294213314330199349858768879e1: fxrerr := 0.668e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 89.19999999999993\n"): total_tests := total_tests + 1: fxm := ln(89.19999999999993): fxr2 := 0.44908810395859629086992147692552677e1: fxrerr := 0.661e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 90.29999999999993\n"): total_tests := total_tests + 1: fxm := ln(90.29999999999993): fxr2 := 0.45031374604229389607616505894144829e1: fxrerr := 0.654e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 91.39999999999992\n"): total_tests := total_tests + 1: fxm := ln(91.39999999999992): fxr2 := 0.45152454784601034493188490719969328e1: fxrerr := 0.648e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 92.49999999999991\n"): total_tests := total_tests + 1: fxm := ln(92.49999999999991): fxr2 := 0.452720864451837853657864990982601e1: fxrerr := 0.641e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 93.59999999999991\n"): total_tests := total_tests + 1: fxm := ln(93.59999999999991): fxr2 := 0.453903038348354540153922128663853285e1: fxrerr := 0.635e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 94.6999999999999\n"): total_tests := total_tests + 1: fxm := ln(94.6999999999999): fxr2 := 0.455071400019203150398492814730744024e1: fxrerr := 0.628e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 95.7999999999999\n"): total_tests := total_tests + 1: fxm := ln(95.7999999999999): fxr2 := 0.45622626849768138166745823812626526e1: fxrerr := 0.622e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 96.89999999999989\n"): total_tests := total_tests + 1: fxm := ln(96.89999999999989): fxr2 := 0.457367951889671941244489735934627653e1: fxrerr := 0.616e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 97.99999999999989\n"): total_tests := total_tests + 1: fxm := ln(97.99999999999989): fxr2 := 0.458496747867057079717895801650716946e1: fxrerr := 0.611e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 99.09999999999988\n"): total_tests := total_tests + 1: fxm := ln(99.09999999999988): fxr2 := 0.45961294413359410949323760493832866e1: fxrerr := 0.605e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 100.19999999999987\n"): total_tests := total_tests + 1: fxm := ln(100.19999999999987): fxr2 := 0.460716818865076312664904705968182502e1: fxrerr := 0.5e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(ln,log,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(ln,log,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = log10 apfunc = log10\n"): fprintf(except_fd,"maplefunc = log10 apfunc = log10\n"): fprintf(out_fd,"x = 0.01\n"): total_tests := total_tests + 1: fxm := log10(0.01): fxr2 := -0.19999999999999999999999999999999854e1: fxrerr := 0.282e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.11\n"): total_tests := total_tests + 1: fxm := log10(0.11): fxr2 := -0.95860731484177495924980002875696269e0: fxrerr := 0.217e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.21000000000000002\n"): total_tests := total_tests + 1: fxm := log10(0.21000000000000002): fxr2 := -0.67778070526608069063137660927111743e0: fxrerr := 0.118e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.31000000000000005\n"): total_tests := total_tests + 1: fxm := log10(0.31000000000000005): fxr2 := -0.50863830616572725028579881871193651e0: fxrerr := 0.809e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.41000000000000003\n"): total_tests := total_tests + 1: fxm := log10(0.41000000000000003): fxr2 := -0.38721614328026447371294313272071085e0: fxrerr := 0.609e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.51\n"): total_tests := total_tests + 1: fxm := log10(0.51): fxr2 := -0.29242982390206363416480220241654752e0: fxrerr := 0.489e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.61\n"): total_tests := total_tests + 1: fxm := log10(0.61): fxr2 := -0.21467016498923296611425148624267854e0: fxrerr := 0.402e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.71\n"): total_tests := total_tests + 1: fxm := log10(0.71): fxr2 := -0.14874165128092471390717056496457077e0: fxrerr := 0.338e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8099999999999999\n"): total_tests := total_tests + 1: fxm := log10(0.8099999999999999): fxr2 := -0.91514981121350304436491091084705922e-1: fxrerr := 0.287e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9099999999999999\n"): total_tests := total_tests + 1: fxm := log10(0.9099999999999999): fxr2 := -0.40958607678906447805946924481722365e-1: fxrerr := 0.247e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.01\n"): total_tests := total_tests + 1: fxm := log10(1.01): fxr2 := 0.432137378264257427518817822295220259e-2: fxrerr := 0.237e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.11\n"): total_tests := total_tests + 1: fxm := log10(1.11): fxr2 := 0.453229787866574341034785927942581467e-1: fxrerr := 0.218e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2100000000000002\n"): total_tests := total_tests + 1: fxm := log10(1.2100000000000002): fxr2 := 0.827853703164501532846118273210673105e-1: fxrerr := 0.203e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3100000000000003\n"): total_tests := total_tests + 1: fxm := log10(1.3100000000000003): fxr2 := 0.117271295655764360266805851595103199e0: fxrerr := 0.19e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4100000000000004\n"): total_tests := total_tests + 1: fxm := log10(1.4100000000000004): fxr2 := 0.149219112655380024913355644052344852e0: fxrerr := 0.179e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.5100000000000005\n"): total_tests := total_tests + 1: fxm := log10(1.5100000000000005): fxr2 := 0.178976947293169580675192890851138635e0: fxrerr := 0.169e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.6100000000000005\n"): total_tests := total_tests + 1: fxm := log10(1.6100000000000005): fxr2 := 0.206825876031849844454056073717052411e0: fxrerr := 0.161e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.7100000000000006\n"): total_tests := total_tests + 1: fxm := log10(1.7100000000000006): fxr2 := 0.232996110392153988510418020250238893e0: fxrerr := 0.154e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.8100000000000007\n"): total_tests := total_tests + 1: fxm := log10(1.8100000000000007): fxr2 := 0.257678574869184678248935572697505295e0: fxrerr := 0.147e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.9100000000000008\n"): total_tests := total_tests + 1: fxm := log10(1.9100000000000008): fxr2 := 0.28103336724772771953849151586296793e0: fxrerr := 0.141e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.0100000000000007\n"): total_tests := total_tests + 1: fxm := log10(2.0100000000000007): fxr2 := 0.303196057420489022690994026150954832e0: fxrerr := 0.136e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.1100000000000008\n"): total_tests := total_tests + 1: fxm := log10(2.1100000000000008): fxr2 := 0.324282455297692829742973069549406837e0: fxrerr := 0.131e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.210000000000001\n"): total_tests := total_tests + 1: fxm := log10(2.210000000000001): fxr2 := 0.344392273685110894260015279986386397e0: fxrerr := 0.127e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.310000000000001\n"): total_tests := total_tests + 1: fxm := log10(2.310000000000001): fxr2 := 0.363611979892144496763713355277679221e0: fxrerr := 0.123e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.410000000000001\n"): total_tests := total_tests + 1: fxm := log10(2.410000000000001): fxr2 := 0.382017042574868564282063179422164854e0: fxrerr := 0.12e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.510000000000001\n"): total_tests := total_tests + 1: fxm := log10(2.510000000000001): fxr2 := 0.399673721481038312366239318002423948e0: fxrerr := 0.117e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.610000000000001\n"): total_tests := total_tests + 1: fxm := log10(2.610000000000001): fxr2 := 0.416640507338281128319255789116174236e0: fxrerr := 0.114e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.7100000000000013\n"): total_tests := total_tests + 1: fxm := log10(2.7100000000000013): fxr2 := 0.432969290874405937854326495328041195e0: fxrerr := 0.111e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.8100000000000014\n"): total_tests := total_tests + 1: fxm := log10(2.8100000000000014): fxr2 := 0.448706319905080109238392885866697351e0: fxrerr := 0.108e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.9100000000000015\n"): total_tests := total_tests + 1: fxm := log10(2.9100000000000015): fxr2 := 0.463892988985907512942524716596839294e0: fxrerr := 0.106e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.0100000000000016\n"): total_tests := total_tests + 1: fxm := log10(3.0100000000000016): fxr2 := 0.478566495593843587971514061390878889e0: fxrerr := 0.104e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.1100000000000017\n"): total_tests := total_tests + 1: fxm := log10(3.1100000000000017): fxr2 := 0.492760389026837742948720686638824271e0: fxrerr := 0.102e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.2100000000000017\n"): total_tests := total_tests + 1: fxm := log10(3.2100000000000017): fxr2 := 0.506505032404872308129762050980701722e0: fxrerr := 0.1e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.310000000000002\n"): total_tests := total_tests + 1: fxm := log10(3.310000000000002): fxr2 := 0.519827993775719001021724838912881995e0: fxrerr := 0.99e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.410000000000002\n"): total_tests := total_tests + 1: fxm := log10(3.410000000000002): fxr2 := 0.53275437899249797513507527561464058e0: fxrerr := 0.971e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.510000000000002\n"): total_tests := total_tests + 1: fxm := log10(3.510000000000002): fxr2 := 0.545307116465824328552832117423748412e0: fxrerr := 0.956e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.610000000000002\n"): total_tests := total_tests + 1: fxm := log10(3.610000000000002): fxr2 := 0.557507201905658163679028116750265003e0: fxrerr := 0.941e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.710000000000002\n"): total_tests := total_tests + 1: fxm := log10(3.710000000000002): fxr2 := 0.569373909615046110466223053320545563e0: fxrerr := 0.927e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.8100000000000023\n"): total_tests := total_tests + 1: fxm := log10(3.8100000000000023): fxr2 := 0.580924975675619563714537208935131975e0: fxrerr := 0.916e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.9100000000000024\n"): total_tests := total_tests + 1: fxm := log10(3.9100000000000024): fxr2 := 0.592176757395867073982565054611257324e0: fxrerr := 0.901e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.0100000000000025\n"): total_tests := total_tests + 1: fxm := log10(4.0100000000000025): fxr2 := 0.603144372620182577301799441947238794e0: fxrerr := 0.89e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.110000000000002\n"): total_tests := total_tests + 1: fxm := log10(4.110000000000002): fxr2 := 0.613841821876069417193468838521594711e0: fxrerr := 0.88e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.210000000000002\n"): total_tests := total_tests + 1: fxm := log10(4.210000000000002): fxr2 := 0.624282095835668513759735286011336712e0: fxrerr := 0.869e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.310000000000001\n"): total_tests := total_tests + 1: fxm := log10(4.310000000000001): fxr2 := 0.634477270160731701514661278215253704e0: fxrerr := 0.863e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.410000000000001\n"): total_tests := total_tests + 1: fxm := log10(4.410000000000001): fxr2 := 0.644438589467838634493962678174364437e0: fxrerr := 0.852e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.510000000000001\n"): total_tests := total_tests + 1: fxm := log10(4.510000000000001): fxr2 := 0.654176541877960631555505813063040964e0: fxrerr := 0.841e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.61\n"): total_tests := total_tests + 1: fxm := log10(4.61): fxr2 := 0.663700925389648145074681818487421466e0: fxrerr := 0.834e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.71\n"): total_tests := total_tests + 1: fxm := log10(4.71): fxr2 := 0.673020907128896174056509033152399132e0: fxrerr := 0.827e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.81\n"): total_tests := total_tests + 1: fxm := log10(4.81): fxr2 := 0.682145076373831766014955847481457998e0: fxrerr := 0.816e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.909999999999999\n"): total_tests := total_tests + 1: fxm := log10(4.909999999999999): fxr2 := 0.691081492122968384302676339299577384e0: fxrerr := 0.81e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.009999999999999\n"): total_tests := total_tests + 1: fxm := log10(5.009999999999999): fxr2 := 0.699837725867245630593578483185189556e0: fxrerr := 0.803e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.1099999999999985\n"): total_tests := total_tests + 1: fxm := log10(5.1099999999999985): fxr2 := 0.708420900134712604302900056347125451e0: fxrerr := 0.796e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.209999999999998\n"): total_tests := total_tests + 1: fxm := log10(5.209999999999998): fxr2 := 0.716837723299524307520609169986402759e0: fxrerr := 0.794e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.309999999999998\n"): total_tests := total_tests + 1: fxm := log10(5.309999999999998): fxr2 := 0.725094521081468901274636144622810199e0: fxrerr := 0.787e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.4099999999999975\n"): total_tests := total_tests + 1: fxm := log10(5.4099999999999975): fxr2 := 0.733197265106569236188737382873209896e0: fxrerr := 0.78e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.509999999999997\n"): total_tests := total_tests + 1: fxm := log10(5.509999999999997): fxr2 := 0.741151598851784812411204610821313692e0: fxrerr := 0.773e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.609999999999997\n"): total_tests := total_tests + 1: fxm := log10(5.609999999999997): fxr2 := 0.748962861256161174342359317889608339e0: fxrerr := 0.77e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.709999999999996\n"): total_tests := total_tests + 1: fxm := log10(5.709999999999996): fxr2 := 0.756636108245847745805971062954702524e0: fxrerr := 0.763e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.809999999999996\n"): total_tests := total_tests + 1: fxm := log10(5.809999999999996): fxr2 := 0.764176132390330435547054474129723943e0: fxrerr := 0.76e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.909999999999996\n"): total_tests := total_tests + 1: fxm := log10(5.909999999999996): fxr2 := 0.771587480881255070728036584253505866e0: fxrerr := 0.753e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.009999999999995\n"): total_tests := total_tests + 1: fxm := log10(6.009999999999995): fxr2 := 0.778874472002739159575965589129263953e0: fxrerr := 0.751e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.109999999999995\n"): total_tests := total_tests + 1: fxm := log10(6.109999999999995): fxr2 := 0.786041210242553878224258188118202333e0: fxrerr := 0.743e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.209999999999995\n"): total_tests := total_tests + 1: fxm := log10(6.209999999999995): fxr2 := 0.793091600176579841079364925678369305e0: fxrerr := 0.741e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.309999999999994\n"): total_tests := total_tests + 1: fxm := log10(6.309999999999994): fxr2 := 0.800029359244133900058626930876762281e0: fxrerr := 0.738e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.409999999999994\n"): total_tests := total_tests + 1: fxm := log10(6.409999999999994): fxr2 := 0.806858029518817015732481312366236408e0: fxrerr := 0.735e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.509999999999994\n"): total_tests := total_tests + 1: fxm := log10(6.509999999999994): fxr2 := 0.813580988568191547402536369567985001e0: fxrerr := 0.728e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.609999999999993\n"): total_tests := total_tests + 1: fxm := log10(6.609999999999993): fxr2 := 0.820201459485639776728058535688503515e0: fxrerr := 0.725e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.709999999999993\n"): total_tests := total_tests + 1: fxm := log10(6.709999999999993): fxr2 := 0.826722520168991621571660359402077513e0: fxrerr := 0.722e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.8099999999999925\n"): total_tests := total_tests + 1: fxm := log10(6.8099999999999925): fxr2 := 0.833147111912784679100189309361137676e0: fxrerr := 0.719e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.909999999999992\n"): total_tests := total_tests + 1: fxm := log10(6.909999999999992): fxr2 := 0.839478047374197904782230933296723125e0: fxrerr := 0.716e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.009999999999992\n"): total_tests := total_tests + 1: fxm := log10(7.009999999999992): fxr2 := 0.845718017966658161435512319273613501e0: fxrerr := 0.713e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.109999999999991\n"): total_tests := total_tests + 1: fxm := log10(7.109999999999991): fxr2 := 0.851869600729765752845026682542780976e0: fxrerr := 0.71e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.209999999999991\n"): total_tests := total_tests + 1: fxm := log10(7.209999999999991): fxr2 := 0.857935264719428493768122802788841226e0: fxrerr := 0.707e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.309999999999991\n"): total_tests := total_tests + 1: fxm := log10(7.309999999999991): fxr2 := 0.863917376957859920246169520981792488e0: fxrerr := 0.704e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.40999999999999\n"): total_tests := total_tests + 1: fxm := log10(7.40999999999999): fxr2 := 0.869818207979327581945448313942064495e0: fxrerr := 0.701e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.50999999999999\n"): total_tests := total_tests + 1: fxm := log10(7.50999999999999): fxr2 := 0.875639937004167811457726915839482288e0: fxrerr := 0.698e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.60999999999999\n"): total_tests := total_tests + 1: fxm := log10(7.60999999999999): fxr2 := 0.88138465677057225567952341144364371e0: fxrerr := 0.695e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.709999999999989\n"): total_tests := total_tests + 1: fxm := log10(7.709999999999989): fxr2 := 0.887054378050956354841931029904512166e0: fxrerr := 0.692e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.809999999999989\n"): total_tests := total_tests + 1: fxm := log10(7.809999999999989): fxr2 := 0.892651033877299715160660528458547104e0: fxrerr := 0.693e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.909999999999989\n"): total_tests := total_tests + 1: fxm := log10(7.909999999999989): fxr2 := 0.898176483497675949558100564601145642e0: fxrerr := 0.69e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.00999999999999\n"): total_tests := total_tests + 1: fxm := log10(8.00999999999999): fxr2 := 0.903632516084237117123234752676967995e0: fxrerr := 0.686e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.109999999999989\n"): total_tests := total_tests + 1: fxm := log10(8.109999999999989): fxr2 := 0.909020854211155441634929993110478737e0: fxrerr := 0.683e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.209999999999988\n"): total_tests := total_tests + 1: fxm := log10(8.209999999999988): fxr2 := 0.914343157119440137025279458752954016e0: fxrerr := 0.684e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.309999999999988\n"): total_tests := total_tests + 1: fxm := log10(8.309999999999988): fxr2 := 0.919601023784110363932738153176691412e0: fxrerr := 0.681e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.409999999999988\n"): total_tests := total_tests + 1: fxm := log10(8.409999999999988): fxr2 := 0.92479599579791155498272291487719612e0: fxrerr := 0.678e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.509999999999987\n"): total_tests := total_tests + 1: fxm := log10(8.509999999999987): fxr2 := 0.929929560084587212241649101170099103e0: fxrerr := 0.675e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.609999999999987\n"): total_tests := total_tests + 1: fxm := log10(8.609999999999987): fxr2 := 0.935003151453654106787473114919530295e0: fxrerr := 0.676e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.709999999999987\n"): total_tests := total_tests + 1: fxm := log10(8.709999999999987): fxr2 := 0.940018155007662555154917528583095963e0: fxrerr := 0.673e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.809999999999986\n"): total_tests := total_tests + 1: fxm := log10(8.809999999999986): fxr2 := 0.944975908412047222603577023804354493e0: fxrerr := 0.669e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.909999999999986\n"): total_tests := total_tests + 1: fxm := log10(8.909999999999986): fxr2 := 0.949877704036874107537186259288136041e0: fxrerr := 0.67e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.009999999999986\n"): total_tests := total_tests + 1: fxm := log10(9.009999999999986): fxr2 := 0.95472479097906229935376744172359469e0: fxrerr := 0.667e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.109999999999985\n"): total_tests := total_tests + 1: fxm := log10(9.109999999999985): fxr2 := 0.959518376972997532548582535803236621e0: fxrerr := 0.664e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.209999999999985\n"): total_tests := total_tests + 1: fxm := log10(9.209999999999985): fxr2 := 0.9642596301968482147296332400351974e0: fxrerr := 0.665e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.309999999999985\n"): total_tests := total_tests + 1: fxm := log10(9.309999999999985): fxr2 := 0.968949680981341923238185053223333521e0: fxrerr := 0.662e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.409999999999984\n"): total_tests := total_tests + 1: fxm := log10(9.409999999999984): fxr2 := 0.973589623427256169903220948167614527e0: fxrerr := 0.663e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.509999999999984\n"): total_tests := total_tests + 1: fxm := log10(9.509999999999984): fxr2 := 0.978180516937413201174049721732700036e0: fxrerr := 0.659e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.609999999999983\n"): total_tests := total_tests + 1: fxm := log10(9.609999999999983): fxr2 := 0.982723387668544591070536987407736716e0: fxrerr := 0.66e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.709999999999983\n"): total_tests := total_tests + 1: fxm := log10(9.709999999999983): fxr2 := 0.987219229908004102452346696928884454e0: fxrerr := 0.657e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.809999999999983\n"): total_tests := total_tests + 1: fxm := log10(9.809999999999983): fxr2 := 0.991669007379947757190549506041795285e0: fxrerr := 0.658e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.909999999999982\n"): total_tests := total_tests + 1: fxm := log10(9.909999999999982): fxr2 := 0.996073654485274539534901153937520032e0: fxrerr := 0.654e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = log10 apfunc = log10\n"): fprintf(except_fd,"maplefunc = log10 apfunc = log10\n"): fprintf(out_fd,"x = 0.1\n"): total_tests := total_tests + 1: fxm := log10(0.1): fxr2 := -0.99999999999999999999999999999998543e0: fxrerr := 0.238e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2000000000000002\n"): total_tests := total_tests + 1: fxm := log10(1.2000000000000002): fxr2 := 0.791812460476249001049193432460787253e-1: fxrerr := 0.204e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 2.3000000000000003\n"): total_tests := total_tests + 1: fxm := log10(2.3000000000000003): fxr2 := 0.361727836017592935514883447457951808e0: fxrerr := 0.124e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 3.4000000000000004\n"): total_tests := total_tests + 1: fxm := log10(3.4000000000000004): fxr2 := 0.531478917042255174847377248258927772e0: fxrerr := 0.975e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 4.5\n"): total_tests := total_tests + 1: fxm := log10(4.5): fxr2 := 0.653212513775343679376316911785737709e0: fxrerr := 0.845e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 5.6\n"): total_tests := total_tests + 1: fxm := log10(5.6): fxr2 := 0.74818802700620041635343294276611539e0: fxrerr := 0.77e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 6.699999999999999\n"): total_tests := total_tests + 1: fxm := log10(6.699999999999999): fxr2 := 0.82607480270082636932905970336758208e0: fxrerr := 0.722e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 7.799999999999999\n"): total_tests := total_tests + 1: fxm := log10(7.799999999999999): fxr2 := 0.892094602690480346036492224735801499e0: fxrerr := 0.693e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 8.899999999999999\n"): total_tests := total_tests + 1: fxm := log10(8.899999999999999): fxr2 := 0.949390006644912735926410571584255548e0: fxrerr := 0.67e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 9.999999999999998\n"): total_tests := total_tests + 1: fxm := log10(9.999999999999998): fxr2 := 0.999999999999999913141103619349625779e0: fxrerr := 0.655e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 11.099999999999998\n"): total_tests := total_tests + 1: fxm := log10(11.099999999999998): fxr2 := 0.104532297878665735585222059220833621e1: fxrerr := 0.202e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 12.199999999999998\n"): total_tests := total_tests + 1: fxm := log10(12.199999999999998): fxr2 := 0.108635983067474815790367070303070127e1: fxrerr := 0.184e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 13.299999999999997\n"): total_tests := total_tests + 1: fxm := log10(13.299999999999997): fxr2 := 0.112385164096708569428738840278900281e1: fxrerr := 0.169e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 14.399999999999997\n"): total_tests := total_tests + 1: fxm := log10(14.399999999999997): fxr2 := 0.115836249209524956496699432223073891e1: fxrerr := 0.157e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 15.499999999999996\n"): total_tests := total_tests + 1: fxm := log10(15.499999999999996): fxr2 := 0.119033169817029137237696987552247828e1: fxrerr := 0.146e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 16.599999999999998\n"): total_tests := total_tests + 1: fxm := log10(16.599999999999998): fxr2 := 0.122010808804005504672186287286599761e1: fxrerr := 0.137e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 17.7\n"): total_tests := total_tests + 1: fxm := log10(17.7): fxr2 := 0.124797326636180662755568428779026787e1: fxrerr := 0.129e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 18.8\n"): total_tests := total_tests + 1: fxm := log10(18.8): fxr2 := 0.127415784926367985484169718889819393e1: fxrerr := 0.122e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 19.900000000000002\n"): total_tests := total_tests + 1: fxm := log10(19.900000000000002): fxr2 := 0.129885307640970669374770840786220209e1: fxrerr := 0.116e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 21.000000000000004\n"): total_tests := total_tests + 1: fxm := log10(21.000000000000004): fxr2 := 0.132221929473391935073000261961000314e1: fxrerr := 0.11e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 22.100000000000005\n"): total_tests := total_tests + 1: fxm := log10(22.100000000000005): fxr2 := 0.134439227368511079600334516612853994e1: fxrerr := 0.105e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 23.200000000000006\n"): total_tests := total_tests + 1: fxm := log10(23.200000000000006): fxr2 := 0.136548798489089978529160187039750844e1: fxrerr := 0.1e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 24.300000000000008\n"): total_tests := total_tests + 1: fxm := log10(24.300000000000008): fxr2 := 0.138560627359831232945274672722266238e1: fxrerr := 0.963e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 25.40000000000001\n"): total_tests := total_tests + 1: fxm := log10(25.40000000000001): fxr2 := 0.140483371661993823044280580602097451e1: fxrerr := 0.925e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 26.50000000000001\n"): total_tests := total_tests + 1: fxm := log10(26.50000000000001): fxr2 := 0.142324587393680801430396354907323859e1: fxrerr := 0.89e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 27.600000000000012\n"): total_tests := total_tests + 1: fxm := log10(27.600000000000012): fxr2 := 0.144090908206521789541397058897778828e1: fxrerr := 0.86e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 28.700000000000014\n"): total_tests := total_tests + 1: fxm := log10(28.700000000000014): fxr2 := 0.145788189673399253707259489063483204e1: fxrerr := 0.83e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 29.800000000000015\n"): total_tests := total_tests + 1: fxm := log10(29.800000000000015): fxr2 := 0.147421626407625545207570742221108155e1: fxrerr := 0.8e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 30.900000000000016\n"): total_tests := total_tests + 1: fxm := log10(30.900000000000016): fxr2 := 0.148995847942483486734350073058705604e1: fxrerr := 0.774e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 32.000000000000014\n"): total_tests := total_tests + 1: fxm := log10(32.000000000000014): fxr2 := 0.150514997831990616607253030629510229e1: fxrerr := 0.753e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 33.100000000000016\n"): total_tests := total_tests + 1: fxm := log10(33.100000000000016): fxr2 := 0.151982799377571894853900799259849048e1: fxrerr := 0.732e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 34.20000000000002\n"): total_tests := total_tests + 1: fxm := log10(34.20000000000002): fxr2 := 0.153402610605613528531350940696341141e1: fxrerr := 0.71e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 35.30000000000002\n"): total_tests := total_tests + 1: fxm := log10(35.30000000000002): fxr2 := 0.154777470538782281155626586172023839e1: fxrerr := 0.689e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 36.40000000000002\n"): total_tests := total_tests + 1: fxm := log10(36.40000000000002): fxr2 := 0.156110138364905622896954091106730991e1: fxrerr := 0.672e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 37.50000000000002\n"): total_tests := total_tests + 1: fxm := log10(37.50000000000002): fxr2 := 0.157403126772771908327753490081588275e1: fxrerr := 0.655e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 38.60000000000002\n"): total_tests := total_tests + 1: fxm := log10(38.60000000000002): fxr2 := 0.15865873046717551808340251593429414e1: fxrerr := 0.638e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 39.700000000000024\n"): total_tests := total_tests + 1: fxm := log10(39.700000000000024): fxr2 := 0.15987905067631153284226307514505132e1: fxrerr := 0.621e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 40.800000000000026\n"): total_tests := total_tests + 1: fxm := log10(40.800000000000026): fxr2 := 0.161066016308988022823270196912320414e1: fxrerr := 0.608e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 41.90000000000003\n"): total_tests := total_tests + 1: fxm := log10(41.90000000000003): fxr2 := 0.162221402296629562080144263272815556e1: fxrerr := 0.595e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 43.00000000000003\n"): total_tests := total_tests + 1: fxm := log10(43.00000000000003): fxr2 := 0.163346845557958682940123831828853122e1: fxrerr := 0.582e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 44.10000000000003\n"): total_tests := total_tests + 1: fxm := log10(44.10000000000003): fxr2 := 0.164443858946783883145291138713202008e1: fxrerr := 0.569e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 45.20000000000003\n"): total_tests := total_tests + 1: fxm := log10(45.20000000000003): fxr2 := 0.165513843481138240147125475384494996e1: fxrerr := 0.557e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 46.30000000000003\n"): total_tests := total_tests + 1: fxm := log10(46.30000000000003): fxr2 := 0.166558099101795341707450535676593565e1: fxrerr := 0.544e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 47.400000000000034\n"): total_tests := total_tests + 1: fxm := log10(47.400000000000034): fxr2 := 0.167577834167408537202283680704344559e1: fxrerr := 0.535e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 48.500000000000036\n"): total_tests := total_tests + 1: fxm := log10(48.500000000000036): fxr2 := 0.168574173860226397893353731935469265e1: fxrerr := 0.527e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 49.60000000000004\n"): total_tests := total_tests + 1: fxm := log10(49.60000000000004): fxr2 := 0.169548167649019781075914508486449482e1: fxrerr := 0.514e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 50.70000000000004\n"): total_tests := total_tests + 1: fxm := log10(50.70000000000004): fxr2 := 0.170500795933333631834668271874660175e1: fxrerr := 0.506e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 51.80000000000004\n"): total_tests := total_tests + 1: fxm := log10(51.80000000000004): fxr2 := 0.171432975974523335809694013108147882e1: fxrerr := 0.497e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 52.90000000000004\n"): total_tests := total_tests + 1: fxm := log10(52.90000000000004): fxr2 := 0.172345567203518608612457645758492246e1: fxrerr := 0.489e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 54.00000000000004\n"): total_tests := total_tests + 1: fxm := log10(54.00000000000004): fxr2 := 0.173239375982296882879843882912070334e1: fxrerr := 0.48e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 55.100000000000044\n"): total_tests := total_tests + 1: fxm := log10(55.100000000000044): fxr2 := 0.174115159885178539567421115965309522e1: fxrerr := 0.434e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 56.200000000000045\n"): total_tests := total_tests + 1: fxm := log10(56.200000000000045): fxr2 := 0.174973631556906143582234872641460711e1: fxrerr := 0.467e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 57.30000000000005\n"): total_tests := total_tests + 1: fxm := log10(57.30000000000005): fxr2 := 0.175815462196739035389558799650970318e1: fxrerr := 0.46e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 58.40000000000005\n"): total_tests := total_tests + 1: fxm := log10(58.40000000000005): fxr2 := 0.176641284711239985854307096756471384e1: fxrerr := 0.453e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 59.50000000000005\n"): total_tests := total_tests + 1: fxm := log10(59.50000000000005): fxr2 := 0.177451696572854992899199339538273673e1: fxrerr := 0.447e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 60.60000000000005\n"): total_tests := total_tests + 1: fxm := log10(60.60000000000005): fxr2 := 0.178247262416628656511273542442997907e1: fxrerr := 0.44e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 61.70000000000005\n"): total_tests := total_tests + 1: fxm := log10(61.70000000000005): fxr2 := 0.179028516403324203398588910345993613e1: fxrerr := 0.434e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 62.800000000000054\n"): total_tests := total_tests + 1: fxm := log10(62.800000000000054): fxr2 := 0.179795964373719650062688921832061073e1: fxrerr := 0.428e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 63.900000000000055\n"): total_tests := total_tests + 1: fxm := log10(63.900000000000055): fxr2 := 0.180550085815840053448877733354628958e1: fxrerr := 0.422e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 65.00000000000006\n"): total_tests := total_tests + 1: fxm := log10(65.00000000000006): fxr2 := 0.181291335664285597487998032775779906e1: fxrerr := 0.417e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 66.10000000000005\n"): total_tests := total_tests + 1: fxm := log10(66.10000000000005): fxr2 := 0.182020145948564056515979572767378642e1: fxrerr := 0.411e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 67.20000000000005\n"): total_tests := total_tests + 1: fxm := log10(67.20000000000005): fxr2 := 0.182736927305382556721171386110389681e1: fxrerr := 0.406e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 68.30000000000004\n"): total_tests := total_tests + 1: fxm := log10(68.30000000000004): fxr2 := 0.183442070368153281774505492388763163e1: fxrerr := 0.401e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 69.40000000000003\n"): total_tests := total_tests + 1: fxm := log10(69.40000000000003): fxr2 := 0.184135947045485510148446301489907534e1: fxrerr := 0.396e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 70.50000000000003\n"): total_tests := total_tests + 1: fxm := log10(70.50000000000003): fxr2 := 0.184818911699139889130167092000183798e1: fxrerr := 0.391e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 71.60000000000002\n"): total_tests := total_tests + 1: fxm := log10(71.60000000000002): fxr2 := 0.185491302230785568130916827542644892e1: fxrerr := 0.387e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 72.70000000000002\n"): total_tests := total_tests + 1: fxm := log10(72.70000000000002): fxr2 := 0.186153441085903795568925019180130346e1: fxrerr := 0.382e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 73.80000000000001\n"): total_tests := total_tests + 1: fxm := log10(73.80000000000001): fxr2 := 0.186805636182304162316069732400125114e1: fxrerr := 0.378e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 74.9\n"): total_tests := total_tests + 1: fxm := log10(74.9): fxr2 := 0.18744818176994664715467574980540719e1: fxrerr := 0.374e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 76.0\n"): total_tests := total_tests + 1: fxm := log10(76.0): fxr2 := 0.188081359228079135196381126520591543e1: fxrerr := 0.37e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 77.1\n"): total_tests := total_tests + 1: fxm := log10(77.1): fxr2 := 0.18870543780509569744579233691747472e1: fxrerr := 0.366e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 78.19999999999999\n"): total_tests := total_tests + 1: fxm := log10(78.19999999999999): fxr2 := 0.189320675305984794708530714129738855e1: fxrerr := 0.362e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 79.29999999999998\n"): total_tests := total_tests + 1: fxm := log10(79.29999999999998): fxr2 := 0.189927318731760369356022797100560635e1: fxrerr := 0.358e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 80.39999999999998\n"): total_tests := total_tests + 1: fxm := log10(80.39999999999998): fxr2 := 0.190525604874845115383818411216602031e1: fxrerr := 0.354e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 81.49999999999997\n"): total_tests := total_tests + 1: fxm := log10(81.49999999999997): fxr2 := 0.191115760873997645256335306761184256e1: fxrerr := 0.351e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 82.59999999999997\n"): total_tests := total_tests + 1: fxm := log10(82.59999999999997): fxr2 := 0.191698004732038205845253820737337284e1: fxrerr := 0.348e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 83.69999999999996\n"): total_tests := total_tests + 1: fxm := log10(83.69999999999996): fxr2 := 0.192272545799325978400364831012178731e1: fxrerr := 0.344e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 84.79999999999995\n"): total_tests := total_tests + 1: fxm := log10(84.79999999999995): fxr2 := 0.192839585225671357041808825775874546e1: fxrerr := 0.341e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 85.89999999999995\n"): total_tests := total_tests + 1: fxm := log10(85.89999999999995): fxr2 := 0.193399316383124204983780969349634602e1: fxrerr := 0.338e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 86.99999999999994\n"): total_tests := total_tests + 1: fxm := log10(86.99999999999994): fxr2 := 0.193951925261861822511443887087817903e1: fxrerr := 0.335e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 88.09999999999994\n"): total_tests := total_tests + 1: fxm := log10(88.09999999999994): fxr2 := 0.194497590841204761696860031847161498e1: fxrerr := 0.332e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 89.19999999999993\n"): total_tests := total_tests + 1: fxm := log10(89.19999999999993): fxr2 := 0.195036485437612272308859870044673957e1: fxrerr := 0.329e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 90.29999999999993\n"): total_tests := total_tests + 1: fxm := log10(90.29999999999993): fxr2 := 0.195568775031350545774994324278860472e1: fxrerr := 0.326e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 91.39999999999992\n"): total_tests := total_tests + 1: fxm := log10(91.39999999999992): fxr2 := 0.196094619573383103744082385547930913e1: fxrerr := 0.324e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 92.49999999999991\n"): total_tests := total_tests + 1: fxm := log10(92.49999999999991): fxr2 := 0.196614173273903218382417969692599739e1: fxrerr := 0.321e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 93.59999999999991\n"): total_tests := total_tests + 1: fxm := log10(93.59999999999991): fxr2 := 0.197127584873810481184692966472984923e1: fxrerr := 0.318e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 94.6999999999999\n"): total_tests := total_tests + 1: fxm := log10(94.6999999999999): fxr2 := 0.197634997900327296014981609561681811e1: fxrerr := 0.315e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 95.7999999999999\n"): total_tests := total_tests + 1: fxm := log10(95.7999999999999): fxr2 := 0.198136550907854396197617060359488906e1: fxrerr := 0.313e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 96.89999999999989\n"): total_tests := total_tests + 1: fxm := log10(96.89999999999989): fxr2 := 0.198632377705076483436437947398302193e1: fxrerr := 0.31e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 97.99999999999989\n"): total_tests := total_tests + 1: fxm := log10(97.99999999999989): fxr2 := 0.199122607569249436916477335723907303e1: fxrerr := 0.308e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 99.09999999999988\n"): total_tests := total_tests + 1: fxm := log10(99.09999999999988): fxr2 := 0.199607365448527480247807889556364617e1: fxrerr := 0.306e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 100.19999999999987\n"): total_tests := total_tests + 1: fxm := log10(100.19999999999987): fxr2 := 0.200086772153122634903692806296222425e1: fxrerr := 0.217e-29: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(log10,log10,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(log10,log10,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = sinh apfunc = sinh\n"): fprintf(except_fd,"maplefunc = sinh apfunc = sinh\n"): fprintf(out_fd,"x = -1.5\n"): total_tests := total_tests + 1: fxm := sinh(-1.5): fxr2 := -0.21292794550948174968343874946776313e1: fxrerr := 0.264e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4\n"): total_tests := total_tests + 1: fxm := sinh(-1.4): fxr2 := -0.19043015014515340551421238276974259e1: fxrerr := 0.243e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2999999999999998\n"): total_tests := total_tests + 1: fxm := sinh(-1.2999999999999998): fxr2 := -0.16983824372926154144847323088984196e1: fxrerr := 0.22e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1999999999999997\n"): total_tests := total_tests + 1: fxm := sinh(-1.1999999999999997): fxr2 := -0.15094613554121721532462247139468406e1: fxrerr := 0.202e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0999999999999996\n"): total_tests := total_tests + 1: fxm := sinh(-1.0999999999999996): fxr2 := -0.13356474701241761119773589946762519e1: fxrerr := 0.185e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9999999999999997\n"): total_tests := total_tests + 1: fxm := sinh(-0.9999999999999997): fxr2 := -0.11752011936438009939581914060225195e1: fxrerr := 0.771e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8999999999999997\n"): total_tests := total_tests + 1: fxm := sinh(-0.8999999999999997): fxr2 := -0.10265167257081748460324205273461515e1: fxrerr := 0.716e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7999999999999997\n"): total_tests := total_tests + 1: fxm := sinh(-0.7999999999999997): fxr2 := -0.88810598218762260534423368173641747e0: fxrerr := 0.668e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6999999999999997\n"): total_tests := total_tests + 1: fxm := sinh(-0.6999999999999997): fxr2 := -0.75858370183953312690917295830989679e0: fxrerr := 0.627e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5999999999999998\n"): total_tests := total_tests + 1: fxm := sinh(-0.5999999999999998): fxr2 := -0.63665358214824103403041072701162021e0: fxrerr := 0.592e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.4999999999999998\n"): total_tests := total_tests + 1: fxm := sinh(-0.4999999999999998): fxr2 := -0.52109530549374713609723258513534487e0: fxrerr := 0.563e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.3999999999999998\n"): total_tests := total_tests + 1: fxm := sinh(-0.3999999999999998): fxr2 := -0.41075232580281529232573564615374439e0: fxrerr := 0.54e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.2999999999999998\n"): total_tests := total_tests + 1: fxm := sinh(-0.2999999999999998): fxr2 := -0.30452029344714240989073244123300424e0: fxrerr := 0.522e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.19999999999999982\n"): total_tests := total_tests + 1: fxm := sinh(-0.19999999999999982): fxr2 := -0.20133600254109380401355223157666824e0: fxrerr := 0.51e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.09999999999999981\n"): total_tests := total_tests + 1: fxm := sinh(-0.09999999999999981): fxr2 := -0.10016675001984383487293745291922299e0: fxrerr := 0.502e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.942890293094024e-16\n"): total_tests := total_tests + 1: fxm := sinh(1.942890293094024e-16): fxr2 := 0.194289029309402400000000000000001222e-15: fxrerr := 0.5e-50: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.1000000000000002\n"): total_tests := total_tests + 1: fxm := sinh(0.1000000000000002): fxr2 := 0.10016675001984422682456299468262682e0: fxrerr := 0.502e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2000000000000002\n"): total_tests := total_tests + 1: fxm := sinh(0.2000000000000002): fxr2 := 0.201336002541094191638919366825490656e0: fxrerr := 0.51e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.3000000000000002\n"): total_tests := total_tests + 1: fxm := sinh(0.3000000000000002): fxr2 := 0.304520293447142828026138092777198319e0: fxrerr := 0.522e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.40000000000000024\n"): total_tests := total_tests + 1: fxm := sinh(0.40000000000000024): fxr2 := 0.410752325802815767997579255073864157e0: fxrerr := 0.54e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5000000000000002\n"): total_tests := total_tests + 1: fxm := sinh(0.5000000000000002): fxr2 := 0.521095305493747587147618667687659021e0: fxrerr := 0.563e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6000000000000002\n"): total_tests := total_tests + 1: fxm := sinh(0.6000000000000002): fxr2 := 0.636653582148241508216498023918701795e0: fxrerr := 0.592e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7000000000000002\n"): total_tests := total_tests + 1: fxm := sinh(0.7000000000000002): fxr2 := 0.758583701839533754493675773781386951e0: fxrerr := 0.627e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8000000000000002\n"): total_tests := total_tests + 1: fxm := sinh(0.8000000000000002): fxr2 := 0.888105982187623274061706834158694335e0: fxrerr := 0.668e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9000000000000001\n"): total_tests := total_tests + 1: fxm := sinh(0.9000000000000001): fxr2 := 0.102651672570817541926697470685586619e1: fxrerr := 0.716e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0000000000000002\n"): total_tests := total_tests + 1: fxm := sinh(1.0000000000000002): fxr2 := 0.117520119364380176549850881364437991e1: fxrerr := 0.343e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.1000000000000003\n"): total_tests := total_tests + 1: fxm := sinh(1.1000000000000003): fxr2 := 0.13356474701241772799403466702556381e1: fxrerr := 0.379e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2000000000000004\n"): total_tests := total_tests + 1: fxm := sinh(1.2000000000000004): fxr2 := 0.150946135541217342070512184100924865e1: fxrerr := 0.422e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3000000000000005\n"): total_tests := total_tests + 1: fxm := sinh(1.3000000000000005): fxr2 := 0.169838243729261679412469353753848626e1: fxrerr := 0.467e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4000000000000006\n"): total_tests := total_tests + 1: fxm := sinh(1.4000000000000006): fxr2 := 0.190430150145153534568120306358208804e1: fxrerr := 0.523e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sinh,sinh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sinh,sinh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = cosh apfunc = cosh\n"): fprintf(except_fd,"maplefunc = cosh apfunc = cosh\n"): fprintf(out_fd,"x = -1.5\n"): total_tests := total_tests + 1: fxm := cosh(-1.5): fxr2 := 0.235240961524324732576766796544164385e1: fxrerr := 0.265e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4\n"): total_tests := total_tests + 1: fxm := cosh(-1.4): fxr2 := 0.215089846539314053208198506753119365e1: fxrerr := 0.243e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2999999999999998\n"): total_tests := total_tests + 1: fxm := cosh(-1.2999999999999998): fxr2 := 0.197091423032662807211342408326429532e1: fxrerr := 0.22e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1999999999999997\n"): total_tests := total_tests + 1: fxm := cosh(-1.1999999999999997): fxr2 := 0.181065556732437434024946589469070571e1: fxrerr := 0.203e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0999999999999996\n"): total_tests := total_tests + 1: fxm := cosh(-1.0999999999999996): fxr2 := 0.166851855382225579841463938033941546e1: fxrerr := 0.186e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9999999999999997\n"): total_tests := total_tests + 1: fxm := cosh(-0.9999999999999997): fxr2 := 0.154308063481524342591754752761669397e1: fxrerr := 0.863e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8999999999999997\n"): total_tests := total_tests + 1: fxm := cosh(-0.8999999999999997): fxr2 := 0.143308638544877407988677268917152998e1: fxrerr := 0.8e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7999999999999997\n"): total_tests := total_tests + 1: fxm := cosh(-0.7999999999999997): fxr2 := 0.133743494630484433157302530191847792e1: fxrerr := 0.738e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6999999999999997\n"): total_tests := total_tests + 1: fxm := cosh(-0.6999999999999997): fxr2 := 0.125516900563094279058956418913030251e1: fxrerr := 0.691e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5999999999999998\n"): total_tests := total_tests + 1: fxm := cosh(-0.5999999999999998): fxr2 := 0.118546521824226757642119686304948561e1: fxrerr := 0.659e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.4999999999999998\n"): total_tests := total_tests + 1: fxm := cosh(-0.4999999999999998): fxr2 := 0.11276259652063806810071640626532222e1: fxrerr := 0.623e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.3999999999999998\n"): total_tests := total_tests + 1: fxm := cosh(-0.3999999999999998): fxr2 := 0.108107237183845472713417777842944406e1: fxrerr := 0.592e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.2999999999999998\n"): total_tests := total_tests + 1: fxm := cosh(-0.2999999999999998): fxr2 := 0.104533851412886042412125035689440918e1: fxrerr := 0.566e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.19999999999999982\n"): total_tests := total_tests + 1: fxm := cosh(-0.19999999999999982): fxr2 := 0.102006675561907581005502329423245553e1: fxrerr := 0.55e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.09999999999999981\n"): total_tests := total_tests + 1: fxm := cosh(-0.09999999999999981): fxr2 := 0.100500416805580357995629593919799487e1: fxrerr := 0.535e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.942890293094024e-16\n"): total_tests := total_tests + 1: fxm := cosh(1.942890293094024e-16): fxr2 := 0.100000000000000000000000000000001887e1: fxrerr := 0.349e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.1000000000000002\n"): total_tests := total_tests + 1: fxm := cosh(0.1000000000000002): fxr2 := 0.10050041680558036190213284469371669e1: fxrerr := 0.901e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2000000000000002\n"): total_tests := total_tests + 1: fxm := cosh(0.2000000000000002): fxr2 := 0.10200667556190758865627042598481747e1: fxrerr := 0.96e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.3000000000000002\n"): total_tests := total_tests + 1: fxm := cosh(0.3000000000000002): fxr2 := 0.104533851412886054592936773575145677e1: fxrerr := 0.103e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.40000000000000024\n"): total_tests := total_tests + 1: fxm := cosh(0.40000000000000024): fxr2 := 0.108107237183845490786520113166827732e1: fxrerr := 0.11e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5000000000000002\n"): total_tests := total_tests + 1: fxm := cosh(0.5000000000000002): fxr2 := 0.112762596520638088944528626015216685e1: fxrerr := 0.119e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6000000000000002\n"): total_tests := total_tests + 1: fxm := cosh(0.6000000000000002): fxr2 := 0.118546521824226783108262972234599406e1: fxrerr := 0.13e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7000000000000002\n"): total_tests := total_tests + 1: fxm := cosh(0.7000000000000002): fxr2 := 0.125516900563094316988141510889702285e1: fxrerr := 0.141e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8000000000000002\n"): total_tests := total_tests + 1: fxm := cosh(0.8000000000000002): fxr2 := 0.133743494630484477562601639572994778e1: fxrerr := 0.156e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9000000000000001\n"): total_tests := total_tests + 1: fxm := cosh(0.9000000000000001): fxr2 := 0.143308638544877449049346297244158303e1: fxrerr := 0.171e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0000000000000002\n"): total_tests := total_tests + 1: fxm := cosh(1.0000000000000002): fxr2 := 0.154308063481524401351814434951738383e1: fxrerr := 0.353e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.1000000000000003\n"): total_tests := total_tests + 1: fxm := cosh(1.1000000000000003): fxr2 := 0.166851855382225673336786846726310266e1: fxrerr := 0.387e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2000000000000004\n"): total_tests := total_tests + 1: fxm := cosh(1.2000000000000004): fxr2 := 0.181065556732437539687241468321165659e1: fxrerr := 0.43e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3000000000000005\n"): total_tests := total_tests + 1: fxm := cosh(1.3000000000000005): fxr2 := 0.197091423032662926098113018809556837e1: fxrerr := 0.474e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4000000000000006\n"): total_tests := total_tests + 1: fxm := cosh(1.4000000000000006): fxr2 := 0.215089846539314167466288593845201392e1: fxrerr := 0.529e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(cosh,cosh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(cosh,cosh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = tanh apfunc = tanh\n"): fprintf(except_fd,"maplefunc = tanh apfunc = tanh\n"): fprintf(out_fd,"x = -1.5\n"): total_tests := total_tests + 1: fxm := tanh(-1.5): fxr2 := -0.90514825364486643824230369645649557e0: fxrerr := 0.214e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4\n"): total_tests := total_tests + 1: fxm := tanh(-1.4): fxr2 := -0.88535164820226250758341765202557385e0: fxrerr := 0.212e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2999999999999998\n"): total_tests := total_tests + 1: fxm := tanh(-1.2999999999999998): fxr2 := -0.86172315931330631280831437531793907e0: fxrerr := 0.207e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1999999999999997\n"): total_tests := total_tests + 1: fxm := tanh(-1.1999999999999997): fxr2 := -0.83365460701215516716809625958959855e0: fxrerr := 0.205e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0999999999999996\n"): total_tests := total_tests + 1: fxm := tanh(-1.0999999999999996): fxr2 := -0.800499021760629562330934866490695e0: fxrerr := 0.2e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9999999999999997\n"): total_tests := total_tests + 1: fxm := tanh(-0.9999999999999997): fxr2 := -0.7615941559557647621271557983969436e0: fxrerr := 0.925e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8999999999999997\n"): total_tests := total_tests + 1: fxm := tanh(-0.8999999999999997): fxr2 := -0.71629787019902427473623543855559425e0: fxrerr := 0.899e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7999999999999997\n"): total_tests := total_tests + 1: fxm := tanh(-0.7999999999999997): fxr2 := -0.66403677026784879596829433672701585e0: fxrerr := 0.865e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6999999999999997\n"): total_tests := total_tests + 1: fxm := tanh(-0.6999999999999997): fxr2 := -0.60436777711716330588681018836621572e0: fxrerr := 0.832e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5999999999999998\n"): total_tests := total_tests + 1: fxm := tanh(-0.5999999999999998): fxr2 := -0.53704956699803514354627278748231962e0: fxrerr := 0.797e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.4999999999999998\n"): total_tests := total_tests + 1: fxm := tanh(-0.4999999999999998): fxr2 := -0.46211715726000960121277189045817593e0: fxrerr := 0.754e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.3999999999999998\n"): total_tests := total_tests + 1: fxm := tanh(-0.3999999999999998): fxr2 := -0.37994896225522471413999090766132115e0: fxrerr := 0.707e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.2999999999999998\n"): total_tests := total_tests + 1: fxm := tanh(-0.2999999999999998): fxr2 := -0.29131261245159072279082890749791457e0: fxrerr := 0.657e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.19999999999999982\n"): total_tests := total_tests + 1: fxm := tanh(-0.19999999999999982): fxr2 := -0.19737532022490382775042038491002115e0: fxrerr := 0.606e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.09999999999999981\n"): total_tests := total_tests + 1: fxm := tanh(-0.09999999999999981): fxr2 := -0.99667994624955629005709822664790702e-1: fxrerr := 0.552e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.942890293094024e-16\n"): total_tests := total_tests + 1: fxm := tanh(1.942890293094024e-16): fxr2 := 0.194289029309402399999999999999997555e-15: fxrerr := 0.728e-49: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.1000000000000002\n"): total_tests := total_tests + 1: fxm := tanh(0.1000000000000002): fxr2 := 0.996679946249560151315632531663039025e-1: fxrerr := 0.588e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2000000000000002\n"): total_tests := total_tests + 1: fxm := tanh(0.2000000000000002): fxr2 := 0.197375320224904192946753912034328426e0: fxrerr := 0.685e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.3000000000000002\n"): total_tests := total_tests + 1: fxm := tanh(0.3000000000000002): fxr2 := 0.291312612451591088845613638149595894e0: fxrerr := 0.786e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.40000000000000024\n"): total_tests := total_tests + 1: fxm := tanh(0.40000000000000024): fxr2 := 0.379948962255225090621056783379501506e0: fxrerr := 0.886e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5000000000000002\n"): total_tests := total_tests + 1: fxm := tanh(0.5000000000000002): fxr2 := 0.462117157260009915791865076829140052e0: fxrerr := 0.986e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6000000000000002\n"): total_tests := total_tests + 1: fxm := tanh(0.6000000000000002): fxr2 := 0.537049566998035428177377822371443195e0: fxrerr := 0.108e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7000000000000002\n"): total_tests := total_tests + 1: fxm := tanh(0.7000000000000002): fxr2 := 0.604367777117163623256605179595528627e0: fxrerr := 0.117e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8000000000000002\n"): total_tests := total_tests + 1: fxm := tanh(0.8000000000000002): fxr2 := 0.664036770267849075495878202849023732e0: fxrerr := 0.127e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9000000000000001\n"): total_tests := total_tests + 1: fxm := tanh(0.9000000000000001): fxr2 := 0.71629787019902446950317989789224761e0: fxrerr := 0.135e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0000000000000002\n"): total_tests := total_tests + 1: fxm := tanh(1.0000000000000002): fxr2 := 0.761594155955764972114326605409994652e0: fxrerr := 0.396e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.1000000000000003\n"): total_tests := total_tests + 1: fxm := tanh(1.1000000000000003): fxr2 := 0.800499021760629813771856178683137051e0: fxrerr := 0.412e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2000000000000004\n"): total_tests := total_tests + 1: fxm := tanh(1.2000000000000004): fxr2 := 0.833654607012155380682093604775864134e0: fxrerr := 0.431e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3000000000000005\n"): total_tests := total_tests + 1: fxm := tanh(1.3000000000000005): fxr2 := 0.861723159313306493011552067483705776e0: fxrerr := 0.444e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4000000000000006\n"): total_tests := total_tests + 1: fxm := tanh(1.4000000000000006): fxr2 := 0.885351648202262637274893067347829285e0: fxrerr := 0.46e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(tanh,tanh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(tanh,tanh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = sqrt apfunc = sqrt\n"): fprintf(except_fd,"maplefunc = sqrt apfunc = sqrt\n"): fprintf(out_fd,"x = 0.0\n"): total_tests := total_tests + 1: fxm := sqrt(0.0): fxr2 := 0.0e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.1\n"): total_tests := total_tests + 1: fxm := sqrt(0.1): fxr2 := 0.316227766016837933199889354443277368e0: fxrerr := 0.161e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2\n"): total_tests := total_tests + 1: fxm := sqrt(0.2): fxr2 := 0.447213595499957939281834733746259e0: fxrerr := 0.574e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.30000000000000004\n"): total_tests := total_tests + 1: fxm := sqrt(0.30000000000000004): fxr2 := 0.547722557505166149971806949811878115e0: fxrerr := 0.473e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.30000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.30000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.4\n"): total_tests := total_tests + 1: fxm := sqrt(0.4): fxr2 := 0.632455532033675866399778708886544009e0: fxrerr := 0.415e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5\n"): total_tests := total_tests + 1: fxm := sqrt(0.5): fxr2 := 0.707106781186547524400844362104849303e0: fxrerr := 0.372e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6\n"): total_tests := total_tests + 1: fxm := sqrt(0.6): fxr2 := 0.774596669241483377035853079956480158e0: fxrerr := 0.339e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7\n"): total_tests := total_tests + 1: fxm := sqrt(0.7): fxr2 := 0.836660026534075547978172025785187702e0: fxrerr := 0.312e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7999999999999999\n"): total_tests := total_tests + 1: fxm := sqrt(0.7999999999999999): fxr2 := 0.89442719099991582266197002999776649e0: fxrerr := 0.291e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.7999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.7999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8999999999999999\n"): total_tests := total_tests + 1: fxm := sqrt(0.8999999999999999): fxr2 := 0.948683298050513746895040393856825376e0: fxrerr := 0.273e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.8999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.8999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9999999999999999\n"): total_tests := total_tests + 1: fxm := sqrt(0.9999999999999999): fxr2 := 0.99999999999999994999999999999999875e0: fxrerr := 0.259e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,0.9999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,0.9999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0999999999999999\n"): total_tests := total_tests + 1: fxm := sqrt(1.0999999999999999): fxr2 := 0.104880884817015149931832405140033645e1: fxrerr := 0.264e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,1.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,1.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2\n"): total_tests := total_tests + 1: fxm := sqrt(1.2): fxr2 := 0.109544511501033222691393956560161857e1: fxrerr := 0.255e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3\n"): total_tests := total_tests + 1: fxm := sqrt(1.3): fxr2 := 0.11401754250991379791360490255667689e1: fxrerr := 0.247e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4000000000000001\n"): total_tests := total_tests + 1: fxm := sqrt(1.4000000000000001): fxr2 := 0.118321595661992325077117839473816564e1: fxrerr := 0.241e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(sqrt,sqrt,1.4000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(sqrt,sqrt,1.4000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = abs apfunc = abs\n"): fprintf(except_fd,"maplefunc = abs apfunc = abs\n"): fprintf(out_fd,"x = -1.5\n"): total_tests := total_tests + 1: fxm := abs(-1.5): fxr2 := 0.15e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4\n"): total_tests := total_tests + 1: fxm := abs(-1.4): fxr2 := 0.14e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2999999999999998\n"): total_tests := total_tests + 1: fxm := abs(-1.2999999999999998): fxr2 := 0.12999999999999998e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1999999999999997\n"): total_tests := total_tests + 1: fxm := abs(-1.1999999999999997): fxr2 := 0.11999999999999997e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0999999999999996\n"): total_tests := total_tests + 1: fxm := abs(-1.0999999999999996): fxr2 := 0.10999999999999996e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9999999999999997\n"): total_tests := total_tests + 1: fxm := abs(-0.9999999999999997): fxr2 := 0.9999999999999997e0: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8999999999999997\n"): total_tests := total_tests + 1: fxm := abs(-0.8999999999999997): fxr2 := 0.8999999999999997e0: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7999999999999997\n"): total_tests := total_tests + 1: fxm := abs(-0.7999999999999997): fxr2 := 0.7999999999999997e0: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6999999999999997\n"): total_tests := total_tests + 1: fxm := abs(-0.6999999999999997): fxr2 := 0.6999999999999997e0: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5999999999999998\n"): total_tests := total_tests + 1: fxm := abs(-0.5999999999999998): fxr2 := 0.5999999999999998e0: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.4999999999999998\n"): total_tests := total_tests + 1: fxm := abs(-0.4999999999999998): fxr2 := 0.4999999999999998e0: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.3999999999999998\n"): total_tests := total_tests + 1: fxm := abs(-0.3999999999999998): fxr2 := 0.3999999999999998e0: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.2999999999999998\n"): total_tests := total_tests + 1: fxm := abs(-0.2999999999999998): fxr2 := 0.2999999999999998e0: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.19999999999999982\n"): total_tests := total_tests + 1: fxm := abs(-0.19999999999999982): fxr2 := 0.19999999999999982e0: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.09999999999999981\n"): total_tests := total_tests + 1: fxm := abs(-0.09999999999999981): fxr2 := 0.9999999999999981e-1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.942890293094024e-16\n"): total_tests := total_tests + 1: fxm := abs(1.942890293094024e-16): fxr2 := 0.1942890293094024e-15: fxrerr := 0.50e-49: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.1000000000000002\n"): total_tests := total_tests + 1: fxm := abs(0.1000000000000002): fxr2 := 0.1000000000000002e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2000000000000002\n"): total_tests := total_tests + 1: fxm := abs(0.2000000000000002): fxr2 := 0.2000000000000002e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.3000000000000002\n"): total_tests := total_tests + 1: fxm := abs(0.3000000000000002): fxr2 := 0.3000000000000002e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.40000000000000024\n"): total_tests := total_tests + 1: fxm := abs(0.40000000000000024): fxr2 := 0.40000000000000024e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5000000000000002\n"): total_tests := total_tests + 1: fxm := abs(0.5000000000000002): fxr2 := 0.5000000000000002e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6000000000000002\n"): total_tests := total_tests + 1: fxm := abs(0.6000000000000002): fxr2 := 0.6000000000000002e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7000000000000002\n"): total_tests := total_tests + 1: fxm := abs(0.7000000000000002): fxr2 := 0.7000000000000002e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8000000000000002\n"): total_tests := total_tests + 1: fxm := abs(0.8000000000000002): fxr2 := 0.8000000000000002e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9000000000000001\n"): total_tests := total_tests + 1: fxm := abs(0.9000000000000001): fxr2 := 0.9000000000000001e0: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0000000000000002\n"): total_tests := total_tests + 1: fxm := abs(1.0000000000000002): fxr2 := 0.10000000000000002e1: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.1000000000000003\n"): total_tests := total_tests + 1: fxm := abs(1.1000000000000003): fxr2 := 0.11000000000000003e1: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2000000000000004\n"): total_tests := total_tests + 1: fxm := abs(1.2000000000000004): fxr2 := 0.12000000000000004e1: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3000000000000005\n"): total_tests := total_tests + 1: fxm := abs(1.3000000000000005): fxr2 := 0.13000000000000005e1: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4000000000000006\n"): total_tests := total_tests + 1: fxm := abs(1.4000000000000006): fxr2 := 0.14000000000000006e1: fxrerr := 0.50e-33: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(abs,abs,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(abs,abs,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = trunc apfunc = trunc\n"): fprintf(except_fd,"maplefunc = trunc apfunc = trunc\n"): fprintf(out_fd,"x = -19.5\n"): total_tests := total_tests + 1: fxm := trunc(-19.5): fxr2 := -0.19e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -19.38\n"): total_tests := total_tests + 1: fxm := trunc(-19.38): fxr2 := -0.19e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-19.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-19.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -19.259999999999998\n"): total_tests := total_tests + 1: fxm := trunc(-19.259999999999998): fxr2 := -0.19e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-19.259999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-19.259999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -19.139999999999997\n"): total_tests := total_tests + 1: fxm := trunc(-19.139999999999997): fxr2 := -0.19e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-19.139999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-19.139999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -19.019999999999996\n"): total_tests := total_tests + 1: fxm := trunc(-19.019999999999996): fxr2 := -0.19e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-19.019999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-19.019999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.899999999999995\n"): total_tests := total_tests + 1: fxm := trunc(-18.899999999999995): fxr2 := -0.18e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-18.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-18.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.779999999999994\n"): total_tests := total_tests + 1: fxm := trunc(-18.779999999999994): fxr2 := -0.18e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-18.779999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-18.779999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.659999999999993\n"): total_tests := total_tests + 1: fxm := trunc(-18.659999999999993): fxr2 := -0.18e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-18.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-18.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.539999999999992\n"): total_tests := total_tests + 1: fxm := trunc(-18.539999999999992): fxr2 := -0.18e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-18.539999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-18.539999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.41999999999999\n"): total_tests := total_tests + 1: fxm := trunc(-18.41999999999999): fxr2 := -0.18e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-18.41999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-18.41999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.29999999999999\n"): total_tests := total_tests + 1: fxm := trunc(-18.29999999999999): fxr2 := -0.18e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-18.29999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-18.29999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.17999999999999\n"): total_tests := total_tests + 1: fxm := trunc(-18.17999999999999): fxr2 := -0.18e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-18.17999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-18.17999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.059999999999988\n"): total_tests := total_tests + 1: fxm := trunc(-18.059999999999988): fxr2 := -0.18e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-18.059999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-18.059999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.939999999999987\n"): total_tests := total_tests + 1: fxm := trunc(-17.939999999999987): fxr2 := -0.17e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-17.939999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-17.939999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.819999999999986\n"): total_tests := total_tests + 1: fxm := trunc(-17.819999999999986): fxr2 := -0.17e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-17.819999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-17.819999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.699999999999985\n"): total_tests := total_tests + 1: fxm := trunc(-17.699999999999985): fxr2 := -0.17e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-17.699999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-17.699999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.579999999999984\n"): total_tests := total_tests + 1: fxm := trunc(-17.579999999999984): fxr2 := -0.17e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-17.579999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-17.579999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.459999999999983\n"): total_tests := total_tests + 1: fxm := trunc(-17.459999999999983): fxr2 := -0.17e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-17.459999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-17.459999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.339999999999982\n"): total_tests := total_tests + 1: fxm := trunc(-17.339999999999982): fxr2 := -0.17e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-17.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-17.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.21999999999998\n"): total_tests := total_tests + 1: fxm := trunc(-17.21999999999998): fxr2 := -0.17e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-17.21999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-17.21999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.09999999999998\n"): total_tests := total_tests + 1: fxm := trunc(-17.09999999999998): fxr2 := -0.17e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-17.09999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-17.09999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.97999999999998\n"): total_tests := total_tests + 1: fxm := trunc(-16.97999999999998): fxr2 := -0.16e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-16.97999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-16.97999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.859999999999978\n"): total_tests := total_tests + 1: fxm := trunc(-16.859999999999978): fxr2 := -0.16e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-16.859999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-16.859999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.739999999999977\n"): total_tests := total_tests + 1: fxm := trunc(-16.739999999999977): fxr2 := -0.16e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-16.739999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-16.739999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.619999999999976\n"): total_tests := total_tests + 1: fxm := trunc(-16.619999999999976): fxr2 := -0.16e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-16.619999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-16.619999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.499999999999975\n"): total_tests := total_tests + 1: fxm := trunc(-16.499999999999975): fxr2 := -0.16e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-16.499999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-16.499999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.379999999999974\n"): total_tests := total_tests + 1: fxm := trunc(-16.379999999999974): fxr2 := -0.16e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-16.379999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-16.379999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.259999999999973\n"): total_tests := total_tests + 1: fxm := trunc(-16.259999999999973): fxr2 := -0.16e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-16.259999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-16.259999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.139999999999972\n"): total_tests := total_tests + 1: fxm := trunc(-16.139999999999972): fxr2 := -0.16e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-16.139999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-16.139999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.01999999999997\n"): total_tests := total_tests + 1: fxm := trunc(-16.01999999999997): fxr2 := -0.16e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-16.01999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-16.01999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.899999999999972\n"): total_tests := total_tests + 1: fxm := trunc(-15.899999999999972): fxr2 := -0.15e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-15.899999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-15.899999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.779999999999973\n"): total_tests := total_tests + 1: fxm := trunc(-15.779999999999973): fxr2 := -0.15e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-15.779999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-15.779999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.659999999999973\n"): total_tests := total_tests + 1: fxm := trunc(-15.659999999999973): fxr2 := -0.15e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-15.659999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-15.659999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.539999999999974\n"): total_tests := total_tests + 1: fxm := trunc(-15.539999999999974): fxr2 := -0.15e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-15.539999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-15.539999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.419999999999975\n"): total_tests := total_tests + 1: fxm := trunc(-15.419999999999975): fxr2 := -0.15e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-15.419999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-15.419999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.299999999999976\n"): total_tests := total_tests + 1: fxm := trunc(-15.299999999999976): fxr2 := -0.15e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-15.299999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-15.299999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.179999999999977\n"): total_tests := total_tests + 1: fxm := trunc(-15.179999999999977): fxr2 := -0.15e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-15.179999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-15.179999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.059999999999977\n"): total_tests := total_tests + 1: fxm := trunc(-15.059999999999977): fxr2 := -0.15e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-15.059999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-15.059999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.939999999999978\n"): total_tests := total_tests + 1: fxm := trunc(-14.939999999999978): fxr2 := -0.14e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-14.939999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-14.939999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.819999999999979\n"): total_tests := total_tests + 1: fxm := trunc(-14.819999999999979): fxr2 := -0.14e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-14.819999999999979,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-14.819999999999979,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.69999999999998\n"): total_tests := total_tests + 1: fxm := trunc(-14.69999999999998): fxr2 := -0.14e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-14.69999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-14.69999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.57999999999998\n"): total_tests := total_tests + 1: fxm := trunc(-14.57999999999998): fxr2 := -0.14e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-14.57999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-14.57999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.459999999999981\n"): total_tests := total_tests + 1: fxm := trunc(-14.459999999999981): fxr2 := -0.14e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-14.459999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-14.459999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.339999999999982\n"): total_tests := total_tests + 1: fxm := trunc(-14.339999999999982): fxr2 := -0.14e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-14.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-14.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.219999999999983\n"): total_tests := total_tests + 1: fxm := trunc(-14.219999999999983): fxr2 := -0.14e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-14.219999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-14.219999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.099999999999984\n"): total_tests := total_tests + 1: fxm := trunc(-14.099999999999984): fxr2 := -0.14e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-14.099999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-14.099999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.979999999999984\n"): total_tests := total_tests + 1: fxm := trunc(-13.979999999999984): fxr2 := -0.13e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-13.979999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-13.979999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.859999999999985\n"): total_tests := total_tests + 1: fxm := trunc(-13.859999999999985): fxr2 := -0.13e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-13.859999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-13.859999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.739999999999986\n"): total_tests := total_tests + 1: fxm := trunc(-13.739999999999986): fxr2 := -0.13e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-13.739999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-13.739999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.619999999999987\n"): total_tests := total_tests + 1: fxm := trunc(-13.619999999999987): fxr2 := -0.13e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-13.619999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-13.619999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.499999999999988\n"): total_tests := total_tests + 1: fxm := trunc(-13.499999999999988): fxr2 := -0.13e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-13.499999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-13.499999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.379999999999988\n"): total_tests := total_tests + 1: fxm := trunc(-13.379999999999988): fxr2 := -0.13e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-13.379999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-13.379999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.25999999999999\n"): total_tests := total_tests + 1: fxm := trunc(-13.25999999999999): fxr2 := -0.13e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-13.25999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-13.25999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.13999999999999\n"): total_tests := total_tests + 1: fxm := trunc(-13.13999999999999): fxr2 := -0.13e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-13.13999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-13.13999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.01999999999999\n"): total_tests := total_tests + 1: fxm := trunc(-13.01999999999999): fxr2 := -0.13e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-13.01999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-13.01999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.899999999999991\n"): total_tests := total_tests + 1: fxm := trunc(-12.899999999999991): fxr2 := -0.12e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-12.899999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-12.899999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.779999999999992\n"): total_tests := total_tests + 1: fxm := trunc(-12.779999999999992): fxr2 := -0.12e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-12.779999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-12.779999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.659999999999993\n"): total_tests := total_tests + 1: fxm := trunc(-12.659999999999993): fxr2 := -0.12e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-12.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-12.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.539999999999994\n"): total_tests := total_tests + 1: fxm := trunc(-12.539999999999994): fxr2 := -0.12e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-12.539999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-12.539999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.419999999999995\n"): total_tests := total_tests + 1: fxm := trunc(-12.419999999999995): fxr2 := -0.12e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-12.419999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-12.419999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.299999999999995\n"): total_tests := total_tests + 1: fxm := trunc(-12.299999999999995): fxr2 := -0.12e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-12.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-12.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.179999999999996\n"): total_tests := total_tests + 1: fxm := trunc(-12.179999999999996): fxr2 := -0.12e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-12.179999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-12.179999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.059999999999997\n"): total_tests := total_tests + 1: fxm := trunc(-12.059999999999997): fxr2 := -0.12e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-12.059999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-12.059999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.939999999999998\n"): total_tests := total_tests + 1: fxm := trunc(-11.939999999999998): fxr2 := -0.11e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-11.939999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-11.939999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.819999999999999\n"): total_tests := total_tests + 1: fxm := trunc(-11.819999999999999): fxr2 := -0.11e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-11.819999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-11.819999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.7\n"): total_tests := total_tests + 1: fxm := trunc(-11.7): fxr2 := -0.11e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-11.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-11.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.58\n"): total_tests := total_tests + 1: fxm := trunc(-11.58): fxr2 := -0.11e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.46\n"): total_tests := total_tests + 1: fxm := trunc(-11.46): fxr2 := -0.11e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-11.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-11.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.340000000000002\n"): total_tests := total_tests + 1: fxm := trunc(-11.340000000000002): fxr2 := -0.11e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-11.340000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-11.340000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.220000000000002\n"): total_tests := total_tests + 1: fxm := trunc(-11.220000000000002): fxr2 := -0.11e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-11.220000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-11.220000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.100000000000003\n"): total_tests := total_tests + 1: fxm := trunc(-11.100000000000003): fxr2 := -0.11e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-11.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-11.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.980000000000004\n"): total_tests := total_tests + 1: fxm := trunc(-10.980000000000004): fxr2 := -0.1e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-10.980000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-10.980000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.860000000000005\n"): total_tests := total_tests + 1: fxm := trunc(-10.860000000000005): fxr2 := -0.1e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-10.860000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-10.860000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.740000000000006\n"): total_tests := total_tests + 1: fxm := trunc(-10.740000000000006): fxr2 := -0.1e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-10.740000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-10.740000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.620000000000006\n"): total_tests := total_tests + 1: fxm := trunc(-10.620000000000006): fxr2 := -0.1e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-10.620000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-10.620000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.500000000000007\n"): total_tests := total_tests + 1: fxm := trunc(-10.500000000000007): fxr2 := -0.1e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-10.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-10.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.380000000000008\n"): total_tests := total_tests + 1: fxm := trunc(-10.380000000000008): fxr2 := -0.1e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-10.380000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-10.380000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.260000000000009\n"): total_tests := total_tests + 1: fxm := trunc(-10.260000000000009): fxr2 := -0.1e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-10.260000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-10.260000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.14000000000001\n"): total_tests := total_tests + 1: fxm := trunc(-10.14000000000001): fxr2 := -0.1e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-10.14000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-10.14000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.02000000000001\n"): total_tests := total_tests + 1: fxm := trunc(-10.02000000000001): fxr2 := -0.1e2: fxrerr := 0.50e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-10.02000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-10.02000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.900000000000011\n"): total_tests := total_tests + 1: fxm := trunc(-9.900000000000011): fxr2 := -0.9e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-9.900000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-9.900000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.780000000000012\n"): total_tests := total_tests + 1: fxm := trunc(-9.780000000000012): fxr2 := -0.9e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-9.780000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-9.780000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.660000000000013\n"): total_tests := total_tests + 1: fxm := trunc(-9.660000000000013): fxr2 := -0.9e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-9.660000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-9.660000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.540000000000013\n"): total_tests := total_tests + 1: fxm := trunc(-9.540000000000013): fxr2 := -0.9e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-9.540000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-9.540000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.420000000000014\n"): total_tests := total_tests + 1: fxm := trunc(-9.420000000000014): fxr2 := -0.9e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-9.420000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-9.420000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.300000000000015\n"): total_tests := total_tests + 1: fxm := trunc(-9.300000000000015): fxr2 := -0.9e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-9.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-9.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.180000000000016\n"): total_tests := total_tests + 1: fxm := trunc(-9.180000000000016): fxr2 := -0.9e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-9.180000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-9.180000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.060000000000016\n"): total_tests := total_tests + 1: fxm := trunc(-9.060000000000016): fxr2 := -0.9e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-9.060000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-9.060000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.940000000000017\n"): total_tests := total_tests + 1: fxm := trunc(-8.940000000000017): fxr2 := -0.8e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-8.940000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-8.940000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.820000000000018\n"): total_tests := total_tests + 1: fxm := trunc(-8.820000000000018): fxr2 := -0.8e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-8.820000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-8.820000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.700000000000019\n"): total_tests := total_tests + 1: fxm := trunc(-8.700000000000019): fxr2 := -0.8e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-8.700000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-8.700000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.58000000000002\n"): total_tests := total_tests + 1: fxm := trunc(-8.58000000000002): fxr2 := -0.8e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-8.58000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-8.58000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.46000000000002\n"): total_tests := total_tests + 1: fxm := trunc(-8.46000000000002): fxr2 := -0.8e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-8.46000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-8.46000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.340000000000021\n"): total_tests := total_tests + 1: fxm := trunc(-8.340000000000021): fxr2 := -0.8e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-8.340000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-8.340000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.220000000000022\n"): total_tests := total_tests + 1: fxm := trunc(-8.220000000000022): fxr2 := -0.8e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-8.220000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-8.220000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.100000000000023\n"): total_tests := total_tests + 1: fxm := trunc(-8.100000000000023): fxr2 := -0.8e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-8.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-8.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.980000000000023\n"): total_tests := total_tests + 1: fxm := trunc(-7.980000000000023): fxr2 := -0.7e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-7.980000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-7.980000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.8600000000000225\n"): total_tests := total_tests + 1: fxm := trunc(-7.8600000000000225): fxr2 := -0.7e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-7.8600000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-7.8600000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.740000000000022\n"): total_tests := total_tests + 1: fxm := trunc(-7.740000000000022): fxr2 := -0.7e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-7.740000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-7.740000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -7.620000000000022\n"): total_tests := total_tests + 1: fxm := trunc(-7.620000000000022): fxr2 := -0.7e1: fxrerr := 0.50e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(trunc,trunc,-7.620000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(trunc,trunc,-7.620000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = frac apfunc = frac\n"): fprintf(except_fd,"maplefunc = frac apfunc = frac\n"): fprintf(out_fd,"x = -19.5\n"): total_tests := total_tests + 1: fxm := frac(-19.5): fxr2 := -0.5e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -19.39\n"): total_tests := total_tests + 1: fxm := frac(-19.39): fxr2 := -0.39e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-19.39,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-19.39,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -19.28\n"): total_tests := total_tests + 1: fxm := frac(-19.28): fxr2 := -0.28e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-19.28,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-19.28,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -19.17\n"): total_tests := total_tests + 1: fxm := frac(-19.17): fxr2 := -0.17e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-19.17,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-19.17,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -19.060000000000002\n"): total_tests := total_tests + 1: fxm := frac(-19.060000000000002): fxr2 := -0.60000000000002e-1: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-19.060000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-19.060000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.950000000000003\n"): total_tests := total_tests + 1: fxm := frac(-18.950000000000003): fxr2 := -0.950000000000003e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-18.950000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-18.950000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.840000000000003\n"): total_tests := total_tests + 1: fxm := frac(-18.840000000000003): fxr2 := -0.840000000000003e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-18.840000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-18.840000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.730000000000004\n"): total_tests := total_tests + 1: fxm := frac(-18.730000000000004): fxr2 := -0.730000000000004e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-18.730000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-18.730000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.620000000000005\n"): total_tests := total_tests + 1: fxm := frac(-18.620000000000005): fxr2 := -0.620000000000005e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-18.620000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-18.620000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.510000000000005\n"): total_tests := total_tests + 1: fxm := frac(-18.510000000000005): fxr2 := -0.510000000000005e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-18.510000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-18.510000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.400000000000006\n"): total_tests := total_tests + 1: fxm := frac(-18.400000000000006): fxr2 := -0.400000000000006e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-18.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-18.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.290000000000006\n"): total_tests := total_tests + 1: fxm := frac(-18.290000000000006): fxr2 := -0.290000000000006e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-18.290000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-18.290000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.180000000000007\n"): total_tests := total_tests + 1: fxm := frac(-18.180000000000007): fxr2 := -0.180000000000007e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-18.180000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-18.180000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -18.070000000000007\n"): total_tests := total_tests + 1: fxm := frac(-18.070000000000007): fxr2 := -0.70000000000007e-1: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-18.070000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-18.070000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.960000000000008\n"): total_tests := total_tests + 1: fxm := frac(-17.960000000000008): fxr2 := -0.960000000000008e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-17.960000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-17.960000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.85000000000001\n"): total_tests := total_tests + 1: fxm := frac(-17.85000000000001): fxr2 := -0.85000000000001e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-17.85000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-17.85000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.74000000000001\n"): total_tests := total_tests + 1: fxm := frac(-17.74000000000001): fxr2 := -0.74000000000001e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-17.74000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-17.74000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.63000000000001\n"): total_tests := total_tests + 1: fxm := frac(-17.63000000000001): fxr2 := -0.63000000000001e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-17.63000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-17.63000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.52000000000001\n"): total_tests := total_tests + 1: fxm := frac(-17.52000000000001): fxr2 := -0.52000000000001e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-17.52000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-17.52000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.41000000000001\n"): total_tests := total_tests + 1: fxm := frac(-17.41000000000001): fxr2 := -0.41000000000001e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-17.41000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-17.41000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.30000000000001\n"): total_tests := total_tests + 1: fxm := frac(-17.30000000000001): fxr2 := -0.30000000000001e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-17.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-17.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.190000000000012\n"): total_tests := total_tests + 1: fxm := frac(-17.190000000000012): fxr2 := -0.190000000000012e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-17.190000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-17.190000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -17.080000000000013\n"): total_tests := total_tests + 1: fxm := frac(-17.080000000000013): fxr2 := -0.80000000000013e-1: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-17.080000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-17.080000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.970000000000013\n"): total_tests := total_tests + 1: fxm := frac(-16.970000000000013): fxr2 := -0.970000000000013e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-16.970000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-16.970000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.860000000000014\n"): total_tests := total_tests + 1: fxm := frac(-16.860000000000014): fxr2 := -0.860000000000014e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-16.860000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-16.860000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.750000000000014\n"): total_tests := total_tests + 1: fxm := frac(-16.750000000000014): fxr2 := -0.750000000000014e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-16.750000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-16.750000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.640000000000015\n"): total_tests := total_tests + 1: fxm := frac(-16.640000000000015): fxr2 := -0.640000000000015e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-16.640000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-16.640000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.530000000000015\n"): total_tests := total_tests + 1: fxm := frac(-16.530000000000015): fxr2 := -0.530000000000015e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-16.530000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-16.530000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.420000000000016\n"): total_tests := total_tests + 1: fxm := frac(-16.420000000000016): fxr2 := -0.420000000000016e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-16.420000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-16.420000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.310000000000016\n"): total_tests := total_tests + 1: fxm := frac(-16.310000000000016): fxr2 := -0.310000000000016e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-16.310000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-16.310000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.200000000000017\n"): total_tests := total_tests + 1: fxm := frac(-16.200000000000017): fxr2 := -0.200000000000017e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-16.200000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-16.200000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -16.090000000000018\n"): total_tests := total_tests + 1: fxm := frac(-16.090000000000018): fxr2 := -0.90000000000018e-1: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-16.090000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-16.090000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.980000000000018\n"): total_tests := total_tests + 1: fxm := frac(-15.980000000000018): fxr2 := -0.980000000000018e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-15.980000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-15.980000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.870000000000019\n"): total_tests := total_tests + 1: fxm := frac(-15.870000000000019): fxr2 := -0.870000000000019e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-15.870000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-15.870000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.76000000000002\n"): total_tests := total_tests + 1: fxm := frac(-15.76000000000002): fxr2 := -0.76000000000002e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-15.76000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-15.76000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.65000000000002\n"): total_tests := total_tests + 1: fxm := frac(-15.65000000000002): fxr2 := -0.65000000000002e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-15.65000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-15.65000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.54000000000002\n"): total_tests := total_tests + 1: fxm := frac(-15.54000000000002): fxr2 := -0.54000000000002e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-15.54000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-15.54000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.430000000000021\n"): total_tests := total_tests + 1: fxm := frac(-15.430000000000021): fxr2 := -0.430000000000021e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-15.430000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-15.430000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.320000000000022\n"): total_tests := total_tests + 1: fxm := frac(-15.320000000000022): fxr2 := -0.320000000000022e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-15.320000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-15.320000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.210000000000022\n"): total_tests := total_tests + 1: fxm := frac(-15.210000000000022): fxr2 := -0.210000000000022e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-15.210000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-15.210000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -15.100000000000023\n"): total_tests := total_tests + 1: fxm := frac(-15.100000000000023): fxr2 := -0.100000000000023e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-15.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-15.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.990000000000023\n"): total_tests := total_tests + 1: fxm := frac(-14.990000000000023): fxr2 := -0.990000000000023e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.990000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.990000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.880000000000024\n"): total_tests := total_tests + 1: fxm := frac(-14.880000000000024): fxr2 := -0.880000000000024e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.880000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.880000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.770000000000024\n"): total_tests := total_tests + 1: fxm := frac(-14.770000000000024): fxr2 := -0.770000000000024e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.770000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.770000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.660000000000025\n"): total_tests := total_tests + 1: fxm := frac(-14.660000000000025): fxr2 := -0.660000000000025e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.660000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.660000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.550000000000026\n"): total_tests := total_tests + 1: fxm := frac(-14.550000000000026): fxr2 := -0.550000000000026e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.550000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.550000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.440000000000026\n"): total_tests := total_tests + 1: fxm := frac(-14.440000000000026): fxr2 := -0.440000000000026e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.440000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.440000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.330000000000027\n"): total_tests := total_tests + 1: fxm := frac(-14.330000000000027): fxr2 := -0.330000000000027e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.330000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.330000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.220000000000027\n"): total_tests := total_tests + 1: fxm := frac(-14.220000000000027): fxr2 := -0.220000000000027e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.220000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.220000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.110000000000028\n"): total_tests := total_tests + 1: fxm := frac(-14.110000000000028): fxr2 := -0.110000000000028e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.110000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.110000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -14.000000000000028\n"): total_tests := total_tests + 1: fxm := frac(-14.000000000000028): fxr2 := -0.28e-13: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-14.000000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-14.000000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.890000000000029\n"): total_tests := total_tests + 1: fxm := frac(-13.890000000000029): fxr2 := -0.890000000000029e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-13.890000000000029,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-13.890000000000029,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.78000000000003\n"): total_tests := total_tests + 1: fxm := frac(-13.78000000000003): fxr2 := -0.78000000000003e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-13.78000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-13.78000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.67000000000003\n"): total_tests := total_tests + 1: fxm := frac(-13.67000000000003): fxr2 := -0.67000000000003e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-13.67000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-13.67000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.56000000000003\n"): total_tests := total_tests + 1: fxm := frac(-13.56000000000003): fxr2 := -0.56000000000003e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-13.56000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-13.56000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.450000000000031\n"): total_tests := total_tests + 1: fxm := frac(-13.450000000000031): fxr2 := -0.450000000000031e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-13.450000000000031,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-13.450000000000031,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.340000000000032\n"): total_tests := total_tests + 1: fxm := frac(-13.340000000000032): fxr2 := -0.340000000000032e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-13.340000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-13.340000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.230000000000032\n"): total_tests := total_tests + 1: fxm := frac(-13.230000000000032): fxr2 := -0.230000000000032e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-13.230000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-13.230000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.120000000000033\n"): total_tests := total_tests + 1: fxm := frac(-13.120000000000033): fxr2 := -0.120000000000033e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-13.120000000000033,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-13.120000000000033,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -13.010000000000034\n"): total_tests := total_tests + 1: fxm := frac(-13.010000000000034): fxr2 := -0.10000000000034e-1: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-13.010000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-13.010000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.900000000000034\n"): total_tests := total_tests + 1: fxm := frac(-12.900000000000034): fxr2 := -0.900000000000034e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-12.900000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-12.900000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.790000000000035\n"): total_tests := total_tests + 1: fxm := frac(-12.790000000000035): fxr2 := -0.790000000000035e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-12.790000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-12.790000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.680000000000035\n"): total_tests := total_tests + 1: fxm := frac(-12.680000000000035): fxr2 := -0.680000000000035e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-12.680000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-12.680000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.570000000000036\n"): total_tests := total_tests + 1: fxm := frac(-12.570000000000036): fxr2 := -0.570000000000036e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-12.570000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-12.570000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.460000000000036\n"): total_tests := total_tests + 1: fxm := frac(-12.460000000000036): fxr2 := -0.460000000000036e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-12.460000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-12.460000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.350000000000037\n"): total_tests := total_tests + 1: fxm := frac(-12.350000000000037): fxr2 := -0.350000000000037e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-12.350000000000037,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-12.350000000000037,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.240000000000038\n"): total_tests := total_tests + 1: fxm := frac(-12.240000000000038): fxr2 := -0.240000000000038e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-12.240000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-12.240000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.130000000000038\n"): total_tests := total_tests + 1: fxm := frac(-12.130000000000038): fxr2 := -0.130000000000038e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-12.130000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-12.130000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -12.020000000000039\n"): total_tests := total_tests + 1: fxm := frac(-12.020000000000039): fxr2 := -0.20000000000039e-1: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-12.020000000000039,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-12.020000000000039,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.91000000000004\n"): total_tests := total_tests + 1: fxm := frac(-11.91000000000004): fxr2 := -0.91000000000004e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-11.91000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-11.91000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.80000000000004\n"): total_tests := total_tests + 1: fxm := frac(-11.80000000000004): fxr2 := -0.80000000000004e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-11.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-11.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.69000000000004\n"): total_tests := total_tests + 1: fxm := frac(-11.69000000000004): fxr2 := -0.69000000000004e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-11.69000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-11.69000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.580000000000041\n"): total_tests := total_tests + 1: fxm := frac(-11.580000000000041): fxr2 := -0.580000000000041e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-11.580000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-11.580000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.470000000000041\n"): total_tests := total_tests + 1: fxm := frac(-11.470000000000041): fxr2 := -0.470000000000041e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-11.470000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-11.470000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.360000000000042\n"): total_tests := total_tests + 1: fxm := frac(-11.360000000000042): fxr2 := -0.360000000000042e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-11.360000000000042,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-11.360000000000042,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.250000000000043\n"): total_tests := total_tests + 1: fxm := frac(-11.250000000000043): fxr2 := -0.250000000000043e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-11.250000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-11.250000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.140000000000043\n"): total_tests := total_tests + 1: fxm := frac(-11.140000000000043): fxr2 := -0.140000000000043e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-11.140000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-11.140000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -11.030000000000044\n"): total_tests := total_tests + 1: fxm := frac(-11.030000000000044): fxr2 := -0.30000000000044e-1: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-11.030000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-11.030000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.920000000000044\n"): total_tests := total_tests + 1: fxm := frac(-10.920000000000044): fxr2 := -0.920000000000044e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-10.920000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-10.920000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.810000000000045\n"): total_tests := total_tests + 1: fxm := frac(-10.810000000000045): fxr2 := -0.810000000000045e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-10.810000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-10.810000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.700000000000045\n"): total_tests := total_tests + 1: fxm := frac(-10.700000000000045): fxr2 := -0.700000000000045e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-10.700000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-10.700000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.590000000000046\n"): total_tests := total_tests + 1: fxm := frac(-10.590000000000046): fxr2 := -0.590000000000046e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-10.590000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-10.590000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.480000000000047\n"): total_tests := total_tests + 1: fxm := frac(-10.480000000000047): fxr2 := -0.480000000000047e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-10.480000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-10.480000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.370000000000047\n"): total_tests := total_tests + 1: fxm := frac(-10.370000000000047): fxr2 := -0.370000000000047e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-10.370000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-10.370000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.260000000000048\n"): total_tests := total_tests + 1: fxm := frac(-10.260000000000048): fxr2 := -0.260000000000048e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-10.260000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-10.260000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.150000000000048\n"): total_tests := total_tests + 1: fxm := frac(-10.150000000000048): fxr2 := -0.150000000000048e0: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-10.150000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-10.150000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -10.040000000000049\n"): total_tests := total_tests + 1: fxm := frac(-10.040000000000049): fxr2 := -0.40000000000049e-1: fxrerr := 0.100e-30: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-10.040000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-10.040000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.93000000000005\n"): total_tests := total_tests + 1: fxm := frac(-9.93000000000005): fxr2 := -0.93000000000005e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-9.93000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-9.93000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.82000000000005\n"): total_tests := total_tests + 1: fxm := frac(-9.82000000000005): fxr2 := -0.82000000000005e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-9.82000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-9.82000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.71000000000005\n"): total_tests := total_tests + 1: fxm := frac(-9.71000000000005): fxr2 := -0.71000000000005e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-9.71000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-9.71000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.600000000000051\n"): total_tests := total_tests + 1: fxm := frac(-9.600000000000051): fxr2 := -0.600000000000051e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-9.600000000000051,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-9.600000000000051,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.490000000000052\n"): total_tests := total_tests + 1: fxm := frac(-9.490000000000052): fxr2 := -0.490000000000052e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-9.490000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-9.490000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.380000000000052\n"): total_tests := total_tests + 1: fxm := frac(-9.380000000000052): fxr2 := -0.380000000000052e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-9.380000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-9.380000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.270000000000053\n"): total_tests := total_tests + 1: fxm := frac(-9.270000000000053): fxr2 := -0.270000000000053e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-9.270000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-9.270000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.160000000000053\n"): total_tests := total_tests + 1: fxm := frac(-9.160000000000053): fxr2 := -0.160000000000053e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-9.160000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-9.160000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -9.050000000000054\n"): total_tests := total_tests + 1: fxm := frac(-9.050000000000054): fxr2 := -0.50000000000054e-1: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-9.050000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-9.050000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.940000000000055\n"): total_tests := total_tests + 1: fxm := frac(-8.940000000000055): fxr2 := -0.940000000000055e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-8.940000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-8.940000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.830000000000055\n"): total_tests := total_tests + 1: fxm := frac(-8.830000000000055): fxr2 := -0.830000000000055e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-8.830000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-8.830000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.720000000000056\n"): total_tests := total_tests + 1: fxm := frac(-8.720000000000056): fxr2 := -0.720000000000056e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-8.720000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-8.720000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -8.610000000000056\n"): total_tests := total_tests + 1: fxm := frac(-8.610000000000056): fxr2 := -0.610000000000056e0: fxrerr := 0.100e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(frac,frac,-8.610000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(frac,frac,-8.610000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"maplefunc = erf apfunc = erf\n"): fprintf(except_fd,"maplefunc = erf apfunc = erf\n"): fprintf(out_fd,"x = -1.5\n"): total_tests := total_tests + 1: fxm := erf(-1.5): fxr2 := -0.96610514647531072706697626164594318e0: fxrerr := 0.412e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.4\n"): total_tests := total_tests + 1: fxm := erf(-1.4): fxr2 := -0.95228511976264881051648269153342716e0: fxrerr := 0.289e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.2999999999999998\n"): total_tests := total_tests + 1: fxm := erf(-1.2999999999999998): fxr2 := -0.93400794494065239496229596828976004e0: fxrerr := 0.203e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.1999999999999997\n"): total_tests := total_tests + 1: fxm := erf(-1.1999999999999997): fxr2 := -0.9103139782296353000351016746535968e0: fxrerr := 0.236e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -1.0999999999999996\n"): total_tests := total_tests + 1: fxm := erf(-1.0999999999999996): fxr2 := -0.88020506957408156518002864902420005e0: fxrerr := 0.298e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.9999999999999997\n"): total_tests := total_tests + 1: fxm := erf(-0.9999999999999997): fxr2 := -0.84270079294971474480897140890415684e0: fxrerr := 0.367e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.8999999999999997\n"): total_tests := total_tests + 1: fxm := erf(-0.8999999999999997): fxr2 := -0.79690821242283197792815251303303369e0: fxrerr := 0.444e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.7999999999999997\n"): total_tests := total_tests + 1: fxm := erf(-0.7999999999999997): fxr2 := -0.74210096470766030767137470926221157e0: fxrerr := 0.527e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.6999999999999997\n"): total_tests := total_tests + 1: fxm := erf(-0.6999999999999997): fxr2 := -0.67780119383741826559317068608253301e0: fxrerr := 0.612e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.5999999999999998\n"): total_tests := total_tests + 1: fxm := erf(-0.5999999999999998): fxr2 := -0.60385609084792576511393609319924766e0: fxrerr := 0.697e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.4999999999999998\n"): total_tests := total_tests + 1: fxm := erf(-0.4999999999999998): fxr2 := -0.52049987781304636192623086680298561e0: fxrerr := 0.778e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.3999999999999998\n"): total_tests := total_tests + 1: fxm := erf(-0.3999999999999998): fxr2 := -0.4283923550466682627953440774585974e0: fxrerr := 0.852e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.2999999999999998\n"): total_tests := total_tests + 1: fxm := erf(-0.2999999999999998): fxr2 := -0.32862675945912722138673212407413249e0: fxrerr := 0.913e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.19999999999999982\n"): total_tests := total_tests + 1: fxm := erf(-0.19999999999999982): fxr2 := -0.22270258921047825899587732792477379e0: fxrerr := 0.96e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = -0.09999999999999981\n"): total_tests := total_tests + 1: fxm := erf(-0.09999999999999981): fxr2 := -0.11246291601828467994446978184594452e0: fxrerr := 0.99e-31: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.942890293094024e-16\n"): total_tests := total_tests + 1: fxm := erf(1.942890293094024e-16): fxr2 := 0.219231693067939110648928079710835261e-15: fxrerr := 0.5e-50: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.1000000000000002\n"): total_tests := total_tests + 1: fxm := erf(0.1000000000000002): fxr2 := 0.112462916018285115633596429531352029e0: fxrerr := 0.99e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.2000000000000002\n"): total_tests := total_tests + 1: fxm := erf(0.2000000000000002): fxr2 := 0.222702589210478670967096427772758435e0: fxrerr := 0.96e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.3000000000000002\n"): total_tests := total_tests + 1: fxm := erf(0.3000000000000002): fxr2 := 0.328626759459127633891095971659352758e0: fxrerr := 0.913e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.40000000000000024\n"): total_tests := total_tests + 1: fxm := erf(0.40000000000000024): fxr2 := 0.428392355046668685873515566754017448e0: fxrerr := 0.852e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.5000000000000002\n"): total_tests := total_tests + 1: fxm := erf(0.5000000000000002): fxr2 := 0.520499877813046713439262440980903436e0: fxrerr := 0.778e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.6000000000000002\n"): total_tests := total_tests + 1: fxm := erf(0.6000000000000002): fxr2 := 0.603856090847926080011308778914155371e0: fxrerr := 0.697e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.7000000000000002\n"): total_tests := total_tests + 1: fxm := erf(0.7000000000000002): fxr2 := 0.677801193837418611230600891351843418e0: fxrerr := 0.612e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.8000000000000002\n"): total_tests := total_tests + 1: fxm := erf(0.8000000000000002): fxr2 := 0.742100964707660605164267837996715479e0: fxrerr := 0.527e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 0.9000000000000001\n"): total_tests := total_tests + 1: fxm := erf(0.9000000000000001): fxr2 := 0.796908212422832178715582209178147105e0: fxrerr := 0.444e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.0000000000000002\n"): total_tests := total_tests + 1: fxm := erf(1.0000000000000002): fxr2 := 0.842700792949714952362720119201529544e0: fxrerr := 0.367e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.1000000000000003\n"): total_tests := total_tests + 1: fxm := erf(1.1000000000000003): fxr2 := 0.880205069574081800715747104295127023e0: fxrerr := 0.298e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.2000000000000004\n"): total_tests := total_tests + 1: fxm := erf(1.2000000000000004): fxr2 := 0.910313978229635487176144577130976552e0: fxrerr := 0.246e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.3000000000000005\n"): total_tests := total_tests + 1: fxm := erf(1.3000000000000005): fxr2 := 0.934007944940652540707886725538478333e0: fxrerr := 0.352e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"x = 1.4000000000000006\n"): total_tests := total_tests + 1: fxm := erf(1.4000000000000006): fxr2 := 0.952285119762648905881507297900072852e0: fxrerr := 0.504e-32: fxr := fxr2: abs_err := abs(fxm - fxr): if fxm <> 0.0 then percent_error := abs_err * 100.0 / fxm: else percent_error := 0.0: end: if (percent_error > 1.0e-10) then fprintf(except_fd,"PERCENT ERROR > 1.0e-10\n"): dump_except(erf,erf,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: if (abs_err > fxrerr) then fprintf(except_fd,"ABS ERROR > ESTIMATE\n"): dump_except(erf,erf,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd): end: fprintf(out_fd,"fxr = %40.34e\n",fxr): fprintf(out_fd,"fxm = %40.34e\n",fxm): fprintf(out_fd,"fxrerr = %40.34e\n",fxrerr): fprintf(out_fd,"total_tests = %d\n",total_tests): fprintf(out_fd,"total_exceptions = %d\n",total_exceptions): fprintf(except_fd,"total_tests = %d\n",total_tests): fprintf(except_fd,"total_exceptions = %d\n",total_exceptions): mend := trunc(time()*1000.0): rend := 1428544130*1000: rcpuuend := 254.859*1000: rcpusend := 0.75*1000: melapsed := trunc(evalf(mend - mstart)): relapsed := trunc(evalf(rend - rstart)): rcpuuelapsed := trunc(evalf(rcpuuend - rcpuustart)): rcpuselapsed := trunc(evalf(rcpusend - rcpusstart)): mhours := hours_elapsed(melapsed): rhours := hours_elapsed(relapsed): rcpuuhours := hours_elapsed(rcpuuelapsed): rcpushours := hours_elapsed(rcpuselapsed): mmin := min_elapsed(mhours,melapsed): rmin := min_elapsed(rhours,relapsed): rcpuumin := min_elapsed(rcpuuhours,rcpuuelapsed): rcpusmin := min_elapsed(rhours,rcpuselapsed): msec := sec_elapsed(mhours,mmin,melapsed): rsec := sec_elapsed(rhours,rmin,relapsed): rcpuusec := sec_elapsed(rcpuuhours,rcpuumin,rcpuuelapsed): rcpussec := sec_elapsed(rcpushours,rcpusmin,rcpuselapsed): mmsec := msec_elapsed(mhours,mmin,msec,melapsed): rmsec := msec_elapsed(rhours,rmin,rsec,relapsed): rcpuumsec := msec_elapsed(rcpuuhours,rcpuumin,rcpuusec,rcpuuelapsed): rcpusmsec := msec_elapsed(rcpushours,rcpusmin,rcpussec,rcpuselapsed): fprintf(out_fd,"Maple %d hours %d minutes %d seconds %d msec CPU\n",mhours,mmin,msec,mmsec): fprintf(out_fd,"Ruby %d hours %d minutes %d seconds %d msec Clock\n",rhours,rmin,rsec,rmsec): fprintf(out_fd,"Ruby %d hours %d minutes %d seconds %d msec User CPU\n",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec): fprintf(out_fd,"Ruby %d hours %d minutes %d seconds %d msec System CPU\n",rcpushours,rcpusmin,rcpussec,rcpusmsec): fprintf(except_fd,"Maple %d hours %d minutes %d seconds %d msec CPU\n",mhours,mmin,msec,mmsec): fprintf(except_fd,"Ruby %d hours %d minutes %d seconds %d msec Clock\n",rhours,rmin,rsec,rmsec): fprintf(except_fd,"Ruby %d hours %d minutes %d seconds %d msec User CPU\n",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec): fprintf(except_fd,"Ruby %d hours %d minutes %d seconds %d msec System CPU\n",rcpushours,rcpusmin,rcpussec,rcpusmsec): printf("Maple %d hours %d minutes %d seconds %d msec CPU\n",mhours,mmin,msec,mmsec): printf("Ruby %d hours %d minutes %d seconds %d msec Clock\n",rhours,rmin,rsec,rmsec): printf("Ruby %d hours %d minutes %d seconds %d msec User CPU\n",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec): printf("Ruby %d hours %d minutes %d seconds %d msec System CPU\n",rcpushours,rcpusmin,rcpussec,rcpusmsec): fclose(out_fd): fclose(except_fd):