puts "APFP Regression Test" require_relative "rapfp/ApConfig" require_relative "rapfp/Ap" require "time" rconst = $ApConst.new rconst.one.setrconst(rconst) rconst.init2 rconst.one.setrconst(rconst) $RConst = rconst cconst = ApcConst.new(rconst) cconst.one.setcconst(cconst) cconst.one.setrconst(rconst) $CConst = cconst $pgm = File.new("testpgm.mxt","w") $pgm.puts "global total_tests, total_exceptions:" $pgm.puts "mstart := trunc(time()*1000.0):" $pgm.puts "rstart := #{Time.now.to_i}*1000:" t = Process.times $pgm.puts "rcpuustart := #{t.utime}*1000:" $pgm.puts "rcpusstart := #{t.stime}*1000:" $pgm.puts "total_tests := 0:" $pgm.puts "total_exceptions := 0:" $pgm.puts "hours_elapsed := proc(msec)" $pgm.puts "local hrs:" $pgm.puts "hrs := trunc(evalf(msec/3600000)):" $pgm.puts "hrs :" $pgm.puts "end:" $pgm.puts "min_elapsed := proc(hrs,msec)" $pgm.puts "local min2:" $pgm.puts "min2 := trunc(evalf((msec-hrs*3600000)/60000)):" $pgm.puts "min2:" $pgm.puts "end:" $pgm.puts "sec_elapsed := proc(hrs,min2,msec)" $pgm.puts "local sec2:" $pgm.puts "sec2 := trunc(evalf((msec - hrs*360000 - min2 * 60000)/1000)) :" $pgm.puts "sec2 :" $pgm.puts "end:" $pgm.puts "msec_elapsed := proc(hrs,min2,sec2,msec)" $pgm.puts "local msec2:" $pgm.puts "msec2 := msec - hrs*3600000 - min2 * 60000 - sec2 * 1000:" $pgm.puts "msec2 :" $pgm.puts "end:" $pgm.puts "dump_except := proc(maplefunc,apfunc,x,fxm,fxr,fxrerr,percent_error,abs_error,except_fd,differentialm,start_err)" $pgm.puts "global total_tests, total_exceptions:" $pgm.puts "total_exceptions := total_exceptions + 1:" $pgm.puts "fprintf(except_fd,\"EXCEPTION: Maple func = %s APFP func = %s\\n\",maplefunc,apfunc):" $pgm.puts "fprintf(except_fd,\"x = %40.34e\\n\",x):" $pgm.puts "fprintf(except_fd,\"error given in x = %40.34e\\n\",start_err):" $pgm.puts "fprintf(except_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(except_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(except_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(except_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(except_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(except_fd,\"Maple Differential = %40.34e\\n\",differentialm):" $pgm.puts "fprintf(except_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "end:" $pgm.puts "out_fd := fopen(`aptst.txt`,WRITE,TEXT):" $pgm.puts "except_fd := fopen(`apexcept.txt`,WRITE,TEXT):" $pgm.puts "fprintf(except_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "Digits := 34:" puts "maplefunc = sin apfunc = sin" $pgm.puts "fprintf(out_fd,\"maplefunc = sin apfunc = sin\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = sin apfunc = sin\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-6.0+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-6.0);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.0)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.0\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.9+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.9);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.9)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.9\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.800000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.800000000000001);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.800000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.800000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.700000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.700000000000001);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.700000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.700000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.600000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.600000000000001);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.600000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.600000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.500000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.500000000000002);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.500000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.500000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.400000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.400000000000002);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.400000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.400000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.3000000000000025+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.3000000000000025);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.3000000000000025)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.3000000000000025\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.200000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.200000000000003);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.200000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.200000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.100000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.100000000000003);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.100000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.100000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.0000000000000036+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-5.0000000000000036);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.0000000000000036)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.0000000000000036\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.900000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.900000000000004);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.900000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.900000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.800000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.800000000000004);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.800000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.800000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.700000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.700000000000005);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.700000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.700000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.600000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.600000000000005);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.600000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.600000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.500000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.500000000000005);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.500000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.500000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.400000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.400000000000006);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.400000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.400000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.300000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.300000000000006);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.300000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.300000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.200000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.200000000000006);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.200000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.200000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.100000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.100000000000007);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.100000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.100000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.000000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.000000000000007);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.000000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.000000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.900000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.900000000000007);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.900000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.900000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.800000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.800000000000007);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.800000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.800000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.700000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.700000000000007);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.700000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.700000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.6000000000000068+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.6000000000000068);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.6000000000000068)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.6000000000000068\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.5000000000000067+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.5000000000000067);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.5000000000000067)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.5000000000000067\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.4000000000000066+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.4000000000000066);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.4000000000000066)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.4000000000000066\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.3000000000000065+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.3000000000000065);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.3000000000000065)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.3000000000000065\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.2000000000000064+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.2000000000000064);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.2000000000000064)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.2000000000000064\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.1000000000000063+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.1000000000000063);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.1000000000000063)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.1000000000000063\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.000000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-3.000000000000006);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.000000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.000000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.900000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.900000000000006);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.900000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.900000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.800000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.800000000000006);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.800000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.800000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.700000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.700000000000006);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.700000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.700000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.600000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.600000000000006);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.600000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.600000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.5000000000000058+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.5000000000000058);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.5000000000000058)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.5000000000000058\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.4000000000000057+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.4000000000000057);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.4000000000000057)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.4000000000000057\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.3000000000000056+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.3000000000000056);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.3000000000000056)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.3000000000000056\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.2000000000000055+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.2000000000000055);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.2000000000000055)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.2000000000000055\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.1000000000000054+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.1000000000000054);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.1000000000000054)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.1000000000000054\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.0000000000000053+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-2.0000000000000053);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.0000000000000053)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.0000000000000053\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.9000000000000052+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.9000000000000052);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.9000000000000052)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.9000000000000052\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.8000000000000052+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.8000000000000052);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.8000000000000052)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.8000000000000052\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.700000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.700000000000005);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.700000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.700000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.600000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.600000000000005);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.600000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.600000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.5000000000000049+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.5000000000000049);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5000000000000049)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5000000000000049\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4000000000000048+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.4000000000000048);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4000000000000048)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4000000000000048\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.3000000000000047+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.3000000000000047);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.3000000000000047)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.3000000000000047\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.2000000000000046);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.1000000000000045);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0000000000000044+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-1.0000000000000044);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0000000000000044)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0000000000000044\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-0.9000000000000045);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-0.8000000000000045);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-0.7000000000000045);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-0.6000000000000045);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-0.5000000000000046);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.4000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-0.4000000000000046);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.4000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.4000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.3000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-0.3000000000000046);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.3000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.3000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.2000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-0.2000000000000046);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.2000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.2000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.10000000000000459+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-0.10000000000000459);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.10000000000000459)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.10000000000000459\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.579669976578771e-15+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(-4.579669976578771e-15);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.579669976578771e-15)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.579669976578771e-15\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.09999999999999543+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.09999999999999543);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.09999999999999543)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.09999999999999543\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.19999999999999543+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.19999999999999543);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.19999999999999543)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.19999999999999543\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.29999999999999544+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.29999999999999544);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.29999999999999544)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.29999999999999544\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.39999999999999547+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.39999999999999547);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.39999999999999547)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.39999999999999547\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.49999999999999545+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.49999999999999545);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.49999999999999545)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.49999999999999545\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.5999999999999954);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.6999999999999954);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.7999999999999954);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.8999999999999954);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9999999999999953+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(0.9999999999999953);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9999999999999953)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9999999999999953\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.0999999999999954);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.1999999999999955+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.1999999999999955);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.1999999999999955)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.1999999999999955\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2999999999999956+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.2999999999999956);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2999999999999956)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2999999999999956\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3999999999999957+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.3999999999999957);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3999999999999957)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3999999999999957\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4999999999999958+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.4999999999999958);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4999999999999958)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4999999999999958\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.5999999999999959+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.5999999999999959);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.5999999999999959)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.5999999999999959\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.699999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.699999999999996);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.699999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.699999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.799999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.799999999999996);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.799999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.799999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.8999999999999961+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.8999999999999961);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.8999999999999961)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.8999999999999961\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.9999999999999962+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(1.9999999999999962);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.9999999999999962)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.9999999999999962\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.099999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.099999999999996);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.099999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.099999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.199999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.199999999999996);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.199999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.199999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.2999999999999963+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.2999999999999963);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.2999999999999963)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.2999999999999963\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.3999999999999964+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.3999999999999964);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.3999999999999964)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.3999999999999964\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.4999999999999964+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.4999999999999964);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.4999999999999964)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.4999999999999964\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.5999999999999965+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.5999999999999965);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.5999999999999965)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.5999999999999965\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.6999999999999966+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.6999999999999966);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.6999999999999966)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.6999999999999966\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.7999999999999967+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.7999999999999967);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.7999999999999967)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.7999999999999967\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.899999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.899999999999997);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.899999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.899999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(2.999999999999997);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.099999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(3.099999999999997);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.099999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.099999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.199999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(3.199999999999997);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.199999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.199999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.299999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(3.299999999999997);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.299999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.299999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.3999999999999972+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(3.3999999999999972);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.3999999999999972)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.3999999999999972\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.4999999999999973+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(3.4999999999999973);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.4999999999999973)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.4999999999999973\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.5999999999999974+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(3.5999999999999974);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.5999999999999974)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.5999999999999974\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.6999999999999975+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(3.6999999999999975);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.6999999999999975)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.6999999999999975\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.7999999999999976+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(3.7999999999999976);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.7999999999999976)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.7999999999999976\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.8999999999999977+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sin Ruby APFP function = sin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sin $pgm.puts "fxm := sin(3.8999999999999977);" $pgm.puts "fff := w ->sin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.8999999999999977)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sin,sin,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.8999999999999977\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = cos apfunc = cos" $pgm.puts "fprintf(out_fd,\"maplefunc = cos apfunc = cos\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = cos apfunc = cos\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-6.0+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-6.0);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.0)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-6.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.0\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.9+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.9);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.9)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.9\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.800000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.800000000000001);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.800000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.800000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.800000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.700000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.700000000000001);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.700000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.700000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.700000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.600000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.600000000000001);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.600000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.600000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.600000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.500000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.500000000000002);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.500000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.500000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.500000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.400000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.400000000000002);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.400000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.400000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.400000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.3000000000000025+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.3000000000000025);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.3000000000000025)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.3000000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.3000000000000025\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.200000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.200000000000003);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.200000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.200000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.200000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.100000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.100000000000003);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.100000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.100000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.0000000000000036+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-5.0000000000000036);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.0000000000000036)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-5.0000000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.0000000000000036\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.900000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.900000000000004);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.900000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.900000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.900000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.800000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.800000000000004);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.800000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.800000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.800000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.700000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.700000000000005);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.700000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.700000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.600000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.600000000000005);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.600000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.600000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.500000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.500000000000005);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.500000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.500000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.500000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.400000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.400000000000006);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.400000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.400000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.300000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.300000000000006);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.300000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.300000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.300000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.200000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.200000000000006);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.200000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.200000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.100000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.100000000000007);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.100000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.100000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.000000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.000000000000007);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.000000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.000000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.000000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.900000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.900000000000007);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.900000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.900000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.900000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.800000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.800000000000007);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.800000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.800000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.800000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.700000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.700000000000007);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.700000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.700000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.700000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.6000000000000068+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.6000000000000068);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.6000000000000068)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.6000000000000068,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.6000000000000068\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.5000000000000067+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.5000000000000067);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.5000000000000067)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.5000000000000067,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.5000000000000067\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.4000000000000066+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.4000000000000066);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.4000000000000066)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.4000000000000066,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.4000000000000066\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.3000000000000065+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.3000000000000065);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.3000000000000065)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.3000000000000065,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.3000000000000065\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.2000000000000064+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.2000000000000064);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.2000000000000064)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.2000000000000064,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.2000000000000064\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.1000000000000063+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.1000000000000063);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.1000000000000063)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.1000000000000063,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.1000000000000063\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.000000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-3.000000000000006);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.000000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-3.000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.000000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.900000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.900000000000006);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.900000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.900000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.800000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.800000000000006);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.800000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.800000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.700000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.700000000000006);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.700000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.700000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.600000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.600000000000006);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.600000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.600000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.600000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.5000000000000058+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.5000000000000058);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.5000000000000058)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.5000000000000058,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.5000000000000058\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.4000000000000057+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.4000000000000057);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.4000000000000057)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.4000000000000057,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.4000000000000057\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.3000000000000056+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.3000000000000056);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.3000000000000056)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.3000000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.3000000000000056\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.2000000000000055+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.2000000000000055);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.2000000000000055)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.2000000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.2000000000000055\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.1000000000000054+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.1000000000000054);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.1000000000000054)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.1000000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.1000000000000054\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.0000000000000053+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-2.0000000000000053);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.0000000000000053)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-2.0000000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.0000000000000053\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.9000000000000052+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.9000000000000052);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.9000000000000052)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.9000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.9000000000000052\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.8000000000000052+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.8000000000000052);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.8000000000000052)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.8000000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.8000000000000052\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.700000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.700000000000005);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.700000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.700000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.700000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.600000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.600000000000005);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.600000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.600000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.600000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.5000000000000049+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.5000000000000049);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5000000000000049)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.5000000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5000000000000049\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4000000000000048+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.4000000000000048);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4000000000000048)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.4000000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4000000000000048\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.3000000000000047+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.3000000000000047);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.3000000000000047)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.3000000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.3000000000000047\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.2000000000000046);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.1000000000000045);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.1000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0000000000000044+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-1.0000000000000044);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0000000000000044)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-1.0000000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0000000000000044\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-0.9000000000000045);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-0.9000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-0.8000000000000045);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-0.8000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-0.7000000000000045);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-0.7000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6000000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-0.6000000000000045);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6000000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-0.6000000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-0.5000000000000046);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-0.5000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.4000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-0.4000000000000046);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.4000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-0.4000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.4000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.3000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-0.3000000000000046);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.3000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-0.3000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.3000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.2000000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-0.2000000000000046);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.2000000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-0.2000000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.2000000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.10000000000000459+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-0.10000000000000459);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.10000000000000459)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-0.10000000000000459,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.10000000000000459\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.579669976578771e-15+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(-4.579669976578771e-15);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.579669976578771e-15)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,-4.579669976578771e-15,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.579669976578771e-15\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.09999999999999543+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.09999999999999543);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.09999999999999543)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.09999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.09999999999999543\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.19999999999999543+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.19999999999999543);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.19999999999999543)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.19999999999999543,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.19999999999999543\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.29999999999999544+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.29999999999999544);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.29999999999999544)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.29999999999999544,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.29999999999999544\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.39999999999999547+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.39999999999999547);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.39999999999999547)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.39999999999999547,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.39999999999999547\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.49999999999999545+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.49999999999999545);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.49999999999999545)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.49999999999999545,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.49999999999999545\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.5999999999999954);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.5999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.6999999999999954);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.6999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.7999999999999954);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.7999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.8999999999999954);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.8999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9999999999999953+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(0.9999999999999953);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9999999999999953)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,0.9999999999999953,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9999999999999953\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0999999999999954+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.0999999999999954);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0999999999999954)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.0999999999999954,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0999999999999954\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.1999999999999955+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.1999999999999955);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.1999999999999955)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.1999999999999955,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.1999999999999955\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2999999999999956+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.2999999999999956);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2999999999999956)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.2999999999999956,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2999999999999956\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3999999999999957+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.3999999999999957);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3999999999999957)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.3999999999999957,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3999999999999957\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4999999999999958+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.4999999999999958);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4999999999999958)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.4999999999999958,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4999999999999958\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.5999999999999959+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.5999999999999959);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.5999999999999959)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.5999999999999959,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.5999999999999959\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.699999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.699999999999996);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.699999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.699999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.699999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.799999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.799999999999996);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.799999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.799999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.799999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.8999999999999961+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.8999999999999961);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.8999999999999961)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.8999999999999961,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.8999999999999961\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.9999999999999962+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(1.9999999999999962);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.9999999999999962)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,1.9999999999999962,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.9999999999999962\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.099999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.099999999999996);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.099999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.099999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.099999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.199999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.199999999999996);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.199999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.199999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.199999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.2999999999999963+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.2999999999999963);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.2999999999999963)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.2999999999999963,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.2999999999999963\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.3999999999999964+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.3999999999999964);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.3999999999999964)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.3999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.3999999999999964\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.4999999999999964+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.4999999999999964);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.4999999999999964)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.4999999999999964,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.4999999999999964\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.5999999999999965+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.5999999999999965);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.5999999999999965)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.5999999999999965,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.5999999999999965\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.6999999999999966+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.6999999999999966);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.6999999999999966)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.6999999999999966,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.6999999999999966\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.7999999999999967+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.7999999999999967);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.7999999999999967)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.7999999999999967,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.7999999999999967\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.899999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.899999999999997);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.899999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.899999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.899999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(2.999999999999997);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,2.999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.099999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(3.099999999999997);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.099999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,3.099999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.099999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.199999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(3.199999999999997);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.199999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,3.199999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.199999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.299999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(3.299999999999997);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.299999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,3.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.299999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.3999999999999972+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(3.3999999999999972);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.3999999999999972)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,3.3999999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.3999999999999972\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.4999999999999973+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(3.4999999999999973);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.4999999999999973)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,3.4999999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.4999999999999973\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.5999999999999974+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(3.5999999999999974);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.5999999999999974)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,3.5999999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.5999999999999974\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.6999999999999975+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(3.6999999999999975);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.6999999999999975)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,3.6999999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.6999999999999975\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.7999999999999976+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(3.7999999999999976);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.7999999999999976)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,3.7999999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.7999999999999976\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.8999999999999977+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cos Ruby APFP function = cos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cos $pgm.puts "fxm := cos(3.8999999999999977);" $pgm.puts "fff := w ->cos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.8999999999999977)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cos,cos,3.8999999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.8999999999999977\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = tan apfunc = tan" $pgm.puts "fprintf(out_fd,\"maplefunc = tan apfunc = tan\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = tan apfunc = tan\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-1.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-1.5);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-1.4);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-1.2999999999999998);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-1.1999999999999997);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0999999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-1.0999999999999996);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0999999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.9999999999999997);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.8999999999999997);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.7999999999999997);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.6999999999999997);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.5999999999999998);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.4999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.4999999999999998);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.4999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.3999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.3999999999999998);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.3999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.2999999999999998);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.19999999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.19999999999999982);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.19999999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.09999999999999981+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(-0.09999999999999981);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.09999999999999981)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.942890293094024e-16+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(1.942890293094024e-16);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.942890293094024e-16)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.1000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(0.1000000000000002);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(0.2000000000000002);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.3000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(0.3000000000000002);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.3000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.40000000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(0.40000000000000024);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.40000000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(0.5000000000000002);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(0.6000000000000002);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(0.7000000000000002);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(0.8000000000000002);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(0.9000000000000001);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(1.0000000000000002);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.1000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(1.1000000000000003);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.1000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(1.2000000000000004);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(1.3000000000000005);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4000000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tan Ruby APFP function = tan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tan $pgm.puts "fxm := tan(1.4000000000000006);" $pgm.puts "fff := w ->tan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4000000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tan,tan,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = exp apfunc = exp" $pgm.puts "fprintf(out_fd,\"maplefunc = exp apfunc = exp\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = exp apfunc = exp\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-1.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-1.5);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-1.4);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-1.2999999999999998);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-1.1999999999999997);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0999999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-1.0999999999999996);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0999999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.9999999999999997);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.8999999999999997);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.7999999999999997);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.6999999999999997);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.5999999999999998);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.4999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.4999999999999998);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.4999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.3999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.3999999999999998);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.3999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.2999999999999998);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.19999999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.19999999999999982);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.19999999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.09999999999999981+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-0.09999999999999981);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.09999999999999981)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.942890293094024e-16+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(1.942890293094024e-16);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.942890293094024e-16)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.1000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.1000000000000002);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.2000000000000002);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.3000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.3000000000000002);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.3000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.40000000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.40000000000000024);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.40000000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.5000000000000002);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.6000000000000002);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.7000000000000002);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.8000000000000002);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.9000000000000001);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(1.0000000000000002);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.1000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(1.1000000000000003);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.1000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(1.2000000000000004);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(1.3000000000000005);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4000000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(1.4000000000000006);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4000000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = exp apfunc = exp" $pgm.puts "fprintf(out_fd,\"maplefunc = exp apfunc = exp\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = exp apfunc = exp\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-100.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-100.5);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-100.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-100.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -100.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-90.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-90.4);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-90.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-90.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -90.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-80.30000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-80.30000000000001);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-80.30000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-80.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -80.30000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-70.20000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-70.20000000000002);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-70.20000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-70.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -70.20000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-60.100000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-60.100000000000016);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-60.100000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-60.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -60.100000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-50.000000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-50.000000000000014);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-50.000000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-50.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -50.000000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-39.90000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-39.90000000000001);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-39.90000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-39.90000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -39.90000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-29.80000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-29.80000000000001);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-29.80000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-29.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -29.80000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-19.70000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-19.70000000000001);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.70000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-19.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.70000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.60000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(-9.60000000000001);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.60000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,-9.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.60000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.49999999999998934+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(0.49999999999998934);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.49999999999998934)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,0.49999999999998934,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.49999999999998934\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("10.599999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(10.599999999999989);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(10.599999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,10.599999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 10.599999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("20.69999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(20.69999999999999);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(20.69999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,20.69999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 20.69999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("30.79999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(30.79999999999999);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(30.79999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,30.79999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 30.79999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("40.89999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(40.89999999999999);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(40.89999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,40.89999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 40.89999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("50.99999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(50.99999999999999);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(50.99999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,50.99999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 50.99999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("61.099999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(61.099999999999994);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(61.099999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,61.099999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 61.099999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("71.19999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(71.19999999999999);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(71.19999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,71.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 71.19999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("81.29999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(81.29999999999998);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(81.29999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,81.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 81.29999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("91.39999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = exp Ruby APFP function = exp \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.exp $pgm.puts "fxm := exp(91.39999999999998);" $pgm.puts "fff := w ->exp(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(91.39999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(exp,exp,91.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 91.39999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = arcsin apfunc = asin" $pgm.puts "fprintf(out_fd,\"maplefunc = arcsin apfunc = asin\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = arcsin apfunc = asin\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-0.9+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-0.9);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-0.8);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-0.7000000000000001);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-0.6000000000000001);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-0.5000000000000001);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.40000000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-0.40000000000000013);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.40000000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.40000000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.30000000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-0.30000000000000016);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.30000000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.30000000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.20000000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-0.20000000000000015);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.20000000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.20000000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.10000000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-0.10000000000000014);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.10000000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.10000000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.3877787807814457e-16+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(-1.3877787807814457e-16);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.3877787807814457e-16)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.3877787807814457e-16\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.09999999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(0.09999999999999987);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.09999999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.09999999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.19999999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(0.19999999999999987);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.19999999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.19999999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(0.2999999999999999);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.3999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(0.3999999999999999);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.3999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.3999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.4999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(0.4999999999999999);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.4999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.4999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(0.5999999999999999);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(0.6999999999999998);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(0.7999999999999998);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arcsin Ruby APFP function = asin \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.asin $pgm.puts "fxm := arcsin(0.8999999999999998);" $pgm.puts "fff := w ->arcsin(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arcsin,asin,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = arccos apfunc = acos" $pgm.puts "fprintf(out_fd,\"maplefunc = arccos apfunc = acos\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = arccos apfunc = acos\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-0.9+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-0.9);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-0.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-0.8);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-0.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-0.7000000000000001);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-0.7000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-0.6000000000000001);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-0.6000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-0.5000000000000001);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-0.5000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.40000000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-0.40000000000000013);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.40000000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-0.40000000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.40000000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.30000000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-0.30000000000000016);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.30000000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-0.30000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.30000000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.20000000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-0.20000000000000015);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.20000000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-0.20000000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.20000000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.10000000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-0.10000000000000014);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.10000000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-0.10000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.10000000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.3877787807814457e-16+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(-1.3877787807814457e-16);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.3877787807814457e-16)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,-1.3877787807814457e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.3877787807814457e-16\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.09999999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(0.09999999999999987);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.09999999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,0.09999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.09999999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.19999999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(0.19999999999999987);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.19999999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,0.19999999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.19999999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(0.2999999999999999);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,0.2999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.3999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(0.3999999999999999);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.3999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,0.3999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.3999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.4999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(0.4999999999999999);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.4999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,0.4999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.4999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(0.5999999999999999);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,0.5999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(0.6999999999999998);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,0.6999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(0.7999999999999998);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,0.7999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arccos Ruby APFP function = acos \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.acos $pgm.puts "fxm := arccos(0.8999999999999998);" $pgm.puts "fff := w ->arccos(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arccos,acos,0.8999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = arctan apfunc = atan" $pgm.puts "fprintf(out_fd,\"maplefunc = arctan apfunc = atan\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = arctan apfunc = atan\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-10.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-10.5);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-10.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-10.4);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-10.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.3+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-10.3);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.3)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-10.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.3\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.200000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-10.200000000000001);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.200000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-10.200000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.200000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.100000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-10.100000000000001);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.100000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-10.100000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.100000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-10.000000000000002);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-10.000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.900000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.900000000000002);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.900000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.900000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.800000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.800000000000002);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.800000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.800000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.800000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.700000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.700000000000003);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.700000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.700000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.700000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.600000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.600000000000003);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.600000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.600000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.600000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.500000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.500000000000004);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.500000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.500000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.500000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.400000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.400000000000004);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.400000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.400000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.400000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.300000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.300000000000004);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.300000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.300000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.300000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.200000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.200000000000005);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.200000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.200000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.200000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.100000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.100000000000005);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.100000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.100000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-9.000000000000005);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-9.000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.900000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.900000000000006);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.900000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.900000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.900000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.800000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.800000000000006);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.800000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.800000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.800000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.700000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.700000000000006);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.700000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.700000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.700000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.600000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.600000000000007);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.600000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.600000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.600000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.500000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.500000000000007);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.500000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.500000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.400000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.400000000000007);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.400000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.400000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.400000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.300000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.300000000000008);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.300000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.300000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.200000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.200000000000008);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.200000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.200000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.200000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.100000000000009+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.100000000000009);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.100000000000009)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.100000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.100000000000009\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.000000000000009+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-8.000000000000009);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.000000000000009)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-8.000000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.000000000000009\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.900000000000009+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.900000000000009);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.900000000000009)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.900000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.900000000000009\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.80000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.80000000000001);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.80000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.80000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.70000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.70000000000001);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.70000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.70000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.70000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.60000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.60000000000001);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.60000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.60000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.60000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.500000000000011+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.500000000000011);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.500000000000011)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.500000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.500000000000011\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.400000000000011+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.400000000000011);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.400000000000011)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.400000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.400000000000011\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.300000000000011+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.300000000000011);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.300000000000011)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.300000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.300000000000011\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.200000000000012+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.200000000000012);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.200000000000012)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.200000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.200000000000012\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.100000000000012+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.100000000000012);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.100000000000012)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.100000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.100000000000012\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.000000000000012+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-7.000000000000012);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.000000000000012)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-7.000000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.000000000000012\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.900000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.900000000000013);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.900000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.900000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.900000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.800000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.800000000000013);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.800000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.800000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.800000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.7000000000000135+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.7000000000000135);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.7000000000000135)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.7000000000000135,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.7000000000000135\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.600000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.600000000000014);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.600000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.600000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.600000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.500000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.500000000000014);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.500000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.500000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.500000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.400000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.400000000000015);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.400000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.400000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.400000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.300000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.300000000000015);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.300000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.300000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.200000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.200000000000015);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.200000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.200000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.200000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.100000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.100000000000016);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.100000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.100000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-6.000000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-6.000000000000016);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-6.000000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-6.000000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -6.000000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.900000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.900000000000016);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.900000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.900000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.800000000000017+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.800000000000017);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.800000000000017)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.800000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.800000000000017\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.700000000000017+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.700000000000017);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.700000000000017)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.700000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.700000000000017\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.600000000000017+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.600000000000017);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.600000000000017)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.600000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.600000000000017\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.500000000000018+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.500000000000018);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.500000000000018)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.500000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.500000000000018\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.400000000000018+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.400000000000018);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.400000000000018)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.400000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.400000000000018\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.3000000000000185+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.3000000000000185);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.3000000000000185)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.3000000000000185,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.3000000000000185\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.200000000000019+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.200000000000019);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.200000000000019)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.200000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.200000000000019\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.100000000000019+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.100000000000019);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.100000000000019)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.100000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.100000000000019\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-5.0000000000000195+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-5.0000000000000195);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-5.0000000000000195)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-5.0000000000000195,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -5.0000000000000195\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.90000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.90000000000002);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.90000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.90000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.90000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.80000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.80000000000002);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.80000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.80000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.80000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.700000000000021+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.700000000000021);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.700000000000021)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.700000000000021\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.600000000000021+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.600000000000021);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.600000000000021)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.600000000000021\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.500000000000021+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.500000000000021);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.500000000000021)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.500000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.500000000000021\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.400000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.400000000000022);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.400000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.400000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.400000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.300000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.300000000000022);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.300000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.300000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.300000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.200000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.200000000000022);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.200000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.200000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.200000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.100000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.100000000000023);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.100000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.100000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-4.000000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-4.000000000000023);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-4.000000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-4.000000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -4.000000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.900000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.900000000000023);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.900000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.900000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.900000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.800000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.800000000000023);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.800000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.800000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.800000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.700000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.700000000000023);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.700000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.700000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.700000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.6000000000000227+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.6000000000000227);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.6000000000000227)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.6000000000000227,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.6000000000000227\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.5000000000000226+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.5000000000000226);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.5000000000000226)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.5000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.5000000000000226\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.4000000000000226+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.4000000000000226);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.4000000000000226)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.4000000000000226,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.4000000000000226\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.3000000000000225+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.3000000000000225);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.3000000000000225)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.3000000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.3000000000000225\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.2000000000000224+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.2000000000000224);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.2000000000000224)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.2000000000000224,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.2000000000000224\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.1000000000000223+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.1000000000000223);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.1000000000000223)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.1000000000000223,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.1000000000000223\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-3.000000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-3.000000000000022);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-3.000000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-3.000000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -3.000000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.900000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.900000000000022);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.900000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.900000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.900000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.800000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.800000000000022);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.800000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.800000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.800000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.700000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.700000000000022);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.700000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.700000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.700000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.600000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.600000000000022);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.600000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.600000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.600000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.5000000000000218+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.5000000000000218);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.5000000000000218)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.5000000000000218,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.5000000000000218\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.4000000000000217+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.4000000000000217);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.4000000000000217)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.4000000000000217,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.4000000000000217\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.3000000000000216+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.3000000000000216);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.3000000000000216)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.3000000000000216,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.3000000000000216\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.2000000000000215+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.2000000000000215);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.2000000000000215)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.2000000000000215,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.2000000000000215\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.1000000000000214+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.1000000000000214);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.1000000000000214)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.1000000000000214,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.1000000000000214\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-2.0000000000000213+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-2.0000000000000213);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-2.0000000000000213)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-2.0000000000000213,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -2.0000000000000213\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.9000000000000212+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.9000000000000212);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.9000000000000212)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.9000000000000212,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.9000000000000212\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.8000000000000211+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.8000000000000211);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.8000000000000211)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.8000000000000211,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.8000000000000211\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.700000000000021+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.700000000000021);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.700000000000021)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.700000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.700000000000021\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.600000000000021+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.600000000000021);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.600000000000021)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.600000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.600000000000021\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.5000000000000209+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.5000000000000209);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5000000000000209)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.5000000000000209,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5000000000000209\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4000000000000208+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.4000000000000208);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4000000000000208)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.4000000000000208,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4000000000000208\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.3000000000000207+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.3000000000000207);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.3000000000000207)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.3000000000000207,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.3000000000000207\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2000000000000206+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.2000000000000206);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2000000000000206)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.2000000000000206,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2000000000000206\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1000000000000205+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.1000000000000205);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1000000000000205)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.1000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1000000000000205\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0000000000000204+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-1.0000000000000204);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0000000000000204)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-1.0000000000000204,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0000000000000204\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9000000000000205+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-0.9000000000000205);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9000000000000205)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-0.9000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9000000000000205\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8000000000000205+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-0.8000000000000205);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8000000000000205)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-0.8000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8000000000000205\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7000000000000205+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-0.7000000000000205);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7000000000000205)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-0.7000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7000000000000205\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6000000000000205+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = arctan Ruby APFP function = atan \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.atan $pgm.puts "fxm := arctan(-0.6000000000000205);" $pgm.puts "fff := w ->arctan(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6000000000000205)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(arctan,atan,-0.6000000000000205,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6000000000000205\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = ln apfunc = log" $pgm.puts "fprintf(out_fd,\"maplefunc = ln apfunc = log\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = ln apfunc = log\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("0.01+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.01);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.01)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.01\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.11+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.11);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.11)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.11\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.21000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.21000000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.21000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.21000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.31000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.31000000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.31000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.31000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.41000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.41000000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.41000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.41000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.51+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.51);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.51)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.51\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.61+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.61);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.61)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.61\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.71+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.71);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.71)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.71\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8099999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.8099999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8099999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8099999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9099999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.9099999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9099999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9099999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.01+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.01);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.01)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.01\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.11+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.11);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.11)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.11\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2100000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.2100000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2100000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2100000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3100000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.3100000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3100000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3100000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4100000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.4100000000000004);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4100000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4100000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.5100000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.5100000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.5100000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.5100000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.6100000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.6100000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.6100000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.6100000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.7100000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.7100000000000006);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.7100000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.7100000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.8100000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.8100000000000007);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.8100000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.8100000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.9100000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.9100000000000008);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.9100000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.9100000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.0100000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.0100000000000007);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.0100000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.0100000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.1100000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.1100000000000008);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.1100000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.1100000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.210000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.210000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.210000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.210000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.310000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.310000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.310000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.310000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.410000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.410000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.410000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.410000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.510000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.510000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.510000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.510000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.610000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.610000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.610000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.610000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.7100000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.7100000000000013);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.7100000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.7100000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.8100000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.8100000000000014);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.8100000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.8100000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.9100000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.9100000000000015);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.9100000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.9100000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.0100000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.0100000000000016);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.0100000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.0100000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.1100000000000017+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.1100000000000017);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.1100000000000017)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.1100000000000017\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.2100000000000017+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.2100000000000017);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.2100000000000017)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.2100000000000017\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.310000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.310000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.310000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.310000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.410000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.410000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.410000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.410000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.510000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.510000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.510000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.510000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.610000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.610000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.610000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.610000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.710000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.710000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.710000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.710000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.8100000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.8100000000000023);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.8100000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.8100000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.9100000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.9100000000000024);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.9100000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.9100000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.0100000000000025+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.0100000000000025);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.0100000000000025)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.0100000000000025\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.110000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.110000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.110000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.110000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.210000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.210000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.210000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.210000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.310000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.310000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.310000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.310000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.410000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.410000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.410000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.410000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.510000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.510000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.510000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.510000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.61+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.61);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.61)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.61\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.71+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.71);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.71)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.71\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.81+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.81);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.81)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.81\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.909999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.909999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.909999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.909999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.009999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.009999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.009999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.009999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.1099999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.1099999999999985);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.1099999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.1099999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.209999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.209999999999998);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.209999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.209999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.309999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.309999999999998);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.309999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.309999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.4099999999999975+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.4099999999999975);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.4099999999999975)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.4099999999999975\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.509999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.509999999999997);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.509999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.509999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.609999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.609999999999997);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.609999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.609999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.709999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.709999999999996);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.709999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.709999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.809999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.809999999999996);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.809999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.809999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.909999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.909999999999996);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.909999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.909999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.009999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.009999999999995);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.009999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.009999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.109999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.109999999999995);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.109999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.109999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.209999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.209999999999995);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.209999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.209999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.309999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.309999999999994);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.309999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.309999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.409999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.409999999999994);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.409999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.409999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.509999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.509999999999994);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.509999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.509999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.609999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.609999999999993);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.609999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.609999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.709999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.709999999999993);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.709999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.709999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.8099999999999925+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.8099999999999925);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.8099999999999925)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.8099999999999925\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.909999999999992+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.909999999999992);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.909999999999992)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.909999999999992\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.009999999999992+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.009999999999992);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.009999999999992)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.009999999999992\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.109999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.109999999999991);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.109999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.109999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.209999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.209999999999991);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.209999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.209999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.309999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.309999999999991);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.309999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.309999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.40999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.40999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.40999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.40999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.50999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.50999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.50999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.50999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.60999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.60999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.60999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.60999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.709999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.709999999999989);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.709999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.709999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.809999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.809999999999989);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.809999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.809999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.909999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.909999999999989);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.909999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.909999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.00999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.00999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.00999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.00999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.109999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.109999999999989);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.109999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.109999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.209999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.209999999999988);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.209999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.209999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.309999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.309999999999988);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.309999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.309999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.409999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.409999999999988);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.409999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.409999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.509999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.509999999999987);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.509999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.509999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.609999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.609999999999987);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.609999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.609999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.709999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.709999999999987);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.709999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.709999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.809999999999986+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.809999999999986);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.809999999999986)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.809999999999986\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.909999999999986+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.909999999999986);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.909999999999986)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.909999999999986\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.009999999999986+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.009999999999986);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.009999999999986)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.009999999999986\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.109999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.109999999999985);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.109999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.109999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.209999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.209999999999985);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.209999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.209999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.309999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.309999999999985);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.309999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.309999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.409999999999984+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.409999999999984);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.409999999999984)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.409999999999984\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.509999999999984+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.509999999999984);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.509999999999984)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.509999999999984\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.609999999999983+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.609999999999983);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.609999999999983)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.609999999999983\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.709999999999983+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.709999999999983);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.709999999999983)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.709999999999983\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.809999999999983+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.809999999999983);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.809999999999983)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.809999999999983\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.909999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.909999999999982);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.909999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.909999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = ln apfunc = log" $pgm.puts "fprintf(out_fd,\"maplefunc = ln apfunc = log\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = ln apfunc = log\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("0.1+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(0.1);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(1.2000000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.3000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(2.3000000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.3000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.3000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.4000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(3.4000000000000004);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.4000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.4000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(4.5);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.6+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(5.6);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.6)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.6\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.699999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(6.699999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.699999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.699999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.799999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(7.799999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.799999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.799999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.899999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(8.899999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.899999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.899999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(9.999999999999998);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("11.099999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(11.099999999999998);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(11.099999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 11.099999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("12.199999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(12.199999999999998);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(12.199999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 12.199999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("13.299999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(13.299999999999997);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(13.299999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 13.299999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("14.399999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(14.399999999999997);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(14.399999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 14.399999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("15.499999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(15.499999999999996);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(15.499999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 15.499999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("16.599999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(16.599999999999998);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(16.599999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 16.599999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("17.7+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(17.7);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(17.7)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 17.7\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("18.8+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(18.8);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(18.8)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 18.8\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("19.900000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(19.900000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(19.900000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 19.900000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("21.000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(21.000000000000004);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(21.000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 21.000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("22.100000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(22.100000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(22.100000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 22.100000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("23.200000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(23.200000000000006);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(23.200000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 23.200000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("24.300000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(24.300000000000008);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(24.300000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 24.300000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("25.40000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(25.40000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(25.40000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 25.40000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("26.50000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(26.50000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(26.50000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 26.50000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("27.600000000000012+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(27.600000000000012);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(27.600000000000012)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 27.600000000000012\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("28.700000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(28.700000000000014);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(28.700000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 28.700000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("29.800000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(29.800000000000015);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(29.800000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 29.800000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("30.900000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(30.900000000000016);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(30.900000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 30.900000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("32.000000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(32.000000000000014);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(32.000000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 32.000000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("33.100000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(33.100000000000016);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(33.100000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 33.100000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("34.20000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(34.20000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(34.20000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 34.20000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("35.30000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(35.30000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(35.30000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 35.30000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("36.40000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(36.40000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(36.40000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 36.40000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("37.50000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(37.50000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(37.50000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 37.50000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("38.60000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(38.60000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(38.60000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 38.60000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("39.700000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(39.700000000000024);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(39.700000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 39.700000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("40.800000000000026+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(40.800000000000026);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(40.800000000000026)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 40.800000000000026\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("41.90000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(41.90000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(41.90000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 41.90000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("43.00000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(43.00000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(43.00000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 43.00000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("44.10000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(44.10000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(44.10000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 44.10000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("45.20000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(45.20000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(45.20000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 45.20000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("46.30000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(46.30000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(46.30000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 46.30000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("47.400000000000034+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(47.400000000000034);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(47.400000000000034)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 47.400000000000034\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("48.500000000000036+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(48.500000000000036);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(48.500000000000036)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 48.500000000000036\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("49.60000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(49.60000000000004);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(49.60000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 49.60000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("50.70000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(50.70000000000004);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(50.70000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 50.70000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("51.80000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(51.80000000000004);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(51.80000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 51.80000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("52.90000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(52.90000000000004);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(52.90000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 52.90000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("54.00000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(54.00000000000004);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(54.00000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 54.00000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("55.100000000000044+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(55.100000000000044);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(55.100000000000044)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 55.100000000000044\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("56.200000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(56.200000000000045);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(56.200000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 56.200000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("57.30000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(57.30000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(57.30000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 57.30000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("58.40000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(58.40000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(58.40000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 58.40000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("59.50000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(59.50000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(59.50000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 59.50000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("60.60000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(60.60000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(60.60000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 60.60000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("61.70000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(61.70000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(61.70000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 61.70000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("62.800000000000054+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(62.800000000000054);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(62.800000000000054)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 62.800000000000054\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("63.900000000000055+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(63.900000000000055);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(63.900000000000055)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 63.900000000000055\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("65.00000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(65.00000000000006);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(65.00000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 65.00000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("66.10000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(66.10000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(66.10000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 66.10000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("67.20000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(67.20000000000005);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(67.20000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 67.20000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("68.30000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(68.30000000000004);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(68.30000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 68.30000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("69.40000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(69.40000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(69.40000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 69.40000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("70.50000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(70.50000000000003);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(70.50000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 70.50000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("71.60000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(71.60000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(71.60000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 71.60000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("72.70000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(72.70000000000002);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(72.70000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 72.70000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("73.80000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(73.80000000000001);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(73.80000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 73.80000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("74.9+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(74.9);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(74.9)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 74.9\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("76.0+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(76.0);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(76.0)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 76.0\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("77.1+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(77.1);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(77.1)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 77.1\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("78.19999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(78.19999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(78.19999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 78.19999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("79.29999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(79.29999999999998);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(79.29999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 79.29999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("80.39999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(80.39999999999998);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(80.39999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 80.39999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("81.49999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(81.49999999999997);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(81.49999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 81.49999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("82.59999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(82.59999999999997);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(82.59999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 82.59999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("83.69999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(83.69999999999996);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(83.69999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 83.69999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("84.79999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(84.79999999999995);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(84.79999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 84.79999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("85.89999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(85.89999999999995);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(85.89999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 85.89999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("86.99999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(86.99999999999994);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(86.99999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 86.99999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("88.09999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(88.09999999999994);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(88.09999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 88.09999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("89.19999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(89.19999999999993);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(89.19999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 89.19999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("90.29999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(90.29999999999993);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(90.29999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 90.29999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("91.39999999999992+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(91.39999999999992);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(91.39999999999992)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 91.39999999999992\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("92.49999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(92.49999999999991);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(92.49999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 92.49999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("93.59999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(93.59999999999991);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(93.59999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 93.59999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("94.6999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(94.6999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(94.6999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 94.6999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("95.7999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(95.7999999999999);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(95.7999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 95.7999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("96.89999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(96.89999999999989);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(96.89999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 96.89999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("97.99999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(97.99999999999989);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(97.99999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 97.99999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("99.09999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(99.09999999999988);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(99.09999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 99.09999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("100.19999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = ln Ruby APFP function = log \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log $pgm.puts "fxm := ln(100.19999999999987);" $pgm.puts "fff := w ->ln(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(100.19999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(ln,log,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 100.19999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = log10 apfunc = log10" $pgm.puts "fprintf(out_fd,\"maplefunc = log10 apfunc = log10\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = log10 apfunc = log10\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("0.01+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.01);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.01)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.01\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.11+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.11);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.11)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.11\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.21000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.21000000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.21000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.21000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.21000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.31000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.31000000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.31000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.31000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.31000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.41000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.41000000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.41000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.41000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.41000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.51+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.51);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.51)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.51,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.51\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.61+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.61);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.61)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.61\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.71+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.71);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.71)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.71\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8099999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.8099999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8099999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.8099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8099999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9099999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.9099999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9099999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.9099999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9099999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.01+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.01);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.01)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.01,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.01\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.11+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.11);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.11)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.11,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.11\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2100000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.2100000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2100000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.2100000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2100000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3100000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.3100000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3100000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.3100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3100000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4100000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.4100000000000004);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4100000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.4100000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4100000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.5100000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.5100000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.5100000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.5100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.5100000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.6100000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.6100000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.6100000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.6100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.6100000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.7100000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.7100000000000006);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.7100000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.7100000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.7100000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.8100000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.8100000000000007);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.8100000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.8100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.8100000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.9100000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.9100000000000008);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.9100000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.9100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.9100000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.0100000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.0100000000000007);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.0100000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.0100000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.0100000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.1100000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.1100000000000008);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.1100000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.1100000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.1100000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.210000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.210000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.210000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.210000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.210000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.310000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.310000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.310000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.310000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.410000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.410000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.410000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.410000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.510000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.510000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.510000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.510000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.610000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.610000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.610000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.610000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.610000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.7100000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.7100000000000013);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.7100000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.7100000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.7100000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.8100000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.8100000000000014);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.8100000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.8100000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.8100000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.9100000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.9100000000000015);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.9100000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.9100000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.9100000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.0100000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.0100000000000016);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.0100000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.0100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.0100000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.1100000000000017+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.1100000000000017);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.1100000000000017)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.1100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.1100000000000017\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.2100000000000017+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.2100000000000017);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.2100000000000017)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.2100000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.2100000000000017\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.310000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.310000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.310000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.310000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.310000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.410000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.410000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.410000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.410000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.410000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.510000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.510000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.510000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.510000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.510000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.610000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.610000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.610000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.610000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.610000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.710000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.710000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.710000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.710000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.710000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.8100000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.8100000000000023);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.8100000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.8100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.8100000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.9100000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.9100000000000024);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.9100000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.9100000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.9100000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.0100000000000025+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.0100000000000025);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.0100000000000025)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.0100000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.0100000000000025\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.110000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.110000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.110000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.110000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.110000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.210000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.210000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.210000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.210000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.210000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.310000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.310000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.310000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.310000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.310000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.410000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.410000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.410000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.410000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.410000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.510000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.510000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.510000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.510000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.510000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.61+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.61);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.61)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.61,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.61\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.71+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.71);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.71)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.71,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.71\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.81+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.81);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.81)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.81,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.81\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.909999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.909999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.909999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.909999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.909999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.009999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.009999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.009999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.009999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.009999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.1099999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.1099999999999985);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.1099999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.1099999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.1099999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.209999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.209999999999998);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.209999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.209999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.209999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.309999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.309999999999998);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.309999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.309999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.309999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.4099999999999975+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.4099999999999975);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.4099999999999975)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.4099999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.4099999999999975\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.509999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.509999999999997);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.509999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.509999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.509999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.609999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.609999999999997);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.609999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.609999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.609999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.709999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.709999999999996);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.709999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.709999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.709999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.809999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.809999999999996);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.809999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.809999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.809999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.909999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.909999999999996);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.909999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.909999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.909999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.009999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.009999999999995);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.009999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.009999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.009999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.109999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.109999999999995);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.109999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.109999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.109999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.209999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.209999999999995);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.209999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.209999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.209999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.309999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.309999999999994);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.309999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.309999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.309999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.409999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.409999999999994);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.409999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.409999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.409999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.509999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.509999999999994);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.509999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.509999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.509999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.609999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.609999999999993);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.609999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.609999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.609999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.709999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.709999999999993);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.709999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.709999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.709999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.8099999999999925+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.8099999999999925);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.8099999999999925)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.8099999999999925,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.8099999999999925\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.909999999999992+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.909999999999992);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.909999999999992)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.909999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.909999999999992\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.009999999999992+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.009999999999992);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.009999999999992)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.009999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.009999999999992\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.109999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.109999999999991);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.109999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.109999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.109999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.209999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.209999999999991);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.209999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.209999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.209999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.309999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.309999999999991);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.309999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.309999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.309999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.40999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.40999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.40999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.40999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.40999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.50999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.50999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.50999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.50999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.50999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.60999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.60999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.60999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.60999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.60999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.709999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.709999999999989);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.709999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.709999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.709999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.809999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.809999999999989);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.809999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.809999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.809999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.909999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.909999999999989);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.909999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.909999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.909999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.00999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.00999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.00999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.00999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.00999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.109999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.109999999999989);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.109999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.109999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.109999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.209999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.209999999999988);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.209999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.209999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.209999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.309999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.309999999999988);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.309999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.309999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.309999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.409999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.409999999999988);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.409999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.409999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.409999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.509999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.509999999999987);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.509999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.509999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.509999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.609999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.609999999999987);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.609999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.609999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.609999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.709999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.709999999999987);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.709999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.709999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.709999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.809999999999986+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.809999999999986);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.809999999999986)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.809999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.809999999999986\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.909999999999986+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.909999999999986);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.909999999999986)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.909999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.909999999999986\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.009999999999986+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.009999999999986);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.009999999999986)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.009999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.009999999999986\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.109999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.109999999999985);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.109999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.109999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.109999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.209999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.209999999999985);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.209999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.209999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.209999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.309999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.309999999999985);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.309999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.309999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.309999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.409999999999984+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.409999999999984);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.409999999999984)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.409999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.409999999999984\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.509999999999984+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.509999999999984);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.509999999999984)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.509999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.509999999999984\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.609999999999983+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.609999999999983);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.609999999999983)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.609999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.609999999999983\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.709999999999983+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.709999999999983);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.709999999999983)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.709999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.709999999999983\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.809999999999983+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.809999999999983);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.809999999999983)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.809999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.809999999999983\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.909999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.909999999999982);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.909999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.909999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.909999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = log10 apfunc = log10" $pgm.puts "fprintf(out_fd,\"maplefunc = log10 apfunc = log10\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = log10 apfunc = log10\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("0.1+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(0.1);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(1.2000000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,1.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("2.3000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(2.3000000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(2.3000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,2.3000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 2.3000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("3.4000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(3.4000000000000004);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(3.4000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,3.4000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 3.4000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("4.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(4.5);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(4.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,4.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 4.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("5.6+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(5.6);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(5.6)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,5.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 5.6\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("6.699999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(6.699999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(6.699999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,6.699999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 6.699999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("7.799999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(7.799999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(7.799999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,7.799999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 7.799999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("8.899999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(8.899999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(8.899999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,8.899999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 8.899999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("9.999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(9.999999999999998);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(9.999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,9.999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 9.999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("11.099999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(11.099999999999998);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(11.099999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,11.099999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 11.099999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("12.199999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(12.199999999999998);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(12.199999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,12.199999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 12.199999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("13.299999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(13.299999999999997);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(13.299999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,13.299999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 13.299999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("14.399999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(14.399999999999997);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(14.399999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,14.399999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 14.399999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("15.499999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(15.499999999999996);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(15.499999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,15.499999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 15.499999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("16.599999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(16.599999999999998);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(16.599999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,16.599999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 16.599999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("17.7+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(17.7);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(17.7)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,17.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 17.7\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("18.8+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(18.8);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(18.8)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,18.8,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 18.8\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("19.900000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(19.900000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(19.900000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,19.900000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 19.900000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("21.000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(21.000000000000004);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(21.000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,21.000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 21.000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("22.100000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(22.100000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(22.100000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,22.100000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 22.100000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("23.200000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(23.200000000000006);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(23.200000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,23.200000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 23.200000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("24.300000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(24.300000000000008);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(24.300000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,24.300000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 24.300000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("25.40000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(25.40000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(25.40000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,25.40000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 25.40000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("26.50000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(26.50000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(26.50000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,26.50000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 26.50000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("27.600000000000012+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(27.600000000000012);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(27.600000000000012)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,27.600000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 27.600000000000012\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("28.700000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(28.700000000000014);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(28.700000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,28.700000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 28.700000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("29.800000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(29.800000000000015);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(29.800000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,29.800000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 29.800000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("30.900000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(30.900000000000016);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(30.900000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,30.900000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 30.900000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("32.000000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(32.000000000000014);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(32.000000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,32.000000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 32.000000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("33.100000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(33.100000000000016);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(33.100000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,33.100000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 33.100000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("34.20000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(34.20000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(34.20000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,34.20000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 34.20000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("35.30000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(35.30000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(35.30000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,35.30000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 35.30000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("36.40000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(36.40000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(36.40000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,36.40000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 36.40000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("37.50000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(37.50000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(37.50000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,37.50000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 37.50000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("38.60000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(38.60000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(38.60000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,38.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 38.60000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("39.700000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(39.700000000000024);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(39.700000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,39.700000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 39.700000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("40.800000000000026+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(40.800000000000026);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(40.800000000000026)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,40.800000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 40.800000000000026\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("41.90000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(41.90000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(41.90000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,41.90000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 41.90000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("43.00000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(43.00000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(43.00000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,43.00000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 43.00000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("44.10000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(44.10000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(44.10000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,44.10000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 44.10000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("45.20000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(45.20000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(45.20000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,45.20000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 45.20000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("46.30000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(46.30000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(46.30000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,46.30000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 46.30000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("47.400000000000034+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(47.400000000000034);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(47.400000000000034)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,47.400000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 47.400000000000034\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("48.500000000000036+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(48.500000000000036);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(48.500000000000036)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,48.500000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 48.500000000000036\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("49.60000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(49.60000000000004);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(49.60000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,49.60000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 49.60000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("50.70000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(50.70000000000004);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(50.70000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,50.70000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 50.70000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("51.80000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(51.80000000000004);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(51.80000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,51.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 51.80000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("52.90000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(52.90000000000004);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(52.90000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,52.90000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 52.90000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("54.00000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(54.00000000000004);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(54.00000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,54.00000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 54.00000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("55.100000000000044+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(55.100000000000044);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(55.100000000000044)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,55.100000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 55.100000000000044\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("56.200000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(56.200000000000045);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(56.200000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,56.200000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 56.200000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("57.30000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(57.30000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(57.30000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,57.30000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 57.30000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("58.40000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(58.40000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(58.40000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,58.40000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 58.40000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("59.50000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(59.50000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(59.50000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,59.50000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 59.50000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("60.60000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(60.60000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(60.60000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,60.60000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 60.60000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("61.70000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(61.70000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(61.70000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,61.70000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 61.70000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("62.800000000000054+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(62.800000000000054);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(62.800000000000054)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,62.800000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 62.800000000000054\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("63.900000000000055+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(63.900000000000055);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(63.900000000000055)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,63.900000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 63.900000000000055\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("65.00000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(65.00000000000006);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(65.00000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,65.00000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 65.00000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("66.10000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(66.10000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(66.10000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,66.10000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 66.10000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("67.20000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(67.20000000000005);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(67.20000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,67.20000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 67.20000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("68.30000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(68.30000000000004);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(68.30000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,68.30000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 68.30000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("69.40000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(69.40000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(69.40000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,69.40000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 69.40000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("70.50000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(70.50000000000003);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(70.50000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,70.50000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 70.50000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("71.60000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(71.60000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(71.60000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,71.60000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 71.60000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("72.70000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(72.70000000000002);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(72.70000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,72.70000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 72.70000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("73.80000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(73.80000000000001);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(73.80000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,73.80000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 73.80000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("74.9+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(74.9);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(74.9)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,74.9,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 74.9\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("76.0+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(76.0);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(76.0)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,76.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 76.0\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("77.1+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(77.1);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(77.1)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,77.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 77.1\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("78.19999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(78.19999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(78.19999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,78.19999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 78.19999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("79.29999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(79.29999999999998);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(79.29999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,79.29999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 79.29999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("80.39999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(80.39999999999998);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(80.39999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,80.39999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 80.39999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("81.49999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(81.49999999999997);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(81.49999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,81.49999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 81.49999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("82.59999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(82.59999999999997);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(82.59999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,82.59999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 82.59999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("83.69999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(83.69999999999996);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(83.69999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,83.69999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 83.69999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("84.79999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(84.79999999999995);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(84.79999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,84.79999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 84.79999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("85.89999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(85.89999999999995);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(85.89999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,85.89999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 85.89999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("86.99999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(86.99999999999994);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(86.99999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,86.99999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 86.99999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("88.09999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(88.09999999999994);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(88.09999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,88.09999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 88.09999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("89.19999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(89.19999999999993);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(89.19999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,89.19999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 89.19999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("90.29999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(90.29999999999993);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(90.29999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,90.29999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 90.29999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("91.39999999999992+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(91.39999999999992);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(91.39999999999992)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,91.39999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 91.39999999999992\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("92.49999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(92.49999999999991);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(92.49999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,92.49999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 92.49999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("93.59999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(93.59999999999991);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(93.59999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,93.59999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 93.59999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("94.6999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(94.6999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(94.6999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,94.6999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 94.6999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("95.7999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(95.7999999999999);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(95.7999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,95.7999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 95.7999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("96.89999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(96.89999999999989);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(96.89999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,96.89999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 96.89999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("97.99999999999989+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(97.99999999999989);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(97.99999999999989)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,97.99999999999989,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 97.99999999999989\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("99.09999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(99.09999999999988);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(99.09999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,99.09999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 99.09999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("100.19999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = log10 Ruby APFP function = log10 \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.log10 $pgm.puts "fxm := log10(100.19999999999987);" $pgm.puts "fff := w ->log10(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(100.19999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(log10,log10,100.19999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 100.19999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = sinh apfunc = sinh" $pgm.puts "fprintf(out_fd,\"maplefunc = sinh apfunc = sinh\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = sinh apfunc = sinh\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-1.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-1.5);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-1.4);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-1.2999999999999998);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-1.1999999999999997);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0999999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-1.0999999999999996);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0999999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.9999999999999997);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.8999999999999997);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.7999999999999997);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.6999999999999997);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.5999999999999998);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.4999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.4999999999999998);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.4999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.3999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.3999999999999998);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.3999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.2999999999999998);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.19999999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.19999999999999982);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.19999999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.09999999999999981+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(-0.09999999999999981);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.09999999999999981)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.942890293094024e-16+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(1.942890293094024e-16);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.942890293094024e-16)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.1000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(0.1000000000000002);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(0.2000000000000002);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.3000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(0.3000000000000002);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.3000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.40000000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(0.40000000000000024);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.40000000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(0.5000000000000002);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(0.6000000000000002);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(0.7000000000000002);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(0.8000000000000002);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(0.9000000000000001);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(1.0000000000000002);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.1000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(1.1000000000000003);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.1000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(1.2000000000000004);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(1.3000000000000005);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4000000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sinh Ruby APFP function = sinh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sinh $pgm.puts "fxm := sinh(1.4000000000000006);" $pgm.puts "fff := w ->sinh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4000000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sinh,sinh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = cosh apfunc = cosh" $pgm.puts "fprintf(out_fd,\"maplefunc = cosh apfunc = cosh\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = cosh apfunc = cosh\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-1.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-1.5);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-1.4);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-1.2999999999999998);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-1.1999999999999997);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0999999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-1.0999999999999996);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0999999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.9999999999999997);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.8999999999999997);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.7999999999999997);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.6999999999999997);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.5999999999999998);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.4999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.4999999999999998);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.4999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.3999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.3999999999999998);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.3999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.2999999999999998);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.19999999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.19999999999999982);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.19999999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.09999999999999981+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(-0.09999999999999981);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.09999999999999981)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.942890293094024e-16+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(1.942890293094024e-16);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.942890293094024e-16)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.1000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(0.1000000000000002);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(0.2000000000000002);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.3000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(0.3000000000000002);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.3000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.40000000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(0.40000000000000024);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.40000000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(0.5000000000000002);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(0.6000000000000002);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(0.7000000000000002);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(0.8000000000000002);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(0.9000000000000001);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(1.0000000000000002);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.1000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(1.1000000000000003);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.1000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(1.2000000000000004);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(1.3000000000000005);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4000000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = cosh Ruby APFP function = cosh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.cosh $pgm.puts "fxm := cosh(1.4000000000000006);" $pgm.puts "fff := w ->cosh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4000000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(cosh,cosh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = tanh apfunc = tanh" $pgm.puts "fprintf(out_fd,\"maplefunc = tanh apfunc = tanh\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = tanh apfunc = tanh\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-1.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-1.5);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-1.4);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-1.2999999999999998);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-1.1999999999999997);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0999999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-1.0999999999999996);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0999999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.9999999999999997);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.8999999999999997);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.7999999999999997);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.6999999999999997);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.5999999999999998);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.4999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.4999999999999998);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.4999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.3999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.3999999999999998);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.3999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.2999999999999998);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.19999999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.19999999999999982);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.19999999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.09999999999999981+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(-0.09999999999999981);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.09999999999999981)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.942890293094024e-16+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(1.942890293094024e-16);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.942890293094024e-16)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.1000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(0.1000000000000002);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(0.2000000000000002);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.3000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(0.3000000000000002);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.3000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.40000000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(0.40000000000000024);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.40000000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(0.5000000000000002);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(0.6000000000000002);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(0.7000000000000002);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(0.8000000000000002);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(0.9000000000000001);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(1.0000000000000002);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.1000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(1.1000000000000003);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.1000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(1.2000000000000004);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(1.3000000000000005);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4000000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = tanh Ruby APFP function = tanh \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.tanh $pgm.puts "fxm := tanh(1.4000000000000006);" $pgm.puts "fff := w ->tanh(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4000000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(tanh,tanh,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = sqrt apfunc = sqrt" $pgm.puts "fprintf(out_fd,\"maplefunc = sqrt apfunc = sqrt\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = sqrt apfunc = sqrt\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("0.0+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.0);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.0)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.0,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.0\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.1+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.1);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.1,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.2);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.30000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.30000000000000004);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.30000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.30000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.30000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.4);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.5);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.6);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.6,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.7);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.7999999999999999);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.7999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.8999999999999999);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.8999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(0.9999999999999999);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,0.9999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0999999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(1.0999999999999999);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0999999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,1.0999999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0999999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(1.2);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,1.2,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(1.3);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,1.3,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = sqrt Ruby APFP function = sqrt \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.sqrt $pgm.puts "fxm := sqrt(1.4000000000000001);" $pgm.puts "fff := w ->sqrt(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(sqrt,sqrt,1.4000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = abs apfunc = abs" $pgm.puts "fprintf(out_fd,\"maplefunc = abs apfunc = abs\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = abs apfunc = abs\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-1.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-1.5);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-1.4);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-1.2999999999999998);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-1.1999999999999997);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0999999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-1.0999999999999996);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0999999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.9999999999999997);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.8999999999999997);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.7999999999999997);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.6999999999999997);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.5999999999999998);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.4999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.4999999999999998);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.4999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.3999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.3999999999999998);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.3999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.2999999999999998);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.19999999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.19999999999999982);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.19999999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.09999999999999981+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(-0.09999999999999981);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.09999999999999981)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.942890293094024e-16+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(1.942890293094024e-16);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.942890293094024e-16)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.1000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(0.1000000000000002);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(0.2000000000000002);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.3000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(0.3000000000000002);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.3000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.40000000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(0.40000000000000024);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.40000000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(0.5000000000000002);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(0.6000000000000002);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(0.7000000000000002);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(0.8000000000000002);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(0.9000000000000001);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(1.0000000000000002);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.1000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(1.1000000000000003);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.1000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(1.2000000000000004);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(1.3000000000000005);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4000000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = abs Ruby APFP function = abs \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.abs $pgm.puts "fxm := abs(1.4000000000000006);" $pgm.puts "fff := w ->abs(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4000000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(abs,abs,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = trunc apfunc = trunc" $pgm.puts "fprintf(out_fd,\"maplefunc = trunc apfunc = trunc\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = trunc apfunc = trunc\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-19.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-19.5);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-19.38+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-19.38);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.38)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-19.38,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.38\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-19.259999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-19.259999999999998);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.259999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-19.259999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.259999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-19.139999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-19.139999999999997);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.139999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-19.139999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.139999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-19.019999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-19.019999999999996);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.019999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-19.019999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.019999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.899999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-18.899999999999995);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.899999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-18.899999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.899999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.779999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-18.779999999999994);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.779999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-18.779999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.779999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.659999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-18.659999999999993);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.659999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-18.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.659999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.539999999999992+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-18.539999999999992);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.539999999999992)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-18.539999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.539999999999992\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.41999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-18.41999999999999);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.41999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-18.41999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.41999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.29999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-18.29999999999999);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.29999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-18.29999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.29999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.17999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-18.17999999999999);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.17999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-18.17999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.17999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.059999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-18.059999999999988);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.059999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-18.059999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.059999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.939999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-17.939999999999987);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.939999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-17.939999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.939999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.819999999999986+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-17.819999999999986);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.819999999999986)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-17.819999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.819999999999986\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.699999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-17.699999999999985);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.699999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-17.699999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.699999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.579999999999984+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-17.579999999999984);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.579999999999984)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-17.579999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.579999999999984\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.459999999999983+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-17.459999999999983);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.459999999999983)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-17.459999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.459999999999983\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.339999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-17.339999999999982);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.339999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-17.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.339999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.21999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-17.21999999999998);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.21999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-17.21999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.21999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.09999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-17.09999999999998);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.09999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-17.09999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.09999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.97999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-16.97999999999998);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.97999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-16.97999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.97999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.859999999999978+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-16.859999999999978);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.859999999999978)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-16.859999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.859999999999978\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.739999999999977+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-16.739999999999977);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.739999999999977)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-16.739999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.739999999999977\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.619999999999976+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-16.619999999999976);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.619999999999976)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-16.619999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.619999999999976\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.499999999999975+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-16.499999999999975);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.499999999999975)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-16.499999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.499999999999975\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.379999999999974+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-16.379999999999974);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.379999999999974)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-16.379999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.379999999999974\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.259999999999973+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-16.259999999999973);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.259999999999973)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-16.259999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.259999999999973\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.139999999999972+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-16.139999999999972);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.139999999999972)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-16.139999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.139999999999972\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.01999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-16.01999999999997);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.01999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-16.01999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.01999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.899999999999972+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-15.899999999999972);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.899999999999972)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-15.899999999999972,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.899999999999972\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.779999999999973+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-15.779999999999973);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.779999999999973)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-15.779999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.779999999999973\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.659999999999973+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-15.659999999999973);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.659999999999973)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-15.659999999999973,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.659999999999973\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.539999999999974+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-15.539999999999974);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.539999999999974)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-15.539999999999974,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.539999999999974\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.419999999999975+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-15.419999999999975);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.419999999999975)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-15.419999999999975,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.419999999999975\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.299999999999976+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-15.299999999999976);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.299999999999976)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-15.299999999999976,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.299999999999976\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.179999999999977+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-15.179999999999977);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.179999999999977)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-15.179999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.179999999999977\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.059999999999977+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-15.059999999999977);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.059999999999977)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-15.059999999999977,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.059999999999977\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.939999999999978+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-14.939999999999978);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.939999999999978)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-14.939999999999978,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.939999999999978\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.819999999999979+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-14.819999999999979);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.819999999999979)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-14.819999999999979,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.819999999999979\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.69999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-14.69999999999998);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.69999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-14.69999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.69999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.57999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-14.57999999999998);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.57999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-14.57999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.57999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.459999999999981+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-14.459999999999981);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.459999999999981)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-14.459999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.459999999999981\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.339999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-14.339999999999982);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.339999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-14.339999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.339999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.219999999999983+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-14.219999999999983);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.219999999999983)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-14.219999999999983,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.219999999999983\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.099999999999984+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-14.099999999999984);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.099999999999984)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-14.099999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.099999999999984\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.979999999999984+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-13.979999999999984);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.979999999999984)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-13.979999999999984,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.979999999999984\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.859999999999985+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-13.859999999999985);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.859999999999985)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-13.859999999999985,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.859999999999985\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.739999999999986+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-13.739999999999986);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.739999999999986)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-13.739999999999986,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.739999999999986\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.619999999999987+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-13.619999999999987);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.619999999999987)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-13.619999999999987,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.619999999999987\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.499999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-13.499999999999988);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.499999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-13.499999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.499999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.379999999999988+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-13.379999999999988);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.379999999999988)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-13.379999999999988,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.379999999999988\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.25999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-13.25999999999999);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.25999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-13.25999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.25999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.13999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-13.13999999999999);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.13999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-13.13999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.13999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.01999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-13.01999999999999);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.01999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-13.01999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.01999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.899999999999991+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-12.899999999999991);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.899999999999991)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-12.899999999999991,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.899999999999991\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.779999999999992+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-12.779999999999992);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.779999999999992)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-12.779999999999992,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.779999999999992\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.659999999999993+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-12.659999999999993);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.659999999999993)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-12.659999999999993,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.659999999999993\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.539999999999994+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-12.539999999999994);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.539999999999994)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-12.539999999999994,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.539999999999994\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.419999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-12.419999999999995);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.419999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-12.419999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.419999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.299999999999995+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-12.299999999999995);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.299999999999995)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-12.299999999999995,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.299999999999995\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.179999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-12.179999999999996);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.179999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-12.179999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.179999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.059999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-12.059999999999997);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.059999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-12.059999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.059999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.939999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-11.939999999999998);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.939999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-11.939999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.939999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.819999999999999+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-11.819999999999999);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.819999999999999)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-11.819999999999999,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.819999999999999\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.7+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-11.7);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.7)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-11.7,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.7\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.58+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-11.58);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.58)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-11.58,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.58\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.46+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-11.46);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.46)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-11.46,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.46\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.340000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-11.340000000000002);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.340000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-11.340000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.340000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.220000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-11.220000000000002);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.220000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-11.220000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.220000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.100000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-11.100000000000003);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.100000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-11.100000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.100000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.980000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-10.980000000000004);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.980000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-10.980000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.980000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.860000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-10.860000000000005);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.860000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-10.860000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.860000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.740000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-10.740000000000006);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.740000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-10.740000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.740000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.620000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-10.620000000000006);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.620000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-10.620000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.620000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.500000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-10.500000000000007);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.500000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-10.500000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.500000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.380000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-10.380000000000008);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.380000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-10.380000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.380000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.260000000000009+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-10.260000000000009);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.260000000000009)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-10.260000000000009,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.260000000000009\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.14000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-10.14000000000001);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.14000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-10.14000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.14000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.02000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-10.02000000000001);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.02000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-10.02000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.02000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.900000000000011+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-9.900000000000011);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.900000000000011)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-9.900000000000011,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.900000000000011\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.780000000000012+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-9.780000000000012);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.780000000000012)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-9.780000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.780000000000012\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.660000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-9.660000000000013);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.660000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-9.660000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.660000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.540000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-9.540000000000013);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.540000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-9.540000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.540000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.420000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-9.420000000000014);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.420000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-9.420000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.420000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.300000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-9.300000000000015);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.300000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-9.300000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.300000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.180000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-9.180000000000016);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.180000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-9.180000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.180000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.060000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-9.060000000000016);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.060000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-9.060000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.060000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.940000000000017+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-8.940000000000017);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.940000000000017)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-8.940000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.940000000000017\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.820000000000018+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-8.820000000000018);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.820000000000018)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-8.820000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.820000000000018\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.700000000000019+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-8.700000000000019);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.700000000000019)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-8.700000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.700000000000019\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.58000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-8.58000000000002);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.58000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-8.58000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.58000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.46000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-8.46000000000002);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.46000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-8.46000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.46000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.340000000000021+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-8.340000000000021);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.340000000000021)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-8.340000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.340000000000021\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.220000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-8.220000000000022);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.220000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-8.220000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.220000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.100000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-8.100000000000023);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.100000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-8.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.100000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.980000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-7.980000000000023);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.980000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-7.980000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.980000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.8600000000000225+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-7.8600000000000225);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.8600000000000225)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-7.8600000000000225,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.8600000000000225\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.740000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-7.740000000000022);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.740000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-7.740000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.740000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-7.620000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = trunc Ruby APFP function = trunc \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.trunc $pgm.puts "fxm := trunc(-7.620000000000022);" $pgm.puts "fff := w ->trunc(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-7.620000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(trunc,trunc,-7.620000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -7.620000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = frac apfunc = frac" $pgm.puts "fprintf(out_fd,\"maplefunc = frac apfunc = frac\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = frac apfunc = frac\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-19.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-19.5);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-19.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-19.39+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-19.39);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.39)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-19.39,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.39\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-19.28+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-19.28);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.28)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-19.28,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.28\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-19.17+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-19.17);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.17)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-19.17,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.17\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-19.060000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-19.060000000000002);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-19.060000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-19.060000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -19.060000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.950000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-18.950000000000003);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.950000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-18.950000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.950000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.840000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-18.840000000000003);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.840000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-18.840000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.840000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.730000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-18.730000000000004);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.730000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-18.730000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.730000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.620000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-18.620000000000005);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.620000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-18.620000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.620000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.510000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-18.510000000000005);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.510000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-18.510000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.510000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.400000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-18.400000000000006);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.400000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-18.400000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.400000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.290000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-18.290000000000006);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.290000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-18.290000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.290000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.180000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-18.180000000000007);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.180000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-18.180000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.180000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-18.070000000000007+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-18.070000000000007);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-18.070000000000007)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-18.070000000000007,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -18.070000000000007\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.960000000000008+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-17.960000000000008);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.960000000000008)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-17.960000000000008,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.960000000000008\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.85000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-17.85000000000001);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.85000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-17.85000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.85000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.74000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-17.74000000000001);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.74000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-17.74000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.74000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.63000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-17.63000000000001);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.63000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-17.63000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.63000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.52000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-17.52000000000001);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.52000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-17.52000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.52000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.41000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-17.41000000000001);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.41000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-17.41000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.41000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.30000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-17.30000000000001);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.30000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-17.30000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.30000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.190000000000012+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-17.190000000000012);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.190000000000012)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-17.190000000000012,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.190000000000012\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-17.080000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-17.080000000000013);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-17.080000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-17.080000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -17.080000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.970000000000013+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-16.970000000000013);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.970000000000013)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-16.970000000000013,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.970000000000013\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.860000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-16.860000000000014);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.860000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-16.860000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.860000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.750000000000014+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-16.750000000000014);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.750000000000014)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-16.750000000000014,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.750000000000014\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.640000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-16.640000000000015);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.640000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-16.640000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.640000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.530000000000015+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-16.530000000000015);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.530000000000015)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-16.530000000000015,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.530000000000015\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.420000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-16.420000000000016);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.420000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-16.420000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.420000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.310000000000016+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-16.310000000000016);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.310000000000016)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-16.310000000000016,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.310000000000016\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.200000000000017+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-16.200000000000017);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.200000000000017)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-16.200000000000017,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.200000000000017\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-16.090000000000018+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-16.090000000000018);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-16.090000000000018)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-16.090000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -16.090000000000018\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.980000000000018+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-15.980000000000018);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.980000000000018)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-15.980000000000018,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.980000000000018\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.870000000000019+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-15.870000000000019);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.870000000000019)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-15.870000000000019,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.870000000000019\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.76000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-15.76000000000002);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.76000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-15.76000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.76000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.65000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-15.65000000000002);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.65000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-15.65000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.65000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.54000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-15.54000000000002);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.54000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-15.54000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.54000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.430000000000021+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-15.430000000000021);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.430000000000021)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-15.430000000000021,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.430000000000021\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.320000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-15.320000000000022);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.320000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-15.320000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.320000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.210000000000022+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-15.210000000000022);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.210000000000022)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-15.210000000000022,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.210000000000022\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-15.100000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-15.100000000000023);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-15.100000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-15.100000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -15.100000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.990000000000023+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.990000000000023);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.990000000000023)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.990000000000023,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.990000000000023\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.880000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.880000000000024);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.880000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.880000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.880000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.770000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.770000000000024);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.770000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.770000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.770000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.660000000000025+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.660000000000025);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.660000000000025)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.660000000000025,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.660000000000025\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.550000000000026+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.550000000000026);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.550000000000026)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.550000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.550000000000026\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.440000000000026+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.440000000000026);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.440000000000026)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.440000000000026,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.440000000000026\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.330000000000027+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.330000000000027);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.330000000000027)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.330000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.330000000000027\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.220000000000027+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.220000000000027);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.220000000000027)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.220000000000027,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.220000000000027\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.110000000000028+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.110000000000028);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.110000000000028)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.110000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.110000000000028\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-14.000000000000028+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-14.000000000000028);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-14.000000000000028)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-14.000000000000028,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -14.000000000000028\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.890000000000029+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-13.890000000000029);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.890000000000029)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-13.890000000000029,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.890000000000029\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.78000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-13.78000000000003);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.78000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-13.78000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.78000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.67000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-13.67000000000003);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.67000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-13.67000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.67000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.56000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-13.56000000000003);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.56000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-13.56000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.56000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.450000000000031+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-13.450000000000031);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.450000000000031)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-13.450000000000031,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.450000000000031\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.340000000000032+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-13.340000000000032);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.340000000000032)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-13.340000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.340000000000032\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.230000000000032+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-13.230000000000032);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.230000000000032)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-13.230000000000032,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.230000000000032\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.120000000000033+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-13.120000000000033);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.120000000000033)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-13.120000000000033,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.120000000000033\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-13.010000000000034+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-13.010000000000034);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-13.010000000000034)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-13.010000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -13.010000000000034\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.900000000000034+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-12.900000000000034);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.900000000000034)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-12.900000000000034,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.900000000000034\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.790000000000035+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-12.790000000000035);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.790000000000035)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-12.790000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.790000000000035\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.680000000000035+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-12.680000000000035);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.680000000000035)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-12.680000000000035,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.680000000000035\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.570000000000036+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-12.570000000000036);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.570000000000036)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-12.570000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.570000000000036\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.460000000000036+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-12.460000000000036);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.460000000000036)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-12.460000000000036,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.460000000000036\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.350000000000037+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-12.350000000000037);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.350000000000037)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-12.350000000000037,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.350000000000037\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.240000000000038+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-12.240000000000038);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.240000000000038)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-12.240000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.240000000000038\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.130000000000038+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-12.130000000000038);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.130000000000038)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-12.130000000000038,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.130000000000038\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-12.020000000000039+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-12.020000000000039);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-12.020000000000039)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-12.020000000000039,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -12.020000000000039\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.91000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-11.91000000000004);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.91000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-11.91000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.91000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.80000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-11.80000000000004);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.80000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-11.80000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.80000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.69000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-11.69000000000004);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.69000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-11.69000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.69000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.580000000000041+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-11.580000000000041);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.580000000000041)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-11.580000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.580000000000041\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.470000000000041+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-11.470000000000041);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.470000000000041)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-11.470000000000041,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.470000000000041\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.360000000000042+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-11.360000000000042);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.360000000000042)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-11.360000000000042,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.360000000000042\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.250000000000043+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-11.250000000000043);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.250000000000043)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-11.250000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.250000000000043\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.140000000000043+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-11.140000000000043);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.140000000000043)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-11.140000000000043,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.140000000000043\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-11.030000000000044+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-11.030000000000044);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-11.030000000000044)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-11.030000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -11.030000000000044\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.920000000000044+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-10.920000000000044);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.920000000000044)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-10.920000000000044,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.920000000000044\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.810000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-10.810000000000045);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.810000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-10.810000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.810000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.700000000000045+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-10.700000000000045);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.700000000000045)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-10.700000000000045,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.700000000000045\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.590000000000046+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-10.590000000000046);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.590000000000046)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-10.590000000000046,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.590000000000046\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.480000000000047+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-10.480000000000047);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.480000000000047)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-10.480000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.480000000000047\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.370000000000047+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-10.370000000000047);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.370000000000047)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-10.370000000000047,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.370000000000047\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.260000000000048+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-10.260000000000048);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.260000000000048)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-10.260000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.260000000000048\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.150000000000048+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-10.150000000000048);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.150000000000048)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-10.150000000000048,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.150000000000048\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-10.040000000000049+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-10.040000000000049);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-10.040000000000049)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-10.040000000000049,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -10.040000000000049\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.93000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-9.93000000000005);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.93000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-9.93000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.93000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.82000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-9.82000000000005);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.82000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-9.82000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.82000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.71000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-9.71000000000005);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.71000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-9.71000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.71000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.600000000000051+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-9.600000000000051);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.600000000000051)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-9.600000000000051,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.600000000000051\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.490000000000052+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-9.490000000000052);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.490000000000052)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-9.490000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.490000000000052\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.380000000000052+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-9.380000000000052);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.380000000000052)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-9.380000000000052,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.380000000000052\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.270000000000053+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-9.270000000000053);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.270000000000053)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-9.270000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.270000000000053\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.160000000000053+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-9.160000000000053);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.160000000000053)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-9.160000000000053,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.160000000000053\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-9.050000000000054+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-9.050000000000054);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-9.050000000000054)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-9.050000000000054,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -9.050000000000054\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.940000000000055+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-8.940000000000055);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.940000000000055)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-8.940000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.940000000000055\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.830000000000055+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-8.830000000000055);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.830000000000055)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-8.830000000000055,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.830000000000055\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.720000000000056+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-8.720000000000056);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.720000000000056)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-8.720000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.720000000000056\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-8.610000000000056+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = frac Ruby APFP function = frac \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.frac $pgm.puts "fxm := frac(-8.610000000000056);" $pgm.puts "fff := w ->frac(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-8.610000000000056)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(frac,frac,-8.610000000000056,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -8.610000000000056\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." puts "maplefunc = erf apfunc = erf" $pgm.puts "fprintf(out_fd,\"maplefunc = erf apfunc = erf\\n\"):" $pgm.puts "fprintf(except_fd,\"maplefunc = erf apfunc = erf\\n\"):" $pgm.puts "local except_flg:" xr = ap_in("-1.5+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-1.5);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.5)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-1.5,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.5\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.4+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-1.4);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.4)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-1.4,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.4\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-1.2999999999999998);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-1.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.1999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-1.1999999999999997);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.1999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-1.1999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.1999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-1.0999999999999996+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-1.0999999999999996);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-1.0999999999999996)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-1.0999999999999996,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -1.0999999999999996\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.9999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.9999999999999997);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.9999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.9999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.9999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.8999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.8999999999999997);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.8999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.8999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.8999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.7999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.7999999999999997);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.7999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.7999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.7999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.6999999999999997+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.6999999999999997);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.6999999999999997)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.6999999999999997,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.6999999999999997\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.5999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.5999999999999998);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.5999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.5999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.5999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.4999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.4999999999999998);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.4999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.4999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.4999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.3999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.3999999999999998);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.3999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.3999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.3999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.2999999999999998+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.2999999999999998);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.2999999999999998)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.2999999999999998,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.2999999999999998\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.19999999999999982+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.19999999999999982);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.19999999999999982)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.19999999999999982,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.19999999999999982\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("-0.09999999999999981+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(-0.09999999999999981);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(-0.09999999999999981)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,-0.09999999999999981,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = -0.09999999999999981\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.942890293094024e-16+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(1.942890293094024e-16);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.942890293094024e-16)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,1.942890293094024e-16,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.942890293094024e-16\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.1000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(0.1000000000000002);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.1000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,0.1000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.1000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.2000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(0.2000000000000002);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.2000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,0.2000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.2000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.3000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(0.3000000000000002);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.3000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,0.3000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.3000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.40000000000000024+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(0.40000000000000024);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.40000000000000024)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,0.40000000000000024,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.40000000000000024\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.5000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(0.5000000000000002);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.5000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,0.5000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.5000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.6000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(0.6000000000000002);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.6000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,0.6000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.6000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.7000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(0.7000000000000002);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.7000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,0.7000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.7000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.8000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(0.8000000000000002);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.8000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,0.8000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.8000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("0.9000000000000001+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(0.9000000000000001);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(0.9000000000000001)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,0.9000000000000001,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 0.9000000000000001\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.0000000000000002+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(1.0000000000000002);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.0000000000000002)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,1.0000000000000002,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.0000000000000002\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.1000000000000003+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(1.1000000000000003);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.1000000000000003)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,1.1000000000000003,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.1000000000000003\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.2000000000000004+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(1.2000000000000004);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.2000000000000004)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,1.2000000000000004,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.2000000000000004\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.3000000000000005+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(1.3000000000000005);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.3000000000000005)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,1.3000000000000005,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.3000000000000005\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "local except_flg:" xr = ap_in("1.4000000000000006+/-0.1e-33") $pgm.puts "start_err := 0.1e-33:" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fprintf(out_fd,\"Maple function = erf Ruby APFP function = erf \\n\"):" $pgm.puts "total_tests := total_tests + 1:" fxr = xr.erf $pgm.puts "fxm := erf(1.4000000000000006);" $pgm.puts "fff := w ->erf(w);" $pgm.puts "ggg := D(fff);" $pgm.puts "differentialm := abs(evalf(ggg(1.4000000000000006)) * start_err);" $pgm.puts "fxr2 := #{fxr.to_s_main}:" $pgm.puts "fxrerr := #{fxr.to_s_err}:" $pgm.puts "fxr := fxr2:" $pgm.puts "abs_err := abs(fxm - fxr):" $pgm.puts "except_flg := 0:" $pgm.puts "if fxm <> 0.0 then " $pgm.puts "percent_error := abs_err * 100.0 / abs(fxm): else percent_error := 0.0:" $pgm.puts "end:" $pgm.puts "if (percent_error > 1.0e-10) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"PERCENT ERROR > 1.0e-10\\n\"):" $pgm.puts "end:" $pgm.puts "if (abs_err > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ABS ERROR > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (differentialm > 1.5 * fxrerr and fxerr > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"DIFFERENTIAL > 1.5 * ESTIMATE\\n\"):" $pgm.puts "end:" $pgm.puts "if (fxrerr > 1000.0 * differentialm and differentialm > 0.0) then" $pgm.puts "except_flg := 1:" $pgm.puts "fprintf(except_fd,\"ESTIMATE > 1000.0 * DIFFERENTIAL\\n\"):" $pgm.puts "end:" $pgm.puts "if (except_flg = 1) then" $pgm.puts "dump_except(erf,erf,1.4000000000000006,fxm,fxr2,fxrerr,percent_error,abs_err,except_fd,differentialm,0.1e-33):" $pgm.puts "end:" $pgm.puts "fprintf(out_fd,\"x = 1.4000000000000006\\n\"):" $pgm.puts "fprintf(out_fd,\"error given in x = 0.1e-33\\n\"):" $pgm.puts "fprintf(out_fd,\"Ruby APFP value = %40.34e\\n\",fxr):" $pgm.puts "fprintf(out_fd,\"Maple value = %40.34e\\n\",fxm):" $pgm.puts "fprintf(out_fd,\"Percent Difference = %40.34e\\n\",percent_error):" $pgm.puts "fprintf(out_fd,\"Absolute Difference = %40.34e\\n\",abs_err):" $pgm.puts "fprintf(out_fd,\"Ruby APFP error estimate = %40.34e\\n\",fxrerr):" $pgm.puts "fprintf(out_fd,\"Maple Differential = %40.34e\\n\",differentialm):" putc ".." $pgm.puts "fprintf(out_fd,\"total_tests = %d\\n\",total_tests):" $pgm.puts "fprintf(out_fd,\"total_exceptions = %d\\n\",total_exceptions):" $pgm.puts "fprintf(except_fd,\"total_tests = %d\\n\",total_tests):" $pgm.puts "fprintf(except_fd,\"total_exceptions = %d\\n\",total_exceptions):" $pgm.puts "mend := trunc(time()*1000.0):" $pgm.puts "rend := #{Time.now.to_i}*1000:" t = Process.times $pgm.puts "rcpuuend := #{t.utime}*1000:" $pgm.puts "rcpusend := #{t.stime}*1000:" $pgm.puts "melapsed := trunc(evalf(mend - mstart)):" $pgm.puts "relapsed := trunc(evalf(rend - rstart)):" $pgm.puts "rcpuuelapsed := trunc(evalf(rcpuuend - rcpuustart)):" $pgm.puts "rcpuselapsed := trunc(evalf(rcpusend - rcpusstart)):" $pgm.puts "mhours := hours_elapsed(melapsed):" $pgm.puts "rhours := hours_elapsed(relapsed):" $pgm.puts "rcpuuhours := hours_elapsed(rcpuuelapsed):" $pgm.puts "rcpushours := hours_elapsed(rcpuselapsed):" $pgm.puts "mmin := min_elapsed(mhours,melapsed):" $pgm.puts "rmin := min_elapsed(rhours,relapsed):" $pgm.puts "rcpuumin := min_elapsed(rcpuuhours,rcpuuelapsed):" $pgm.puts "rcpusmin := min_elapsed(rhours,rcpuselapsed):" $pgm.puts "msec := sec_elapsed(mhours,mmin,melapsed):" $pgm.puts "rsec := sec_elapsed(rhours,rmin,relapsed):" $pgm.puts "rcpuusec := sec_elapsed(rcpuuhours,rcpuumin,rcpuuelapsed):" $pgm.puts "rcpussec := sec_elapsed(rcpushours,rcpusmin,rcpuselapsed):" $pgm.puts "mmsec := msec_elapsed(mhours,mmin,msec,melapsed):" $pgm.puts "rmsec := msec_elapsed(rhours,rmin,rsec,relapsed):" $pgm.puts "rcpuumsec := msec_elapsed(rcpuuhours,rcpuumin,rcpuusec,rcpuuelapsed):" $pgm.puts "rcpusmsec := msec_elapsed(rcpushours,rcpusmin,rcpussec,rcpuselapsed):" $pgm.puts "fprintf(out_fd,\"Maple %d hours %d minutes %d seconds %d msec CPU\\n\",mhours,mmin,msec,mmsec):" $pgm.puts "fprintf(out_fd,\"Ruby %d hours %d minutes %d seconds %d msec Clock\\n\",rhours,rmin,rsec,rmsec):" $pgm.puts "fprintf(out_fd,\"Ruby %d hours %d minutes %d seconds %d msec User CPU\\n\",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec):" $pgm.puts "fprintf(out_fd,\"Ruby %d hours %d minutes %d seconds %d msec System CPU\\n\",rcpushours,rcpusmin,rcpussec,rcpusmsec):" $pgm.puts "fprintf(except_fd,\"Maple %d hours %d minutes %d seconds %d msec CPU\\n\",mhours,mmin,msec,mmsec):" $pgm.puts "fprintf(except_fd,\"Ruby %d hours %d minutes %d seconds %d msec Clock\\n\",rhours,rmin,rsec,rmsec):" $pgm.puts "fprintf(except_fd,\"Ruby %d hours %d minutes %d seconds %d msec User CPU\\n\",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec):" $pgm.puts "fprintf(except_fd,\"Ruby %d hours %d minutes %d seconds %d msec System CPU\\n\",rcpushours,rcpusmin,rcpussec,rcpusmsec):" $pgm.puts "printf(\"Maple %d hours %d minutes %d seconds %d msec CPU\\n\",mhours,mmin,msec,mmsec):" $pgm.puts "printf(\"Ruby %d hours %d minutes %d seconds %d msec Clock\\n\",rhours,rmin,rsec,rmsec):" $pgm.puts "printf(\"Ruby %d hours %d minutes %d seconds %d msec User CPU\\n\",rcpuuhours,rcpuumin,rcpuusec,rcpuumsec):" $pgm.puts "printf(\"Ruby %d hours %d minutes %d seconds %d msec System CPU\\n\",rcpushours,rcpusmin,rcpussec,rcpusmsec):" $pgm.puts "fprintf(out_fd,\"___________________________________________________________________\\n\"):" $pgm.puts "fclose(out_fd):" $pgm.puts "fclose(except_fd):" puts "End of APFP Regression Test"